;;;
;;; tokyocabinetlib.stub
;;;

"
#include \"tokyocabinet.h\"

"

;; The following entry is a dummy one.
;; Replace it for your definitions.

(define-cclass <raw-tcbdb> "ScmRawTcbdb*" "Scm_RawTcbdbClass"
  ()
  ())

(define-cclass <tcbdbcur> "ScmTcbdbcur*" "Scm_TcbdbcurClass"
  ()
  ())

(define-cproc test-tokyocabinet ()
  (return "test_tokyocabinet"))

(define-cproc tcbdb-ecode (bdb::<raw-tcbdb>)
  (return "Scm_tcbdb_ecode"))

(define-cproc tcbdb-new ()
  (call "Scm_tcbdb_new"))

(define-cproc tcbdb-open (bdb::<raw-tcbdb>
			  path::<string>
			  omode::<fixnum>)
  (call "Scm_tcbdb_open"))

(define-cproc tcbdb-close (bdb::<raw-tcbdb>)
  (call "Scm_tcbdb_close"))

(define-cproc tcbdb-put2 (bdb::<raw-tcbdb>
			  key::<string>
			  val::<string>)
  (call "Scm_tcbdb_put2"))

(define-cproc tcbdb-get2 (bdb::<raw-tcbdb>
			  key::<string>)

  (call "Scm_tcbdb_get2"))

(define-cproc tcbdb-out2 (bdb::<raw-tcbdb>
			  key::<string>)

  (call "Scm_tcbdb_out2"))

(define-cproc tcbdbcur-new (bdb::<raw-tcbdb>)
  (call "Scm_tcbdbcur_new"))

(define-cproc tcbdbcur-first (cur::<tcbdbcur>)
  (call "Scm_tcbdbcur_first"))

(define-cproc tcbdbcur-last (cur::<tcbdbcur>)
  (call "Scm_tcbdbcur_last"))

(define-cproc tcbdbcur-prev (cur::<tcbdbcur>)
  (call "Scm_tcbdbcur_prev"))

(define-cproc tcbdbcur-next (cur::<tcbdbcur>)
  (call "Scm_tcbdbcur_next"))

(define-cproc tcbdbcur-key2 (cur::<tcbdbcur>)
  (call "Scm_tcbdbcur_key2"))

(define-cproc tcbdbcur-val2 (cur::<tcbdbcur>)
  (call "Scm_tcbdbcur_val2"))

(define-enum BDBOREADER)
(define-enum BDBOWRITER)
(define-enum BDBOCREAT)
(define-enum BDBOTRUNC)
(define-enum BDBONOLCK)
(define-enum BDBOLCKNB)

(define-enum TCESUCCESS)
(define-enum TCETHREAD)
(define-enum TCEINVALID)
(define-enum TCENOFILE)
(define-enum TCENOPERM)
(define-enum TCEMETA)
(define-enum TCERHEAD)
(define-enum TCEOPEN)
(define-enum TCECLOSE)
(define-enum TCETRUNC)
(define-enum TCESYNC)
(define-enum TCESTAT)
(define-enum TCESEEK)
(define-enum TCEREAD)
(define-enum TCEWRITE)
(define-enum TCEMMAP)
(define-enum TCELOCK)
(define-enum TCEUNLINK)
(define-enum TCERENAME)
(define-enum TCEMKDIR)
(define-enum TCERMDIR)
(define-enum TCEKEEP)
(define-enum TCENOREC)
(define-enum TCEMISC)

;; (use srfi-13)
;; (dolist (var '(reader writer creat trunc nolck lcknb)) (format #t "(define-enum BDBO~a)\n" (string-upcase (x->string var))))

;; Local variables:
;; mode: scheme
;; end: