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

Merge git://factorcode.org/git/factor

db4
Eduardo Cavazos 2008-02-27 16:09:06 -06:00
parent fdc812d307 5cf3177a1c
commit 951b2c174b
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 -- )