extra/tokyo/alien/tctdb/tctdb.factor

   1 ! Copyright (C) 2009 Bruno Deferrari
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types alien.libraries alien.syntax
   4 combinators kernel tokyo.alien.tchdb tokyo.alien.tcutil ;
   5 IN: tokyo.alien.tctdb
   6
   7 LIBRARY: tokyocabinet
   8
   9 C-TYPE: TDBIDX
  10 C-TYPE: TCTDB
  11 C-TYPE: TCMAP
  12
  13 CONSTANT: TDBFOPEN  HDBFOPEN
  14 CONSTANT: TDBFFATAL HDBFFATAL
  15
  16 CONSTANT: TDBTLARGE   1
  17 CONSTANT: TDBTDEFLATE 2
  18 CONSTANT: TDBTBZIP    4
  19 CONSTANT: TDBTTCBS    8
  20 CONSTANT: TDBTEXCODEC 16
  21
  22 CONSTANT: TDBOREADER 1
  23 CONSTANT: TDBOWRITER 2
  24 CONSTANT: TDBOCREAT  4
  25 CONSTANT: TDBOTRUNC  8
  26 CONSTANT: TDBONOLCK  16
  27 CONSTANT: TDBOLCKNB  32
  28 CONSTANT: TDBOTSYNC  64
  29
  30 CONSTANT: TDBITLEXICAL 0
  31 CONSTANT: TDBITDECIMAL 1
  32
  33 CONSTANT: TDBITOPT  9998
  34 CONSTANT: TDBITVOID 9999
  35 CONSTANT: TDBITKEEP 16777216
  36
  37 C-TYPE: TDBCOND
  38 C-TYPE: TDBQRY
  39
  40 CONSTANT: TDBQCSTREQ   0
  41 CONSTANT: TDBQCSTRINC  1
  42 CONSTANT: TDBQCSTRBW   2
  43 CONSTANT: TDBQCSTREW   3
  44 CONSTANT: TDBQCSTRAND  4
  45 CONSTANT: TDBQCSTROR   5
  46 CONSTANT: TDBQCSTROREQ 6
  47 CONSTANT: TDBQCSTRRX   7
  48 CONSTANT: TDBQCNUMEQ   8
  49 CONSTANT: TDBQCNUMGT   9
  50 CONSTANT: TDBQCNUMGE   10
  51 CONSTANT: TDBQCNUMLT   11
  52 CONSTANT: TDBQCNUMLE   12
  53 CONSTANT: TDBQCNUMBT   13
  54 CONSTANT: TDBQCNUMOREQ 14
  55
  56 CONSTANT: TDBQCNEGATE 16777216
  57 CONSTANT: TDBQCNOIDX  33554432
  58
  59 CONSTANT: TDBQOSTRASC  0
  60 CONSTANT: TDBQOSTRDESC 1
  61 CONSTANT: TDBQONUMASC  2
  62 CONSTANT: TDBQONUMDESC 3
  63
  64 CONSTANT: TDBQPPUT  1
  65 CONSTANT: TDBQPOUT  2
  66 CONSTANT: TDBQPSTOP 16777216
  67
  68 ! int (*)(const void *pkbuf, int pksiz, TCMAP *cols, void *op);
  69 TYPEDEF: void* TDBQRYPROC
  70
  71 FUNCTION: c-string tctdberrmsg ( int ecode ) ;
  72 FUNCTION: TCTDB* tctdbnew ( ) ;
  73 FUNCTION: void tctdbdel ( TCTDB* tdb ) ;
  74 FUNCTION: int tctdbecode ( TCTDB* tdb ) ;
  75 FUNCTION: bool tctdbsetmutex ( TCTDB* tdb ) ;
  76 FUNCTION: bool tctdbtune ( TCTDB* tdb, longlong bnum, char apow, char fpow, uchar opts ) ;
  77 FUNCTION: bool tctdbsetcache ( TCTDB* tdb, int rcnum, int lcnum, int ncnum ) ;
  78 FUNCTION: bool tctdbsetxmsiz ( TCTDB* tdb, longlong xmsiz ) ;
  79 FUNCTION: bool tctdbopen ( TCTDB* tdb, c-string path, int omode ) ;
  80 FUNCTION: bool tctdbclose ( TCTDB* tdb ) ;
  81 FUNCTION: bool tctdbput ( TCTDB* tdb, void* pkbuf, int pksiz, TCMAP* cols ) ;
  82 FUNCTION: bool tctdbput2 ( TCTDB* tdb, void* pkbuf, int pksiz, void* cbuf, int csiz ) ;
  83 FUNCTION: bool tctdbput3 ( TCTDB* tdb, c-string pkstr, c-string cstr ) ;
  84 FUNCTION: bool tctdbputkeep ( TCTDB* tdb, void* pkbuf, int pksiz, TCMAP* cols ) ;
  85 FUNCTION: bool tctdbputkeep2 ( TCTDB* tdb, void* pkbuf, int pksiz, void* cbuf, int csiz ) ;
  86 FUNCTION: bool tctdbputkeep3 ( TCTDB* tdb, c-string pkstr, c-string cstr ) ;
  87 FUNCTION: bool tctdbputcat ( TCTDB* tdb, void* pkbuf, int pksiz, TCMAP* cols ) ;
  88 FUNCTION: bool tctdbputcat2 ( TCTDB* tdb, void* pkbuf, int pksiz, void* cbuf, int csiz ) ;
  89 FUNCTION: bool tctdbputcat3 ( TCTDB* tdb, c-string pkstr, c-string cstr ) ;
  90 FUNCTION: bool tctdbout ( TCTDB* tdb, void* pkbuf, int pksiz ) ;
  91 FUNCTION: bool tctdbout2 ( TCTDB* tdb, c-string pkstr ) ;
  92 FUNCTION: TCMAP* tctdbget ( TCTDB* tdb, void* pkbuf, int pksiz ) ;
  93 FUNCTION: c-string tctdbget2 ( TCTDB* tdb, void* pkbuf, int pksiz, int* sp ) ;
  94 FUNCTION: c-string tctdbget3 ( TCTDB* tdb, c-string pkstr ) ;
  95 FUNCTION: int tctdbvsiz ( TCTDB* tdb, void* pkbuf, int pksiz ) ;
  96 FUNCTION: int tctdbvsiz2 ( TCTDB* tdb, c-string pkstr ) ;
  97 FUNCTION: bool tctdbiterinit ( TCTDB* tdb ) ;
  98 FUNCTION: void* tctdbiternext ( TCTDB* tdb, int* sp ) ;
  99 FUNCTION: c-string tctdbiternext2 ( TCTDB* tdb ) ;
 100 FUNCTION: TCLIST* tctdbfwmkeys ( TCTDB* tdb, void* pbuf, int psiz, int max ) ;
 101 FUNCTION: TCLIST* tctdbfwmkeys2 ( TCTDB* tdb, c-string pstr, int max ) ;
 102 FUNCTION: int tctdbaddint ( TCTDB* tdb, void* pkbuf, int pksiz, int num ) ;
 103 FUNCTION: double tctdbadddouble ( TCTDB* tdb, void* pkbuf, int pksiz, double num ) ;
 104 FUNCTION: bool tctdbsync ( TCTDB* tdb ) ;
 105 FUNCTION: bool tctdboptimize ( TCTDB* tdb, longlong bnum, char apow, char fpow, uchar opts ) ;
 106 FUNCTION: bool tctdbvanish ( TCTDB* tdb ) ;
 107 FUNCTION: bool tctdbcopy ( TCTDB* tdb, c-string path ) ;
 108 FUNCTION: bool tctdbtranbegin ( TCTDB* tdb ) ;
 109 FUNCTION: bool tctdbtrancommit ( TCTDB* tdb ) ;
 110 FUNCTION: bool tctdbtranabort ( TCTDB* tdb ) ;
 111 FUNCTION: c-string tctdbpath ( TCTDB* tdb ) ;
 112 FUNCTION: ulonglong tctdbrnum ( TCTDB* tdb ) ;
 113 FUNCTION: ulonglong tctdbfsiz ( TCTDB* tdb ) ;
 114 FUNCTION: bool tctdbsetindex ( TCTDB* tdb, c-string name, int type ) ;
 115 FUNCTION: longlong tctdbgenuid ( TCTDB* tdb ) ;
 116 FUNCTION: TDBQRY* tctdbqrynew ( TCTDB* tdb ) ;
 117 FUNCTION: void tctdbqrydel ( TDBQRY* qry ) ;
 118 FUNCTION: void tctdbqryaddcond ( TDBQRY* qry, c-string name, int op, c-string expr ) ;
 119 FUNCTION: void tctdbqrysetorder ( TDBQRY* qry, c-string name, int type ) ;
 120 FUNCTION: void tctdbqrysetlimit ( TDBQRY* qry, int max, int skip ) ;
 121 FUNCTION: TCLIST* tctdbqrysearch ( TDBQRY* qry ) ;
 122 FUNCTION: bool tctdbqrysearchout ( TDBQRY* qry ) ;
 123 FUNCTION: bool tctdbqryproc ( TDBQRY* qry, TDBQRYPROC proc, void* op ) ;
 124 FUNCTION: c-string tctdbqryhint ( TDBQRY* qry ) ;
 125
 126 ! =======
 127
 128 FUNCTION: void tctdbsetecode ( TCTDB* tdb, int ecode, c-string filename, int line, c-string func ) ;
 129 FUNCTION: void tctdbsetdbgfd ( TCTDB* tdb, int fd ) ;
 130 FUNCTION: int tctdbdbgfd ( TCTDB* tdb ) ;
 131 FUNCTION: bool tctdbhasmutex ( TCTDB* tdb ) ;
 132 FUNCTION: bool tctdbmemsync ( TCTDB* tdb, bool phys ) ;
 133 FUNCTION: ulonglong tctdbbnum ( TCTDB* tdb ) ;
 134 FUNCTION: uint tctdbalign ( TCTDB* tdb ) ;
 135 FUNCTION: uint tctdbfbpmax ( TCTDB* tdb ) ;
 136 FUNCTION: ulonglong tctdbinode ( TCTDB* tdb ) ;
 137 FUNCTION: tokyo_time_t tctdbmtime ( TCTDB* tdb ) ;
 138 FUNCTION: uchar tctdbflags ( TCTDB* tdb ) ;
 139 FUNCTION: uchar tctdbopts ( TCTDB* tdb ) ;
 140 FUNCTION: c-string tctdbopaque ( TCTDB* tdb ) ;
 141 FUNCTION: ulonglong tctdbbnumused ( TCTDB* tdb ) ;
 142 FUNCTION: int tctdbinum ( TCTDB* tdb ) ;
 143 FUNCTION: longlong tctdbuidseed ( TCTDB* tdb ) ;
 144 FUNCTION: bool tctdbsetuidseed ( TCTDB* tdb, longlong seed ) ;
 145 FUNCTION: bool tctdbsetcodecfunc ( TCTDB* tdb, TCCODEC enc, void* encop, TCCODEC dec, void* decop ) ;
 146 FUNCTION: bool tctdbputproc ( TCTDB* tdb, void* pkbuf, int pksiz, void* cbuf, int csiz, TCPDPROC proc, void* op ) ;
 147 FUNCTION: bool tctdbforeach ( TCTDB* tdb, TCITER iter, void* op ) ;
 148 FUNCTION: bool tctdbqryproc2 ( TDBQRY* qry, TDBQRYPROC proc, void* op ) ;
 149 FUNCTION: bool tctdbqrysearchout2 ( TDBQRY* qry ) ;
 150 FUNCTION: int tctdbstrtoindextype ( c-string str ) ;
 151 FUNCTION: int tctdbqrycount ( TDBQRY* qry ) ;
 152 FUNCTION: int tctdbqrystrtocondop ( c-string str ) ;
 153 FUNCTION: int tctdbqrystrtoordertype ( c-string str ) ;