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

fix compile errors in tuple-db

erg 2006-10-31 23:42:27 +00:00
parent 14330cf2fe
commit 93e02f7e31
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
contrib/sqlite/tuple-db.factor
View File

@ -31,7 +31,7 @@ TUPLE: mapping tuple table fields one-to-one one-to-many ;
#! Given a tuple class return a list of the fields #! Given a tuple class return a list of the fields
#! within that tuple. Ignores the delegate field. #! within that tuple. Ignores the delegate field.
[ word-name length 1+ ] keep [ word-name length 1+ ] keep
"slots" word-prop 1 tail [ ( name-len { slot getter setter } ) "slots" word-prop 1 tail [
[ third word-name swap tail sanitize dup ":" swap append ] keep [ third word-name swap tail sanitize dup ":" swap append ] keep
first first
"text" "text"
@ -91,7 +91,7 @@ C: persistent ( tuple -- persistent )
swap "" make swap "" make
] map-with "," join ; inline ] map-with "," join ; inline
GENERIC: create-sql GENERIC: create-sql ( mapping -- string )
M: mapping create-sql ( mapping -- string ) M: mapping create-sql ( mapping -- string )
#! Return the SQL used to create a table for storing this type of tuple. #! Return the SQL used to create a table for storing this type of tuple.
[ [
@ -101,14 +101,14 @@ M: mapping create-sql ( mapping -- string )
");" % ");" %
] "" make ; ] "" make ;
GENERIC: drop-sql GENERIC: drop-sql ( mapping -- string )
M: mapping drop-sql ( mapping -- string ) M: mapping drop-sql ( mapping -- string )
#! Return the SQL used to drop the table for storing this type of tuple. #! Return the SQL used to drop the table for storing this type of tuple.
[ [
"drop table " % mapping-table % ";" % "drop table " % mapping-table % ";" %
] "" make ; ] "" make ;
GENERIC: insert-sql GENERIC: insert-sql ( mapping -- string )
M: mapping insert-sql ( mapping -- string ) M: mapping insert-sql ( mapping -- string )
#! Return the SQL used to insert a tuple into a table #! Return the SQL used to insert a tuple into a table
[ [
@ -118,7 +118,7 @@ M: mapping insert-sql ( mapping -- string )
");" % ");" %
] "" make ; ] "" make ;
GENERIC: delete-sql GENERIC: delete-sql ( mapping -- string )
M: mapping delete-sql ( mapping -- string ) M: mapping delete-sql ( mapping -- string )
#! Return the SQL used to delete a tuple from a table #! Return the SQL used to delete a tuple from a table
[ [
@ -126,7 +126,7 @@ M: mapping delete-sql ( mapping -- string )
" where ROWID=:rowid;" % " where ROWID=:rowid;" %
] "" make ; ] "" make ;
GENERIC: update-sql GENERIC: update-sql ( mapping -- string )
M: mapping update-sql ( mapping -- string ) M: mapping update-sql ( mapping -- string )
#! Return the SQL used to update the tuple #! Return the SQL used to update the tuple
[ [
@ -136,7 +136,7 @@ M: mapping update-sql ( mapping -- string )
" where ROWID=:rowid;" % " where ROWID=:rowid;" %
] "" make ; ] "" make ;
GENERIC: select-sql GENERIC: select-sql ( tuple mapping -- select )
M: mapping select-sql ( tuple mapping -- select ) M: mapping select-sql ( tuple mapping -- select )
#! Return the SQL used to select a series of tuples from the database. It #! Return the SQL used to select a series of tuples from the database. It
#! will select based on only the filled in fields of the tuple (ie. all non-f). #! will select based on only the filled in fields of the tuple (ie. all non-f).