parent
4ad2ce0968
commit
80b09cb075
libs/sql
|
@ -16,38 +16,38 @@ G: select-sql* ( db tuple -- string ) 1 standard-combination ;
|
|||
: update-sql ( tuple -- string ) >r db get r> update-sql* ;
|
||||
: select-sql ( tuple -- string ) >r db get r> select-sql* ;
|
||||
|
||||
M: connection create-sql* ( db tuple -- string )
|
||||
nip [
|
||||
"create table " %
|
||||
dup class unparse % "(" %
|
||||
tuple>mapping%
|
||||
");" %
|
||||
] "" make ;
|
||||
! M: connection create-sql* ( db tuple -- string )
|
||||
! nip [
|
||||
! "create table " %
|
||||
! dup class unparse % "(" %
|
||||
! tuple>mapping%
|
||||
! ");" %
|
||||
! ] "" make ;
|
||||
|
||||
M: connection drop-sql* ( db tuple -- string )
|
||||
nip [ "drop table " % tuple>sql-name % ";" % ] "" make ;
|
||||
|
||||
M: connection insert-sql* ( db tuple -- string )
|
||||
nip [
|
||||
"insert into " %
|
||||
dup tuple>sql-name %
|
||||
! " (" % fulltuple>insert-all-parts dup first ", " join %
|
||||
") values(" %
|
||||
second [ escape-sql enquote ] map ", " join %
|
||||
");" %
|
||||
] "" make ;
|
||||
|
||||
M: connection delete-sql* ( db tuples -- string )
|
||||
nip [
|
||||
! "delete from table " % unparse % ";" %
|
||||
] "" make ;
|
||||
|
||||
M: connection update-sql* ( db tuples -- string )
|
||||
nip [
|
||||
] "" make ;
|
||||
|
||||
M: connection select-sql* ( db tuples -- string )
|
||||
nip [
|
||||
] "" make ;
|
||||
! M: connection drop-sql* ( db tuple -- string )
|
||||
! nip [ "drop table " % tuple>sql-name % ";" % ] "" make ;
|
||||
!
|
||||
! M: connection insert-sql* ( db tuple -- string )
|
||||
! nip [
|
||||
! "insert into " %
|
||||
! dup tuple>sql-name %
|
||||
! ! " (" % fulltuple>insert-all-parts dup first ", " join %
|
||||
! ") values(" %
|
||||
! second [ escape-sql enquote ] map ", " join %
|
||||
! ");" %
|
||||
! ] "" make ;
|
||||
!
|
||||
! M: connection delete-sql* ( db tuples -- string )
|
||||
! nip [
|
||||
! ! "delete from table " % unparse % ";" %
|
||||
! ] "" make ;
|
||||
!
|
||||
! M: connection update-sql* ( db tuples -- string )
|
||||
! nip [
|
||||
! ] "" make ;
|
||||
!
|
||||
! M: connection select-sql* ( db tuples -- string )
|
||||
! nip [
|
||||
! ] "" make ;
|
||||
|
||||
|
||||
|
|
|
@ -14,6 +14,9 @@ M: sqlite create-sql* ( db tuple -- string )
|
|||
");" %
|
||||
] "" make ;
|
||||
|
||||
M: sqlite drop-sql* ( db tuple -- string )
|
||||
nip [ "drop table " % tuple>sql-name % ";" % ] "" make
|
||||
|
||||
M: sqlite insert-sql* ( db tuple -- string )
|
||||
#! Insert and fill in the ID column
|
||||
nip [
|
||||
|
|
Loading…
Reference in New Issue