naive: prv -> pk

This commit is contained in:
drbeefsupreme 2021-04-23 14:54:36 -04:00
parent d561083418
commit d87f0e6723
No known key found for this signature in database
GPG Key ID: B70D5683DE7F9EFC

View File

@ -19,7 +19,7 @@
%& `p.result %& `p.result
== ==
:: ::
++ addr address-from-prv:key:ethereum ++ addr address-from-pk:key:ethereum
:: ::
++ log ++ log
|= [log-name=@ux data=@ux topics=(lest @)] |= [log-name=@ux data=@ux topics=(lest @)]
@ -143,13 +143,13 @@
|% |%
:: ::
++ spawn ++ spawn
|= [nonce=@ud parent=ship prv=@ proxy=@tas child=ship =address] ^- @ |= [nonce=@ud parent=ship pk=@ proxy=@tas child=ship =address] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
(take-ship-address:bits %spawn parent proxy child address) (take-ship-address:bits %spawn parent proxy child address)
:: ::
++ transfer-point ++ transfer-point
|= [nonce=@ud =ship prv=@ =address proxy=@tas reset=?] ^- @ |= [nonce=@ud =ship pk=@ =address proxy=@tas reset=?] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
%: can 3 %: can 3
(from-proxy:bits proxy) (from-proxy:bits proxy)
4^ship 4^ship
@ -160,8 +160,8 @@
== ==
:: ::
++ configure-keys ++ configure-keys
|= [nonce=@ud =ship prv=@ proxy=@tas breach=@ encrypt=@ auth=@ crypto-suite=@] ^- @ |= [nonce=@ud =ship pk=@ proxy=@tas breach=@ encrypt=@ auth=@ crypto-suite=@] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
%: can 3 %: can 3
(from-proxy:bits proxy) (from-proxy:bits proxy)
4^ship 4^ship
@ -174,43 +174,43 @@
== ==
:: ::
++ escape ++ escape
|= [nonce=@ud child=ship prv=@ proxy=@tas parent=ship] ^- @ |= [nonce=@ud child=ship pk=@ proxy=@tas parent=ship] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
(take-escape:bits %escape child proxy parent) (take-escape:bits %escape child proxy parent)
:: ::
++ cancel-escape ++ cancel-escape
|= [nonce=@ud child=ship prv=@ proxy=@tas parent=ship] ^- @ |= [nonce=@ud child=ship pk=@ proxy=@tas parent=ship] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
(take-escape:bits %cancel-escape child proxy parent) (take-escape:bits %cancel-escape child proxy parent)
:: ::
++ adopt ++ adopt
|= [nonce=@ud child=ship prv=@ proxy=@tas parent=ship] ^- @ |= [nonce=@ud child=ship pk=@ proxy=@tas parent=ship] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
(take-escape:bits %adopt child proxy parent) (take-escape:bits %adopt child proxy parent)
:: ::
++ reject ++ reject
|= [nonce=@ud child=ship prv=@ proxy=@tas parent=ship] ^- @ |= [nonce=@ud child=ship pk=@ proxy=@tas parent=ship] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
(take-escape:bits %reject child proxy parent) (take-escape:bits %reject child proxy parent)
:: ::
++ detach ++ detach
|= [nonce=@ud child=ship prv=@ proxy=@tas parent=ship] ^- @ |= [nonce=@ud child=ship pk=@ proxy=@tas parent=ship] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
(take-escape:bits %detach child proxy parent) (take-escape:bits %detach child proxy parent)
:: ::
++ set-management-proxy ++ set-management-proxy
|= [nonce=@ud =ship prv=@ proxy=@tas =address] ^- @ |= [nonce=@ud =ship pk=@ proxy=@tas =address] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
(take-ship-address:bits %set-management-proxy ship proxy ship address) (take-ship-address:bits %set-management-proxy ship proxy ship address)
:: ::
++ set-spawn-proxy ++ set-spawn-proxy
|= [nonce=@ud =ship prv=@ proxy=@tas =address] ^- @ |= [nonce=@ud =ship pk=@ proxy=@tas =address] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
(take-ship-address:bits %set-spawn-proxy ship proxy ship address) (take-ship-address:bits %set-spawn-proxy ship proxy ship address)
:: ::
++ set-transfer-proxy ++ set-transfer-proxy
|= [nonce=@ud =ship prv=@ proxy=@tas =address] ^- @ |= [nonce=@ud =ship pk=@ proxy=@tas =address] ^- @
%^ sign-tx prv nonce %^ sign-tx pk nonce
(take-ship-address:bits %set-transfer-proxy ship proxy ship address) (take-ship-address:bits %set-transfer-proxy ship proxy ship address)
:: ::
++ bits ++ bits