mirror of
https://github.com/urbit/shrub.git
synced 2025-01-05 19:46:50 +03:00
Various fixes and improvements.
This commit is contained in:
parent
27bf640e79
commit
a608e99ce0
@ -435,7 +435,7 @@
|
||||
vix=(bex +((cut 0 [25 2] mag))) :: width of sender
|
||||
tay=(cut 0 [27 5] mag) :: message type
|
||||
==
|
||||
?> =(2 vez)
|
||||
?> =(3 vez)
|
||||
?> =(chk (end 0 20 (mug bod)))
|
||||
:+ [(end 3 wix bod) (cut 3 [wix vix] bod)]
|
||||
(kins tay)
|
||||
@ -455,7 +455,7 @@
|
||||
=+ tay=(ksin q.kec)
|
||||
%+ mix
|
||||
%+ can 0
|
||||
:~ [3 2]
|
||||
:~ [3 3]
|
||||
[20 (mug bod)]
|
||||
[2 yax]
|
||||
[2 qax]
|
||||
@ -1043,7 +1043,7 @@
|
||||
++ gnaw :: gnaw:am
|
||||
|= [kay=cape ryn=lane pac=rock] :: process packet
|
||||
^- [p=(list boon) q=fort]
|
||||
?. =(2 (end 0 3 pac)) [~ fox]
|
||||
?. =(3 (end 0 3 pac)) [~ fox]
|
||||
=+ kec=(bite pac)
|
||||
?: (goop p.p.kec) [~ fox]
|
||||
?. (~(has by urb.ton.fox) q.p.kec)
|
||||
|
@ -1260,7 +1260,7 @@
|
||||
|= [for=logo toe=tube]
|
||||
^- seam
|
||||
:^ %fun for
|
||||
toe(s (weld s.toe `path`~[~(rent co (flux [nep ~] quy))]))
|
||||
toe(s (weld s.toe `path`[~(rent co (flux [nep ~] quy)) %web ~]))
|
||||
?. won ~
|
||||
:_ ~
|
||||
=- =+ pey=(cat 3 (end 3 2 nep) %v)
|
||||
|
@ -518,6 +518,11 @@
|
||||
?: =(too for) (fine cof vax)
|
||||
?: &(=(%hoot too) =(%hoon for))
|
||||
(fine cof !>(ream))
|
||||
?: |(=(%noun for) =(%$ for))
|
||||
%+ cope ((lake too bek) cof vax)
|
||||
|= [cof=cafe vux=(unit vase)]
|
||||
?~ vux (flaw cof [%leaf "ford: link {<too>}"]~)
|
||||
(fine cof u.vux)
|
||||
%+ cope
|
||||
(make cof %boil %gate [[p.bek %main r.bek] /[too]/tan/[for]/sys] ~)
|
||||
|= [cof=cafe cay=cage]
|
||||
|
@ -1465,7 +1465,6 @@
|
||||
::
|
||||
++ fain :: path restructure
|
||||
|= [hom=path raw=path]
|
||||
~& [%fain hom raw]
|
||||
=+ bem=(need (tome raw))
|
||||
=+ [mer=(flop s.bem) moh=(flop hom)]
|
||||
|- ^- (pair beam path)
|
||||
@ -1476,7 +1475,6 @@
|
||||
::
|
||||
++ fest :: web synthesizer
|
||||
|= [hom=path raw=path]
|
||||
~& %fest
|
||||
|* yax=$+(epic *)
|
||||
(yax (fuel (fain hom raw)))
|
||||
::
|
||||
@ -1488,9 +1486,8 @@
|
||||
++ fuel :: parse fcgi
|
||||
|= [bem=beam but=path]
|
||||
^- epic
|
||||
~& %fuel
|
||||
?> ?=([@ *] but)
|
||||
=+ dyb=(slay i.but)
|
||||
?> ?=([%web @ *] but)
|
||||
=+ dyb=(slay i.t.but)
|
||||
?> ?& ?=([~ %many *] dyb)
|
||||
?=([* * *] p.u.dyb)
|
||||
:: ?=([%$ %tas *] i.p.u.dyb)
|
||||
@ -1517,7 +1514,7 @@
|
||||
:* (~(gas by *(map cord cord)) quy)
|
||||
ced
|
||||
-.bem
|
||||
t.but
|
||||
t.t.but
|
||||
nyp
|
||||
==
|
||||
|
||||
|
@ -25,8 +25,6 @@
|
||||
::
|
||||
%- (fest /synth/doc %)
|
||||
|= pic=epic
|
||||
~& [%synth-cen %]
|
||||
~& [%synth-beam (tome %)]
|
||||
=+ unt=|=(a=cord (biff (~(get by qix.pic) a) |=(b=cord (slaw %ud b))))
|
||||
~! unt
|
||||
=+ moo=(both (unt %foo) (unt %bar))
|
||||
|
Loading…
Reference in New Issue
Block a user