(define-module (g-wrapped gw-kvp-spec))

;; g-wrap modules
(use-modules (g-wrap))
(use-modules (g-wrap simple-type))

;; g-wrap wrapped modules
(use-modules (g-wrap gw-standard-spec))
(use-modules (g-wrap gw-wct-spec))
(use-modules (g-wrap gw-glib-spec))

;; other wrapped modules
(use-modules (g-wrapped gw-engine-spec))

(let ((ws (gw:new-wrapset "gw-kvp")))

  (gw:wrapset-depends-on ws "gw-standard")
  (gw:wrapset-depends-on ws "gw-wct")
  (gw:wrapset-depends-on ws "gw-glib")

  (gw:wrapset-depends-on ws "gw-engine")

  (gw:wrapset-set-guile-module! ws '(g-wrapped gw-kvp))

  (gw:wrapset-add-cs-declarations!
   ws
   (lambda (wrapset client-wrapset)
     (list
      "#include <qof.h>\n"
      "#include <kvp-scm.h>\n"
      "#include <Transaction.h>\n")))

  (gw:wrap-as-wct ws '<gnc:kvp-frame*> "KvpFrame*" "const KvpFrame*")

  (gw:wrap-simple-type
   ws
   '<gnc:kvp-value*> "KvpValue*"
   '("gnc_kvp_value_ptr_p(" scm-var ")")
   '(c-var " = gnc_scm_to_kvp_value_ptr(" scm-var ");\n")
   '(scm-var " = gnc_kvp_value_ptr_to_scm(" c-var ");\n"))
  
  (gw:wrap-function
   ws
   'gnc:kvp-frame-delete-at-path
   '<gw:void>
   "gnc_kvp_frame_delete_at_path"
   '((<gnc:kvp-frame*> f)
     ((gw:gslist-of (<gw:mchars> caller-owned const) caller-owned) key-path))
   "Deletes the KvpFrame at the key-path in frame f")
   
  (gw:wrap-function
   ws
   'gnc:kvp-frame-set-slot
   '<gw:void>
   "kvp_frame_set_slot"
   '((<gnc:kvp-frame*> k)
     ((<gw:mchars> caller-owned const) c)
     (<gnc:kvp-value*> v))
   "Sets the slot c in frame k to the value v")

  (gw:wrap-function
   ws
   'gnc:kvp-frame-get-slot
   '<gnc:kvp-value*>
   "kvp_frame_get_slot"
   '((<gnc:kvp-frame*> k) ((<gw:mchars> caller-owned const) c))
   "Gets the slot c from frame k")

  (gw:wrap-function
   ws
   'gnc:kvp-frame-set-slot-path
   '<gw:void>
   "kvp_frame_set_slot_path_gslist"
   '((<gnc:kvp-frame*> k) (<gnc:kvp-value*> v)
     ((gw:gslist-of (<gw:mchars> caller-owned const) caller-owned) key-path))
   "Sets the path key-path in frame k to the value v")

  (gw:wrap-function
   ws
   'gnc:kvp-frame-get-slot-path
   '<gnc:kvp-value*>
   "kvp_frame_get_slot_path_gslist"
   '((<gnc:kvp-frame*> k)
     ((gw:gslist-of (<gw:mchars> caller-owned const) caller-owned) key-path))
   "Gets the value at slots key-path in frame k")

  ;;
  ;; functions to get kvp-frames
  ;;

  (gw:wrap-function
   ws
   'gnc:transaction-get-slots
   '<gnc:kvp-frame*>
   "xaccTransGetSlots"
   '((<gnc:Transaction*> s))
   "Get the transaction's slots.")

  (gw:wrap-function
   ws
   'gnc:book-get-slots
   '<gnc:kvp-frame*>
   "qof_book_get_slots"
   '((<gnc:Book*> b))
   "Get the book's slots.")
)

