mirror of
https://github.com/jackfoxy/urQL.git
synced 2024-09-11 11:55:33 +03:00
drop namespace as of
This commit is contained in:
parent
9bba6b1fed
commit
e45db9c9ec
@ -146,7 +146,7 @@
|
|||||||
=/ command-nail u.+3:q.+3:(parse-command [[1 1] script])
|
=/ command-nail u.+3:q.+3:(parse-command [[1 1] script])
|
||||||
?- `urql-command`p.command-nail
|
?- `urql-command`p.command-nail
|
||||||
%alter-index
|
%alter-index
|
||||||
~| "alter index error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "alter index error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ index-nail (parse-alter-index [[1 1] q.q.command-nail])
|
=/ index-nail (parse-alter-index [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk index-nail)
|
=/ parsed (wonk index-nail)
|
||||||
?: ?=([[@ @ @ @ @] [@ @ @ @ @] @] [parsed]) ::"alter index action"
|
?: ?=([[@ @ @ @ @] [@ @ @ @ @] @] [parsed]) ::"alter index action"
|
||||||
@ -179,7 +179,7 @@
|
|||||||
==
|
==
|
||||||
~|("Cannot parse alter-index {<p.q.command-nail>}" !!)
|
~|("Cannot parse alter-index {<p.q.command-nail>}" !!)
|
||||||
%alter-namespace
|
%alter-namespace
|
||||||
~| "alter namespace error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "alter namespace error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ namespace-nail (parse-alter-namespace [[1 1] q.q.command-nail])
|
=/ namespace-nail (parse-alter-namespace [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk namespace-nail)
|
=/ parsed (wonk namespace-nail)
|
||||||
%= $
|
%= $
|
||||||
@ -189,7 +189,7 @@
|
|||||||
[`command:ast`(alter-namespace:ast %alter-namespace -<.parsed ->.parsed +<.parsed +>+>+<.parsed +>+>+>.parsed ~) commands]
|
[`command:ast`(alter-namespace:ast %alter-namespace -<.parsed ->.parsed +<.parsed +>+>+<.parsed +>+>+>.parsed ~) commands]
|
||||||
==
|
==
|
||||||
%alter-table
|
%alter-table
|
||||||
~| "alter table error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "alter table error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ table-nail (parse-alter-table [[1 1] q.q.command-nail])
|
=/ table-nail (parse-alter-table [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk table-nail)
|
=/ parsed (wonk table-nail)
|
||||||
?: =(+<.parsed %alter-column)
|
?: =(+<.parsed %alter-column)
|
||||||
@ -260,7 +260,7 @@
|
|||||||
==
|
==
|
||||||
!!
|
!!
|
||||||
%create-index
|
%create-index
|
||||||
~| "create index error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "create index error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ index-nail (parse-create-index [[1 1] q.q.command-nail])
|
=/ index-nail (parse-create-index [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk index-nail)
|
=/ parsed (wonk index-nail)
|
||||||
?: ?=([@ [* *]] [parsed]) ::"create index ..."
|
?: ?=([@ [* *]] [parsed]) ::"create index ..."
|
||||||
@ -352,7 +352,7 @@
|
|||||||
[`command:ast`(create-namespace:ast %create-namespace -.id +.id [~ (as-of-offset:ast %as-of-offset -.asof +<.asof)]) commands]
|
[`command:ast`(create-namespace:ast %create-namespace -.id +.id [~ (as-of-offset:ast %as-of-offset -.asof +<.asof)]) commands]
|
||||||
==
|
==
|
||||||
%create-table
|
%create-table
|
||||||
~| "create table error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "create table error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ table-nail (parse-create-table [[1 1] q.q.command-nail])
|
=/ table-nail (parse-create-table [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk table-nail)
|
=/ parsed (wonk table-nail)
|
||||||
?: ?=([* * [@ @ *]] parsed)
|
?: ?=([* * [@ @ *]] parsed)
|
||||||
@ -412,10 +412,10 @@
|
|||||||
[`command:ast`(create-table:ast %create-table -.parsed +<.parsed +>->-.parsed +>->+.parsed (build-foreign-keys [-.parsed +>+.parsed]) ~) commands]
|
[`command:ast`(create-table:ast %create-table -.parsed +<.parsed +>->-.parsed +>->+.parsed (build-foreign-keys [-.parsed +>+.parsed]) ~) commands]
|
||||||
==
|
==
|
||||||
%create-view
|
%create-view
|
||||||
~| "create view error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "create view error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
!!
|
!!
|
||||||
%delete
|
%delete
|
||||||
~| "delete error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "delete error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ delete-nail (parse-delete [[1 1] q.q.command-nail])
|
=/ delete-nail (parse-delete [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk delete-nail)
|
=/ parsed (wonk delete-nail)
|
||||||
%= $
|
%= $
|
||||||
@ -425,7 +425,7 @@
|
|||||||
[`command:ast`(transform:ast %transform ~ [(produce-delete parsed) ~ ~]) commands]
|
[`command:ast`(transform:ast %transform ~ [(produce-delete parsed) ~ ~]) commands]
|
||||||
==
|
==
|
||||||
%drop-database
|
%drop-database
|
||||||
~| "drop database error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "drop database error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ drop-database-nail (parse-drop-database [[1 1] q.q.command-nail])
|
=/ drop-database-nail (parse-drop-database [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk drop-database-nail)
|
=/ parsed (wonk drop-database-nail)
|
||||||
?@ parsed :: name
|
?@ parsed :: name
|
||||||
@ -443,7 +443,7 @@
|
|||||||
==
|
==
|
||||||
!!
|
!!
|
||||||
%drop-index
|
%drop-index
|
||||||
~| "drop index error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "drop index error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ drop-index-nail (parse-drop-index [[1 1] q.q.command-nail])
|
=/ drop-index-nail (parse-drop-index [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk drop-index-nail)
|
=/ parsed (wonk drop-index-nail)
|
||||||
%= $
|
%= $
|
||||||
@ -452,37 +452,80 @@
|
|||||||
commands [`command:ast`(drop-index:ast %drop-index -.parsed +.parsed) commands]
|
commands [`command:ast`(drop-index:ast %drop-index -.parsed +.parsed) commands]
|
||||||
==
|
==
|
||||||
%drop-namespace
|
%drop-namespace
|
||||||
~| "drop namespace error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "drop namespace error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ drop-namespace-nail (parse-drop-namespace [[1 1] q.q.command-nail])
|
=/ drop-namespace-nail (parse-drop-namespace [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk drop-namespace-nail)
|
=/ parsed (wonk drop-namespace-nail)
|
||||||
?@ parsed :: name
|
?@ parsed :: name
|
||||||
%= $
|
%= $
|
||||||
script q.q.u.+3.q:drop-namespace-nail
|
script q.q.u.+3.q:drop-namespace-nail
|
||||||
displacement (sub script-length (lent script))
|
displacement (sub script-length (lent script))
|
||||||
commands [`command:ast`(drop-namespace:ast %drop-namespace default-database parsed %.n ~) commands]
|
commands [`command:ast`(drop-namespace:ast %drop-namespace default-database parsed %.n ~) commands]
|
||||||
==
|
==
|
||||||
?: ?=([@ @] parsed) :: force name
|
?: ?=([@ %as-of *] parsed) :: name as of
|
||||||
?: =(%force -.parsed)
|
|
||||||
%= $
|
|
||||||
script q.q.u.+3.q:drop-namespace-nail
|
|
||||||
displacement (sub script-length (lent script))
|
|
||||||
commands [`command:ast`(drop-namespace:ast %drop-namespace default-database +.parsed %.y ~) commands]
|
|
||||||
==
|
|
||||||
%= $ :: db.name
|
|
||||||
script q.q.u.+3.q:drop-namespace-nail
|
|
||||||
displacement (sub script-length (lent script))
|
|
||||||
commands [`command:ast`(drop-namespace:ast %drop-namespace -.parsed +.parsed %.n ~) commands]
|
|
||||||
==
|
|
||||||
~| "Cannot parse drop-namespace {<parsed>}"
|
|
||||||
?: ?=([* [@ @]] parsed) :: force db.name
|
|
||||||
%= $
|
%= $
|
||||||
script q.q.u.+3.q:drop-namespace-nail
|
script q.q.u.+3.q:drop-namespace-nail
|
||||||
displacement (sub script-length (lent script))
|
displacement (sub script-length (lent script))
|
||||||
commands [`command:ast`(drop-namespace:ast %drop-namespace +<.parsed +>.parsed %.y ~) commands]
|
commands
|
||||||
|
?: =(%now +>.parsed)
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace default-database -.parsed %.n ~) commands]
|
||||||
|
?: ?=([@ @] +>.parsed)
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace default-database -.parsed %.n [~ +>+.parsed]) commands]
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace default-database -.parsed %.n [~ (as-of-offset:ast %as-of-offset +>-.parsed +>+<.parsed)]) commands]
|
||||||
|
==
|
||||||
|
?: ?=([[%force @] %as-of *] parsed) :: force name as of
|
||||||
|
%= $
|
||||||
|
script q.q.u.+3.q:drop-namespace-nail
|
||||||
|
displacement (sub script-length (lent script))
|
||||||
|
commands
|
||||||
|
?: =(%now +>.parsed)
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace default-database ->.parsed %.y ~) commands]
|
||||||
|
?: ?=([@ @] +>.parsed)
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace default-database ->.parsed %.y [~ +>+.parsed]) commands]
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace default-database ->.parsed %.y [~ (as-of-offset:ast %as-of-offset +>-.parsed +>+<.parsed)]) commands]
|
||||||
|
==
|
||||||
|
?: ?=([[@ @] %as-of *] parsed) :: name as of
|
||||||
|
%= $
|
||||||
|
script q.q.u.+3.q:drop-namespace-nail
|
||||||
|
displacement (sub script-length (lent script))
|
||||||
|
commands
|
||||||
|
?: =(%now +>.parsed)
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace -<.parsed ->.parsed %.n ~) commands]
|
||||||
|
?: ?=([@ @] +>.parsed)
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace -<.parsed ->.parsed %.n [~ +>+.parsed]) commands]
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace -<.parsed ->.parsed %.n [~ (as-of-offset:ast %as-of-offset +>-.parsed +>+<.parsed)]) commands]
|
||||||
|
==
|
||||||
|
?: ?=([[%force [@ @]] %as-of *] parsed) :: force db.name as of
|
||||||
|
%= $
|
||||||
|
script q.q.u.+3.q:drop-namespace-nail
|
||||||
|
displacement (sub script-length (lent script))
|
||||||
|
commands
|
||||||
|
?: =(%now +>.parsed)
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace ->-.parsed ->+.parsed %.y ~) commands]
|
||||||
|
?: ?=([@ @] +>.parsed)
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace ->-.parsed ->+.parsed %.y [~ +>+.parsed]) commands]
|
||||||
|
[`command:ast`(drop-namespace:ast %drop-namespace ->-.parsed ->+.parsed %.y [~ (as-of-offset:ast %as-of-offset +>-.parsed +>+<.parsed)]) commands]
|
||||||
|
==
|
||||||
|
?: ?=([%force @] parsed) :: force name
|
||||||
|
%= $
|
||||||
|
script q.q.u.+3.q:drop-namespace-nail
|
||||||
|
displacement (sub script-length (lent script))
|
||||||
|
commands [`command:ast`(drop-namespace:ast %drop-namespace default-database +.parsed %.y ~) commands]
|
||||||
|
==
|
||||||
|
?: ?=([@ @] parsed) :: db.name
|
||||||
|
%= $
|
||||||
|
script q.q.u.+3.q:drop-namespace-nail
|
||||||
|
displacement (sub script-length (lent script))
|
||||||
|
commands [`command:ast`(drop-namespace:ast %drop-namespace -.parsed +.parsed %.n ~) commands]
|
||||||
|
==
|
||||||
|
?: ?=([%force [@ @]] parsed) :: force db.name
|
||||||
|
%= $
|
||||||
|
script q.q.u.+3.q:drop-namespace-nail
|
||||||
|
displacement (sub script-length (lent script))
|
||||||
|
commands [`command:ast`(drop-namespace:ast %drop-namespace +<.parsed +>.parsed %.y ~) commands]
|
||||||
==
|
==
|
||||||
!!
|
!!
|
||||||
%drop-table
|
%drop-table
|
||||||
~| "drop table error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "drop table error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ drop-table-nail (drop-table-or-view [[1 1] q.q.command-nail])
|
=/ drop-table-nail (drop-table-or-view [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk drop-table-nail)
|
=/ parsed (wonk drop-table-nail)
|
||||||
?: ?=([@ @ @ @ @ @] parsed) :: force qualified table name
|
?: ?=([@ @ @ @ @ @] parsed) :: force qualified table name
|
||||||
@ -501,7 +544,7 @@
|
|||||||
==
|
==
|
||||||
~|("Cannot parse drop-table {<parsed>}" !!)
|
~|("Cannot parse drop-table {<parsed>}" !!)
|
||||||
%drop-view
|
%drop-view
|
||||||
~| "drop view error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "drop view error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ drop-view-nail (drop-table-or-view [[1 1] q.q.command-nail])
|
=/ drop-view-nail (drop-table-or-view [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk drop-view-nail)
|
=/ parsed (wonk drop-view-nail)
|
||||||
?: ?=([@ @ @ @ @ @] parsed) :: force qualified view
|
?: ?=([@ @ @ @ @ @] parsed) :: force qualified view
|
||||||
@ -520,7 +563,7 @@
|
|||||||
==
|
==
|
||||||
~|("Cannot parse drop-view {<parsed>}" !!)
|
~|("Cannot parse drop-view {<parsed>}" !!)
|
||||||
%grant
|
%grant
|
||||||
~| "grant error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "grant error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ grant-nail (parse-grant [[1 1] q.q.command-nail])
|
=/ grant-nail (parse-grant [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk grant-nail)
|
=/ parsed (wonk grant-nail)
|
||||||
?: ?=([@ [@ [@ %~]] [@ @]] [parsed]) ::"grant adminread to ~sampel-palnet on database db"
|
?: ?=([@ [@ [@ %~]] [@ @]] [parsed]) ::"grant adminread to ~sampel-palnet on database db"
|
||||||
@ -553,7 +596,7 @@
|
|||||||
==
|
==
|
||||||
~|("Cannot parse grant {<parsed>}" !!)
|
~|("Cannot parse grant {<parsed>}" !!)
|
||||||
%insert
|
%insert
|
||||||
~| "insert error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "insert error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ insert-nail (parse-insert [[1 1] q.q.command-nail])
|
=/ insert-nail (parse-insert [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk insert-nail)
|
=/ parsed (wonk insert-nail)
|
||||||
%= $
|
%= $
|
||||||
@ -563,7 +606,7 @@
|
|||||||
[`command:ast`(transform:ast %transform ~ [(produce-insert parsed) ~ ~]) commands]
|
[`command:ast`(transform:ast %transform ~ [(produce-insert parsed) ~ ~]) commands]
|
||||||
==
|
==
|
||||||
%merge
|
%merge
|
||||||
~| "merge error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "merge error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ merge-nail (parse-merge [[1 1] q.q.command-nail])
|
=/ merge-nail (parse-merge [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk merge-nail)
|
=/ parsed (wonk merge-nail)
|
||||||
%= $
|
%= $
|
||||||
@ -573,7 +616,7 @@
|
|||||||
[`command:ast`(transform:ast %transform ~ [(produce-merge parsed) ~ ~]) commands]
|
[`command:ast`(transform:ast %transform ~ [(produce-merge parsed) ~ ~]) commands]
|
||||||
==
|
==
|
||||||
%query
|
%query
|
||||||
~| "query error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "query error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ query-nail (parse-query [[1 1] q.q.command-nail])
|
=/ query-nail (parse-query [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk query-nail)
|
=/ parsed (wonk query-nail)
|
||||||
%= $
|
%= $
|
||||||
@ -583,7 +626,7 @@
|
|||||||
[`command:ast`(transform:ast %transform ~ [(produce-query parsed) ~ ~]) commands]
|
[`command:ast`(transform:ast %transform ~ [(produce-query parsed) ~ ~]) commands]
|
||||||
==
|
==
|
||||||
%revoke
|
%revoke
|
||||||
~| "revoke error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "revoke error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ revoke-nail (parse-revoke [[1 1] q.q.command-nail])
|
=/ revoke-nail (parse-revoke [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk revoke-nail)
|
=/ parsed (wonk revoke-nail)
|
||||||
?: ?=([@ [@ [@ %~]] [@ @]] [parsed]) ::"revoke adminread from ~sampel-palnet on database db"
|
?: ?=([@ [@ [@ %~]] [@ @]] [parsed]) ::"revoke adminread from ~sampel-palnet on database db"
|
||||||
@ -616,7 +659,7 @@
|
|||||||
==
|
==
|
||||||
~|("Cannot parse revoke {<parsed>}" !!)
|
~|("Cannot parse revoke {<parsed>}" !!)
|
||||||
%truncate-table
|
%truncate-table
|
||||||
~| "truncate table error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "truncate table error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ truncate-table-nail (parse-truncate-table [[1 1] q.q.command-nail])
|
=/ truncate-table-nail (parse-truncate-table [[1 1] q.q.command-nail])
|
||||||
%= $
|
%= $
|
||||||
script q.q.u.+3.q:truncate-table-nail
|
script q.q.u.+3.q:truncate-table-nail
|
||||||
@ -625,7 +668,7 @@
|
|||||||
[`command:ast`(truncate-table:ast %truncate-table (wonk truncate-table-nail)) commands]
|
[`command:ast`(truncate-table:ast %truncate-table (wonk truncate-table-nail)) commands]
|
||||||
==
|
==
|
||||||
%update
|
%update
|
||||||
~| "update error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "update error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ update-nail (parse-update [[1 1] q.q.command-nail])
|
=/ update-nail (parse-update [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk update-nail)
|
=/ parsed (wonk update-nail)
|
||||||
%= $
|
%= $
|
||||||
@ -635,7 +678,7 @@
|
|||||||
[`command:ast`(transform:ast %transform ~ [(produce-update parsed) ~ ~]) commands]
|
[`command:ast`(transform:ast %transform ~ [(produce-update parsed) ~ ~]) commands]
|
||||||
==
|
==
|
||||||
%with
|
%with
|
||||||
~| "with error: {<(scag 100 q.q.command-nail)>} ..."
|
~| "with error: {<`tape`(scag 100 q.q.command-nail)>} ..."
|
||||||
=/ with-nail (parse-with [[1 1] q.q.command-nail])
|
=/ with-nail (parse-with [[1 1] q.q.command-nail])
|
||||||
=/ parsed (wonk with-nail)
|
=/ parsed (wonk with-nail)
|
||||||
?: =(+<.parsed %delete)
|
?: =(+<.parsed %delete)
|
||||||
@ -723,7 +766,7 @@
|
|||||||
++ parse-create-namespace ;~ sfix
|
++ parse-create-namespace ;~ sfix
|
||||||
;~ pose
|
;~ pose
|
||||||
;~(plug parse-qualified-2-name parse-as-of)
|
;~(plug parse-qualified-2-name parse-as-of)
|
||||||
parse-qualified-2-name
|
parse-qualified-2-name
|
||||||
==
|
==
|
||||||
end-or-next-command
|
end-or-next-command
|
||||||
==
|
==
|
||||||
@ -767,7 +810,10 @@
|
|||||||
end-or-next-command
|
end-or-next-command
|
||||||
==
|
==
|
||||||
++ parse-drop-namespace ;~ sfix
|
++ parse-drop-namespace ;~ sfix
|
||||||
;~(pose ;~(plug ;~(pfix whitespace (cold %force (jester 'force'))) parse-qualified-2-name) parse-qualified-2-name)
|
;~ pose
|
||||||
|
;~(plug ;~(pose ;~(plug ;~(pfix whitespace (cold %force (jester 'force'))) parse-qualified-2-name) parse-qualified-2-name) parse-as-of)
|
||||||
|
;~(pose ;~(plug ;~(pfix whitespace (cold %force (jester 'force'))) parse-qualified-2-name) parse-qualified-2-name)
|
||||||
|
==
|
||||||
end-or-next-command
|
end-or-next-command
|
||||||
==
|
==
|
||||||
++ drop-table-or-view ;~ sfix
|
++ drop-table-or-view ;~ sfix
|
||||||
|
@ -3,37 +3,79 @@
|
|||||||
|%
|
|%
|
||||||
|
|
||||||
::
|
::
|
||||||
:: create table as of simple name as of now
|
:: name, as of now
|
||||||
++ test-create-table-08
|
++ test-drop-namespace-03
|
||||||
=/ expected [%create-table table=[%qualified-object ship=~ database='db1' namespace='dbo' name='my-table'] columns=~[[%column name='col1' column-type=%t] [%column name='col2' column-type=%p] [%column name='col3' column-type=%ud]] clustered=%.y pri-indx=~[[%ordered-column name='col1' is-ascending=%.y] [%ordered-column name='col2' is-ascending=%.y]] foreign-keys=~ as-of=~]
|
|
||||||
=/ urql "create table my-table (col1 @t,col2 @p,col3 @ud) primary key (col1,col2) as of now"
|
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
!> ~[expected]
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.n as-of=~]]
|
||||||
!> (parse:parse(default-database 'db1') urql)
|
!> (parse:parse(default-database 'other-db') "drop namespace ns1 as of now")
|
||||||
::
|
::
|
||||||
:: create table as of ns-qualified name as of datetime
|
:: name, as of date
|
||||||
++ test-create-table-09
|
++ test-drop-namespace-04
|
||||||
=/ expected [%create-table table=[%qualified-object ship=~ database='db1' namespace='ns1' name='my-table'] columns=~[[%column name='col1' column-type=%t] [%column name='col2' column-type=%p] [%column name='col3' column-type=%ud]] clustered=%.y pri-indx=~[[%ordered-column name='col1' is-ascending=%.y] [%ordered-column name='col2' is-ascending=%.y]] foreign-keys=~ as-of=[~ ~2023.12.25..7.15.0..1ef5]]
|
|
||||||
=/ urql "create table ns1.my-table (col1 @t,col2 @p,col3 @ud) primary key (col1,col2) as of ~2023.12.25..7.15.0..1ef5"
|
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
!> ~[expected]
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.n as-of=[~ ~2023.12.25..7.15.0..1ef5]]]
|
||||||
!> (parse:parse(default-database 'db1') urql)
|
!> (parse:parse(default-database 'other-db') "drop namespace ns1 as of ~2023.12.25..7.15.0..1ef5")
|
||||||
::
|
::
|
||||||
:: create table as of db-qualified name
|
:: name, as of 5 seconds ago
|
||||||
++ test-create-table-10
|
++ test-drop-namespace-05
|
||||||
=/ expected [%create-table table=[%qualified-object ship=~ database='db2' namespace='dbo' name='my-table'] columns=~[[%column name='col1' column-type=%t] [%column name='col2' column-type=%p] [%column name='col3' column-type=%ud]] clustered=%.y pri-indx=~[[%ordered-column name='col1' is-ascending=%.y] [%ordered-column name='col2' is-ascending=%.y]] foreign-keys=~ as-of=[~ [%as-of-offset 5 %seconds]]]
|
|
||||||
=/ urql "create table db2..my-table (col1 @t,col2 @p,col3 @ud) primary key (col1,col2) as of 5 seconds ago"
|
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
!> ~[expected]
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.n as-of=[~ [%as-of-offset 5 %seconds]]]]
|
||||||
!> (parse:parse(default-database 'db1') urql)
|
!> (parse:parse(default-database 'other-db') "drop namespace ns1 as of 5 seconds ago")
|
||||||
::
|
::
|
||||||
:: create table as of db-ns-qualified name
|
:: force name as of now
|
||||||
++ test-create-table-11
|
++ test-drop-namespace-06
|
||||||
=/ expected [%create-table table=[%qualified-object ship=~ database='db2' namespace='ns1' name='my-table'] columns=~[[%column name='col1' column-type=%t] [%column name='col2' column-type=%p] [%column name='col3' column-type=%ud]] clustered=%.y pri-indx=~[[%ordered-column name='col1' is-ascending=%.y] [%ordered-column name='col2' is-ascending=%.y]] foreign-keys=~ as-of=[~ [%as-of-offset 15 %minutes]]]
|
|
||||||
=/ urql "create table db2.ns1.my-table (col1 @t,col2 @p,col3 @ud) primary key (col1,col2) as of 15 minutes ago"
|
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
!> ~[expected]
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.y as-of=~]]
|
||||||
!> (parse:parse(default-database 'db1') urql)
|
!> (parse:parse(default-database 'other-db') "drop namespace force ns1 as of now")
|
||||||
|
::
|
||||||
|
:: force name as of date
|
||||||
|
++ test-drop-namespace-07
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.y as-of=[~ ~2023.12.25..7.15.0..1ef5]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force ns1 as of ~2023.12.25..7.15.0..1ef5")
|
||||||
|
::
|
||||||
|
:: force name as of 5 seconds ago
|
||||||
|
++ test-drop-namespace-08
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.y as-of=[~ [%as-of-offset 5 %seconds]]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force ns1 as of 5 seconds ago")
|
||||||
|
::
|
||||||
|
:: db name as of now
|
||||||
|
++ test-drop-namespace-09
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.n as-of=~]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace db1.ns1 as of now")
|
||||||
|
::
|
||||||
|
:: db name as of date
|
||||||
|
++ test-drop-namespace-10
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.n as-of=[~ ~2023.12.25..7.15.0..1ef5]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace db1.ns1 as of ~2023.12.25..7.15.0..1ef5")
|
||||||
|
::
|
||||||
|
:: db name as of 5 seconds ago
|
||||||
|
++ test-drop-namespace-11
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.n as-of=[~ [%as-of-offset 5 %seconds]]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace db1.ns1 as of 5 seconds ago")
|
||||||
|
::
|
||||||
|
:: force db name as of
|
||||||
|
++ test-drop-namespace-12
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.y as-of=~]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force db1.ns1 as of now")
|
||||||
|
::
|
||||||
|
:: force db name as of
|
||||||
|
++ test-drop-namespace-13
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.y as-of=[~ ~2023.12.25..7.15.0..1ef5]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force db1.ns1 as of ~2023.12.25..7.15.0..1ef5")
|
||||||
|
::
|
||||||
|
:: force db name as of
|
||||||
|
++ test-drop-namespace-14
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.y as-of=[~ [%as-of-offset 15 %minutes]]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force db1.ns1 as of 15 minutes ago")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
::@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
::@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
||||||
::
|
::
|
||||||
|
@ -669,7 +669,7 @@
|
|||||||
:: drop namespace
|
:: drop namespace
|
||||||
::
|
::
|
||||||
:: tests 1, 2, 3, 5, and extra whitespace characters, force db.name, name
|
:: tests 1, 2, 3, 5, and extra whitespace characters, force db.name, name
|
||||||
++ test-drop-namespace-1
|
++ test-drop-namespace-00
|
||||||
=/ expected1 [%drop-namespace database-name='db' name='name' force=%.n as-of=~]
|
=/ expected1 [%drop-namespace database-name='db' name='name' force=%.n as-of=~]
|
||||||
=/ expected2 [%drop-namespace database-name='other-db' name='name' force=%.y as-of=~]
|
=/ expected2 [%drop-namespace database-name='other-db' name='name' force=%.y as-of=~]
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
@ -677,24 +677,96 @@
|
|||||||
!> (parse:parse(default-database 'other-db') "droP Namespace db.name;droP \0d\09 Namespace FORce \0a name")
|
!> (parse:parse(default-database 'other-db') "droP Namespace db.name;droP \0d\09 Namespace FORce \0a name")
|
||||||
::
|
::
|
||||||
:: leading and trailing whitespace characters, end delimiter not required on single, force name
|
:: leading and trailing whitespace characters, end delimiter not required on single, force name
|
||||||
++ test-drop-namespace-2
|
++ test-drop-namespace-01
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
!> ~[[%drop-namespace database-name='other-db' name='name' force=%.y as-of=~]]
|
!> ~[[%drop-namespace database-name='other-db' name='name' force=%.y as-of=~]]
|
||||||
!> (parse:parse(default-database 'other-db') " \09drOp\0d\09 naMespace\0a force name ")
|
!> (parse:parse(default-database 'other-db') " \09drOp\0d\09 naMespace\0a force name ")
|
||||||
::
|
::
|
||||||
:: db.name
|
:: db.name
|
||||||
++ test-drop-namespace-3
|
++ test-drop-namespace-02
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
!> ~[[%drop-namespace database-name='db' name='name' force=%.n as-of=~]]
|
!> ~[[%drop-namespace database-name='db' name='name' force=%.n as-of=~]]
|
||||||
!> (parse:parse(default-database 'other-db') "drop namespace db.name")
|
!> (parse:parse(default-database 'other-db') "drop namespace db.name")
|
||||||
::
|
::
|
||||||
|
:: name, as of now
|
||||||
|
++ test-drop-namespace-03
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.n as-of=~]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace ns1 as of now")
|
||||||
|
::
|
||||||
|
:: name, as of date
|
||||||
|
++ test-drop-namespace-04
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.n as-of=[~ ~2023.12.25..7.15.0..1ef5]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace ns1 as of ~2023.12.25..7.15.0..1ef5")
|
||||||
|
::
|
||||||
|
:: name, as of 5 seconds ago
|
||||||
|
++ test-drop-namespace-05
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.n as-of=[~ [%as-of-offset 5 %seconds]]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace ns1 as of 5 seconds ago")
|
||||||
|
::
|
||||||
|
:: force name as of now
|
||||||
|
++ test-drop-namespace-06
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.y as-of=~]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force ns1 as of now")
|
||||||
|
::
|
||||||
|
:: force name as of date
|
||||||
|
++ test-drop-namespace-07
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.y as-of=[~ ~2023.12.25..7.15.0..1ef5]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force ns1 as of ~2023.12.25..7.15.0..1ef5")
|
||||||
|
::
|
||||||
|
:: force name as of 5 seconds ago
|
||||||
|
++ test-drop-namespace-08
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='other-db' name='ns1' force=%.y as-of=[~ [%as-of-offset 5 %seconds]]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force ns1 as of 5 seconds ago")
|
||||||
|
::
|
||||||
|
:: db name as of now
|
||||||
|
++ test-drop-namespace-09
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.n as-of=~]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace db1.ns1 as of now")
|
||||||
|
::
|
||||||
|
:: db name as of date
|
||||||
|
++ test-drop-namespace-10
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.n as-of=[~ ~2023.12.25..7.15.0..1ef5]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace db1.ns1 as of ~2023.12.25..7.15.0..1ef5")
|
||||||
|
::
|
||||||
|
:: db name as of 5 seconds ago
|
||||||
|
++ test-drop-namespace-11
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.n as-of=[~ [%as-of-offset 5 %seconds]]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace db1.ns1 as of 5 seconds ago")
|
||||||
|
::
|
||||||
|
:: force db name as of
|
||||||
|
++ test-drop-namespace-12
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.y as-of=~]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force db1.ns1 as of now")
|
||||||
|
::
|
||||||
|
:: force db name as of
|
||||||
|
++ test-drop-namespace-13
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.y as-of=[~ ~2023.12.25..7.15.0..1ef5]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force db1.ns1 as of ~2023.12.25..7.15.0..1ef5")
|
||||||
|
::
|
||||||
|
:: force db name as of
|
||||||
|
++ test-drop-namespace-14
|
||||||
|
%+ expect-eq
|
||||||
|
!> ~[[%drop-namespace database-name='db1' name='ns1' force=%.y as-of=[~ [%as-of-offset 15 %minutes]]]]
|
||||||
|
!> (parse:parse(default-database 'other-db') "drop namespace force db1.ns1 as of 15 minutes ago")
|
||||||
|
::
|
||||||
:: fail when database qualifier is not a term
|
:: fail when database qualifier is not a term
|
||||||
++ test-fail-drop-namespace-4
|
++ test-fail-drop-namespace-15
|
||||||
%- expect-fail
|
%- expect-fail
|
||||||
|. (parse:parse(default-database 'other-db') "DROP NAMESPACE Db.name")
|
|. (parse:parse(default-database 'other-db') "DROP NAMESPACE Db.name")
|
||||||
::
|
::
|
||||||
:: fail when namespace is not a term
|
:: fail when namespace is not a term
|
||||||
++ test-fail-drop-namespace-5
|
++ test-fail-drop-namespace-16
|
||||||
%- expect-fail
|
%- expect-fail
|
||||||
|. (parse:parse(default-database 'other-db') "DROP NAMESPACE nAme")
|
|. (parse:parse(default-database 'other-db') "DROP NAMESPACE nAme")
|
||||||
::
|
::
|
||||||
|
Loading…
Reference in New Issue
Block a user