ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 05:45:46 +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 ++ dawn
|= who=ship |= who=ship
^- dawn-event ^- dawn-event
=/ lyfe lyfe:(~(got by lives) who) =/ spon
:* [who lyfe sec:ex:(get-keys who lyfe) ~] =/ =ship (^sein:title who)
(^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 get-czars
~[~['arvo' 'netw' 'ork']] ~[~['arvo' 'netw' 'ork']]
0 0

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

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

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

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

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

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