mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-17 03:44:34 +03:00
Move more zuse engines.
This commit is contained in:
C. Guy Yarvin
parent
c41be3b691
commit
e1406f7990
@ -4,9 +4,11 @@
|
|||||||
|= pit/vase
|
|= pit/vase
|
||||||
=, ^gall
|
=, ^gall
|
||||||
=, crypto:ames
|
=, crypto:ames
|
||||||
|
=, space:clay
|
||||||
=, bytes:eyre
|
=, bytes:eyre
|
||||||
=, js:eyre
|
=, js:eyre
|
||||||
=, xml:eyre
|
=, xml:eyre
|
||||||
|
=, wired:eyre
|
||||||
=> =~
|
=> =~
|
||||||
|% :: interfaces
|
|% :: interfaces
|
||||||
++ gift gift-eyre :: out result <-$
|
++ gift gift-eyre :: out result <-$
|
||||||
@ -962,7 +964,7 @@
|
|||||||
|= {sas/@ud cug/(list @t) max/manx}
|
|= {sas/@ud cug/(list @t) max/manx}
|
||||||
%- give-thou
|
%- give-thou
|
||||||
%+ add-cookies cug
|
%+ add-cookies cug
|
||||||
(resp sas text+/html (crip (poxo max)))
|
(resp sas text+/html (crip (print max)))
|
||||||
::
|
::
|
||||||
++ give-json
|
++ give-json
|
||||||
|= {sas/@uG cug/(list @t) jon/json}
|
|= {sas/@uG cug/(list @t) jon/json}
|
||||||
|
|||||||
@ -4,6 +4,7 @@
|
|||||||
::::
|
::::
|
||||||
|= pit/vase
|
|= pit/vase
|
||||||
=, ^gall
|
=, ^gall
|
||||||
|
=, space:clay
|
||||||
=> =~
|
=> =~
|
||||||
:: structures
|
:: structures
|
||||||
|%
|
|%
|
||||||
|
|||||||
297
arvo/zuse.hoon
297
arvo/zuse.hoon
@ -50,7 +50,7 @@
|
|||||||
:: ::::
|
:: ::::
|
||||||
++ clay ^?
|
++ clay ^?
|
||||||
|%
|
|%
|
||||||
:: ::::
|
:: ::
|
||||||
:::: ## differ:^clay :: hunt-mcilroy diff
|
:::: ## differ:^clay :: hunt-mcilroy diff
|
||||||
:: ::::
|
:: ::::
|
||||||
++ differ ^?
|
++ differ ^?
|
||||||
@ -213,7 +213,7 @@
|
|||||||
syg/(map ship (pair life oath)) :: signatures
|
syg/(map ship (pair life oath)) :: signatures
|
||||||
== ::
|
== ::
|
||||||
++ will (map life cert) :: meta-certificate
|
++ will (map life cert) :: meta-certificate
|
||||||
-- ::pki
|
-- :: pki
|
||||||
:: ::
|
:: ::
|
||||||
:::: ## rights:^jael :: rights or promises
|
:::: ## rights:^jael :: rights or promises
|
||||||
:: ::::
|
:: ::::
|
||||||
@ -2545,7 +2545,7 @@
|
|||||||
-- ::nude
|
-- ::nude
|
||||||
-- ::differ
|
-- ::differ
|
||||||
:: ::
|
:: ::
|
||||||
:::: ### lines^clay :: unix line files
|
:::: ## lines:clay :: unix line text
|
||||||
:: ::::
|
:: ::::
|
||||||
++ lines ^?
|
++ lines ^?
|
||||||
|%
|
|%
|
||||||
@ -2591,8 +2591,8 @@
|
|||||||
off 0
|
off 0
|
||||||
==
|
==
|
||||||
$(off +(off))
|
$(off +(off))
|
||||||
:: :: ++nule:lines:clay
|
:: :: ++nule:lines:clay
|
||||||
++ nule :: lines to unix cord
|
++ nule :: lines to unix cord
|
||||||
~% %nule ..is ~
|
~% %nule ..is ~
|
||||||
|= lin/(list @t)
|
|= lin/(list @t)
|
||||||
^- @t
|
^- @t
|
||||||
@ -2600,8 +2600,8 @@
|
|||||||
%+ turn lin
|
%+ turn lin
|
||||||
|= t/@t
|
|= t/@t
|
||||||
[+((met 3 t)) (cat 3 t 10)]
|
[+((met 3 t)) (cat 3 t 10)]
|
||||||
:: :: ++role:differ:clay
|
:: :: ++role:differ:clay
|
||||||
++ role :: line list to atom
|
++ role :: line list to atom
|
||||||
|= tez/(list @t)
|
|= tez/(list @t)
|
||||||
=| {our/@ i/@ud}
|
=| {our/@ i/@ud}
|
||||||
|- ^- @
|
|- ^- @
|
||||||
@ -2613,6 +2613,86 @@
|
|||||||
$(i +(i), tez t.tez, our i.tez)
|
$(i +(i), tez t.tez, our i.tez)
|
||||||
$(i +(i), tez t.tez, our (cat 3 (cat 3 our 10) i.tez))
|
$(i +(i), tez t.tez, our (cat 3 (cat 3 our 10) i.tez))
|
||||||
-- ::lines
|
-- ::lines
|
||||||
|
:: ::
|
||||||
|
:::: ## space:clay :: namespace utils
|
||||||
|
:: ::::
|
||||||
|
++ space ^?
|
||||||
|
|%
|
||||||
|
:: :: ++feel:space:clay
|
||||||
|
++ feel :: simple file write
|
||||||
|
|= {pax/path val/cage}
|
||||||
|
^- miso
|
||||||
|
=+ dir=.^(arch %cy pax)
|
||||||
|
?~ fil.dir [%ins val]
|
||||||
|
[%mut val]
|
||||||
|
:: :: ++file:space:clay
|
||||||
|
++ file :: simple file load
|
||||||
|
|= pax/path
|
||||||
|
^- (unit)
|
||||||
|
=+ dir=.^(arch %cy pax)
|
||||||
|
?~(fil.dir ~ [~ .^(* %cx pax)])
|
||||||
|
:: :: ++foal:space:clay
|
||||||
|
++ foal :: high-level write
|
||||||
|
|= {pax/path val/cage}
|
||||||
|
^- toro
|
||||||
|
?> ?=({* * * *} pax)
|
||||||
|
[i.t.pax [%& [[[t.t.t.pax (feel pax val)] ~]]]]
|
||||||
|
:: :: ++fray:space:clay
|
||||||
|
++ fray :: high-level delete
|
||||||
|
|= pax/path
|
||||||
|
^- toro
|
||||||
|
?> ?=({* * * *} pax)
|
||||||
|
[i.t.pax [%& [[[t.t.t.pax [%del ~]] ~]]]]
|
||||||
|
:: :: ++furl:space:clay
|
||||||
|
++ furl :: unify changes
|
||||||
|
|= {one/toro two/toro}
|
||||||
|
^- toro
|
||||||
|
~| %furl
|
||||||
|
?> ?& =(p.one p.two) :: same path
|
||||||
|
&(?=($& -.q.one) ?=($& -.q.two)) :: both deltas
|
||||||
|
==
|
||||||
|
[p.one [%& (weld p.q.one p.q.two)]]
|
||||||
|
:: :: ++tame:space:clay
|
||||||
|
++ tame :: parse kite path
|
||||||
|
|= hap/path
|
||||||
|
^- (unit kite)
|
||||||
|
?. ?=({@ @ @ @ *} hap) ~
|
||||||
|
=+ :* hyr=(slay i.hap)
|
||||||
|
fal=(slay i.t.hap)
|
||||||
|
dyc=(slay i.t.t.hap)
|
||||||
|
ved=(slay i.t.t.t.hap)
|
||||||
|
:: ved=(slay i.t.hap)
|
||||||
|
:: fal=(slay i.t.t.hap)
|
||||||
|
:: dyc=(slay i.t.t.t.hap)
|
||||||
|
tyl=t.t.t.t.hap
|
||||||
|
==
|
||||||
|
?. ?=({$~ $$ $tas @} hyr) ~
|
||||||
|
?. ?=({$~ $$ $p @} fal) ~
|
||||||
|
?. ?=({$~ $$ $tas @} dyc) ~
|
||||||
|
?. ?=({$~ $$ case} ved) ~
|
||||||
|
=+ his=`@p`q.p.u.fal
|
||||||
|
=+ [dis=(end 3 1 q.p.u.hyr) rem=(rsh 3 1 q.p.u.hyr)]
|
||||||
|
?. ?&(?=($c dis) ?=(?($v $w $x $y $z) rem)) ~
|
||||||
|
[~ rem p.u.ved q.p.u.fal q.p.u.dyc tyl]
|
||||||
|
:: :: ++tome:space:clay
|
||||||
|
++ tome :: parse path to beam
|
||||||
|
|= pax/path
|
||||||
|
^- (unit beam)
|
||||||
|
?. ?=({* * * *} pax) ~
|
||||||
|
%+ biff (slaw %p i.pax)
|
||||||
|
|= who/ship
|
||||||
|
%+ biff (slaw %tas i.t.pax)
|
||||||
|
|= dex/desk
|
||||||
|
%+ biff (slay i.t.t.pax)
|
||||||
|
|= cis/coin
|
||||||
|
?. ?=({$$ case} cis) ~
|
||||||
|
`(unit beam)`[~ [who dex `case`p.cis] (flop t.t.t.pax)]
|
||||||
|
:: :: ++tope:space:clay
|
||||||
|
++ tope :: beam to path
|
||||||
|
|= bem/beam
|
||||||
|
^- path
|
||||||
|
[(scot %p p.bem) q.bem (scot r.bem) (flop s.bem)]
|
||||||
|
-- :: space
|
||||||
-- ::clay
|
-- ::clay
|
||||||
:: ::::
|
:: ::::
|
||||||
:::: # dill :: console
|
:::: # dill :: console
|
||||||
@ -2626,8 +2706,10 @@
|
|||||||
:: ::::
|
:: ::::
|
||||||
++ eyre ^?
|
++ eyre ^?
|
||||||
|%
|
|%
|
||||||
:: :: ++bytes
|
:: ::
|
||||||
++ bytes ^? :: bytestream tools
|
:::: ## bytes:eyre :: bytestream tools
|
||||||
|
:: ::::
|
||||||
|
++ bytes ^?
|
||||||
|%
|
|%
|
||||||
:: :: ++moon:bytes:eyre
|
:: :: ++moon:bytes:eyre
|
||||||
++ moon :: mime type to text
|
++ moon :: mime type to text
|
||||||
@ -2689,8 +2771,10 @@
|
|||||||
=+ buf=(rap 3 (turn wol |=(a/tape (crip (weld a `tape`[`@`10 ~])))))
|
=+ buf=(rap 3 (turn wol |=(a/tape (crip (weld a `tape`[`@`10 ~])))))
|
||||||
[(met 3 buf) buf]
|
[(met 3 buf) buf]
|
||||||
-- :: bytes
|
-- :: bytes
|
||||||
:: :: ++js:eyre
|
:: ::
|
||||||
++ js ^? :: json processing
|
:::: ## js:eyre :: json processing
|
||||||
|
:: ::::
|
||||||
|
++ js ^?
|
||||||
|%
|
|%
|
||||||
:: :: ++jo:js:eyre
|
:: :: ++jo:js:eyre
|
||||||
++ jo :: json reparser
|
++ jo :: json reparser
|
||||||
@ -3041,11 +3125,13 @@
|
|||||||
^$(val [%s p.i.viz], rez [':' ^$(val q.i.viz)])
|
^$(val [%s p.i.viz], rez [':' ^$(val q.i.viz)])
|
||||||
==
|
==
|
||||||
-- :: js
|
-- :: js
|
||||||
:: :: xml:eyre
|
:: ::
|
||||||
++ xml ^? :: xml print/parse
|
:::: ## xml:eyre :: xml processing
|
||||||
|
:: ::::
|
||||||
|
++ xml ^?
|
||||||
|%
|
|%
|
||||||
:: :: ++poxo:xml
|
:: :: ++print:xml
|
||||||
++ poxo :: xml printer
|
++ print :: xml printer
|
||||||
=< |=(a/manx `tape`(apex a ~))
|
=< |=(a/manx `tape`(apex a ~))
|
||||||
|_ _[unq=`?`| cot=`?`|]
|
|_ _[unq=`?`| cot=`?`|]
|
||||||
::
|
::
|
||||||
@ -3116,8 +3202,8 @@
|
|||||||
%keygen %link %meta %param %source %track %wbr
|
%keygen %link %meta %param %source %track %wbr
|
||||||
== ==
|
== ==
|
||||||
-- ::
|
-- ::
|
||||||
:: :: ++poxa:xml
|
:: :: ++parse:xml
|
||||||
++ poxa :: xml parser
|
++ parse :: xml parser
|
||||||
=< |=(a/cord (rush a apex))
|
=< |=(a/cord (rush a apex))
|
||||||
|_ ent/_`(map term @t)`[[%apos '\''] ~ ~]
|
|_ ent/_`(map term @t)`[[%apos '\''] ~ ~]
|
||||||
::
|
::
|
||||||
@ -3196,6 +3282,58 @@
|
|||||||
(mask ~[' ' `@`0x9 `@`0xa])
|
(mask ~[' ' `@`0x9 `@`0xa])
|
||||||
-- ::
|
-- ::
|
||||||
-- :: xml
|
-- :: xml
|
||||||
|
:: ::
|
||||||
|
:::: :: anton's wire spells
|
||||||
|
:: ::::
|
||||||
|
++ wired ^?
|
||||||
|
|%
|
||||||
|
:: :: ++dray:wired:eyre
|
||||||
|
++ dray :: load tuple into pat
|
||||||
|
::
|
||||||
|
:: .= ~[p=~.ack q=~.~sarnel r=~..y]
|
||||||
|
:: (dray ~[p=%tas q=%p r=%f] %ack ~sarnel &)
|
||||||
|
::
|
||||||
|
=- |* {a/{@tas (pole @tas)} b/*} ^- (paf a)
|
||||||
|
=> .(b `(tup -.a +.a)`b)
|
||||||
|
?~ +.a [(scot -.a b) ~]
|
||||||
|
[(scot -.a -.b) `(paf +.a)`(..$ +.a +.b)]
|
||||||
|
:- paf=|*(a/(pole) ?~(a $~ {(odo:raid -.a(. %ta)) (..$ +.a)}))
|
||||||
|
^= tup
|
||||||
|
|* {a/@tas b/(pole @tas)}
|
||||||
|
=+ c=(odo:raid a)
|
||||||
|
?~(b c {c (..$ -.b +.b)})
|
||||||
|
:: :: ++raid:wired:eyre
|
||||||
|
++ raid :: demand path odors
|
||||||
|
::
|
||||||
|
:: .= [p=%ack q=~sarnel r=&]
|
||||||
|
:: (raid /ack/~sarnel+.y p=%tas q=%p r=%f ~)
|
||||||
|
::
|
||||||
|
=- |* {a/path b/{@tas (pole @tas)}}
|
||||||
|
?~ +.b `(odo -.b)`(slav -.b -.a)
|
||||||
|
[`(odo -.b)`(slav -.b -.a) (..$ +.a +.b)]
|
||||||
|
^= odo
|
||||||
|
|* a/@tas
|
||||||
|
|= b/*
|
||||||
|
=< a(, (. b)) :: preserve face
|
||||||
|
?+ a @
|
||||||
|
$c @c $da @da $dr @dr $f @f $if @if $is @is $p @p
|
||||||
|
$u @u $uc @uc $ub @ub $ui @ui $ux @ux $uv @uv $uw @uw
|
||||||
|
$s @s $t @t $ta @ta $tas @tas
|
||||||
|
==
|
||||||
|
:: :: ++read:wired:eyre
|
||||||
|
++ read :: parse odored path
|
||||||
|
|
||||||
|
=< |*({a/path b/{@tas (pole @tas)}} ((+> b) a))
|
||||||
|
|* b/{@tas (pole @tas)}
|
||||||
|
|= a/path
|
||||||
|
?~ a ~
|
||||||
|
=+ hed=(slaw -.b i.a)
|
||||||
|
?~ +.b
|
||||||
|
^- (unit (odo:raid -.b))
|
||||||
|
?^(+.a ~ hed)
|
||||||
|
^- (unit {(odo:raid -.b) _(need *(..^$ +.b))})
|
||||||
|
(both hed ((..^$ +.b) +.a))
|
||||||
|
-- :: wired
|
||||||
-- :: eyre
|
-- :: eyre
|
||||||
:: ::
|
:: ::
|
||||||
:::: # ford :: build
|
:::: # ford :: build
|
||||||
@ -3218,85 +3356,6 @@
|
|||||||
|%
|
|%
|
||||||
++ $ %$
|
++ $ %$
|
||||||
--
|
--
|
||||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
|
||||||
:: section 3bF, filesystem interface ::
|
|
||||||
::
|
|
||||||
++ feel :: simple file write
|
|
||||||
|= {pax/path val/cage}
|
|
||||||
^- miso
|
|
||||||
=+ dir=.^(arch %cy pax)
|
|
||||||
?~ fil.dir [%ins val]
|
|
||||||
[%mut val]
|
|
||||||
::
|
|
||||||
++ file :: simple file load
|
|
||||||
|= pax/path
|
|
||||||
^- (unit)
|
|
||||||
=+ dir=.^(arch %cy pax)
|
|
||||||
?~(fil.dir ~ [~ .^(* %cx pax)])
|
|
||||||
::
|
|
||||||
++ foal :: high-level write
|
|
||||||
|= {pax/path val/cage}
|
|
||||||
^- toro
|
|
||||||
?> ?=({* * * *} pax)
|
|
||||||
[i.t.pax [%& [[[t.t.t.pax (feel pax val)] ~]]]]
|
|
||||||
::
|
|
||||||
++ fray :: high-level delete
|
|
||||||
|= pax/path
|
|
||||||
^- toro
|
|
||||||
?> ?=({* * * *} pax)
|
|
||||||
[i.t.pax [%& [[[t.t.t.pax [%del ~]] ~]]]]
|
|
||||||
::
|
|
||||||
++ furl :: unify changes
|
|
||||||
|= {one/toro two/toro}
|
|
||||||
^- toro
|
|
||||||
~| %furl
|
|
||||||
?> ?& =(p.one p.two) :: same path
|
|
||||||
&(?=($& -.q.one) ?=($& -.q.two)) :: both deltas
|
|
||||||
==
|
|
||||||
[p.one [%& (weld p.q.one p.q.two)]]
|
|
||||||
::
|
|
||||||
++ tame :: parse kite path
|
|
||||||
|= hap/path
|
|
||||||
^- (unit kite)
|
|
||||||
?. ?=({@ @ @ @ *} hap) ~
|
|
||||||
=+ :* hyr=(slay i.hap)
|
|
||||||
fal=(slay i.t.hap)
|
|
||||||
dyc=(slay i.t.t.hap)
|
|
||||||
ved=(slay i.t.t.t.hap)
|
|
||||||
:: ved=(slay i.t.hap)
|
|
||||||
:: fal=(slay i.t.t.hap)
|
|
||||||
:: dyc=(slay i.t.t.t.hap)
|
|
||||||
tyl=t.t.t.t.hap
|
|
||||||
==
|
|
||||||
?. ?=({$~ $$ $tas @} hyr) ~
|
|
||||||
?. ?=({$~ $$ $p @} fal) ~
|
|
||||||
?. ?=({$~ $$ $tas @} dyc) ~
|
|
||||||
?. ?=({$~ $$ case} ved) ~
|
|
||||||
=+ his=`@p`q.p.u.fal
|
|
||||||
=+ [dis=(end 3 1 q.p.u.hyr) rem=(rsh 3 1 q.p.u.hyr)]
|
|
||||||
?. ?&(?=($c dis) ?=(?($v $w $x $y $z) rem)) ~
|
|
||||||
[~ rem p.u.ved q.p.u.fal q.p.u.dyc tyl]
|
|
||||||
::
|
|
||||||
++ tome :: parse path to beam
|
|
||||||
|= pax/path
|
|
||||||
^- (unit beam)
|
|
||||||
?. ?=({* * * *} pax) ~
|
|
||||||
%+ biff (slaw %p i.pax)
|
|
||||||
|= who/ship
|
|
||||||
%+ biff (slaw %tas i.t.pax)
|
|
||||||
|= dex/desk
|
|
||||||
%+ biff (slay i.t.t.pax)
|
|
||||||
|= cis/coin
|
|
||||||
?. ?=({$$ case} cis) ~
|
|
||||||
`(unit beam)`[~ [who dex `case`p.cis] (flop t.t.t.pax)]
|
|
||||||
::
|
|
||||||
++ tope :: beam to path
|
|
||||||
|= bem/beam
|
|
||||||
^- path
|
|
||||||
[(scot %p p.bem) q.bem (scot r.bem) (flop s.bem)]
|
|
||||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
|
||||||
:: section 3bG, URL handling ::
|
|
||||||
::
|
|
||||||
++ deft :: parse url extension
|
++ deft :: parse url extension
|
||||||
|= rax/(list @t)
|
|= rax/(list @t)
|
||||||
|- ^- pork
|
|- ^- pork
|
||||||
@ -3312,14 +3371,14 @@
|
|||||||
=+ `{ext/term {@ @} fyl/tape}`u.q.raf
|
=+ `{ext/term {@ @} fyl/tape}`u.q.raf
|
||||||
:- `ext
|
:- `ext
|
||||||
?:(=(~ fyl) ~ [(crip (flop fyl)) ~])
|
?:(=(~ fyl) ~ [(crip (flop fyl)) ~])
|
||||||
::
|
:: :: ++fuel:
|
||||||
++ fuel :: parse fcgi
|
++ fuel :: parse fcgi
|
||||||
|= {bem/beam ced/noun:cred quy/|-($@($~ {p/@t q/@t t/$}))}
|
|= {bem/beam ced/noun:cred quy/|-($@($~ {p/@t q/@t t/$}))}
|
||||||
^- epic
|
^- epic
|
||||||
=+ qix=|-(`quay`?~(quy quy [[p q]:quy $(quy t.quy)]))
|
=+ qix=|-(`quay`?~(quy quy [[p q]:quy $(quy t.quy)]))
|
||||||
[(malt qix) ((hard cred) ced) bem /]
|
[(malt qix) ((hard cred) ced) bem /]
|
||||||
::
|
:: ::
|
||||||
++ sifo :: 64-bit encode
|
++ sifo ::
|
||||||
|= tig/@
|
|= tig/@
|
||||||
^- tape
|
^- tape
|
||||||
=+ poc=(~(dif fo 3) 0 (met 3 tig))
|
=+ poc=(~(dif fo 3) 0 (met 3 tig))
|
||||||
@ -3334,7 +3393,7 @@
|
|||||||
[(cut 3 [d 1] cha) $(pad (rsh 0 6 pad))]
|
[(cut 3 [d 1] cha) $(pad (rsh 0 6 pad))]
|
||||||
(weld (flop (slag poc sif)) (reap poc '='))
|
(weld (flop (slag poc sif)) (reap poc '='))
|
||||||
::
|
::
|
||||||
++ ofis :: XX broken
|
++ ofis
|
||||||
=- |=(a/cord (rash a fel))
|
=- |=(a/cord (rash a fel))
|
||||||
=< fel=(cook |~(a/@ `@t`(swp 3 a)) (bass 64 .))
|
=< fel=(cook |~(a/@ `@t`(swp 3 a)) (bass 64 .))
|
||||||
=- (cook welp ;~(plug (plus siw) (stun 0^2 (cold %0 tis))))
|
=- (cook welp ;~(plug (plus siw) (stun 0^2 (cold %0 tis))))
|
||||||
@ -3347,44 +3406,6 @@
|
|||||||
(cold 63 (just '/'))
|
(cold 63 (just '/'))
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
:: .= ~[p=~.ack q=~.~sarnel r=~..y]
|
|
||||||
:: (dray ~[p=%tas q=%p r=%f] %ack ~sarnel &)
|
|
||||||
++ dray :: load tuple into path
|
|
||||||
=- |* {a/{@tas (pole @tas)} b/*} ^- (paf a)
|
|
||||||
=> .(b `(tup -.a +.a)`b)
|
|
||||||
?~ +.a [(scot -.a b) ~]
|
|
||||||
[(scot -.a -.b) `(paf +.a)`(..$ +.a +.b)]
|
|
||||||
:- paf=|*(a/(pole) ?~(a $~ {(odo:raid -.a(. %ta)) (..$ +.a)}))
|
|
||||||
tup=|*({a/@tas b/(pole @tas)} =+(c=(odo:raid a) ?~(b c {c (..$ -.b +.b)})))
|
|
||||||
::
|
|
||||||
:: .= [p=%ack q=~sarnel r=&]
|
|
||||||
:: (raid /ack/~sarnel+.y p=%tas q=%p r=%f ~)
|
|
||||||
++ raid :: demand path odors
|
|
||||||
=- |* {a/path b/{@tas (pole @tas)}}
|
|
||||||
?~ +.b `(odo -.b)`(slav -.b -.a)
|
|
||||||
[`(odo -.b)`(slav -.b -.a) (..$ +.a +.b)]
|
|
||||||
^= odo
|
|
||||||
|* a/@tas
|
|
||||||
|= b/*
|
|
||||||
=< a(, (. b)) :: preserve face
|
|
||||||
?+ a @
|
|
||||||
$c @c $da @da $dr @dr $f @f $if @if $is @is $p @p
|
|
||||||
$u @u $uc @uc $ub @ub $ui @ui $ux @ux $uv @uv $uw @uw
|
|
||||||
$s @s $t @t $ta @ta $tas @tas
|
|
||||||
==
|
|
||||||
::
|
|
||||||
++ read :: parse odored path
|
|
||||||
=< |*({a/path b/{@tas (pole @tas)}} ((+> b) a))
|
|
||||||
|* b/{@tas (pole @tas)}
|
|
||||||
|= a/path
|
|
||||||
?~ a ~
|
|
||||||
=+ hed=(slaw -.b i.a)
|
|
||||||
?~ +.b
|
|
||||||
^- (unit (odo:raid -.b))
|
|
||||||
?^(+.a ~ hed)
|
|
||||||
^- (unit {(odo:raid -.b) _(need *(..^$ +.b))})
|
|
||||||
(both hed ((..^$ +.b) +.a))
|
|
||||||
::
|
|
||||||
++ urle :: URL encode
|
++ urle :: URL encode
|
||||||
|= tep/tape
|
|= tep/tape
|
||||||
^- tape
|
^- tape
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user