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
|
