;; -*- scheme -*-
; object definitions ...
(define-object Object
  (in-module "Lt")
  (parent "GObject")
  (c-name "LtObject")
  (gtype-id "LT_TYPE_OBJECT")
)

(define-object Source
  (in-module "Lt")
  (parent "LtObject")
  (c-name "LtSource")
  (gtype-id "LT_TYPE_SOURCE")
)

(define-object Tag
  (in-module "Lt")
  (parent "LtObject")
  (c-name "LtTag")
  (gtype-id "LT_TYPE_TAG")
)

;; Enumerations and flags ...


;; From /usr/include/libleaftag/leaftag.h



;; From /usr/include/libleaftag/object.h

(define-function lt_object_get_type
  (c-name "lt_object_get_type")
  (return-type "GType")
)

(define-method get_id
  (of-object "LtObject")
  (c-name "lt_object_get_id")
  (return-type "guint")
)

(define-method get_in_db
  (of-object "LtObject")
  (c-name "lt_object_get_in_db")
  (return-type "gboolean")
)



;; From /usr/include/libleaftag/source.h

(define-function lt_source_get_type
  (c-name "lt_source_get_type")
  (return-type "GType")
)

(define-function lt_create_source
  (c-name "lt_create_source")
  (return-type "LtSource*")
  (parameters
    '("const-char*" "uri")
  )
)

(define-function lt_source_lookup
  (c-name "lt_source_lookup")
  (return-type "LtSource*")
  (parameters
    '("const-char*" "uri")
  )
)

(define-function lt_source_lookup_many
  (c-name "lt_source_lookup_many")
  (return-type "GList*")
  (parameters
    '("GList*" "uris")
  )
)

(define-method set_uri
  (of-object "LtSource")
  (c-name "lt_source_set_uri")
  (return-type "none")
  (parameters
    '("const-char*" "new_uri")
  )
)

(define-method get_filename
  (of-object "LtSource")
  (c-name "lt_source_get_filename")
  (return-type "const-char*")
)

(define-method get_uri
  (of-object "LtSource")
  (c-name "lt_source_get_uri")
  (return-type "const-char*")
)

(define-method get_schema
  (of-object "LtSource")
  (c-name "lt_source_get_schema")
  (return-type "const-char*")
)

(define-method tag
  (of-object "LtSource")
  (c-name "lt_source_tag")
  (return-type "none")
  (parameters
    '("GList*" "tags")
  )
)

(define-method untag
  (of-object "LtSource")
  (c-name "lt_source_untag")
  (return-type "none")
  (parameters
    '("GList*" "tag_names")
  )
)

(define-method get_tags
  (of-object "LtSource")
  (c-name "lt_source_get_tags")
  (return-type "GList*")
)

(define-function lt_get_all_sources
  (c-name "lt_get_all_sources")
  (return-type "GList*")
)

(define-function lt_get_sources_with_schema
  (c-name "lt_get_sources_with_schema")
  (return-type "GList*")
  (parameters
    '("const-char*" "schema")
  )
)

(define-function lt_get_sources_with_tags
  (c-name "lt_get_sources_with_tags")
  (return-type "GList*")
  (parameters
    '("GList*" "tags")
    '("const-char*" "schema")
  )
)

;(define-function lt_get_sources_with_tag_names
;  (c-name "lt_get_sources_with_tag_names")
;  (return-type "GList*")
;  (parameters
;    '("GList*" "tag_names")
;    '("const-char*" "schema")
;  )
;)



;; From /usr/include/libleaftag/tag.h

(define-function lt_tag_get_type
  (c-name "lt_tag_get_type")
  (return-type "GType")
)

(define-function lt_create_tag
  (c-name "lt_create_tag")
  (return-type "LtTag*")
  (parameters
    '("const-char*" "tag_name")
  )
)

(define-function lt_tag_lookup
  (c-name "lt_tag_lookup")
  (return-type "LtTag*")
  (parameters
    '("const-char*" "tag_name")
  )
)

;(define-function lt_tag_lookup_many
;  (c-name "lt_tag_lookup_many")
;  (return-type "GList*")
;  (parameters
;    '("GList*" "tag_names")
;  )
;)

(define-method get_name
  (of-object "LtTag")
  (c-name "lt_tag_get_name")
  (return-type "const-char*")
)

(define-method set_hidden
  (of-object "LtTag")
  (c-name "lt_tag_set_hidden")
  (return-type "none")
  (parameters
    '("gboolean" "hidden")
  )
)

(define-method get_hidden
  (of-object "LtTag")
  (c-name "lt_tag_get_hidden")
  (return-type "gboolean")
)

(define-method set_description
  (of-object "LtTag")
  (c-name "lt_tag_set_description")
  (return-type "none")
  (parameters
    '("const-char*" "description")
  )
)

(define-method get_description
  (of-object "LtTag")
  (c-name "lt_tag_get_description")
  (return-type "const-char*")
)

(define-method set_image
  (of-object "LtTag")
  (c-name "lt_tag_set_image")
  (return-type "none")
  (parameters
    '("const-char*" "image_path")
  )
)

(define-method get_image
  (of-object "LtTag")
  (c-name "lt_tag_get_image")
  (return-type "const-char*")
)

(define-method get_sources
  (of-object "LtTag")
  (c-name "lt_tag_get_sources")
  (return-type "GList*")
  (parameters
    '("const-char*" "schema" (default NULL))
  )
)

(define-function lt_get_all_tags
  (c-name "lt_get_all_tags")
  (return-type "GList*")
)

(define-function lt_get_visible_tags
  (c-name "lt_get_visible_tags")
  (return-type "GList*")
)

(define-function lt_get_tag_name_valid
  (c-name "lt_get_tag_name_valid")
  (return-type "gboolean")
  (parameters
    '("const-char*" "tag_name")
  )
)

(define-function lt_get_tag_names_valid
  (c-name "lt_get_tag_names_valid")
  (return-type "gboolean")
  (parameters
    '("GList*" "tag_names")
  )
)

; vim: syntax=lisp