ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 23:47:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Not more broken"

Browse Source 
This reverts commit c5012ada4e6b6a478619af6bd25d1f3e5c5eccf7.
This commit is contained in:
Anton Dyudin 2015-01-21 13:11:33 -08:00
parent a7ab7a0c9c
commit a418210aca
1 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
arvo/gall.hoon
View File

@ -42,7 +42,6 @@
[%feel ~] :: touch
[%load p=cage] :: continue boot
[%mess p=ship q=cage] :: typed message
[%shoe p=path q=ptah] :: subscribe out
[%show p=ship q=path] :: subscribe
[%sire p=term q=span] :: spawn subprocess
[%nuke p=ship] :: clear duct
@ -76,7 +75,6 @@
$: @tas :: to any
$% [%meta p=vase] ::
== == == ::
++ ptah (trel hapt ship path) :: subscription endpt.
++ rave :: see %clay
$% [& p=mood] :: single request
[| p=moat] :: change range
@ -122,7 +120,6 @@
pus=(jug path bone) :: srebircsbus
peq=(map bone ,@uvI) :: peekers
qel=(map bone ,@ud) :: rush queue length
res=(map ,[path ptah] (unit ,@ud)) :: remote subscribed
== ::
ped=(set (pair ship desk)) :: active depends
zam=scar :: opaque ducts
@ -1048,14 +1045,6 @@
=+ wir=(away %u ((hard path) p.q.caq))
?: ?=(%cide p.r.q.caq) [`(deff 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
:^ %pass wir
(need ((sand %tas) ((hard ,@) q.q.caq)))
@ -1225,17 +1214,6 @@
%+ ford /s/poke
:+ %dude leaf/"poking {err}"
[%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
?: (warm %peer)
@ -1270,10 +1248,7 @@
(xeno [q.kon imp] %feel ~)
::
%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))
~& posh-res/res.sat
?> ?=(^ huv.sat)
=+ gil=(spec (slot 7 q.kon))
=+ sam=:(slop [[%atom %ud] ost] !>(p.kon) gil)