extra/tokyo/alien/tcutil/tcutil.factor

   1 USING: kernel alien combinators alien.syntax
   2        alien.c-types
   3        alien.libraries ;
   4 IN: tokyo.alient.tcutil
   5
   6 C-ENUM:
   7     TCDBTHASH
   8     TCDBTBTREE
   9     TCDBTFIXED
  10     TCDBTTABLE ;
  11
  12 ! long seems safe enough
  13 TYPEDEF: long time_t
  14
  15 TYPEDEF: void* TCLIST*
  16
  17 FUNCTION: TCLIST* tclistnew ( ) ;
  18 FUNCTION: TCLIST* tclistnew2 ( int anum ) ;
  19 FUNCTION: void tclistdel ( TCLIST* list ) ;
  20 FUNCTION: int tclistnum ( TCLIST* list ) ;
  21 FUNCTION: void* tclistval ( TCLIST* list, int index, int* sp ) ;
  22 FUNCTION: char* tclistval2 ( TCLIST* list, int index ) ;
  23 FUNCTION: void tclistpush ( TCLIST* list, void* ptr, int size ) ;
  24 FUNCTION: void tclistpush2 ( TCLIST* list, char* str ) ;