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 system tokyo.alien.tchdb tokyo.alien.tcutil
9 { [ os macosx? ] [ "/opt/local/lib/libtokyotyrant.dylib" ] }
10 { [ os unix? ] [ "libtokyotyrant.so" ] }
11 { [ os windows? ] [ "tokyotyrant.dll" ] }
12 } cond "cdecl" add-library >>
18 ! { "pthread_mutex_t" mmtx }
19 ! { "pthread_key_t" eckey }
25 ! { "double" timeout }
37 CONSTANT: TTEMISC 9999
40 CONSTANT: RDBXOLCKREC 1
41 CONSTANT: RDBXOLCKGLB 2
42 CONSTANT: RDBROCHKCON 1
43 CONSTANT: RDBMONOULOG 1
45 FUNCTION: char* tcrdberrmsg ( int ecode ) ;
46 FUNCTION: TCRDB* tcrdbnew ( ) ;
47 FUNCTION: void tcrdbdel ( TCRDB* rdb ) ;
48 FUNCTION: int tcrdbecode ( TCRDB* rdb ) ;
49 FUNCTION: bool tcrdbtune ( TCRDB* rdb, double timeout, int opts ) ;
50 FUNCTION: bool tcrdbopen ( TCRDB* rdb, char* host, int port ) ;
51 FUNCTION: bool tcrdbopen2 ( TCRDB* rdb, char* expr ) ;
52 FUNCTION: bool tcrdbclose ( TCRDB* rdb ) ;
53 FUNCTION: bool tcrdbput ( TCRDB* rdb, void* kbuf, int ksiz, void* vbuf, int vsiz ) ;
54 FUNCTION: bool tcrdbput2 ( TCRDB* rdb, char* kstr, char* vstr ) ;
55 FUNCTION: bool tcrdbputkeep ( TCRDB* rdb, void* kbuf, int ksiz, void* vbuf, int vsiz ) ;
56 FUNCTION: bool tcrdbputkeep2 ( TCRDB* rdb, char* kstr, char* vstr ) ;
57 FUNCTION: bool tcrdbputcat ( TCRDB* rdb, void* kbuf, int ksiz, void* vbuf, int vsiz ) ;
58 FUNCTION: bool tcrdbputcat2 ( TCRDB* rdb, char* kstr, char* vstr ) ;
59 FUNCTION: bool tcrdbputshl ( TCRDB* rdb, void* kbuf, int ksiz, void* vbuf, int vsiz, int width ) ;
60 FUNCTION: bool tcrdbputshl2 ( TCRDB* rdb, char* kstr, char* vstr, int width ) ;
61 FUNCTION: bool tcrdbputnr ( TCRDB* rdb, void* kbuf, int ksiz, void* vbuf, int vsiz ) ;
62 FUNCTION: bool tcrdbputnr2 ( TCRDB* rdb, char* kstr, char* vstr ) ;
63 FUNCTION: bool tcrdbout ( TCRDB* rdb, void* kbuf, int ksiz ) ;
64 FUNCTION: bool tcrdbout2 ( TCRDB* rdb, char* kstr ) ;
65 FUNCTION: void* tcrdbget ( TCRDB* rdb, void* kbuf, int ksiz, int* sp ) ;
66 FUNCTION: char* tcrdbget2 ( TCRDB* rdb, char* kstr ) ;
67 FUNCTION: bool tcrdbget3 ( TCRDB* rdb, TCMAP* recs ) ;
68 FUNCTION: int tcrdbvsiz ( TCRDB* rdb, void* kbuf, int ksiz ) ;
69 FUNCTION: int tcrdbvsiz2 ( TCRDB* rdb, char* kstr ) ;
70 FUNCTION: bool tcrdbiterinit ( TCRDB* rdb ) ;
71 FUNCTION: void* tcrdbiternext ( TCRDB* rdb, int* sp ) ;
72 FUNCTION: char* tcrdbiternext2 ( TCRDB* rdb ) ;
73 FUNCTION: TCLIST* tcrdbfwmkeys ( TCRDB* rdb, void* pbuf, int psiz, int max ) ;
74 FUNCTION: TCLIST* tcrdbfwmkeys2 ( TCRDB* rdb, char* pstr, int max ) ;
75 FUNCTION: int tcrdbaddint ( TCRDB* rdb, void* kbuf, int ksiz, int num ) ;
76 FUNCTION: double tcrdbadddouble ( TCRDB* rdb, void* kbuf, int ksiz, double num ) ;
77 FUNCTION: void* tcrdbext ( TCRDB* rdb, char* name, int opts, void* kbuf, int ksiz, void* vbuf, int vsiz, int* sp ) ;
78 FUNCTION: char* tcrdbext2 ( TCRDB* rdb, char* name, int opts, char* kstr, char* vstr ) ;
79 FUNCTION: bool tcrdbsync ( TCRDB* rdb ) ;
80 FUNCTION: bool tcrdboptimize ( TCRDB* rdb, char* params ) ;
81 FUNCTION: bool tcrdbvanish ( TCRDB* rdb ) ;
82 FUNCTION: bool tcrdbcopy ( TCRDB* rdb, char* path ) ;
83 FUNCTION: bool tcrdbrestore ( TCRDB* rdb, char* path, ulonglong ts, int opts ) ;
84 FUNCTION: bool tcrdbsetmst ( TCRDB* rdb, char* host, int port, int opts ) ;
85 FUNCTION: bool tcrdbsetmst2 ( TCRDB* rdb, char* expr, int opts ) ;
86 FUNCTION: char* tcrdbexpr ( TCRDB* rdb ) ;
87 FUNCTION: ulonglong tcrdbrnum ( TCRDB* rdb ) ;
88 FUNCTION: ulonglong tcrdbsize ( TCRDB* rdb ) ;
89 FUNCTION: char* tcrdbstat ( TCRDB* rdb ) ;
90 FUNCTION: TCLIST* tcrdbmisc ( TCRDB* rdb, char* name, int opts, TCLIST* args ) ;
92 CONSTANT: RDBITLEXICAL TDBITLEXICAL
93 CONSTANT: RDBITDECIMAL TDBITDECIMAL
94 CONSTANT: RDBITOPT TDBITOPT
95 CONSTANT: RDBITVOID TDBITVOID
96 CONSTANT: RDBITKEEP TDBITKEEP
98 TYPEDEF: void* RDBQRY*
101 ! { "TCLIST*" args } ;
103 CONSTANT: RDBQCSTREQ TDBQCSTREQ
104 CONSTANT: RDBQCSTRINC TDBQCSTRINC
105 CONSTANT: RDBQCSTRBW TDBQCSTRBW
106 CONSTANT: RDBQCSTREW TDBQCSTREW
107 CONSTANT: RDBQCSTRAND TDBQCSTRAND
108 CONSTANT: RDBQCSTROR TDBQCSTROR
109 CONSTANT: RDBQCSTROREQ TDBQCSTROREQ
110 CONSTANT: RDBQCSTRRX TDBQCSTRRX
111 CONSTANT: RDBQCNUMEQ TDBQCNUMEQ
112 CONSTANT: RDBQCNUMGT TDBQCNUMGT
113 CONSTANT: RDBQCNUMGE TDBQCNUMGE
114 CONSTANT: RDBQCNUMLT TDBQCNUMLT
115 CONSTANT: RDBQCNUMLE TDBQCNUMLE
116 CONSTANT: RDBQCNUMBT TDBQCNUMBT
117 CONSTANT: RDBQCNUMOREQ TDBQCNUMOREQ
118 CONSTANT: RDBQCNEGATE TDBQCNEGATE
119 CONSTANT: RDBQCNOIDX TDBQCNOIDX
121 CONSTANT: RDBQOSTRASC TDBQOSTRASC
122 CONSTANT: RDBQOSTRDESC TDBQOSTRDESC
123 CONSTANT: RDBQONUMASC TDBQONUMASC
124 CONSTANT: RDBQONUMDESC TDBQONUMDESC
126 FUNCTION: bool tcrdbtblput ( TCRDB* rdb, void* pkbuf, int pksiz, TCMAP* cols ) ;
127 FUNCTION: bool tcrdbtblputkeep ( TCRDB* rdb, void* pkbuf, int pksiz, TCMAP* cols ) ;
128 FUNCTION: bool tcrdbtblputcat ( TCRDB* rdb, void* pkbuf, int pksiz, TCMAP* cols ) ;
129 FUNCTION: bool tcrdbtblout ( TCRDB* rdb, void* pkbuf, int pksiz ) ;
130 FUNCTION: TCMAP* tcrdbtblget ( TCRDB* rdb, void* pkbuf, int pksiz ) ;
131 FUNCTION: bool tcrdbtblsetindex ( TCRDB* rdb, char* name, int type ) ;
132 FUNCTION: longlong tcrdbtblgenuid ( TCRDB* rdb ) ;
133 FUNCTION: RDBQRY* tcrdbqrynew ( TCRDB* rdb ) ;
134 FUNCTION: void tcrdbqrydel ( RDBQRY* qry ) ;
135 FUNCTION: void tcrdbqryaddcond ( RDBQRY* qry, char* name, int op, char* expr ) ;
136 FUNCTION: void tcrdbqrysetorder ( RDBQRY* qry, char* name, int type ) ;
137 FUNCTION: void tcrdbqrysetlimit ( RDBQRY* qry, int max, int skip ) ;
138 FUNCTION: TCLIST* tcrdbqrysearch ( RDBQRY* qry ) ;
139 FUNCTION: bool tcrdbqrysearchout ( RDBQRY* qry ) ;
140 FUNCTION: TCLIST* tcrdbqrysearchget ( RDBQRY* qry ) ;
141 FUNCTION: TCMAP* tcrdbqryrescols ( TCLIST* res, int index ) ;
142 FUNCTION: int tcrdbqrysearchcount ( RDBQRY* qry ) ;
144 FUNCTION: void tcrdbsetecode ( TCRDB* rdb, int ecode ) ;