ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 11:33:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

Continuity breach and flag day.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-11-30 19:04:29 -08:00
parent ca8b6a7865
commit 1d4e8788cb
2 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ames.hoon
View File

@ -379,7 +379,7 @@
vix=(bex +((cut 0 [25 2] mag))) :: width of sender
tay=(cut 0 [27 5] mag) :: message type
==
?> =(5 vez)
?> =(6 vez)
?> =(chk (end 0 20 (mug bod)))
:+ [(end 3 wix bod) (cut 3 [wix vix] bod)]
(kins tay)
@ -399,7 +399,7 @@
=+ tay=(ksin q.kec)
%+ mix
%+ can 0
:~ [3 5]
:~ [3 6]
[20 (mug bod)]
[2 yax]
[2 qax]
@ -965,7 +965,7 @@
++ gnaw :: gnaw:am
|= [kay=cape ryn=lane pac=rock] :: process packet
^- [p=(list boon) q=fort]
?. =(5 (end 0 3 pac)) [~ fox]
?. =(6 (end 0 3 pac)) [~ fox]
=+ kec=(bite pac)
?: (goop p.p.kec) [~ fox]
?. (~(has by urb.ton.fox) q.p.kec)

32
arvo/batz.hoon
View File

@ -402,12 +402,6 @@
=+ kit=(need (~(get by p.orb) q.p.u.dup))
?~ rot
%_(+>.$ ..ra (warn (spud (meat kit))), s.orb [%r ~])
=+ tyk=`kite`[p.p.u.rot q.p.u.rot r.kit r.p.u.rot q.u.rot]
?. =(kit tyk)
~& [%kit kit]
~& [%tyk tyk]
!!
?> =(kit tyk)
+>.$(p.orb (~(del by p.orb) q.p.u.dup))
::
++ gasp :: logical path
@ -431,15 +425,24 @@
$(ask t.ask, +>.^$ abet:(pane:(ox p.i.ask) q.i.ask))
::
++ glee :: assemble stack
=+ [kas=sac boy=nub]
=+ [kas=(flop sac) suk=*(list skit) boy=`coal`nub]
|- ^- [(unit coal) _+>]
?~ kas [[~ boy] +>.$]
=^ vid +>.$ $(kas t.kas)
?~ vid [~ +>.$]
=^ lez +>.$ (grok | (gnat i.kas) u.vid)
?~ lez
[~ ?.(&(?=(^ duv) =(%crud -.q.i.duv)) +>.$ good:+>.$(sac t.kas))]
[[~ q.u.lez] +>.$]
=+ old=+>.$
=^ lez +>.$ (grok | (gnat i.kas) boy)
?~ lez
~& [%glee-fail i.kas]
:- [~ boy]
=+ voz=(~(tap by p.orb) ~)
=. duv
|- ^+ duv
?~ voz duv
[[~ %warn (spud (meat `kite`q.i.voz))] duv]
=. +>.$ good:+>.$(sac (flop suk))
old(duv duv)
:: [~ ?.(&(?=(^ duv) =(%crud -.q.i.duv)) +>.$ good:+>.$(sac t.kas))]
~& [%glee-good i.kas]
$(kas t.kas, suk [i.kas suk], boy q.u.lez)
::
++ glib :: pending note
|= [lap=wire nob=nose]
@ -473,7 +476,7 @@
::
++ gnat :: skit to path
|= sik=skit
(weld q.sik `path`[?~(p.sik wen u.p.sik) %lib r.sik])
(weld q.sik `path`[?~(p.sik wen u.p.sik) r.sik])
::
++ gaur :: print skit
|= sik=skit
@ -484,7 +487,6 @@
;: weld
(spud q.sik)
?~(p.sik "=" (spud u.p.sik ~))
"/lib"
(spud r.sik)
"/hoon"
==