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
nmake db db.tuples db.types classes words shuffle arrays
destructors continuations db.tuples.private prettyprint
db.private byte-arrays strings.parser parser ;
db.private byte-arrays ;
IN: db.queries
GENERIC: where ( specs obj -- )
@ -130,10 +130,6 @@ M: integer 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' )
[
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
classes.tuple.parser combinators db db.tuples db.types kernel
math sequences strings unicode.case urls words ;
USING: accessors arrays byte-arrays calendar classes
classes.tuple classes.tuple.parser combinators db db.queries
db.tuples db.types kernel math nmake parser sequences strings
strings.parser unicode.case urls words ;
IN: persistency
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 ;
: store-tuple ( tuple -- ) [ insert-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
monads persistency sequences sequences.extras ui ui.gadgets.controls
ui.gadgets.layout models.combinators ui.gadgets.labels