jackfoxy/urQL
1
1
Fork 0
mirror of https://github.com/jackfoxy/urQL.git synced 2024-09-11 11:55:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

cleanup before making door

Browse Source
This commit is contained in:
jackfoxy 2022-08-20 14:09:56 -07:00
parent c4af07b7c7
commit f5e90622ff
2 changed files with 36 additions and 562 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

590
urql/lib/parse.hoon
View File

@ -47,26 +47,29 @@
==
(fail tub)
$(p.tub (lust i.q.tub p.tub), q.tub t.q.tub, daf (rsh 3 daf))
++ cook-four-pat-ps
|= a=[[@ @] * [@ @] * [@ @] * [@ @]]
;:(weld (trip `@t`-<.a) (trip `@t`->.a) "-" (trip `@t`+>-<.a) (trip `@t`+>->.a) "-" (trip `@t`+>+>-<.a) (trip `@t`+>+>->.a) "-" (trip `@t`+>+>+>-.a) (trip `@t`+>+>+>+.a))
++ cook-galaxy
|= a=[@ @]
['~' (trip +.a)]
++ cook-star
|= a=[* [@ @]]
;:(weld "~" (trip `@t`+<.a) (trip `@t`+>.a))
++ cook-planet
|= a=[* [@ @] * [@ @]]
;:(weld "~" (trip `@t`+<-.a) (trip `@t`+<+.a) "-" (trip `@t`+>+<.a) (trip `@t`+>+>.a))
++ cook-moon
|= a=[@ tape]
['~' +.a]
::++ cook-comet
:: |= a=[* tape * tape]
:: ;:(weld "~" +<.a "--" +>+<.a)
:: the main event
::++ cook-qualified-object
:: |= a=*
:: [43.332 [i=25.188 t=~] [i=29.550 t=~] [i=1.701.667.182 t=~]] ~firsub.db.ns.name
:: [43.332 [i=25.188 t=~] '' 'name' ~] ~firsub..ns.name
:: [[i=25.188 t=~] [i=29.550 t=~] [i=1.701.667.182 t=~]] db.ns.name
:: [[i=25.188 t=~] '' 'name' ~] db..name
:: [[i=29.550 t=~] [i=1.701.667.182 t=~]] ns.name
::
::++ cook-four-pat-ps
:: |= a=[[@ @] * [@ @] * [@ @] * [@ @]]
:: ;:(weld (trip `@t`-<.a) (trip `@t`->.a) "-" (trip `@t`+>-<.a) (trip `@t`+>->.a) "-" (trip `@t`+>+>-<.a) (trip `@t`+>+>->.a) "-" (trip `@t`+>+>+>-.a) (trip `@t`+>+>+>+.a))
::++ cook-galaxy
:: |= a=[@ @]
:: ['~' (trip +.a)]
::++ cook-star
:: |= a=[* [@ @]]
:: ;:(weld "~" (trip `@t`+<.a) (trip `@t`+>.a))
::++ cook-planet
:: |= a=[* [@ @] * [@ @]]
:: ;:(weld "~" (trip `@t`+<-.a) (trip `@t`+<+.a) "-" (trip `@t`+>+<.a) (trip `@t`+>+>.a))
::++ cook-moon
:: |= a=[@ tape]
:: ['~' +.a]
++ parse
|= [current-database=@t script=tape]
~| 'Input script is empty.'
@ -77,534 +80,8 @@
::
:: parser rules
::
=/ word-prefix ;~ pose
(jest 'doz')
(jest 'mar')
(jest 'bin')
(jest 'wan')
(jest 'sam')
(jest 'lit')
(jest 'sig')
(jest 'hid')
(jest 'fid')
(jest 'lis')
(jest 'sog')
(jest 'dir')
(jest 'wac')
(jest 'sab')
(jest 'wis')
(jest 'sib')
(jest 'rig')
(jest 'sol')
(jest 'dop')
(jest 'mod')
(jest 'fog')
(jest 'lid')
(jest 'hop')
(jest 'dar')
(jest 'dor')
(jest 'lor')
(jest 'hod')
(jest 'fol')
(jest 'rin')
(jest 'tog')
(jest 'sil')
(jest 'mir')
(jest 'hol')
(jest 'pas')
(jest 'lac')
(jest 'rov')
(jest 'liv')
(jest 'dal')
(jest 'sat')
(jest 'lib')
(jest 'tab')
(jest 'han')
(jest 'tic')
(jest 'pid')
(jest 'tor')
(jest 'bol')
(jest 'fos')
(jest 'dot')
(jest 'los')
(jest 'dil')
(jest 'for')
(jest 'pil')
(jest 'ram')
(jest 'tir')
(jest 'win')
(jest 'tad')
(jest 'bic')
(jest 'dif')
(jest 'roc')
(jest 'wid')
(jest 'bis')
(jest 'das')
(jest 'mid')
(jest 'lop')
(jest 'ril')
(jest 'nar')
(jest 'dap')
(jest 'mol')
(jest 'san')
(jest 'loc')
(jest 'nov')
(jest 'sit')
(jest 'nid')
(jest 'tip')
(jest 'sic')
(jest 'rop')
(jest 'wit')
(jest 'nat')
(jest 'pan')
(jest 'min')
(jest 'rit')
(jest 'pod')
(jest 'mot')
(jest 'tam')
(jest 'tol')
(jest 'sav')
(jest 'pos')
(jest 'nap')
(jest 'nop')
(jest 'som')
(jest 'fin')
(jest 'fon')
(jest 'ban')
(jest 'por')
(jest 'wor')
(jest 'sip')
(jest 'ron')
(jest 'nor')
(jest 'bot')
(jest 'wic')
(jest 'soc')
(jest 'wat')
(jest 'dol')
(jest 'mag')
(jest 'pic')
(jest 'dav')
(jest 'bid')
(jest 'bal')
(jest 'tim')
(jest 'tas')
(jest 'mal')
(jest 'lig')
(jest 'siv')
(jest 'tag')
(jest 'pad')
(jest 'sal')
(jest 'div')
(jest 'dac')
(jest 'tan')
(jest 'sid')
(jest 'fab')
(jest 'tar')
(jest 'mon')
(jest 'ran')
(jest 'nis')
(jest 'wol')
(jest 'mis')
(jest 'pal')
(jest 'las')
(jest 'dis')
(jest 'map')
(jest 'rab')
(jest 'tob')
(jest 'rol')
(jest 'lat')
(jest 'lon')
(jest 'nod')
(jest 'nav')
(jest 'fig')
(jest 'nom')
(jest 'nib')
(jest 'pag')
(jest 'sop')
(jest 'ral')
(jest 'bil')
(jest 'had')
(jest 'doc')
(jest 'rid')
(jest 'moc')
(jest 'pac')
(jest 'rav')
(jest 'rip')
(jest 'fal')
(jest 'tod')
(jest 'til')
(jest 'tin')
(jest 'hap')
(jest 'mic')
(jest 'fan')
(jest 'pat')
(jest 'tac')
(jest 'lab')
(jest 'mog')
(jest 'sim')
(jest 'son')
(jest 'pin')
(jest 'lom')
(jest 'ric')
(jest 'tap')
(jest 'fir')
(jest 'has')
(jest 'bos')
(jest 'bat')
(jest 'poc')
(jest 'hac')
(jest 'tid')
(jest 'hav')
(jest 'sap')
(jest 'lin')
(jest 'dib')
(jest 'hos')
(jest 'dab')
(jest 'bit')
(jest 'bar')
(jest 'rac')
(jest 'par')
(jest 'lod')
(jest 'dos')
(jest 'bor')
(jest 'toc')
(jest 'hil')
(jest 'mac')
(jest 'tom')
(jest 'dig')
(jest 'fil')
(jest 'fas')
(jest 'mit')
(jest 'hob')
(jest 'har')
(jest 'mig')
(jest 'hin')
(jest 'rad')
(jest 'mas')
(jest 'hal')
(jest 'rag')
(jest 'lag')
(jest 'fad')
(jest 'top')
(jest 'mop')
(jest 'hab')
(jest 'nil')
(jest 'nos')
(jest 'mil')
(jest 'fop')
(jest 'fam')
(jest 'dat')
(jest 'nol')
(jest 'din')
(jest 'hat')
(jest 'nac')
(jest 'ris')
(jest 'fot')
(jest 'rib')
(jest 'hoc')
(jest 'nim')
(jest 'lar')
(jest 'fit')
(jest 'wal')
(jest 'rap')
(jest 'sar')
(jest 'nal')
(jest 'mos')
(jest 'lan')
(jest 'don')
(jest 'dan')
(jest 'lad')
(jest 'dov')
(jest 'riv')
(jest 'bac')
(jest 'pol')
(jest 'lap')
(jest 'tal')
(jest 'pit')
(jest 'nam')
(jest 'bon')
(jest 'ros')
(jest 'ton')
(jest 'fod')
(jest 'pon')
(jest 'sov')
(jest 'noc')
(jest 'sor')
(jest 'lav')
(jest 'mat')
(jest 'mip')
(jest 'fap')
==
=/ word-suffix ;~ pose
(jest 'fes')
(jest 'nev')
(jest 'nel')
(jest 'pec')
(jest 'teg')
(jest 'rep')
(jest 'tel')
(jest 'mur')
(jest 'fyr')
(jest 'weg')
(jest 'sen')
(jest 'byr')
(jest 'nyt')
(jest 'mud')
(jest 'tes')
(jest 'lyr')
(jest 'mun')
(jest 'bec')
(jest 'sed')
(jest 'fed')
(jest 'lux')
(jest 'dem')
(jest 'dyn')
(jest 'lyn')
(jest 'nyl')
(jest 'nys')
(jest 'sug')
(jest 'ryc')
(jest 'wer')
(jest 'fyn')
(jest 'lys')
(jest 'rem')
(jest 'lud')
(jest 'ryl')
(jest 'hul')
(jest 'seb')
(jest 'nyr')
(jest 'ler')
(jest 'dun')
(jest 'ret')
(jest 'des')
(jest 'fet')
(jest 'hes')
(jest 'nes')
(jest 'rud')
(jest 'rel')
(jest 'hus')
(jest 'nyd')
(jest 'wel')
(jest 'fen')
(jest 'lyd')
(jest 'ryd')
(jest 'lec')
(jest 'ned')
(jest 'rup')
(jest 'lex')
(jest 'ner')
(jest 'len')
(jest 'luc')
(jest 'nul')
(jest 'fex')
(jest 'fur')
(jest 'duc')
(jest 'wed')
(jest 'myl')
(jest 'lev')
(jest 'typ')
(jest 'byt')
(jest 'dyt')
(jest 'pex')
(jest 'mel')
(jest 'run')
(jest 'bep')
(jest 'bus')
(jest 'def')
(jest 'lur')
(jest 'dev')
(jest 'pem')
(jest 'sud')
(jest 'byl')
(jest 'tun')
(jest 'hut')
(jest 'mug')
(jest 'ber')
(jest 'deb')
(jest 'lep')
(jest 'fyl')
(jest 'tuc')
(jest 'rym')
(jest 'pub')
(jest 'mex')
(jest 'tec')
(jest 'syl')
(jest 'nus')
(jest 'lus')
(jest 'ten')
(jest 'mer')
(jest 'fer')
(jest 'nem')
(jest 'leg')
(jest 'tyc')
(jest 'tus')
(jest 'tyr')
(jest 'fep')
(jest 'ryx')
(jest 'ryg')
(jest 'pyx')
(jest 'num')
(jest 'ryn')
(jest 'dux')
(jest 'leb')
(jest 'bex')
(jest 'rus')
(jest 'ted')
(jest 'mec')
(jest 'ref')
(jest 'rev')
(jest 'fun')
(jest 'red')
(jest 'res')
(jest 'pun')
(jest 'lyx')
(jest 'seg')
(jest 'tyn')
(jest 'rum')
(jest 'neb')
(jest 'dus')
(jest 'lyt')
(jest 'med')
(jest 'nub')
(jest 'wyt')
(jest 'ren')
(jest 'rux')
(jest 'nux')
(jest 'tud')
(jest 'fel')
(jest 'sur')
(jest 'tex')
(jest 'deg')
(jest 'dut')
(jest 'set')
(jest 'meb')
(jest 'ter')
(jest 'syp')
(jest 'pel')
(jest 'myr')
(jest 'tug')
(jest 'tux')
(jest 'bel')
(jest 'bet')
(jest 'det')
(jest 'mes')
(jest 'myn')
(jest 'dyl')
(jest 'wet')
(jest 'syr')
(jest 'wex')
(jest 'dec')
(jest 'ruc')
(jest 'sel')
(jest 'sym')
(jest 'wyx')
(jest 'mus')
(jest 'ben')
(jest 'hep')
(jest 'fus')
(jest 'teb')
(jest 'rex')
(jest 'nyx')
(jest 'mut')
(jest 'sum')
(jest 'web')
(jest 'tev')
(jest 'nym')
(jest 'mul')
(jest 'sec')
(jest 'net')
(jest 'meg')
(jest 'rec')
(jest 'wyn')
(jest 'sem')
(jest 'sup')
(jest 'tyd')
(jest 'reg')
(jest 'syn')
(jest 'rul')
(jest 'pet')
(jest 'sub')
(jest 'nut')
(jest 'den')
(jest 'reb')
(jest 'rys')
(jest 'pur')
(jest 'nep')
(jest 'der')
(jest 'bur')
(jest 'wyc')
(jest 'sef')
(jest 'dex')
(jest 'bes')
(jest 'tep')
(jest 'wyd')
(jest 'tyl')
(jest 'rut')
(jest 'mev')
(jest 'het')
(jest 'dul')
(jest 'pyl')
(jest 'feb')
(jest 'hex')
(jest 'byn')
(jest 'wen')
(jest 'met')
(jest 'tul')
(jest 'led')
(jest 'tem')
(jest 'ped')
(jest 'sul')
(jest 'del')
(jest 'pes')
(jest 'sep')
(jest 'lut')
(jest 'mep')
(jest 'lun')
(jest 'nex')
(jest 'syd')
(jest 'tyv')
(jest 'ryt')
(jest 'hec')
(jest 'lug')
(jest 'put')
(jest 'dys')
(jest 'dep')
(jest 'lup')
(jest 'peg')
(jest 'heb')
(jest 'nup')
(jest 'dyr')
(jest 'syx')
(jest 'ryp')
(jest 'sun')
(jest 'wyl')
(jest 'ser')
(jest 'wep')
(jest 'dur')
(jest 'syt')
(jest 'pen')
(jest 'ful')
(jest 'let')
(jest 'sut')
(jest 'per')
(jest 'sev')
(jest 'wes')
(jest 'bud')
(jest 'nec')
(jest 'zod')
==
=/ pat-p-word ;~(plug word-prefix word-suffix)
=/ four-pat-p-words ;~(plug pat-p-word hep pat-p-word hep pat-p-word hep pat-p-word)
=/ parse-four-pat-ps (cook cook-four-pat-ps four-pat-p-words)
=/ whitespace (star ;~(pose gah (just '\09') (just '\0d')))
=/ end-or-next-command ;~(pose ;~(plug whitespace mic) whitespace mic)
=/ parse-galaxy (cook cook-galaxy ;~(plug sig word-suffix))
=/ parse-star (cook cook-star ;~(plug sig pat-p-word))
=/ parse-planet (cook cook-planet ;~(plug sig pat-p-word hep pat-p-word))
:: to do: 3 word moon
=/ parse-moon (cook cook-moon ;~(plug sig parse-four-pat-ps))
:: =/ parse-comet
:: (cook cook-comet ;~(plug sig parse-four-pat-ps (stun [5 10] hep) parse-four-pat-ps))
=/ parse-face ;~(pfix whitespace sym)
=/ parse-qualified-2-name ;~(pose ;~(pfix whitespace ;~((glue dot) sym sym)) parse-face)
=/ parse-qualified-3 ;~ pose
@ -615,17 +92,10 @@
==
=/ parse-qualified-3-name ;~(pfix whitespace parse-qualified-3)
=/ parse-force-or-3-name ;~(pose ;~(pfix whitespace (jester 'force')) parse-qualified-3-name)
=/ parse-ship ;~ pose
:: parse-comet
parse-moon
parse-planet
parse-star
parse-galaxy
==
=/ parse-ship-db-qualified ;~ pose
=/ parse-ship ;~(pfix sig fed:ag)
=/ parse-qualified-object ;~ pose
;~((glue dot) parse-ship (star sym) (star sym) (star sym))
;~(plug ;~(sfix parse-ship dot) (star sym) dot dot (star sym))
;~((glue dot) parse-ship (star sym) (star sym))
;~((glue dot) parse-ship (star sym) dot dot (star sym))
parse-qualified-3
==
=/ parse-force-qualified-name ;~ sfix
@ -646,7 +116,7 @@
(cold %truncate-table ;~(plug whitespace (jester 'truncate') whitespace (jester 'table')))
:: (cold ;~(plug whitespace (jester '') whitespace (jester '')))
==
~| 'Current database name is not a proper face'
~| 'Current database name is not a proper term'
=/ dummy (scan (trip current-database) sym)
:: main loop
::
@ -831,7 +301,7 @@
!!
%truncate-table
=/ parse-truncate-table ;~ sfix
;~(pfix whitespace parse-ship-db-qualified)
;~(pfix whitespace parse-qualified-object)
end-or-next-command
==
~| "Cannot parse truncate-table {<p.q.command-nail>}"
@ -842,12 +312,8 @@
[(add -.cursor -.script-position) +.cursor] :: add lines and use nail cursor column
[-.cursor (add +.cursor +.script-position)] :: else add column positions
~| "command-nail: {<command-nail>}"
~| "q.q.command-nail: {<q.q.command-nail>}"
:: ~| "truncate-table-nail: {<truncate-table-nail>}"
~| "parsed: {<parsed>}"
~| "next-cursor: {<next-cursor>}"
:: ~| "q.q.u.+3.q:truncate-table-nail: {<q.q.u.+3.q:truncate-table-nail>}"
:: ~| "next-cursor: {<next-cursor>}"
=/ yikes 0
!!

8
urql/sur/ast.hoon
View File

@ -16,6 +16,14 @@
column-type=* :: must accept any mold
default-value=(unit *)
==
+$ qualified-object
$:
%qualified-object
ship=(unit @p)
database=@t
namespace=@t
name=@t
==
+$ qualifier
$:
ship=@p