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
] if ;
M: db <delete-tuple-statement> ( tuple table -- sql )
M: db <delete-tuples-statement> ( tuple table -- sql )
[
"delete from " 0% 0%
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
[ ] [ person1 get delete-tuple ] unit-test
[ ] [ person1 get delete-tuples ] unit-test
[ f ] [ T{ person f 1 } select-tuple ] unit-test
[ ] [ person3 get insert-tuple ] unit-test
@ -418,7 +418,7 @@ TUPLE: does-not-persist ;
\ bind-tuple must-infer
\ insert-tuple must-infer
\ update-tuple must-infer
\ delete-tuple must-infer
\ delete-tuples must-infer
\ select-tuple must-infer
\ define-persistent 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-user-assigned-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: insert-tuple* db ( tuple statement -- )
@ -136,8 +136,8 @@ M: retryable execute-statement* ( statement type -- )
db get db-update-statements [ <update-tuple-statement> ] cache
[ bind-tuple ] keep execute-statement ;
: delete-tuple ( tuple -- )
dup dup class <delete-tuple-statement> [
: delete-tuples ( tuple -- )
dup dup class <delete-tuples-statement> [
[ bind-tuple ] keep execute-statement
] with-disposal ;

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

@ -20,7 +20,7 @@ node "node"
node create-table ;
: delete-node ( node-id -- )
<id-node> delete-tuple ;
<id-node> delete-tuples ;
: create-node* ( str -- node-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 ;
: 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 )
<arc> dup insert-arc id>> ;