fix jael after merge
+$ message :: message to her jael
$% [%nuke whos=(set ship)] :: cancel trackers
[%public-keys whos=(set ship)] :: view ethereum events
- [%public-keys-result =public-keys-result] :: tmp workaround
== ::
++$ message-result
+ $% [%public-keys-result =public-keys-result] :: public keys boon
+ ==
+$ card :: i/o action
(wind note gift) ::
:: ::
%public-keys
=. moz [[hen %give %done ~] moz]
$(tac mes)
- ::
- :: receive keys result
- :: [%public-keys-result =public-keys-result]
- ::
- %public-keys-result
- =. moz [[hen %give %done ~] moz]
- %- curd =< abet
- (public-keys:~(feel su hen our pki etn) public-keys-result.mes)
==
==
::
%- (slog tang.u.error.hin)
::TODO fail:et
+>.$
+ ::
+ [%a %boon *]
+ =+ ;; [%public-keys-result =public-keys-result] payload.hin
+ %- curd =< abet
+ (public-keys:~(feel su hen our pki etn) public-keys-result)
::
[%g %onto *]
~& [%jael-onto tea hin]
?> ?=([@ *] tea)
=* app i.tea
=/ =peer-sign ;;(peer-sign q.q.p.p.+>.hin)
- %. [hen tea app]
- =< pump
%- curd =< abet
(~(new-event su hen our pki etn) peer-sign)
==
etn/state-eth-node
==
+>(pki pki, etn etn, moz (weld (flop moz) ^moz))
- :: :: ++wind:of
- ++ pump
- |= [hen=duct =wire app=term]
- (emit [hen %pass wire %g %deal [our our] app %pump ~])
--
:: :: ++su
:::: ## relative^heavy :: subjective engine
[d %give %public-keys public-keys-result]
=/ our (slav %p i.t.i.d)
=/ who (slav %p i.t.t.i.d)
- =/ =message [%public-keys-result public-keys-result]
+ =/ =message-result [%public-keys-result public-keys-result]
%- emit
- [d %give %boon message]
+ [d %give %boon message-result]
$(yez t.yez)
::
++ get-source
?: fak.own.pki.lex
=/ cub (pit:nu:crub:crypto 512 u.who)
:^ ~ ~ %noun
- !> `deed:ames`[1 pub:ex:cub ~]
+ !> [1 pub:ex:cub ~]
::
=/ rac (clan:title u.who)
?: ?=(%pawn rac)
