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

Send will and life in the clear in %full

Browse Source 
Now a sub can talk to ~zod on newbreach.
This commit is contained in:
Steve Dee 2014-04-23 15:45:46 -07:00
parent d50809b420
commit 11e722ed70
1 changed files with 30 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
arvo/ames.hoon
View File

@ -610,17 +610,21 @@
?:(=(~ lew.wod.dur) [*code +>.$] (griz now)) ?:(=(~ lew.wod.dur) [*code +>.$] (griz now))
:_ ..wisp :_ ..wisp
=+ yig=sen =+ yig=sen
=+ ^= gom :: =+ bil=`will`(pare wyl.dur law.saf) :: XX not set
%^ jam =+ bil=law.saf :: XX send whole will
`life`p.yig =+ hom=(jam ham)
:: `will`(pare wyl.dur law.saf) :: XX not set
law.saf :: XX send whole will
ham
?: =(~ lew.wod.dur) ?: =(~ lew.wod.dur)
[%open gom] :- %open
%^ jam
[~ `life`p.yig]
bil
(sign:as:q.yig tuy hom)
:- %full :- %full
=+ cay=cluy =+ cay=cluy
(jam p.cay (seal:as:q.yig pub:ex.r.cay tuy gom)) %^ jam
[`life`p.cay `life`p.yig]
bil
(seal:as:q.yig pub:ex:r.cay tuy hom)
-- :: --zuul:lax:as:go -- :: --zuul:lax:as:go
-- :: --lax:as:go -- :: --lax:as:go
:: ::
@ -1126,29 +1130,31 @@
:: ::
%full %full
:: ~& %chew-full :: ~& %chew-full
=+ mex=((hard ,[p=life q=@]) (cue msg)) =+ mex=((hard ,[p=[p=life q=life] q=will r=@]) (cue msg))
=+ gey=(sev:gus p.mex) =. diz (deng:diz q.mex)
=+ hey=sen:gus =+ wug=cluy:diz
=+ mes=(need (tear:as:q.gey pub:ex.q.hey q.mex)) ?> =(q.p.mex p.wug)
=+ gey=(sev:gus p.p.mex)
=+ mes=(need (tear:as:q.gey pub:ex:r.wug r.mex))
=. diz (wasc:diz p.mes) =. diz (wasc:diz p.mes)
=. puz (bilk:puz now) =. puz (bilk:puz now)
(west(msg q.mes) p.mes) (west(msg q.mes))
:: ::
%open %open
:: ~& %chew-open :: ~& %chew-open
=. puz (bilk:puz now) =+ mex=((hard ,[p=[~ q=life] q=will r=@]) (cue msg))
(west *code)
==
++ west
|= key=code
=+ ^= mex
%. (cue msg)
(hard ,[p=life q=will r=*])
=. diz (deng:diz q.mex) =. diz (deng:diz q.mex)
=+ wug=cluy:diz =+ wug=cluy:diz
?> =(p.mex p.wug) ?> =(q.p.mex p.wug)
=+ mal=(meal r.mex) =+ mes=(need (sure:as:r.wug *code r.mex))
?. =(mal r.mex) =. puz (bilk:puz now)
(west(msg mes))
==
++ west
|= ~
=+ vib=(cue msg)
=+ mal=(meal vib)
?. =(mal vib)
~& [%bad-meal her] ~& [%bad-meal her]
+>.^$ +>.^$
(chow(aut sin) mal) (chow(aut sin) mal)