39 lines
1.2 KiB
Factor
39 lines
1.2 KiB
Factor
! Copyright (C) 2009 Bruno Deferrari
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien alien.c-types alien.libraries alien.syntax
|
|
combinators kernel system ;
|
|
IN: tokyo.alien.tcutil
|
|
|
|
<< "tokyocabinet" {
|
|
{ [ os macosx? ] [ "libtokyocabinet.dylib" ] }
|
|
{ [ os unix? ] [ "libtokyocabinet.so" ] }
|
|
{ [ os windows? ] [ "tokyocabinet.dll" ] }
|
|
} cond cdecl add-library >>
|
|
|
|
LIBRARY: tokyocabinet
|
|
|
|
CONSTANT: TCDBTHASH 0
|
|
CONSTANT: TCDBTBTREE 1
|
|
CONSTANT: TCDBTFIXED 2
|
|
CONSTANT: TCDBTTABLE 3
|
|
|
|
! FIXME: on windows 64bits this isn't correct, because long is 32bits there, and time_t is int64
|
|
TYPEDEF: long tokyo_time_t
|
|
|
|
C-TYPE: TCLIST
|
|
|
|
FUNCTION: TCLIST* tclistnew ( ) ;
|
|
FUNCTION: TCLIST* tclistnew2 ( int anum ) ;
|
|
FUNCTION: void tclistdel ( TCLIST* list ) ;
|
|
FUNCTION: int tclistnum ( TCLIST* list ) ;
|
|
FUNCTION: void* tclistval ( TCLIST* list, int index, int* sp ) ;
|
|
FUNCTION: c-string tclistval2 ( TCLIST* list, int index ) ;
|
|
FUNCTION: void tclistpush ( TCLIST* list, void* ptr, int size ) ;
|
|
FUNCTION: void tclistpush2 ( TCLIST* list, c-string str ) ;
|
|
FUNCTION: void tcfree ( void* ptr ) ;
|
|
|
|
TYPEDEF: void* TCCMP
|
|
TYPEDEF: void* TCCODEC
|
|
TYPEDEF: void* TCPDPROC
|
|
TYPEDEF: void* TCITER
|