use radix literals

[factor.git] / basis / db / sqlite / ffi / ffi.factor

diff --git a/basis/db/sqlite/ffi/ffi.factor b/basis/db/sqlite/ffi/ffi.factor
index d9da317c89b3b47c09062302e81a9c64f6c51b75..7fcb4babf52dbff06e148f4f99a1a621940e32b7 100644 (file)
--- a/basis/db/sqlite/ffi/ffi.factor
+++ b/basis/db/sqlite/ffi/ffi.factor
@@ -7,7 +7,7 @@ system combinators alien.c-types alien.libraries ;
 IN: db.sqlite.ffi
 
 << "sqlite" {
-        { [ os winnt? ]  [ "sqlite3.dll" ] }
+        { [ os windows? ]  [ "sqlite3.dll" ] }
         { [ os macosx? ] [ "/usr/lib/libsqlite3.dylib" ] }
         { [ os unix? ]  [ "libsqlite3.so" ] }
     } cond cdecl add-library >>
@@ -86,18 +86,18 @@ CONSTANT: SQLITE_NULL        5
 CONSTANT: SQLITE_STATIC      0
 CONSTANT: SQLITE_TRANSIENT   -1
 
-CONSTANT: SQLITE_OPEN_READONLY         HEX: 00000001
-CONSTANT: SQLITE_OPEN_READWRITE        HEX: 00000002
-CONSTANT: SQLITE_OPEN_CREATE           HEX: 00000004
-CONSTANT: SQLITE_OPEN_DELETEONCLOSE    HEX: 00000008
-CONSTANT: SQLITE_OPEN_EXCLUSIVE        HEX: 00000010
-CONSTANT: SQLITE_OPEN_MAIN_DB          HEX: 00000100
-CONSTANT: SQLITE_OPEN_TEMP_DB          HEX: 00000200
-CONSTANT: SQLITE_OPEN_TRANSIENT_DB     HEX: 00000400
-CONSTANT: SQLITE_OPEN_MAIN_JOURNAL     HEX: 00000800
-CONSTANT: SQLITE_OPEN_TEMP_JOURNAL     HEX: 00001000
-CONSTANT: SQLITE_OPEN_SUBJOURNAL       HEX: 00002000
-CONSTANT: SQLITE_OPEN_MASTER_JOURNAL   HEX: 00004000
+CONSTANT: SQLITE_OPEN_READONLY         0x00000001
+CONSTANT: SQLITE_OPEN_READWRITE        0x00000002
+CONSTANT: SQLITE_OPEN_CREATE           0x00000004
+CONSTANT: SQLITE_OPEN_DELETEONCLOSE    0x00000008
+CONSTANT: SQLITE_OPEN_EXCLUSIVE        0x00000010
+CONSTANT: SQLITE_OPEN_MAIN_DB          0x00000100
+CONSTANT: SQLITE_OPEN_TEMP_DB          0x00000200
+CONSTANT: SQLITE_OPEN_TRANSIENT_DB     0x00000400
+CONSTANT: SQLITE_OPEN_MAIN_JOURNAL     0x00000800
+CONSTANT: SQLITE_OPEN_TEMP_JOURNAL     0x00001000
+CONSTANT: SQLITE_OPEN_SUBJOURNAL       0x00002000
+CONSTANT: SQLITE_OPEN_MASTER_JOURNAL   0x00004000
 
 C-TYPE: sqlite3
 C-TYPE: sqlite3_stmt
@@ -119,9 +119,8 @@ FUNCTION: int sqlite3_bind_double ( sqlite3_stmt* pStmt, int index, double x ) ;
 FUNCTION: int sqlite3_bind_int ( sqlite3_stmt* pStmt, int index, int n ) ;
 FUNCTION: int sqlite3_bind_int64 ( sqlite3_stmt* pStmt, int index, sqlite3_int64 n ) ;
 ! Bind the same function as above, but for unsigned 64bit integers
-: sqlite3-bind-uint64 ( pStmt index in64 -- int )
-    int "sqlite" "sqlite3_bind_int64"
-    { pointer: sqlite3_stmt int sqlite3_uint64 } alien-invoke ;
+FUNCTION-ALIAS: sqlite3-bind-uint64
+    int sqlite3_bind_int64 ( sqlite3_stmt* pStmt, int index, sqlite3_uint64 in64 ) ;
 FUNCTION: int sqlite3_bind_null ( sqlite3_stmt* pStmt, int n ) ;
 FUNCTION: int sqlite3_bind_text ( sqlite3_stmt* pStmt, int index, c-string text, int len, int destructor ) ;
 FUNCTION: int sqlite3_bind_parameter_index ( sqlite3_stmt* pStmt, c-string name ) ;
@@ -133,9 +132,8 @@ FUNCTION: c-string sqlite3_column_decltype ( sqlite3_stmt* pStmt, int col ) ;
 FUNCTION: int sqlite3_column_int ( sqlite3_stmt* pStmt, int col ) ;
 FUNCTION: sqlite3_int64 sqlite3_column_int64 ( sqlite3_stmt* pStmt, int col ) ;
 ! Bind the same function as above, but for unsigned 64bit integers
-: sqlite3-column-uint64 ( pStmt col -- uint64 )
-    sqlite3_uint64 "sqlite" "sqlite3_column_int64"
-    { pointer: sqlite3_stmt int } alien-invoke ;
+FUNCTION-ALIAS: sqlite3-column-uint64
+    sqlite3_uint64 sqlite3_column_int64 ( sqlite3_stmt* pStmt, int col ) ;
 FUNCTION: double sqlite3_column_double ( sqlite3_stmt* pStmt, int col ) ;
 FUNCTION: c-string sqlite3_column_name ( sqlite3_stmt* pStmt, int col ) ;
 FUNCTION: c-string sqlite3_column_text ( sqlite3_stmt* pStmt, int col ) ;