steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

some work on sqlite

db4
Doug Coleman 2008-02-27 13:21:06 -06:00
parent 8802f0c2fc
commit 95aafbc188
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/db/sqlite/sqlite.factor
View File

@ -8,7 +8,9 @@ words combinators.lib db.types combinators tools.walker ;
IN: db.sqlite IN: db.sqlite
TUPLE: sqlite-db path ; TUPLE: sqlite-db path ;
C: <sqlite-db> sqlite-db
M: sqlite-db make-db* ( path db -- db )
[ set-sqlite-db-path ] keep ;
M: sqlite-db db-open ( db -- ) M: sqlite-db db-open ( db -- )
dup sqlite-db-path sqlite-open <db> dup sqlite-db-path sqlite-open <db>
@ -19,9 +21,6 @@ M: sqlite-db db-close ( handle -- )
M: sqlite-db dispose ( db -- ) dispose-db ; M: sqlite-db dispose ( db -- ) dispose-db ;
: with-sqlite ( path quot -- )
>r <sqlite-db> r> with-db ; inline
TUPLE: sqlite-statement ; TUPLE: sqlite-statement ;
TUPLE: sqlite-result-set has-more? ; TUPLE: sqlite-result-set has-more? ;
@ -47,7 +46,6 @@ M: sqlite-result-set dispose ( result-set -- )
f swap set-result-set-handle ; f swap set-result-set-handle ;
: sqlite-bind ( specs handle -- ) : sqlite-bind ( specs handle -- )
break
swap [ sqlite-bind-type ] with each ; swap [ sqlite-bind-type ] with each ;
M: sqlite-statement bind-statement* ( obj statement -- ) M: sqlite-statement bind-statement* ( obj statement -- )