#| -*-Scheme-*-

C declarations for kyotocabinet.scm. |#

(extern (* KCDB)
        kcdbnew)

(extern void
        kcdbdel
        (db (* KCDB)))

(typedef size_t uint)

(extern void
        kcfree
        (ptr (* void)))

(extern (* (const char))
        kcecodename
        (code int))

(extern int
        kcdbopen
        (database (* KCDB))
        (filename (* (const char)))
        (mode int))

(extern size_t
        kcdbset
        (database (* KCDB))
        (kbuf (* (const char)))
        (ksiz size_t)
        (vbuf (* (const char)))
        (vsiz size_t))

(extern int
        kcdbadd
        (db (* KCDB))
        (kbuf (* (const char)))
        (ksiz size_t)
        (vbuf (* (const char)))
        (vsiz size_t))

(extern int
        kcdbreplace
        (db (* KCDB))
        (kbuf (* (const char)))
        (ksiz size_t)
        (vbuf (* (const char)))
        (vsiz size_t))

(extern int
        kcdbappend
        (db (* KCDB))
        (kbuf (* (const char)))
        (ksiz size_t)
        (vbuf (* (const char)))
        (vsiz size_t))

(extern int
        kcdbremove
        (db (* KCDB))
        (kbuf (* (const char)))
        (ksiz size_t))

(extern int
        kcdbclear
        (db (* KCDB)))

(extern int
        kcdbsync
        (db (* KCDB))
        (hard int)
        (proc (* void))
        (opq (* void)))

(extern int
        kcdbcopy
        (db (* KCDB))
        (dest (* (const char))))

(extern int
        kcdbbegintran
        (db (* KCDB))
        (hard int))

(extern int
        kcdbbegintrantry
        (db (* KCDB))
        (hard int))

(extern int
        kcdbendtran
        (db (* KCDB))
        (commit int))

(extern int
        kcdbclose
        (database (* KCDB)))

(extern double
        kctime)

(extern long
        kcdbcount
        (database (* KCDB)))

(extern (* char)
        kcdbstatus
        (db (* KCDB)))

(extern (* KCCUR)
        kcdbcursor
        (db (* KCDB)))

(extern void
        kccurdel
        (cur (* KCCUR)))

(extern int
        kccursetvalue
        (cur (* KCCUR))
        (vbuf (* (const char)))
        (vsiz size_t)
        (step int))

(extern int
        kccurremove
        (cur (* KCCUR)))

(extern (* char)
        kccurgetkey
        (cur (* KCCUR))
        (sp (* size_t))
        (step int))

(extern (* char)
        kccurgetvalue
        (cur (* KCCUR))
        (sp (* size_t))
        (step int))

(extern (* char)
        kccurget
        (cur (* KCCUR))
        (ksp (* size_t))
        (vbp (* (* (const char))))
        (vsp (* size_t))
        (step int))

(extern int
        kccurjump
        (cur (* KCCUR)))

(extern int
        kccurjumpkey
        (cur (* KCCUR))
        (kbuf (* (const char)))
        (ksiz size_t))

(extern int
        kccurjumpback
        (cur (* KCCUR)))

(extern int
        kccurjumpbackkey
        (cur (* KCCUR))
        (kbuf (* (const char)))
        (ksiz size_t))

(extern int
        kccurstep
        (cur (* KCCUR)))

(extern int
        kccurstepback
        (cur (* KCCUR)))

(extern (* KCDB)
        kccurdb
        (cur (* KCCUR)))

(extern int
        kccurecode
        (cur (* KCCUR)))

(extern (* (const char))
        kccuremsg
        (cur (* KCCUR)))

(extern long
        kcdbsize
        (database (* KCDB)))

(extern (* char)
        kcdbpath
        (database (* KCDB)))

(extern int
        kcdbecode
        (database (* KCDB)))

(extern (* (const char))
        kcdbemsg
        (database (* KCDB)))

(extern (* char)
        kcdbget
        (db (* KCDB))
        (kbuf (* (const char)))
        (ksiz int)
        (sp (* size_t)))

(callback (* (const char))
          kcvisitfull
          (kbuf (* (const char)))
          (ksiz size_t)
          (vbuf (* (const char)))
          (vsiz size_t)
          (sp (* size_t))
          (ID (* void)))
(enum (KCVISNOP)
      (KCVERSION)
      (KCVISREMOVE))
(extern int
        kcdbiterate
        (db (* KCDB))
        (CALLBACK (* void))
        (ID (* void))
        (writable int))

;; open modes
(enum
 (KCOREADER)
 (KCOWRITER)
 (KCOCREATE)
 (KCOTRUNCATE)
 (KCOAUTOTRAN)
 (KCOAUTOSYNC)
 (KCONOLOCK)
 (KCOTRYLOCK)
 (KCONOREPAIR))

;; error codes
(enum
 (KCESUCCESS)
 (KCENOIMPL)
 (KCEINVALID)
 (KCENOREPOS)
 (KCENOPERM)
 (KCEBROKEN)
 (KCEDUPREC)
 (KCENOREC)
 (KCELOGIC)
 (KCESYSTEM)
 (KCEMISC))

;; merge modes
(enum
 (KCMSET)
 (KCMADD)
 (KCMREPLACE)
 (KCMAPPEND))