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

Rename delete-tuple to delete-tuples

db4
Slava Pestov 2008-04-29 21:03:01 -05:00
parent a452ca9105
commit 2149491044
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/db/queries/queries.factor
View File

@ -112,7 +112,7 @@ M: string where ( spec obj -- ) object-where ;
] interleave drop ] interleave drop
] if ; ] if ;
M: db <delete-tuple-statement> ( tuple table -- sql ) M: db <delete-tuples-statement> ( tuple table -- sql )
[ [
"delete from " 0% 0% "delete from " 0% 0%
where-clause where-clause

4
extra/db/tuples/tuples-tests.factor
View File

@ -68,7 +68,7 @@ SYMBOL: person4
] [ T{ person f f f 10 3.14 } select-tuples ] unit-test ] [ T{ person f f f 10 3.14 } select-tuples ] unit-test
[ ] [ person1 get delete-tuple ] unit-test [ ] [ person1 get delete-tuples ] unit-test
[ f ] [ T{ person f 1 } select-tuple ] unit-test [ f ] [ T{ person f 1 } select-tuple ] unit-test
[ ] [ person3 get insert-tuple ] unit-test [ ] [ person3 get insert-tuple ] unit-test
@ -418,7 +418,7 @@ TUPLE: does-not-persist ;
\ bind-tuple must-infer \ bind-tuple must-infer
\ insert-tuple must-infer \ insert-tuple must-infer
\ update-tuple must-infer \ update-tuple must-infer
\ delete-tuple must-infer \ delete-tuples must-infer
\ select-tuple must-infer \ select-tuple must-infer
\ define-persistent must-infer \ define-persistent must-infer
\ ensure-table must-infer \ ensure-table must-infer

6
extra/db/tuples/tuples.factor
View File

@ -40,7 +40,7 @@ HOOK: drop-sql-statement db ( class -- obj )
HOOK: <insert-db-assigned-statement> db ( class -- obj ) HOOK: <insert-db-assigned-statement> db ( class -- obj )
HOOK: <insert-user-assigned-statement> db ( class -- obj ) HOOK: <insert-user-assigned-statement> db ( class -- obj )
HOOK: <update-tuple-statement> db ( class -- obj ) HOOK: <update-tuple-statement> db ( class -- obj )
HOOK: <delete-tuple-statement> db ( tuple class -- obj ) HOOK: <delete-tuples-statement> db ( tuple class -- obj )
HOOK: <select-by-slots-statement> db ( tuple class -- tuple ) HOOK: <select-by-slots-statement> db ( tuple class -- tuple )
HOOK: insert-tuple* db ( tuple statement -- ) HOOK: insert-tuple* db ( tuple statement -- )
@ -136,8 +136,8 @@ M: retryable execute-statement* ( statement type -- )
db get db-update-statements [ <update-tuple-statement> ] cache db get db-update-statements [ <update-tuple-statement> ] cache
[ bind-tuple ] keep execute-statement ; [ bind-tuple ] keep execute-statement ;
: delete-tuple ( tuple -- ) : delete-tuples ( tuple -- )
dup dup class <delete-tuple-statement> [ dup dup class <delete-tuples-statement> [
[ bind-tuple ] keep execute-statement [ bind-tuple ] keep execute-statement
] with-disposal ; ] with-disposal ;

4
extra/semantic-db/semantic-db.factor
View File

@ -20,7 +20,7 @@ node "node"
node create-table ; node create-table ;
: delete-node ( node-id -- ) : delete-node ( node-id -- )
<id-node> delete-tuple ; <id-node> delete-tuples ;
: create-node* ( str -- node-id ) : create-node* ( str -- node-id )
<node> dup insert-tuple id>> ; <node> dup insert-tuple id>> ;
@ -43,7 +43,7 @@ TUPLE: arc id relation subject object ;
f <node> dup insert-tuple id>> >>id insert-tuple ; f <node> dup insert-tuple id>> >>id insert-tuple ;
: delete-arc ( arc-id -- ) : delete-arc ( arc-id -- )
dup delete-node <id-arc> delete-tuple ; dup delete-node <id-arc> delete-tuples ;
: create-arc* ( relation subject object -- arc-id ) : create-arc* ( relation subject object -- arc-id )
<arc> dup insert-arc id>> ; <arc> dup insert-arc id>> ;