!: :: %eyre, http servant !? 164 :::: |= pit=vase ^- vane :: kernel instrument => =~ |% :: structures ++ bolo :: eyre state $: gub=@t :: random identity ged=duct :: client interface ney=@uvI :: rolling entropy dop=(map host ship) :: host aliasing own=(map ship serf) :: domestic servers fon=(map ship rote) :: foreign servers ask=[p=@ud q=(map ,@ud ,[p=duct q=hiss])] :: outgoing by number kes=(map duct ,@ud) :: outgoing by duct == :: ++ cyst :: client session $: ced=cred :: credential cug=(list ,@t) :: unacked cookies lax=@da :: last used rey=[p=@ud q=(map ,@ud pimp)] :: live requests == :: ++ dude ,[p=@tas q=@] :: client identity ++ loco ,[p=? q=(unit ,@tas) r=path] :: logical construct ++ pest :: request in progress $| $? %new :: virgin == :: $% [%err p=@ud q=(list tank)] :: error report [%fin p=love] :: ready to send [%raw p=hiss] :: wild url == :: ++ pimp :: traced request $: ful=? :: | === HEAD hen=duct :: event trace sam=seam :: logical request pez=pest :: request state == :: ++ rote :: remote server $: rem=[p=@ud q=(map ,@ud ,[p=duct q=httx])] :: active remotes kut=(map duct ,@ud) :: duct returns == :: ++ serf :: local server $: pef=@t :: server prefix wup=(map hole cyst) :: secure sessions cah=(map cash vase) :: compilation cache :: wez=(map duct root) :: all routes == :: -- :: |% ++ colt :: prune to save |= bol=bolo %_(bol own (~(run by own.bol) |=(a=serf a(cah ~)))) :: ++ coss :: cookie search |= [nam=@t mah=math] ^- (unit hole) =+ ^= cok ^- (list ,@t) =+ cok=(~(get by mah) 'cookie') ?~(cok ~ u.cok) |- ^- (unit hole) ?~ cok ~ =+ mar=`(unit (list ,[p=@t q=@t]))`(rush i.cok cock:epur) ?~ mar $(cok t.cok) |- ^- (unit hole) ?~ u.mar ^$(cok t.cok) ?:(=(nam p.i.u.mar) [~ q.i.u.mar] $(u.mar t.u.mar)) :: ++ ecco :: eat headers |= hed=(list ,[p=@t q=@t]) =+ mah=*math |- ^- math ?~ hed mah =+ cus=(cass (rip 3 p.i.hed)) =+ zeb=(~(get by mah) cus) $(hed t.hed, mah (~(put by mah) cus ?~(zeb [q.i.hed ~] [q.i.hed u.zeb]))) :: ++ loft :: love to response |= luv=love ^- httr ?- -.luv %mid [200 ~[content-type/(moon p.luv)] [~ q.luv]] %ham [200 ~[content-type/'text/html'] [~ (tact (xmlt p.luv ~))]] %raw p.luv %wan !! %zap :+ p.luv ~[content-type/'text/plain'] :- ~ %- tell |- ^- wall ?~ q.luv ~ (weld (~(win re i.q.luv) 0 120) $(q.luv t.q.luv)) == -- |% :: functions ++ ye :: per event =| $: $: $: wru=(unit writ) :: event authority tea=wire :: event place hen=duct :: event floor fav=card :: event data == :: $: now=@da :: event date eny=@ :: unique entropy sky=$+(* (unit)) :: system namespace == :: mow=(list move) :: pending actions == :: bolo :: all vane state == :: =* bol -> |% ++ abet ^- [(list move) bolo] [(flop mow) bol] :: ++ adit .(ney (mix eny ney)) :: ++ apex |- ^+ + ?+ -.fav ~|([%ye-bad -.fav] !!) :: %born +(ged hen) :: register external %that :: outbound response ?> ?=([@ @ @ ~] tea) :: =+ :* our=(slaw %p i.tea) :: ship ses=i.t.tea :: session num=(slaw %ud i.t.t.tea) :: request in session == :: !! :: %them :: outbound request ?~ p.fav =+ sud=(need (~(get by kes) hen)) %= +.$ mow :_(mow [~ ged [%thus sud ~]]) q.ask (~(del by q.ask) sud) kes (~(del by kes) hen) == %= +.$ mow :_(mow [~ ged [%thus p.ask p.fav]]) p.ask +(p.ask) q.ask (~(put by q.ask) p.ask hen u.p.fav) kes (~(put by kes) hen p.ask) == :: %they :: inbound response =+ kas=(need (~(get by q.ask) p.fav)) %= +.$ mow :_(mow [~ p.kas [%thou q.fav]]) q.ask (~(del by q.ask) p.kas) == :: %this :: inbound request =* sec p.fav :: ? :: https bit =* heq r.fav :: httq :: request content =+ ryp=`quri`(rash q.heq zest:epur) =+ mah=(ecco r.heq) =+ ^= pul ^- purl ?- -.ryp & ?>(=(sec p.p.p.ryp) p.ryp) | =+ hot=(~(get by mah) %host) ?> ?=([~ @ ~] hot) [[sec (rash i.u.hot thor:epur)] p.ryp q.ryp] == (hell pul +.fav [p.heq mah s.heq]) == :: ++ doss :: host to ship |= hot=host ^- (unit ship) =+ gow=(~(get by dop) hot) ?^ gow gow ?. &(?=(& -.hot) ?=(^ p.hot)) ~ (rush (cat 3 '~' i.p.hot) fed:ag) :: ++ fail :: request failed |= [sas=@ud str=tape] ^+ +> %- muff :- %thou ^- httr [sas ~[content-type/'text/plain'] [~ (tact str)]] :: ++ hell :: request, no ship |= [pul=purl hyx=httx moh=moth] ^+ +> =^ wiq q.q.pul ?~ q.q.pul [~ ~] =+ nam=(cat 3 '~' i.q.q.pul) =+ gow=(rush i.q.q.pul fed:ag) ^- [(unit ship) (list ,@t)] ?~(gow [~ q.q.pul] [gow t.q.q.pul]) =+ oar=`(unit ship)`?^(wiq wiq (doss r.p.pul)) ?~ oar (horn pul q.hyx moh) ?. (home u.oar) (hork u.oar hyx) (huff u.oar ?=(@ wiq) q.hyx pul moh) :: ++ home :: do we own? |= who=ship ^- ? & :: ++ hork :: remote request |= [him=ship hyx=httx] ^+ +> ~& [%hork him] !! :: ++ horn :: irregular request |= [pul=purl cip=clip moh=moth] ^+ +> =- (fail 400 "urbit: url {} does not match a vessel") ^= fac 0w89.wgGV4.jAl90.00003.sV4OG.IJjfa.1vYpi.gRxB9.3m6kA.dopig. RxB93.m6kAd.opigR.xB93m.6kAdo.pigRx.B93m6.kAdop.igRxB.93m6k. Adopi.gRxBf.vGSfy.m8hQj.T-DiD.7kqvH.vEpA3.3vH-C.in~Tq.l8U0n. 1FVhj.w9E1A.NIF6w.4j9v~.VZ0~B.9flkB.IY90B.-ieSV.Ky8Q~.4~07s. JcXFC.DtI-1.GGz-1.V-olV.g3wsv.ZCQM1.BJbVj.Vwiv0.uo7Gh.4qsxA. 92ZYU.tJ5uH.yiIzV.FwvJR.UUq6z.cpKIG.Hck9v.qGDm1.PY2rM.itxLB. fn0Bo.5DO8x.oO7KE.kYh-P.NiKp1.HT88j.Mu3ZK.ciKsU.TnlkV.0Zo77. 12ciy.nY3dM.7nDnY.GVgGh.ZllpO.SFHFb.p1Ae0.uUpXV.eqFvS.pkBRl. jv0MP.ilRHP.1HwtK.GFptt.2KdpP.RsYqI.wRHEG.j~LZQ.I06qJ.fP0Pp. 77qjo.s0PU0.rGGg6.lgNvc.~CZE~.bSp9j.EGHF~.UqYB6.l4Y~Z.P~GGE. LwrJs.ZvYV-.U4Wh4.04dws.6HeuZ.2ZF7A.y4MN5.3vsCj.QHzjW.4lflk. WU6X0.AmMws.vbMfB.3e1s~.aeE7W.0hQPH.ODvMf.cvgzb.Y15Ah.01384. YwVPT.KzILB.PlaqN.pNlvw.fdQ79.~mPpo.YaHqw.fnWGB.QYM4F.w3E0b. 0o~n-.faydD.zlllI.0nU3D.w5rlI.4nrSG.VkhPM.NTkpa.eoXzw.9AEYN. auZGt.99gxL.8RlsI.aXMXX.tFVhX.V4kj8.yczjh.faRI3.JTg1H.-0uZM. JA6rR.z0~pO.uXiSg.rvU27.A58MU.TBijQ.23F1J.CCIYE.IO8w-.cMlMA. hvKh4.zY16M.gjRlk.v--9h.TNNRR.HhIGo.8kZXk.Wb74j.faHlk.6V-Vw. jMan8.yb37R.Q2h42.Or3Nw.Pp39w.jZ--3.-jwZH.U~3Za.Uu0u6.bNAOP. U2jux.Jqo2R.O8x1~.ecZvL.30ug~.qpoFw.vwtqD.Vb6EI.cZQyO.EN-xl. nlsLC.dT099.apOh5.SEeDz.07-GE.xFzZk.KcmCl.SJWF5.v3u1x.Uq1Cj. tV~hG.YuGGb.SgpdR.xHaBh.S3eEv.q0mSg.RZh8s.wxhnk.EcNvW.GccZQ. yO0Jb.n18hs.BLFx2.iigqf.AhsKS.LWqby.TUEmv.gmmhR.6DW3w.uLR0Y. QQBC8.YoQ63.g8m8i.iq3B-.SxwLn.jLbh3.l7cq3.eVQmV.5O2df.SXBkv. Y3LLb.denQq.GvR0R.P3Gh4.2iiq2.h-srW.o0ZZ-.HIrdj.npm5n.pnv07. vyT77.43WGP.Bciiq.zt1cI.7A4xB.zK9xm.-tV6x.ZdA6P.pheXQ.aSz4X. Zj2bS.C1UPx.~c1dS.xwF3b.6jZ-M.WI2eQ.e69Qw.DGFly.tTze-.GGbZU. qJ-m-.fD8yI.Adktz.oqTsF.F7ltA.6no6T.~fWJU.0gRsp.-P88x.a9I9b. Adkvz.ory8J.Ouhfu.H8c-U.2HLgE.Wi4xH.3AEGK.VjkS-.Z5hMx.UN5o~. Y~EWp.7LGox.IQxpt.cgONH.CEyKJ.jjTdM.GJ9HL.RloJZ.xuRtL.JZ7jg. ZZj6w.2AOoM.CENdS.xxegZ.RzTdh.i-1hZ.N1HPF.EqHU0.XzN6K.mBedG. uvBiL.HqpmY.Bl9z2.qzqA8.WzKqz.h~S1J.K2QHQ.Dy-CM.7RO0l.QksW3. mpFnx.fy-Pa.p7xhW.SboOd.fOBon.mCgSX.Z38Qe.dMHUC.79wje.wziG5. 6Xtn7.ksEHO.xkBrO.e7yFe.vNaYx.FgDsI.BS9y8.AELs-.C9-DB.FAZI-. wKt2N.8qQhA.Apxm7.O5yIB.X51l9.Kduxm.SRA5N.UYi6I.MrySX.RZXrT. 8UcY2.zUAfu.SOcUK.vZrDL.vBAHb.eOo~N.7J3sR.eJhSo.4~YE1.5k0h5. 51RqS.b0jyR.RfhON.4Dt07.idahL.5isLK.eeBv3.znQxC.9LXkE.xKghP. Ia-R0.AgmB5.pGGIA.slCGu.CtR5q.NrzHh.1bscz.8CsWC.KH4it.LLrWm. UlRdr.lUGji.W76xr.kVAmO.6oAYS.7nXX~.kfeM2.TSS2m.JOCAb.sFFWg. 4xH3C.MDKh4.FZso1.tXwUJ.Taq5K.8yS24.xHr4M.Kvu~E.HTpka.-Zg3f. KEXFS.qCKwh.l1KRN.c9H8A.HFcSw.rePCF.Iy93m.njkMZ.IEyiq.lFq3y. gRFzg.uL9tz.zP8du.Y1ZWP.PtQ6G.gzIt5.K8hNz.UAdpM.Q43L6.IMHx5. N8qPh.EfX8G.UC~68.S93ms.d18Vh.adkOx.GLkTI.khFcL.ZWG5G.Adoeh. hx~As.hci6I.Uq2pG.ykqHO.yUAdq.gQ7FD.4sOjn.IwGGw.UAdqo.Q4jVN. eJP8c.xQlm~.8nJ1y.gRF3g.oSPAM.fuqE0.M~23y.gRHyo.gngjF.ceM3n. V~uQy.93m-9.xa-3N.T80~v.GzR-g.HqBGA.mi4xH.3AMOL.mCjT5.Blqab. 60ruw.HDV~k.Tj~fX.Swx8u.ZFOoi.m1GUF.Gs4-q.0kfxh.H8yjt.OCXGL. PYGTY.23LgI.Wl4x6.8bI3e.MXeVb.h6rL9.DXWyt.8wJ8W.HalWR.itqp3. pkrSC.8bQSM.HLV2J.G7sCj.QtGEi.AkSwI.A4P0J.gJ85j.MuMUY.nkT45. -rkqv.BFBFU.KGd98.qRs~A.iblOv.mVKWx.Z19cs.AxHc6.UIKJc.NIHW8. EnOEy.fygRG.29bbR.FBDVL.Ter6T.SBKat.MFBPE.AfuO9.kBHV~.QstE-. VaYNV.qpfhL.sFHj0.eFphG.U6Hw6.EsVox.7kpks.N6bRk.GMLY~.HWBVj. Snx6X.0GY2b.GhzmW.udfRF.jTgLC.uPWGL.fIwM6.16Ah4.NFZjz.Ftln7. KQ-k-.0SO8H.xrqcw.MXZG9.6BZsJ.zULJU.NPDy3.aewMa.3auiA.Ysei3. YQJGB.PlCAQ.S5YPU.uGEtI.wQrw1.cy8Sd.bFYuX.GGWZS.DSq1Y.O8ELq. cR6kA.dopig.RxB93.m6kAd.opigR.xB93m.6kAdo.pigRx.B93m6.kAdop. igRxB.93m6k.Adopi.gRxB9.3m6kA.doSsI.1Tves.7Fb5l.hneus.VDLsZ. ~P3DD.D~CpI.BALPA.rxSTT.fuXa4.gP3Yv.sPKOY.KSMKP.balqk.xjbEH. idkbq.Elo0N.dHjkM.vEBiq.BC-Rb.IKMiB.JiaoS.x3mLy.Jr6P5.ToiS2. gAz4y.qNHiI.k7WIl.9EJGb.iJ2Tp.NQ5H5.VpSni.By-OX.TfvYs.plRic. rpPJD.7xkgk.h9BMw.001EY.XFJDs.CYKpn.1xoTd.HrCAK.tTtT0.6lOon. tQpCZ.jt5x5.t1A00.01UCO.x20ts.d003n.3g00s.RB8s0.A0002.8p0xY. 20w82.5h9gD.c4000.0l9ny.s0000.0o8p0.0006g.0001i.h4x93.g0000. Eq2wR.7jB29 :: ++ huff :: request by ship |= [our=ship hey=? cip=clip pul=purl moh=moth] =* sec p.p.pul =+ ^= sef ^- serf =+ suf=(~(get by own) our) ?^ suf u.suf =+ sef=*serf sef(pef (cat 3 gub (rsh 3 1 (scot %p our)))) =+ ^= saw ^- [p=hole q=cyst] =+ lig=(coss pef.sef q.moh) ?^ lig =+ cyz=(need (~(get by wup.sef) u.lig)) [u.lig cyz(cug ~)] =+ ses=(rsh 3 1 (scot %p (end 6 1 ney))) :- ses ^- cyst :* ^- cred :* [sec hey q.p.pul r.p.pul] ~ (rsh 3 1 (scot %p (end 6 1 (shaf %oryx ses)))) :: =+ lag=(~(get by q.moh) %accept-language) ?~(lag ~ ?~(u.lag ~ [~ i.u.lag])) :: cip ~ == :: :_ ~ %^ cat 3 (cat 3 (cat 3 pef.sef '=') ses) :: (cat 3 '; HttpOnly' ?.(sec '' '; Secure')) '; HttpOnly' :: now [1 ~] == abet:work:(~(into ya [our p.saw] sef q.saw) pul moh) :: ++ muff :: return card |= fav=card +>(mow :_(mow [wru hen fav])) :: ++ ya :: session engine =| [[our=ship ses=hole] serf cyst] =* sef ->- =* cyz ->+ |% ++ abet :: resolve engine ^+ ..ya %= ..ya own (~(put by own) our sef(wup (~(put by wup) ses cyz))) == :: ++ flux :: credential caboose |= quy=quay ^- coin :* %many [%blob ced] |- ^- (list coin) ?~ quy ~ [[%$ %t p.i.quy] [%$ %t q.i.quy] $(quy t.quy)] == :: ++ funk :: functional request |= [imp=? fur=(unit term) paw=(list ,@t) quy=quay] ^- (unit seam) %+ bind ^- (unit ,[logo tube]) =+ ^= zac ^- (unit ,[p=@ta q=path]) ?: imp [~ (scot %da now) paw] ?~ paw ~ =+ zac=(slay i.paw) ?. ?=([~ %$ ?(%ud %da %tas) *] zac) ~ [~ i.paw t.paw] ?: ?| ?=(~ zac) ?=(~ q.u.zac) !(levy t.q.u.zac (sane %ta)) == ~ :+ ~ ?~(fur %html u.fur) ^- tube :* (scot %p our) i.q.u.zac p.u.zac t.q.u.zac == |= [for=logo toe=tube] ^- seam [%fun for toe(s (weld s.toe `path`~[~(rent co (flux quy))]))] :: ++ holy :: structured request |= [pul=purl moh=moth] ^- (unit seam) ?~ q.q.pul ~ =* nep i.q.q.pul =* paw t.q.q.pul =+ [one=(end 3 1 nep) two=(cut 3 [1 1] nep) tri=(cut 3 [2 1] nep)] ?. ?& ?- p.moh %conn | :: connect %delt | :: delete %get =(%g one) :: get %head =(%g one) :: head %opts | :: options %post =(%p one) :: post %put =(%t one) :: put %trac | :: trace == ?+ two ~ %e & :: stranger %g p.p.pul :: guest %n !=(~ aut.ced) :: neighbor %s =+ urb=(~(get by aut.ced) %$) :: self ?~(urb | (levy u.urb |=(a=@ =(our a)))) == ?= $? %a :: application %c :: console %f :: functional %l :: login %n :: now == tri =(3 (met 3 nep)) == ~ ?- tri ?(%f %n) (funk =(%n tri) p.q.pul paw r.pul) ?(%a %c %l) !! == :: ++ lace :: load and execute |= [pax=path sam=vase] ^- [gank _+>] =^ hum +>.$ (lack pax) :_ +>.$ =+ mud=(need hum) ?: ?=(| -.mud) mud (mule |.((slam p.mud sam))) :: ++ lack :: probe/load |= pax=path ^- [(unit gank) _+>] =+ ans=(sky %cz pax) ?~ ans [~ +>.$] =+ ank=((hard ankh) u.ans) ?~ q.ank [~ +>.$] =+ huc=(~(get by cah.sef) p.u.q.ank) ?^ huc [[~ %& u.huc] +>.$] =+ mud=(much pax q.u.q.ank) :- [~ mud] ?: ?=(| -.mud) +>.$ +>.$(cah.sef (~(put by cah.sef) p.u.q.ank p.mud)) :: ++ lend :: load directory node |= pax=path ^- arch ((hard arch) (need (sky %cy pax))) :: ++ liar :: load file as vase |= pax=path ^- vase =+ fil=(lick pax) :_(fil ?^(fil [%cell %noun %noun] [%atom %$])) :: ++ lich :: simple directory |= pax=path ^- (list ,@tas) (turn (~(tap by r:(lend pax)) ~) |=([a=@tas b=~] a)) :: ++ lick :: load file |= pax=path (need (sky %cx pax)) :: ++ lily :: translation targets |= [pre=path for=@tas] ^- (list ,@tas) (lich :(weld pre `path`/tan `path`/[for])) :: ++ lion :: translation graph |= [too=@tas pre=path fro=(list ,@tas)] ^- (unit (list ,@tas)) =| war=(set ,@tas) =< -:(apex fro) |% ++ apex |= rof=(list ,@tas) ^- [(unit (list ,@tas)) _+>] ?~ rof [~ +>] =^ orf +> (apse i.rof) ?^(orf [orf +>.$] $(rof t.rof)) :: ++ apse |= for=@tas ^- [(unit (list ,@tas)) _+>] ?: =(for too) [[~ [too ~]] +>] ?: (~(has in war) for) [~ +>] =. war (~(put in war) for) =^ orf +>.$ (apex (lily pre for)) :_ +>.$ ?~(orf ~ [~ [for u.orf]]) -- :: ++ link :: translate |= [too=@tas pre=path for=@tas vax=vase] ^- [(unit gank) _+>] ?: =(for too) [[~ %& vax] +>.$] =+ wuy=(lion too pre [for ~]) ?~ wuy [~ +>.$] ?> ?=(^ u.wuy) ?> =(for i.u.wuy) |- ^- [(unit gank) _+>.^$] ?~ t.u.wuy [[~ %& vax] +>.^$] =^ mud +>.^$ (lite i.t.u.wuy pre for vax) ?: ?=(| -.mud) [[~ mud] +>.^$] $(t.u.wuy t.t.u.wuy, for i.t.u.wuy, vax p.mud) :: ++ lino :: translate |= [too=@tas pre=path for=@tas vax=vase] ^- [gank _+>] =^ gun +>.$ (link too pre for vax) :_ +>.$ ?^ gun u.gun [%| [[%leaf "can't make {} from {}"] ~]] :: ++ lite :: step translate |= [too=@tas pre=path for=@tas vax=vase] ^- [gank _+>] (lace :(weld pre `path`/tan `path`/[for] `path`/[too] `path`/hoon) vax) :: ++ loan :: normalize vase |= [for=@tas pre=path vax=vase] ^- [gank _+>] =^ mof +>.$ (lack :(weld pre `path`/nor `path`/[for] `path`/hoon)) :_ +>.$ ?~ mof [%& vax] ?: ?=(| -.u.mof) u.mof =+ pud=(mule |.((~(play ut `type`p.p.u.mof) [%cnzy %$]))) ?: ?=(| -.pud) pud ?: (~(nest ut `type`p.pud) | p.vax) [%& vax] (mule |.((slam `vase`p.u.mof vax))) :: ++ lobo :: vase to love |= [for=logo pre=path vax=vase] ^- [(each love (list tank)) _+>] =^ mud +>.$ (lino %mime pre for vax) :_ +>.$ ?: ?=(| -.mud) mud [%& %mid (mite -.q.p.mud) (octs +.q.p.mud)] :: ++ loch :: validate vase |= [for=@tas pre=path vax=vase] ^- [gank _+>] =^ wav +>.$ (lack :(weld pre `path`/val `path`/[for] `path`/hoon)) :_ +>.$ ?~ wav [%& vax] ?: ?=(| -.u.wav) u.wav (mule |.((slam `vase`p.u.wav vax))) :: ++ loot :: load extension tree |= [pax=path one=(unit logo)] ^- (list path) =| [tex=path all=(list path)] |- ^- (list path) ?^ one =+ don=`path`[u.one ~] =+ arc=(lend (weld pax don)) ?~(q.arc ~ [[u.one tex] ~]) =+ arc=(lend pax) =+ ryx=(~(tap by r.arc) ~) =- ?~(q.arc orx [tex orx]) ^= orx |- ^- (list path) ?~ ryx all %= ^$ one [~ %hoon] pax (weld pax `path`[p.i.ryx ~]) tex [p.i.ryx tex] all $(ryx t.ryx) == :: ++ lope :: normalize/validate |= [for=@tas pre=path vax=vase] ^- [gank _+>] =^ mud +>.$ (loan for pre vax) ?: ?=(| -.mud) [mud +>.$] (loch for pre p.mud) :: ++ loth :: direct hard |= [for=logo pre=path pax=path] ^- [gank _+>] (lope for pre (liar pax)) :: ++ loti :: translated soft |= [too=logo for=logo pre=path pax=path sam=vase] ^- [gank _+>] =^ mud +>.$ (loto for pre pax sam) ?: ?=(| -.mud) [mud +>.$] (lino too pre for p.mud) :: ++ loto :: direct soft |= [for=logo pre=path pax=path sam=vase] ^- [gank _+>] =^ mud +>.$ (lace pax sam) ?: ?=(| -.mud) [mud +>.$] (lope for pre p.mud) :: ++ lots :: translated hard |= [too=logo for=logo pre=path pax=path] ^- [gank _+>] =^ mud +>.$ (lope for pre (liar pax)) ?: ?=(| -.mud) [mud +>.$] (lino too pre for p.mud) :: ++ loud :: synthesis search |= [syn=? for=logo pre=path mid=path] ^- (list ,[p=path q=path r=loco]) =| suf=path |- ^- (list ,[p=path q=path r=loco]) =+ pax=(weld pre (flop mid)) =+ lot=(loot pax ?:(syn ~ [~ for])) =- ?^ tol tol ?~ mid ~ $(mid t.mid, suf [i.mid suf]) ^= tol |- ^- (list ,[p=path q=path r=loco]) ?~ lot ~ =+ mor=$(lot t.lot) ?~ i.lot mor =+ axp=(weld pax `path`(flop i.lot)) ?: &(syn ?=([%hoon @ ~] i.lot)) :_(mor [mid suf | ?:(=(for i.t.i.lot) ~ [~ i.t.i.lot]) axp]) ?: ?=([@ ~] i.lot) :_(mor [mid suf & ?:(=(for i.i.lot) ~ [~ i.i.lot]) axp]) mor :: ++ loup :: weak synthesis |= [for=logo pre=path mid=path] ^- [(unit gank) _+>] =+ syt=(weld pre `path`[%syn ~]) =+ ^= luc ^- (list ,[p=path q=path r=loco]) =+ luc=(loud | for pre mid) ?. ?=(~ luc) luc (loud & for syt mid) ?: =(~ luc) [~ +>.$] =+ ^= waz |- ^- $: p=(list ,[p=path q=path r=path]) q=(list ,[p=path q=path r=path]) r=(list ,[p=path q=path r=[p=@tas q=path]]) s=(list ,[p=path q=path r=[p=@tas q=path]]) == ?~ luc [~ ~ ~ ~] =+ mor=$(luc t.luc) ?- -.r.i.luc & ?~ q.r.i.luc [[[p.i.luc q.i.luc r.r.i.luc] p.mor] q.mor r.mor s.mor] :+ p.mor q.mor [[[p.i.luc q.i.luc u.q.r.i.luc r.r.i.luc] r.mor] s.mor] | ?~ q.r.i.luc [p.mor [[p.i.luc q.i.luc r.r.i.luc] q.mor] r.mor s.mor] :+ p.mor q.mor [r.mor [[p.i.luc q.i.luc u.q.r.i.luc r.r.i.luc] s.mor]] == =^ mud +>.$ ?^ p.waz :: direct hard (loth for pre r.i.p.waz) ?^ q.waz :: direct soft %- loto :* for pre r.i.q.waz !>([for pre p.i.q.waz q.i.q.waz]) == ?^ r.waz :: translated hard (lots for p.r.i.r.waz pre q.r.i.r.waz) ?^ s.waz :: translated soft %- loti :* for p.r.i.s.waz pre q.r.i.s.waz !>([for pre p.i.s.waz q.i.s.waz]) == !! [[~ mud] +>.$] :: ++ lude :: functional synth |= [for=logo toe=tube] ^- [(unit (each love (list tank))) _+>] =+ [pre mid]=[`path`[p.toe q.toe r.toe ~] `path`(flop s.toe)] =^ gun +>.$ (loup for pre mid) ?~ gun [~ +>.$] ?: ?=(| -.u.gun) :_(+>.$ [~ %| p.u.gun]) =^ mun +>.$ (lobo for pre p.u.gun) [[~ mun] +>.$] :: ++ step :: step in work |- ^+ + =^ zib +.$ =+ yub=q.rey |- ^- [(list ,[p=@ud q=pimp]) _+.^$] ?~ yub [~ +.^$] =^ sin +.^$ $(yub l.yub) =^ dex +.^$ $(yub r.yub) =^ top +.^$ (wink q.n.yub) =+ pot=`(list ,[p=@ud q=pimp])`?~(top ~ [[p.n.yub u.top] ~]) [:(weld pot dex sin) +.^$] +.$(q.rey (~(gas by `_q.rey`~) zib)) :: ++ wink :: advance request |= pip=pimp ^- [(unit pimp) _+>] ?- pez.pip %new ?- -.sam.pip %fun =^ syt +>.$ (lude p.sam.pip q.sam.pip) :_ +>.$ :- ~ %= pip pez ^- pest ?~ syt [%err 404 [[%leaf "{<+.sam.pip>} not found"] ~]] ?- -.u.syt | [%err 500 (flop p.u.syt)] & [%fin p.u.syt] == == == :: [%err *] [~ +>.$(..ya (muff [%thou (loft `love`[%zap +.pez.pip])]))] :: [%fin *] =+ har=(loft p.pez.pip) =. q.har (weld (turn cug |=(a=@t ['set-cookie' a])) q.har) [~ +>.$(..ya (muff [%thou har]))] :: [%raw *] :_ +>.$ ^- (unit pimp) :- ~ =+ hoy=(holy p.pez.pip) ?~ hoy pip(pez [%err 404 [[%leaf "invalid request"] ~]]) pip(sam u.hoy, pez %new) == :: ++ work |- ^+ + =+ sez=step ?: =(rey.sez rey) sez $(+ sez) :: ++ into |= [pul=purl moh=moth] ^+ +> =+ num=p.rey %= +>.$ p.rey +(num) q.rey %+ ~(put by q.rey) num ^- pimp :* !?=(%head p.moh) hen *seam `pest`[%raw pul moh] == == -- -- -- . == =| bolo =* bol - |= [now=@da eny=@ sky=$+(* (unit))] :: activate ^? :: opaque core |% :: ++ beat :: process move |= [wru=(unit writ) tea=wire hen=duct fav=curd] => .(fav ((hard card) fav)) ?: ?=(%crud -.fav) [[[wru [/d hen] %flog fav] ~] ..^$] ^- [p=(list move) q=vane] =. gub ?.(=(0 gub) gub (cat 3 (rsh 3 1 (scot %p (end 6 1 eny))) '-')) =^ mos bol abet:apex:~(adit ye [[wru tea hen fav] [now eny sky] ~] bol) [mos ..^$] :: ++ come |= [sam=? old=vase] ^- vane (load old) :: ++ doze |= [now=@da hen=duct] ^- (unit ,@da) ~ :: ++ load |= new=vase ^- vane ?. (~(nest ut -:!>(`bolo`+>-.^$)) | p.new) ~& %eyre-reset ..^$ ..^$(+>- (bolo q.new)) :: ++ raze ^- vane ..$(+>- *bolo) :: ++ scry |= [our=ship ren=@tas who=ship syd=disc lot=coin tyl=path] ^- (unit) ~ :: ++ stay `vase`!>((colt `bolo`+>-.$)) ++ vern [164 0] --