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

More diagnostics.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-10-07 22:56:57 -07:00
parent 4dfa41969e
commit 68008233df
2 changed files with 24 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
arvo/ames.hoon
View File

@ -960,12 +960,7 @@
|= [kay=cape ryn=lane pac=rock] :: process packet
^- [p=(list boon) q=fort]
=+ kec=(bite pac)
?: ?| =(~fodtug-milred-pordux-novsub--motted-lagtex-timfus-wacsev p.p.kec)
=(~ritheb-latlen-barpem-lignem--matper-boltus-tolwyd-rapdec p.p.kec)
=(~hidnyr-rivrun-middeb-nomtyv--hadhec-mirmyr-ripnup-narwyc p.p.kec)
=(~binnep-lagser-bonfer-lasput--dosleb-padpun-maplen-pitweg p.p.kec)
==
[~ fox]
?: (goop p.p.kec) [~ fox]
?. (~(has by urb.ton.fox) q.p.kec)
[~ fox]
=< zork
@ -974,6 +969,14 @@
%- ~(chew la:(ho:(um q.p.kec) p.p.kec) kay ryn %none (shaf %flap pac))
[q.kec r.kec]
::
++ goop
|= him=ship
?| =(~fodtug-milred-pordux-novsub--motted-lagtex-timfus-wacsev him)
=(~ritheb-latlen-barpem-lignem--matper-boltus-tolwyd-rapdec him)
=(~hidnyr-rivrun-middeb-nomtyv--hadhec-mirmyr-ripnup-narwyc him)
=(~binnep-lagser-bonfer-lasput--dosleb-padpun-maplen-pitweg him)
==
::
++ hall :: hall:am
^- (list sock) :: all sockets
=| sox=(list sock) :: XX hideous
@ -1308,6 +1311,9 @@
=+ cov=[p=p:sen:gus q=clon:diz]
(wind [cha sex] [%bond q.cov cha sex val])
::
++ zest :: zest:ho:um:am
~
::
++ zank :: zank:ho:um:am
%= +>.$ :: resolve
gus (nux:gus diz)
@ -1610,6 +1616,12 @@
|= [our=ship his=ship tyl=path]
:: ~& [%temp our his tyl]
^- (unit)
?: ?=([?(%show %tell) *] tyl)
?~ t.tyl ~
=+ gys=(~(us go ton.fox) our)
?~ gys ~
=+ zet=zest:(ho:(~(um am [now fox]) our) his)
[~ ?:(=(%show i.tyl) >zet< zet)]
?. ?=([%life ~] tyl)
=+ muc=$(tyl [%life ~])
?~ muc ~

15
arvo/clay.hoon
View File

@ -55,10 +55,7 @@
::
++ zest
|= his=@p
=+ rob=(~(get by rid.yar) his)
?~ rob ~
=> .(rob u.rob)
=+ ^= onz
:~ :- %load
=+ sim=(scot %p his)
=+ sod=(~(tap by dos.yar) ~)
|- ^- (list ,[p=@tas q=path q=rave])
@ -71,8 +68,11 @@
=(sim i.t.i.p.i.xiq)
== nex
[[p.i.sod t.t.i.p.i.xiq q.i.xiq] nex]
=+ ^= rey
=+ vob=(~(tap by rob) ~)
::
:- %know
=+ rob=(~(get by rid.yar) his)
?~ rob ~
=+ vob=(~(tap by u.rob) ~)
|-
?~ vob ~
:- p.i.vob
@ -85,9 +85,6 @@
[%fod fod.u.ref.q.i.vob]
==
==
:- ~
:~ [%load onz]
[%know rey]
==
::
++ zeta