initial fake-key infrastructure in %jael

and updates vere hash for CI
This commit is contained in:
Joe Bryan 2018-09-15 01:38:22 -04:00
parent 71c57c14f2
commit bd33954ed9
4 changed files with 55 additions and 4 deletions

View File

@ -1 +1 @@
6fca8527232cfe7ed73bbe70a5a8348ef8f57e0c 8fc65462b8f5ee494a615bff9a922399a77b1419

View File

@ -74,8 +74,10 @@
spon=(unit ship) :: sponsor spon=(unit ship) :: sponsor
czar=(map ship [=life =pass]) :: galaxy table czar=(map ship [=life =pass]) :: galaxy table
turf=(list (pair @ud (list @ta))) :: domains turf=(list (pair @ud (list @ta))) :: domains
:: XX wegh == ::
== == :: [%fake our=ship] :: boot fake
:: XX wegh ::
== ::
++ note :: out request $-> ++ note :: out request $->
$% {$a note-ames} :: $% {$a note-ames} ::
{$b note-behn} :: {$b note-behn} ::
@ -518,7 +520,7 @@
((hard task:able) q.hic) ((hard task:able) q.hic)
== ==
?: ?=($boot -.q.hic) ?: ?=($boot -.q.hic)
?> ?=(%dawn -.p.q.hic) ?> ?=(?(%dawn %fake) -.p.q.hic)
:: XX clamming - use +hard or something? :: XX clamming - use +hard or something?
:: XX just save default duct here? :: XX just save default duct here?
:: ::

View File

@ -74,6 +74,7 @@
++ state-absolute :: absolute urbit ++ state-absolute :: absolute urbit
$: pry/(map ship (map ship safe)) :: promises $: pry/(map ship (map ship safe)) :: promises
eve=logs :: on-chain events eve=logs :: on-chain events
fak/_| :: fake keys
== :: == ::
++ state-eth-node :: node config + meta ++ state-eth-node :: node config + meta
$: source=(each ship node-src) :: learning from $: source=(each ship node-src) :: learning from
@ -684,6 +685,38 @@
== ==
+>.$ +>.$
:: ::
:: boot fake
:: {$fake our/ship}
::
%fake
=* our our.tac
:: our private key, as a +tree of +rite
::
:: Private key updates are disallowed for fake ships,
:: so we do this first.
::
=/ cub (pit:nu:crub:crypto 512 our)
=/ rit (sy [%jewel (my [1 sec:ex:cub] ~)] ~)
=. +>.$ $(tac [%mint our our rit])
:: set the fake bit
::
=. fak.urb &
:: initialize other vanes per the usual procedure
::
:: Except for ourselves!
::
=. moz
%+ weld moz
^- (list move)
:~ [hen %slip %d %init our]
[hen %give %init our]
[hen %slip %g %init our]
[hen %slip %e %init our]
[hen %slip %c %init our]
[hen %slip %a %init our]
==
+>.$
::
:: remote update :: remote update
:: {$hail p/ship q/remote} :: {$hail p/ship q/remote}
:: ::
@ -702,6 +735,8 @@
:: {$mint p/ship q/safe} :: {$mint p/ship q/safe}
:: ::
$mint $mint
~| %fake-jael
?< fak.urb
%+ cure our.tac %+ cure our.tac
abet:abet:(deal:(burb our.tac) p.tac [q.tac ~]) abet:abet:(deal:(burb our.tac) p.tac [q.tac ~])
:: ::
@ -941,6 +976,8 @@
:: ::
++ pubs ++ pubs
|= who=ship |= who=ship
?: fak.urb
(pubs:fake who)
%_ ..feed %_ ..feed
moz =/ pub (~(get by kyz.puk) who) moz =/ pub (~(get by kyz.puk) who)
?~ pub moz ?~ pub moz
@ -968,6 +1005,17 @@
:: moz [[hen %give %vent &+eve] moz] :: moz [[hen %give %vent &+eve] moz]
yen.eth (~(put in yen.eth) hen) yen.eth (~(put in yen.eth) hen)
== ==
:: :: ++fake:feed:su
++ fake :: fake subs and state
?> fak.urb
|%
++ pubs
|= who=ship
=/ cub (pit:nu:crub:crypto 512 who)
=/ pub [live=| life=1 (my [1 pub:ex:cub] ~)]
=. moz [[hen %give %pubs pub] moz]
(pubs:feel (my [who pub] ~))
--
-- --
:: :: ++feel:su :: :: ++feel:su
++ feel :: update tracker ++ feel :: update tracker

View File

@ -2068,6 +2068,7 @@
czar=(map ship [=life =pass]) :: galaxy table czar=(map ship [=life =pass]) :: galaxy table
turf=(list (pair @ud (list @ta))) :: domains turf=(list (pair @ud (list @ta))) :: domains
== :: == ::
[%fake our=ship] :: fake boot
[%look our=ship src=(each ship purl:eyre)] :: set ethereum source [%look our=ship src=(each ship purl:eyre)] :: set ethereum source
[%mint our=ship p=ship q=safe] :: create rights [%mint our=ship p=ship q=safe] :: create rights
[%move our=ship p=ship q=ship r=safe] :: transfer from=to [%move our=ship p=ship q=ship r=safe] :: transfer from=to