tokyo.alien: Add code that loads the dlls (not working right now for me)

extra/tokyo/alien/tcadb/tcadb.factor

@@ -5,6 +5,8 @@ combinators kernel tokyo.alien.tchdb tokyo.alien.tcutil
 tokyo.alien.tcbdb tokyo.alien.tcfdb tokyo.alien.tctdb ;
 IN: tokyo.alien.tcrdb
 
+LIBRARY: tokyocabinet
+
 TYPEDEF: void* TCADB
 
 C-ENUM:
@@ -48,8 +50,8 @@ FUNCTION: bool tcadbtranbegin ( TCADB* adb ) ;
 FUNCTION: bool tcadbtrancommit ( TCADB* adb ) ;
 FUNCTION: bool tcadbtranabort ( TCADB* adb ) ;
 FUNCTION: char* tcadbpath ( TCADB* adb ) ;
-FUNCTION: uint64_t tcadbrnum ( TCADB* adb ) ;
-FUNCTION: uint64_t tcadbsize ( TCADB* adb ) ;
+FUNCTION: ulonglong tcadbrnum ( TCADB* adb ) ;
+FUNCTION: ulonglong tcadbsize ( TCADB* adb ) ;
 FUNCTION: TCLIST* tcadbmisc ( TCADB* adb, char* name, TCLIST* args ) ;
 
 ! -----
@@ -63,5 +65,5 @@ FUNCTION: int tcadbomode ( TCADB* adb ) ;
 FUNCTION: void* tcadbreveal ( TCADB* adb ) ;
 FUNCTION: bool tcadbputproc ( TCADB* adb, void* kbuf, int ksiz, void* vbuf, int vsiz, TCPDPROC proc, void* op ) ;
 FUNCTION: bool tcadbforeach ( TCADB* adb, TCITER iter, void* op ) ;
-FUNCTION: bool tcadbmapbdb ( TCADB* adb, TCLIST* keys, TCBDB* bdb, ADBMAPPROC proc, void* op, int64_t csiz ) ;
+FUNCTION: bool tcadbmapbdb ( TCADB* adb, TCLIST* keys, TCBDB* bdb, ADBMAPPROC proc, void* op, longlong csiz ) ;
 FUNCTION: bool tcadbmapbdbemit ( void* map, char* kbuf, int ksiz, char* vbuf, int vsiz ) ;

extra/tokyo/alien/tcbdb/tcbdb.factor

@@ -5,6 +5,8 @@ combinators kernel tokyo.alien.tchdb tokyo.alien.tcutil
 tokyo.alien.tchdb ;
 IN: tokyo.alien.tcbdb
 
+LIBRARY: tokyocabinet
+
 TYPEDEF: void* TCBDB
 
 CONSTANT: BDBFOPEN HDBFOPEN

extra/tokyo/alien/tchdb/tchdb.factor

@@ -4,6 +4,8 @@ USING: alien alien.c-types alien.libraries alien.syntax
 combinators kernel tokyo.alien.tcutil ;
 IN: tokyo.alien.tchdb
 
+LIBRARY: tokyocabinet
+
 TYPEDEF: void* TCHDB*
 
 CONSTANT: HDBFOPEN  1

extra/tokyo/alien/tcrdb/tcrdb.factor

@@ -1,10 +1,18 @@
 ! 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 tokyo.alien.tchdb tokyo.alien.tcutil
+combinators kernel system tokyo.alien.tchdb tokyo.alien.tcutil
 tokyo.alien.tctdb ;
 IN: tokyo.alien.tcrdb
 
+<< "tokyotyrant" {
+    { [ os macosx? ] [ "libtokyotyrant.3.dylib" ] }
+    { [ os unix? ] [ "libtokyotyrant.3.so" ] }
+    { [ os windows? ] [ "tokyotyrant.dll" ] }
+} cond "cdecl" add-library >>
+
+LIBRARY: tokyotyrant
+
 TYPEDEF: void* TCRDB*
 ! C-STRUCT: TCRDB
 !     { "pthread_mutex_t" mmtx }

extra/tokyo/alien/tctdb/tctdb.factor

@@ -5,6 +5,8 @@ combinators kernel tokyo.alien.tchdb tokyo.alien.tcutil
 tokyo.alien.tchdb ;
 IN: tokyo.alien.tctdb
 
+LIBRARY: tokyocabinet
+
 TYPEDEF: void* TDBIDX*
 TYPEDEF: void* TCTDB*
 

extra/tokyo/alien/tcutil/tcutil.factor

@@ -1,9 +1,17 @@
 ! 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 ;
+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
+
 C-ENUM:
     TCDBTHASH
     TCDBTBTREE