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

Stash.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-06-08 07:49:06 -07:00
parent fbcbe2960f
commit 6931fb0ae5
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
sys/vane/ames.hoon
View File

@ -801,7 +801,13 @@
::
:: we must be default parent to the new ship
::
?. =(our (sein:title her)) [~ +>.$]
?. =(our (sein:title her))
~& [%ames-strange-bearer her]
[~ +>.$]
::
:: current crypto technology
::
=+ nes=sen
::
:: do we already have a will for this ship?
::
@ -819,8 +825,9 @@
?. =(pub r.q.i.lew.wod.u.rad)
::
:: uh oh, the incumbent has a different public key.
:: let's
:: let's panic and do nothing
::
~& [%ames-bearer-conflict her]
[~ +>.$]
::
:: make the operation idempotent, return the incumbent
@ -1337,6 +1344,14 @@
gus (nux:gus diz)
wab.weg (~(put by wab.weg) her bah)
==
:: :: born:ho:um:am
++ born :: create client
|= {ges/gens pub/pass}
=+ wul=(bear:diz now ges pub)
?~ wul
:: :: bing:ho:um:am
++ bing :: send to ames peer
::
++ back :: back:ho:um:am
|= {ost/bone dam/flap cop/coop lag/@dr} :: receive ack
@ -1876,8 +1891,8 @@
[~ fox]
=^ gob fox
?- -.loq
$born (born:(ho:(~(um am [now fox]) our) his) now p.loq q.loq)
$more (more:(ho:(~(um am [now fox]) our) his) p.loq)
$born abet:(born:(ho:(~(um am [now fox]) our) his) p.loq q.loq)
$more abet:(more:(ho:(~(um am [now fox]) our) his) p.loq)
==
::
:: XX this mishmash of conventions is maddening