ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-20 15:08:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

pare down kale

Browse Source
This commit is contained in:
Philip Monk 2019-06-26 11:31:37 -07:00
parent 23f77c609e
commit 0cade3eee9
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
2 changed files with 304 additions and 544 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

740
sys/vane/kale.hoon
View File

File diff suppressed because it is too large Load Diff

102
sys/zuse.hoon
View File

@ -2053,40 +2053,33 @@
:: should probably be bound to a whitelisted duct set. :: should probably be bound to a whitelisted duct set.
:: (all secrets are redacted from %vest gifts.) :: (all secrets are redacted from %vest gifts.)
:: ::
:: %kale only talks to %ames and %behn. we send messages :: %kale only talks to %ames and itself.
:: through %ames and use %behn timers.
:: ::
++ logs :: on-chain changes ++ point
%+ map event-id:ethereum-types :: per event log $: =rift
diff-azimuth:azimuth-types :: the change =life
keys=(map life [crypto-suite=@ud =pass])
sponsor=(unit @p)
==
+$ point-diff
$% [%changed-continuity =rift]
[%changed-keys =life crypto-suite=@ud =pass]
[%new-sponsor sponsor=(unit @p)]
==
::
+$ vent-result
$% [%full points=(map ship point)]
[%diff =ship =point-diff]
==
:: :: :: ::
++ vent-result :: %vent result
$% [%snap snap=snapshot:kale] :: restore snapshot
[%chain can=chain] :: get new events
== ::
:: ::
++ chain :: batch of changes
%+ each logs :: & all events
logs :: | new events
++ change :: urbit change
$% [%ethe can=chain] :: on-chain change
[%meet who=ship =life =pass] :: meet in new era
[%priv =life =ring] :: update private key
== ::
++ gift :: out result <-$ ++ gift :: out result <-$
$% [%init p=ship] :: report install unix $% [%init p=ship] :: report install unix
[%mass p=mass] :: memory usage report [%mass p=mass] :: memory usage report
[%mack p=(unit tang)] :: message n/ack [%mack p=(unit tang)] :: message n/ack
[%pubs public] :: public keys [%source whos=(set ship) src=source] ::
[%turf turf=(list turf)] :: domains [%turf turf=(list turf)] :: domains
[%vein =life vein=(map life ring)] :: private keys [%private-keys =life vein=(map life ring)] :: private keys
[%vine p=(list change)] :: all raw changes [%public-keys p=vent-result] :: ethereum changes
[%vent p=vent-result] :: ethereum changes
== ::
:: ::
++ public :: public key state
$: life=life :: current key number
pubs=(map life pass) :: pubkeys by number
== :: == ::
:: +seed: private boot parameters :: +seed: private boot parameters
:: ::
@ -2104,17 +2097,17 @@
snap=(unit snapshot) :: head start snap=(unit snapshot) :: head start
== :: == ::
[%fake =ship] :: fake boot [%fake =ship] :: fake boot
[%look src=(each ship purl:eyre)] :: set ethereum source [%look whos=(set ship) =source] :: set ethereum source
::TODO %next for generating/putting new private key ::TODO %next for generating/putting new private key
[%nuke ~] :: cancel tracker from [%nuke ~] :: cancel tracker from
[%pubs =ship] :: view public keys [%private-keys ~] :: sub to privates
[%public-keys ships=(set ship)] :: sub to publics
[%sources ~]
[%meet =ship =life =pass] :: met after breach [%meet =ship =life =pass] :: met after breach
[%snap snap=snapshot kick=?] :: load snapshot [%snap snap=snapshot kick=?] :: load snapshot
[%turf ~] :: view domains [%turf ~] :: view domains
[%vent-update who=ship =point-diff] :: update from app
$>(%vega vane-task) :: report upgrade $>(%vega vane-task) :: report upgrade
[%vein ~] :: view signing keys
[%vent ~] :: view ethereum events
[%vine ~] :: view secret history
$>(%wegh vane-task) :: memory usage request $>(%wegh vane-task) :: memory usage request
$>(%west vane-task) :: remote request $>(%west vane-task) :: remote request
[%wind p=@ud] :: rewind before block [%wind p=@ud] :: rewind before block
@ -2123,32 +2116,26 @@
:: :: :: ::
:::: :: :::: ::
:: :: :: ::
++ node-src :: ethereum node comms +$ node-src :: ethereum node comms
$: node=purl:eyre :: node url $: node=purl:eyre :: node url
filter-id=@ud :: current filter filter-id=@ud :: current filter
poll-timer=@da :: next filter poll poll-timer=@da :: next filter poll
== :: == ::
++ snapshot :: rewind point
=, azimuth-types ::
$: kyz=(map ship public:able) :: public key state
$= eth ::
$: dns=dnses :: on-chain dns state
pos=(map ship point) :: on-chain ship state
== ::
eth-bookmark
==
:: +eth-bookmark: cursor into the ethereum chain
:: ::
++ eth-bookmark +$ source (each ship node-src)
$: heard=(set event-id:ethereum-types) +$ source-id @udsourceid
latest-block=@ud +$ snapshot ~
== ::
:: +state-eth-node: state of a connection to an ethereum node :: +state-eth-node: state of a connection to an ethereum node
:: ::
++ state-eth-node :: node config + meta +$ state-eth-node :: node config + meta
$: source=(each ship node-src) :: learning from $: yen=(set duct)
foreign-block=@ud :: node's latest block top-source-id=source-id
eth-bookmark sources=(map source-id source)
sources-reverse=(map source source-id)
default-source=source-id
ship-sources=(map ship source-id)
ship-sources-reverse=(jug source-id ship)
== :: == ::
:: :: :: ::
:::: ++pki:kale :: (1h2) certificates :::: ++pki:kale :: (1h2) certificates
@ -7686,19 +7673,6 @@
== ==
-- --
:: ::
++ kale-noun
|%
++ point
$: crypto-suite=@ud
key-revision=@ud
continuity-number=@ud
encryption-key=octs
authentication-key=octs
has-sponsor=?
sponsor=@ud
==
--
::
++ eth-noun ++ eth-noun
|% |%
++ point ++ point