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

add sponsorship chain keys to %dawn event

Browse Source
This commit is contained in:
Philip Monk 2019-08-20 16:41:50 -07:00
parent 4e266f10df
commit 2c2ef195a7
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
4 changed files with 43 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -266,24 +266,29 @@
++ dawn ++ dawn
|= [who=ship seed=(unit seed:able:jael)] |= [who=ship seed=(unit seed:able:jael)]
^- dawn-event ^- dawn-event
=/ spon =/ spon=(list [ship point:azimuth])
|- ^- (list [ship point:azimuth])
=/ =ship (^sein:title who) =/ =ship (^sein:title who)
=/ spon-spon =/ a-point=[^ship point:azimuth]
?: ?=(%czar (clan:title ship)) =/ spon-spon
[| ~zod] ?: ?=(%czar (clan:title ship))
[& (^sein:title ship)] [| ~zod]
=/ life-rift ~|([ship lives] (~(got by lives) ship)) [& (^sein:title ship)]
=/ =life lyfe.life-rift =/ life-rift ~|([ship lives] (~(got by lives) ship))
=/ =rift rut.life-rift =/ =life lyfe.life-rift
=/ =pass =/ =rift rut.life-rift
%^ pass-from-eth:azimuth =/ =pass
(as-octs:mimes:html (get-public ship life %crypt)) %^ pass-from-eth:azimuth
(as-octs:mimes:html (get-public ship life %auth)) (as-octs:mimes:html (get-public ship life %crypt))
1 (as-octs:mimes:html (get-public ship life %auth))
:^ ship=ship 1
*[address address address address]:azimuth :^ ship
`[life=life pass rift spon-spon ~] *[address address address address]:azimuth
~ `[life=life pass rift spon-spon ~]
~
?: ?=(%czar (clan:title ship))
[a-point]~
[a-point $(who who.sponsor:(need net.a-point))]
=/ =seed:able:jael =/ =seed:able:jael
?^ seed ?^ seed
u.seed u.seed

2
pkg/arvo/lib/pill.hoon
View File

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

31
pkg/arvo/sys/vane/jael.hoon
View File

@ -255,7 +255,8 @@
=/ 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]] ~) `ship.spon.tac] =/ spon-ship ?~(spon.tac ~ `ship.i.spon.tac)
[1 lyf.seed.tac (my [lyf.seed.tac [1 pub:ex:cub]] ~) spon-ship]
:: our initial private key :: our initial private key
:: ::
=. lyf.own.pki lyf.seed.tac =. lyf.own.pki lyf.seed.tac
@ -267,15 +268,18 @@
=. tuf.own.pki turf.tac =. tuf.own.pki turf.tac
:: our initial galaxy table as a +map from +life to +public :: our initial galaxy table as a +map from +life to +public
:: ::
=/ spon-point=point =/ spon-points=(list [ship point])
~| [%sponsor-point point] %+ turn spon.tac
?> ?=(^ net.spon.tac) |= [=ship az-point=point:azimuth]
:* continuity-number.u.net.spon.tac ~| [%sponsor-point az-point]
life.u.net.spon.tac ?> ?=(^ net.az-point)
(malt [life.u.net.spon.tac 1 pass.u.net.spon.tac] ~) :* ship
?. has.sponsor.u.net.spon.tac continuity-number.u.net.az-point
life.u.net.az-point
(malt [life.u.net.az-point 1 pass.u.net.az-point] ~)
?. has.sponsor.u.net.az-point
~ ~
`who.sponsor.u.net.spon.tac `who.sponsor.u.net.az-point
== ==
=/ points=(map =ship =point) =/ points=(map =ship =point)
%- ~(run by czar.tac) %- ~(run by czar.tac)
@ -283,7 +287,7 @@
^- point ^- point
[a-rift a-life (malt [a-life 1 a-pass] ~) ~] [a-rift a-life (malt [a-life 1 a-pass] ~) ~]
=. points =. points
(~(put by points) ship.spon.tac spon-point) (~(gas by points) spon-points)
=. +>.$ =. +>.$
%- curd =< abet %- curd =< abet
(public-keys:~(feel su hen our pki etn) %full points) (public-keys:~(feel su hen our pki etn) %full points)
@ -298,13 +302,16 @@
(sources:~(feel su hen our pki etn) ~ [%| %azimuth-tracker]) (sources:~(feel su hen our pki etn) ~ [%| %azimuth-tracker])
:: ::
* *
=/ spon-ship
?> ?=(^ spon.tac)
ship.i.spon.tac
=. +>.$ =. +>.$
%- curd =< abet %- curd =< abet
%+ sources:~(feel su hen our pki etn) %+ sources:~(feel su hen our pki etn)
(silt ship.spon.tac ~) (silt spon-ship ~)
[%| %azimuth-tracker] [%| %azimuth-tracker]
%- curd =< abet %- curd =< abet
(sources:~(feel su hen our pki etn) ~ [%& ship.spon.tac]) (sources:~(feel su hen our pki etn) ~ [%& spon-ship])
== ==
:: ::
=. moz =. moz

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

@ -2074,7 +2074,7 @@
$~ [%vega ~] :: $~ [%vega ~] ::
$% $: %dawn :: boot from keys $% $: %dawn :: boot from keys
=seed:able:jael :: identity params =seed:able:jael :: identity params
spon=[=ship point:azimuth-types] :: sponsor spon=(list [=ship point:azimuth-types]) ::
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