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

moved patterns to persistency for new db prep

db4
Sam Anklesaria 2009-08-05 16:45:22 -05:00
parent 0c4b9a0d58
commit e426bc4be8
3 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/db/queries/queries.factor
View File

@ -4,7 +4,7 @@ USING: accessors kernel math namespaces make sequences random
strings math.parser math.intervals combinators math.bitwise strings math.parser math.intervals combinators math.bitwise
nmake db db.tuples db.types classes words shuffle arrays nmake db db.tuples db.types classes words shuffle arrays
destructors continuations db.tuples.private prettyprint destructors continuations db.tuples.private prettyprint
db.private byte-arrays strings.parser parser ; db.private byte-arrays ;
IN: db.queries IN: db.queries
GENERIC: where ( specs obj -- ) GENERIC: where ( specs obj -- )
@ -130,10 +130,6 @@ M: integer where ( spec obj -- ) object-where ;
M: string where ( spec obj -- ) object-where ; M: string where ( spec obj -- ) object-where ;
TUPLE: pattern value ; C: <pattern> pattern
SYNTAX: %" parse-string <pattern> parsed ;
M: pattern where value>> over column-name>> 0% " LIKE " 0% bind# ;
: filter-slots ( tuple specs -- specs' ) : filter-slots ( tuple specs -- specs' )
[ [
slot-name>> swap get-slot-named slot-name>> swap get-slot-named

13
extra/persistency/persistency.factor
View File

@ -1,6 +1,7 @@
USING: accessors arrays byte-arrays calendar classes classes.tuple USING: accessors arrays byte-arrays calendar classes
classes.tuple.parser combinators db db.tuples db.types kernel classes.tuple classes.tuple.parser combinators db db.queries
math sequences strings unicode.case urls words ; db.tuples db.types kernel math nmake parser sequences strings
strings.parser unicode.case urls words ;
IN: persistency IN: persistency
TUPLE: persistent id ; TUPLE: persistent id ;
@ -22,4 +23,8 @@ SYNTAX: STORED-TUPLE: parse-tuple-definition [ drop persistent ] dip [ remove-ty
: get-tuple ( query -- tuple ) [ select-tuple ] w/db ; : get-tuple ( query -- tuple ) [ select-tuple ] w/db ;
: store-tuple ( tuple -- ) [ insert-tuple ] w/db ; : store-tuple ( tuple -- ) [ insert-tuple ] w/db ;
: modify-tuple ( tuple -- ) [ update-tuple ] w/db ; : modify-tuple ( tuple -- ) [ update-tuple ] w/db ;
: remove-tuples ( tuple -- ) [ delete-tuples ] w/db ; : remove-tuples ( tuple -- ) [ delete-tuples ] w/db ;
TUPLE: pattern value ; C: <pattern> pattern
SYNTAX: %" parse-string <pattern> parsed ;
M: pattern where value>> over column-name>> 0% " LIKE " 0% bind# ;

2
extra/recipes/recipes.factor
View File

@ -1,4 +1,4 @@
USING: accessors arrays colors.constants combinators db.queries USING: accessors arrays colors.constants combinators
db.sqlite db.tuples db.types kernel locals math db.sqlite db.tuples db.types kernel locals math
monads persistency sequences sequences.extras ui ui.gadgets.controls monads persistency sequences sequences.extras ui ui.gadgets.controls
ui.gadgets.layout models.combinators ui.gadgets.labels ui.gadgets.layout models.combinators ui.gadgets.labels