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

refactor sqlite bind

db4
Doug Coleman 2009-04-13 17:40:35 -05:00
parent 1789a58bbf
commit c9db0fdee1
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/db2/db2.factor
View File

@ -23,7 +23,7 @@ PRIVATE>
: sql-bind-command ( sequence string -- ) : sql-bind-command ( sequence string -- )
f f <statement> [ f f <statement> [
sqlite-maybe-prepare [ sqlite-maybe-prepare [
handle>> '[ [ _ ] 2dip 1+ swap sqlite-bind-text ] each-index handle>> swap sqlite-bind-sequence
] [ ] [
sqlite-result-set new-result-set advance-row sqlite-result-set new-result-set advance-row
] bi ] bi
@ -32,7 +32,7 @@ PRIVATE>
: sql-bind-query ( in-sequence string -- out-sequence ) : sql-bind-query ( in-sequence string -- out-sequence )
f f <statement> [ f f <statement> [
sqlite-maybe-prepare [ sqlite-maybe-prepare [
handle>> '[ [ _ ] 2dip 1+ swap sqlite-bind-text ] each-index handle>> swap sqlite-bind-sequence
] [ ] [
statement>result-sequence statement>result-sequence
] bi ] bi

6
extra/db2/sqlite/lib/lib.factor
View File

@ -8,6 +8,9 @@ IN: db2.sqlite.lib
: ?when ( object quot -- object' ) dupd when ; inline : ?when ( object quot -- object' ) dupd when ; inline
: assoc-with ( object sequence quot -- obj curry )
swapd [ [ -rot ] dip call ] 2curry ; inline
: sqlite-check-result ( n -- ) : sqlite-check-result ( n -- )
{ {
{ SQLITE_OK [ ] } { SQLITE_OK [ ] }
@ -107,3 +110,6 @@ IN: db2.sqlite.lib
: sqlite-next ( prepared -- ? ) : sqlite-next ( prepared -- ? )
sqlite3_step sqlite-step-has-more-rows? ; sqlite3_step sqlite-step-has-more-rows? ;
: sqlite-bind-sequence ( handle sequence -- )
[ 1+ swap sqlite-bind-text ] assoc-with each-index ;