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

Cleanup

db4
Slava Pestov 2008-03-08 04:01:43 -06:00
parent 4b4f3b8ea9
commit 09352a9327
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,8 +3,7 @@
USING: alien.c-types arrays assocs kernel math math.parser USING: alien.c-types arrays assocs kernel math math.parser
namespaces sequences db.sqlite.ffi db combinators namespaces sequences db.sqlite.ffi db combinators
continuations db.types calendar.format serialize continuations db.types calendar.format serialize
io.streams.string byte-arrays ; io.streams.byte-array byte-arrays io.encodings.binary ;
USE: tools.walker
IN: db.sqlite.lib IN: db.sqlite.lib
: sqlite-error ( n -- * ) : sqlite-error ( n -- * )
@ -94,7 +93,7 @@ IN: db.sqlite.lib
{ TIMESTAMP [ sqlite-bind-text-by-name ] } { TIMESTAMP [ sqlite-bind-text-by-name ] }
{ BLOB [ sqlite-bind-blob-by-name ] } { BLOB [ sqlite-bind-blob-by-name ] }
{ FACTOR-BLOB [ { FACTOR-BLOB [
[ serialize ] with-string-writer >byte-array binary [ serialize ] with-byte-writer
sqlite-bind-blob-by-name sqlite-bind-blob-by-name
] } ] }
{ +native-id+ [ sqlite-bind-int-by-name ] } { +native-id+ [ sqlite-bind-int-by-name ] }
@ -137,7 +136,8 @@ IN: db.sqlite.lib
{ DATETIME [ sqlite3_column_text dup [ ymdhms>timestamp ] when ] } { DATETIME [ sqlite3_column_text dup [ ymdhms>timestamp ] when ] }
{ BLOB [ sqlite-column-blob ] } { BLOB [ sqlite-column-blob ] }
{ FACTOR-BLOB [ { FACTOR-BLOB [
sqlite-column-blob [ deserialize ] with-string-reader sqlite-column-blob
binary [ deserialize ] with-byte-reader
] } ] }
! { NULL [ 2drop f ] } ! { NULL [ 2drop f ] }
[ no-sql-type ] [ no-sql-type ]

3
extra/db/types/types.factor
View File

@ -3,8 +3,7 @@
USING: arrays assocs db kernel math math.parser USING: arrays assocs db kernel math math.parser
sequences continuations sequences.deep sequences.lib sequences continuations sequences.deep sequences.lib
words namespaces tools.walker slots slots.private classes words namespaces tools.walker slots slots.private classes
mirrors tuples combinators calendar.format serialize mirrors tuples combinators calendar.format symbols ;
io.streams.string symbols ;
IN: db.types IN: db.types
HOOK: modifier-table db ( -- hash ) HOOK: modifier-table db ( -- hash )