urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-13 06:25:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

Not more broken

Browse Source
This commit is contained in:
Anton Dyudin 2015-01-20 18:33:01 -08:00
parent 7f3f26ca7c
commit a7ab7a0c9c
2 changed files with 29 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
arvo/gall.hoon
View File

@ -42,6 +42,7 @@
[%feel ~] :: touch [%feel ~] :: touch
[%load p=cage] :: continue boot [%load p=cage] :: continue boot
[%mess p=ship q=cage] :: typed message [%mess p=ship q=cage] :: typed message
[%shoe p=path q=ptah] :: subscribe out
[%show p=ship q=path] :: subscribe [%show p=ship q=path] :: subscribe
[%sire p=term q=span] :: spawn subprocess [%sire p=term q=span] :: spawn subprocess
[%nuke p=ship] :: clear duct [%nuke p=ship] :: clear duct
@ -75,6 +76,7 @@
$: @tas :: to any $: @tas :: to any
$% [%meta p=vase] :: $% [%meta p=vase] ::
== == == :: == == == ::
++ ptah (trel hapt ship path) :: subscription endpt.
++ rave :: see %clay ++ rave :: see %clay
$% [& p=mood] :: single request $% [& p=mood] :: single request
[| p=moat] :: change range [| p=moat] :: change range
@ -120,6 +122,7 @@
pus=(jug path bone) :: srebircsbus pus=(jug path bone) :: srebircsbus
peq=(map bone ,@uvI) :: peekers peq=(map bone ,@uvI) :: peekers
qel=(map bone ,@ud) :: rush queue length qel=(map bone ,@ud) :: rush queue length
res=(map ,[path ptah] (unit ,@ud)) :: remote subscribed
== :: == ::
ped=(set (pair ship desk)) :: active depends ped=(set (pair ship desk)) :: active depends
zam=scar :: opaque ducts zam=scar :: opaque ducts
@ -344,15 +347,6 @@
[%cell [%cube p.cay %atom %tas] p.q.cay] [%cell [%cube p.cay %atom %tas] p.q.cay]
[sem p.cay q.q.cay] [sem p.cay q.q.cay]
:: ::
++ steb
|= vax=vase ::(hypo gilt) :: gilt vase to cage
?> ?=(gilt q.vax) :: XX static
:- -.q.vax
%+ slap vax
:+ %wtgr
[%wtts leaf/tas/-.q.vax [%& 2]~]
[%cnzz [%& 3]~]
::
++ gaff :: take and go ++ gaff :: take and go
|= [our=@p imp=path] |= [our=@p imp=path]
=+ mat=(~(got by pol.all) our) =+ mat=(~(got by pol.all) our)
@ -1054,6 +1048,14 @@
=+ wir=(away %u ((hard path) p.q.caq)) =+ wir=(away %u ((hard path) p.q.caq))
?: ?=(%cide p.r.q.caq) [`(deff wir hon caq) ~] ?: ?=(%cide p.r.q.caq) [`(deff wir hon caq) ~]
?: ?=(%sire p.r.q.caq) [~ `(birf wir hon caq)] ?: ?=(%sire p.r.q.caq) [~ `(birf wir hon caq)]
?: ?=(%show p.r.q.caq)
:: ~& [hon %pass wir (,@tas q.q.caq)]
:: ~> %slog.`(skol p:!>(type=[hon %pass wir (,@tas q.q.caq)]))
:: ~> %slog.`(sell (spec (slot 15 caq)))
:: ~> %slog.`(skol %face %type p:(spec (slot 15 caq)))
:: [~ `((hard move) [hon %pass wir %g q:(slot 15 caq)])]
:- `[hon ((hard knob) [%shoe p.q.caq q.r.q.caq])]
`[hon %pass wir %g [%meta (spec (slot 15 caq))]]
:^ ~ ~ hon :^ ~ ~ hon
:^ %pass wir :^ %pass wir
(need ((sand %tas) ((hard ,@) q.q.caq))) (need ((sand %tas) ((hard ,@) q.q.caq)))
@ -1223,6 +1225,17 @@
%+ ford /s/poke %+ ford /s/poke
:+ %dude leaf/"poking {err}" :+ %dude leaf/"poking {err}"
[%call (harm cog (conf (core u.huv.sat))) (cove %$ sam)] [%call (harm cog (conf (core u.huv.sat))) (cove %$ sam)]
::
%shoe
:: ~& shoe-found/kon
:: ~& [hen %pass (away %u p.kon) %g]
:: ~> %slog.`(skol p:!>(type=[hen %pass (away %u p.kon) %g]))
:: ~& [%show q.kon]
:: ~> %slog.`(skol p:!>(type=[%show q.kon]))
%_ +>.$
res.sat (~(put by res.sat) [p q]:kon ~)
qic.sat ~
==
:: ::
%show %show
?: (warm %peer) ?: (warm %peer)
@ -1257,14 +1270,16 @@
(xeno [q.kon imp] %feel ~) (xeno [q.kon imp] %feel ~)
:: ::
%take %take
=. q.kon (spec q.kon)
=. q.kon (slop (slot 2 q.kon) (spec (slot 3 q.kon)))
?: &(?=([%g %rush @ *] q.q.kon) (warm %posh)) ?: &(?=([%g %rush @ *] q.q.kon) (warm %posh))
~& posh-res/res.sat
?> ?=(^ huv.sat) ?> ?=(^ huv.sat)
=+ gil=(steb (slot 7 q.kon)) =+ gil=(spec (slot 7 q.kon))
=+ gis=[[%cube -.gil [%atom %tas]] -.gil] =+ sam=:(slop [[%atom %ud] ost] !>(p.kon) gil)
=+ sam=:(slop [[%atom %ud] ost] !>(p.kon) gis +.gil)
%+ ford /s/pour %+ ford /s/pour
:+ %dude leaf/"pouring" :+ %dude leaf/"pouring"
:+ %dude (skol %cell -.gis p.gil) :+ %dude (skol p.gil)
[%call (harm %posh (conf (core u.huv.sat))) (cove %$ sam)] [%call (harm %posh (conf (core u.huv.sat))) (cove %$ sam)]
?: (warm %purr) ?: (warm %purr)
?> ?=(^ huv.sat) ?> ?=(^ huv.sat)

1
arvo/hoon.hoon
View File

@ -9845,6 +9845,7 @@
=+ rig=(slym q.sew arg) =+ rig=(slym q.sew arg)
=+ rev=(slym (slap bud (rain pax txt)) bud) =+ rev=(slym (slap bud (rain pax txt)) bud)
=+ syg=(slym rev arg) =+ syg=(slym rev arg)
~| %load-lost
+>.$(q.sew (slam (slap syg [%cnzy %load]) (slap rig [%cnzy %stay]))) +>.$(q.sew (slam (slap syg [%cnzy %load]) (slap rig [%cnzy %stay])))
:: ::
++ wink :: deploy ++ wink :: deploy