Menu
▾
▴
[Win32forth-cvs] win32forth/src/lib SQLite.F,1.1,1.2
|
From: Jos v.d.V. <jo...@us...> - 2008-08-04 13:40:25
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22973 Modified Files: SQLite.F Log Message: Jos: Update from Tom Dixon Index: SQLite.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/SQLite.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SQLite.F 26 May 2007 10:06:10 -0000 1.1 --- SQLite.F 4 Aug 2008 13:40:22 -0000 1.2 *************** *** 52,74 **** \ DataTypes ! 1 constant SQLITE_INTEGER ! 2 constant SQLITE_FLOAT ! 3 constant SQLITE_TEXT ! 4 constant SQLITE_BLOB ! 5 constant SQLITE_NULL ! ! variable SQLITE_STATIC 0 SQLITE_STATIC ! ! variable SQLITE_TRANSIENT -1 SQLITE_TRANSIENT ! :class SQLiteDB <SUPER Object \ *G SQLiteDB is an interface to SQLite. - CELL bytes dbhndl CELL bytes stmt - CELL bytes tail int lasterr - int sstate int #args 256 bytes tstr --- 52,70 ---- \ DataTypes ! 1 constant SQLITE_INTEGER ! 2 constant SQLITE_FLOAT ! 3 constant SQLITE_TEXT ! 4 constant SQLITE_BLOB ! 5 constant SQLITE_NULL ! 0 constant SQLITE_STATIC ! -1 constant SQLITE_TRANSIENT :class SQLiteDB <SUPER Object \ *G SQLiteDB is an interface to SQLite. CELL bytes dbhndl CELL bytes stmt int lasterr int #args 256 bytes tstr *************** *** 99,110 **** \ ** the same object after closing, if desired. stmt @ if ! stmt call sqlite3_finalize drop SQLOK: self ERR: self ! 0 stmt ! 0 to sstate then dbhndl @ if dbhndl @ call sqlite3_close SQLOK: self drop 0 dbhndl ! ERR: self ! then ;M :M ~: ( -- ) Close: self ;M --- 95,106 ---- \ ** the same object after closing, if desired. stmt @ if ! stmt @ call sqlite3_finalize nip SQLOK: self ERR: self ! 0 stmt ! then dbhndl @ if dbhndl @ call sqlite3_close SQLOK: self drop 0 dbhndl ! ERR: self ! then false ;M :M ~: ( -- ) Close: self ;M *************** *** 120,128 **** :M (Execute): ( str len -- ) stmt @ if ! stmt call sqlite3_finalize drop SQLOK: self ERR: self ! 0 stmt ! 0 to sstate then ! tail stmt 2swap swap dbhndl @ call sqlite3_prepare_v2 SQLOK: self ERR: self --- 116,124 ---- :M (Execute): ( str len -- ) stmt @ if ! stmt @ call sqlite3_finalize nip SQLOK: self ERR: self ! 0 stmt ! then ! 0 stmt 2swap swap dbhndl @ call sqlite3_prepare_v2 SQLOK: self ERR: self *************** *** 135,140 **** stmt @ call sqlite3_bind_parameter_count nip dup to #args if exitm then ! begin (Step): self 5 = while ! drop 1 ms repeat ;M :M Requery: ( -- ) --- 131,136 ---- stmt @ call sqlite3_bind_parameter_count nip dup to #args if exitm then ! begin (Step): self dup 5 = while ! drop 1 ms repeat SQLOK: self ERR: self ;M :M Requery: ( -- ) *************** *** 195,200 **** :M (Bind): ( -- ) #args 0= if ! begin (Step): self 5 = while ! drop 1 ms repeat then ;M --- 191,196 ---- :M (Bind): ( -- ) #args 0= if ! begin (Step): self dup 5 = while ! drop 1 ms repeat SQLOK: self ERR: self then ;M |
