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