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

implement kale hierarchy

Browse Source
This commit is contained in:
Philip Monk 2019-07-30 16:26:47 -07:00
parent 577a01503b
commit 578d14bfea
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
4 changed files with 45 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkg/arvo/lib/ph/azimuth.hoon
View File

@ -255,9 +255,21 @@
++ dawn
|= who=ship
^- dawn-event
=/ lyfe lyfe:(~(got by lives) who)
:* [who lyfe sec:ex:(get-keys who lyfe) ~]
(^sein:title who)
=/ spon
=/ =ship (^sein:title who)
=/ life-rift (~(got by lives) ship)
=/ =life lyfe.life-rift
=/ =rift rut.life-rift
=/ =pass
%^ pass-from-eth:azimuth
(as-octs:mimes:html (get-public ship life %crypt))
(as-octs:mimes:html (get-public ship life %auth))
1
[ship rift life pass (^sein:title ship)]
=/ life-rift (~(got by lives) who)
=/ =life lyfe.life-rift
:* [who life sec:ex:(get-keys who life) ~]
spon
get-czars
~[~['arvo' 'netw' 'ork']]
0

2
pkg/arvo/sur/aquarium.hoon
View File

@ -65,7 +65,7 @@
::
+$ dawn-event
$: =seed:able:jael
spon=ship
spon=[=ship =rift =life =pass spon=ship]
czar=(map ship [=rift =life =pass])
turf=(list turf)
bloq=@ud

41
pkg/arvo/sys/vane/kale.hoon
View File

@ -234,7 +234,7 @@
:: $: $dawn
:: =seed
:: spon=ship
:: czar=(map ship [=life =pass])
:: czar=(map ship [=rift =life =pass])
:: turf=(list turf)}
:: bloq=@ud
:: node=purl
@ -266,7 +266,7 @@
=/ cub (nol:nu:crub:crypto key.seed.tac)
%+ ~(put by pos.zim.pki)
our
[1 lyf.seed.tac (my [lyf.seed.tac [1 pub:ex:cub]] ~) `spon.tac]
[1 lyf.seed.tac (my [lyf.seed.tac [1 pub:ex:cub]] ~) `ship.spon.tac]
:: our initial private key
::
=. lyf.own.pki lyf.seed.tac
@ -283,6 +283,8 @@
|= [=a=rift =a=life =a=pass]
^- point
[a-rift a-life (malt [a-life 1 a-pass] ~) ~]
=. points
(~(put by points) [ship rift life [[life 1 pass] ~ ~] `spon]:spon.tac)
=. +>.$
%- curd =< abet
(public-keys:~(feel su hen our pki etn sap) %full points)
@ -291,18 +293,29 @@
::
=. +>.$ (poke-watch hen %azimuth-tracker nod.own.pki)
=. +>.$
%- curd =< abet
%+ sources:~(feel su hen our pki etn sap)
?: =(%czar (clan:title our))
~
(silt spon.tac ~)
[%| %azimuth-tracker]
::
=? +>.$ !=(%czar (clan:title our))
%- curd =< abet
%+ sources:~(feel su hen our pki etn sap)
~
[%& spon.tac]
?- (clan:title our)
%czar
%- curd =< abet
(sources:~(feel su hen our pki etn sap) ~ [%| %azimuth-tracker])
::
%king
=. +>.$
%- curd =< abet
%+ sources:~(feel su hen our pki etn sap)
(silt ship.spon.tac ~)
[%| %azimuth-tracker]
%- curd =< abet
(sources:~(feel su hen our pki etn sap) ~ [%& ship.spon.tac])
::
*
=. +>.$
%- curd =< abet
%+ sources:~(feel su hen our pki etn sap)
(silt ship.spon.tac ~)
[%& spon.spon.tac]
%- curd =< abet
(sources:~(feel su hen our pki etn sap) ~ [%& ship.spon.tac])
==
::
=. moz
%+ weld moz

4
pkg/arvo/sys/zuse.hoon
View File

@ -2135,7 +2135,7 @@
$: %dawn :: boot from keys
=seed:able:jael :: identity params
spon=ship :: sponsor
czar=(map ship [=rift =life =pass]) :: galaxy table
czar=(map ship [=life =pass]) :: galaxy table
turf=(list turf) :: domains
bloq=@ud :: block number
node=(unit purl:eyre) :: gateway url
@ -2306,7 +2306,7 @@
$~ [%vega ~] ::
$% $: %dawn :: boot from keys
=seed:able:kale :: identity params
spon=ship :: sponsor
spon=[=ship =rift =life =pass spon=ship] :: sponsor
czar=(map ship [=rift =life =pass]) :: galaxy table
turf=(list turf) :: domains
bloq=@ud :: block number