jackfoxy/urQL
1
1
Fork 0
mirror of https://github.com/jackfoxy/urQL.git synced 2024-08-16 23:30:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

refactor alter table as of

Browse Source
This commit is contained in:
jackfoxy 2023-12-12 14:23:03 -08:00
parent 4afc466983
commit 95a14bd6b1
1 changed files with 24 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
urql/lib/parse.hoon
View File

@ -225,95 +225,55 @@
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ ~ +>.parsed ~) commands]
==
?: ?&(=(+<-.parsed %alter-column) ?=([* [* %as-of *]] parsed))
?: =(%now +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed +<+.parsed ~ ~ ~ ~ ~) commands]
==
?: ?=([@ @] +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed +<+.parsed ~ ~ ~ ~ [~ +>+>.parsed]) commands]
==
%= $
script q.q.u.+3.q:table-nail
commands
?: =(%now +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed +<+.parsed ~ ~ ~ ~ ~) commands]
?: ?=([@ @] +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed +<+.parsed ~ ~ ~ ~ [~ +>+>.parsed]) commands]
[`command:ast`(alter-table:ast %alter-table -.parsed +<+.parsed ~ ~ ~ ~ [~ (as-of-offset:ast %as-of-offset +>+<.parsed +>+>-.parsed)]) commands]
==
?: ?&(=(+<-.parsed %add-column) ?=([* [* %as-of *]] parsed))
?: =(%now +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed ~ +<+.parsed ~ ~ ~ ~) commands]
==
?: ?=([@ @] +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed ~ +<+.parsed ~ ~ ~ [~ +>+>.parsed]) commands]
==
%= $
script q.q.u.+3.q:table-nail
commands
?: =(%now +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed ~ +<+.parsed ~ ~ ~ ~) commands]
?: ?=([@ @] +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed ~ +<+.parsed ~ ~ ~ [~ +>+>.parsed]) commands]
[`command:ast`(alter-table:ast %alter-table -.parsed ~ +<+.parsed ~ ~ ~ [~ (as-of-offset:ast %as-of-offset +>+<.parsed +>+>-.parsed)]) commands]
==
?: ?&(=(+<-.parsed %drop-column) ?=([* [* %as-of *]] parsed))
?: =(%now +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ +<+.parsed ~ ~ ~) commands]
==
?: ?=([@ @] +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ +<+.parsed ~ ~ [~ +>+>.parsed]) commands]
==
%= $
script q.q.u.+3.q:table-nail
commands
?: =(%now +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ +<+.parsed ~ ~ ~) commands]
?: ?=([@ @] +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ +<+.parsed ~ ~ [~ +>+>.parsed]) commands]
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ +<+.parsed ~ ~ [~ (as-of-offset:ast %as-of-offset +>+<.parsed +>+>-.parsed)]) commands]
==
?: ?&(=(+<-.parsed %add-fk) ?=([* [* %as-of *]] parsed))
?: =(%now +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ (build-foreign-keys [-.parsed +<+.parsed]) ~ ~) commands]
==
?: ?=([@ @] +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ (build-foreign-keys [-.parsed +<+.parsed]) ~ [~ +>+>.parsed]) commands]
==
%= $
script q.q.u.+3.q:table-nail
commands
?: =(%now +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ (build-foreign-keys [-.parsed +<+.parsed]) ~ ~) commands]
?: ?=([@ @] +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ (build-foreign-keys [-.parsed +<+.parsed]) ~ [~ +>+>.parsed]) commands]
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ (build-foreign-keys [-.parsed +<+.parsed]) ~ [~ (as-of-offset:ast %as-of-offset +>+<.parsed +>+>-.parsed)]) commands]
==
?: ?&(=(+<-.parsed %drop-fk) ?=([* [* %as-of *]] parsed))
?: =(%now +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ ~ +<+.parsed ~) commands]
==
?: ?=([@ @] +>+.parsed)
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ ~ +<+.parsed [~ +>+>.parsed]) commands]
==
%= $
script q.q.u.+3.q:table-nail
commands
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ ~ +<+.parsed [~ (as-of-offset:ast %as-of-offset +>+<.parsed +>+>-.parsed)]) commands]
==
script q.q.u.+3.q:table-nail
commands
?: =(%now +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ ~ +<+.parsed ~) commands]
?: ?=([@ @] +>+.parsed)
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ ~ +<+.parsed [~ +>+>.parsed]) commands]
[`command:ast`(alter-table:ast %alter-table -.parsed ~ ~ ~ ~ +<+.parsed [~ (as-of-offset:ast %as-of-offset +>+<.parsed +>+>-.parsed)]) commands]
==
~|("Cannot parse table {<p.q.command-nail>}" !!)
%create-database
~| 'Create database must be only statement in script'