fix review comments

This commit is contained in:
Philip Monk 2019-03-29 15:39:01 -07:00
parent 73febd4229
commit 3c92eb506b
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
8 changed files with 18 additions and 16 deletions

View File

@ -7,7 +7,7 @@
:: ::
/- aquarium /- aquarium
=, aquarium =, aquarium
=> $~ |% => |%
+$ move (pair bone card) +$ move (pair bone card)
+$ card +$ card
$% [%poke wire dock %aqua-events (list aqua-event)] $% [%poke wire dock %aqua-events (list aqua-event)]
@ -49,6 +49,8 @@
:_ this(subscribed =(command %subscribe)) :_ this(subscribed =(command %subscribe))
(aqua-vane-control-handler our ost subscribed command) (aqua-vane-control-handler our ost subscribed command)
:: ::
:: Handle effects from ships. We only react to %send effects.
::
++ diff-aqua-effects ++ diff-aqua-effects
|= [way=wire afs=aqua-effects] |= [way=wire afs=aqua-effects]
^- (quip move _this) ^- (quip move _this)

View File

@ -1,6 +1,6 @@
/- aquarium /- aquarium
=, aquarium =, aquarium
=> $~ |% => |%
+$ move (pair bone card) +$ move (pair bone card)
+$ card +$ card
$% [%poke wire dock %aqua-events (list aqua-event)] $% [%poke wire dock %aqua-events (list aqua-event)]
@ -102,7 +102,6 @@
:: ::
++ set-timer ++ set-timer
|= tim=@da |= tim=@da
=. tim +(tim) :: nobody's perfect
~? debug=| [who=who %setting-timer tim] ~? debug=| [who=who %setting-timer tim]
=. next-timer `tim =. next-timer `tim
=. this (emit-moves [ost %wait /(scot %p who) tim]~) =. this (emit-moves [ost %wait /(scot %p who) tim]~)

View File

@ -9,7 +9,7 @@
:: ::
/- aquarium /- aquarium
=, aquarium =, aquarium
=> $~ |% => |%
+$ move (pair bone card) +$ move (pair bone card)
+$ card +$ card
$% [%poke wire dock %aqua-events (list aqua-event)] $% [%poke wire dock %aqua-events (list aqua-event)]

View File

@ -2,7 +2,7 @@
:: ::
/- aquarium /- aquarium
=, aquarium =, aquarium
=> $~ |% => |%
+$ move (pair bone card) +$ move (pair bone card)
+$ card +$ card
$% [%poke wire dock %aqua-events (list aqua-event)] $% [%poke wire dock %aqua-events (list aqua-event)]

View File

@ -34,7 +34,7 @@
%look-ethnode %look-ethnode
:_ ~ :_ ~
=/ pul =/ pul
(need (de-purl:html 'http://localhost:8545')) (need (de-purl:html 'http://eth-mainnet.urbit.org:8545'))
[ost.hid %look /hi |+pul] [ost.hid %look /hi |+pul]
:: ::
[%look-kick who=@p] [%look-kick who=@p]

View File

@ -16,4 +16,5 @@
|% |%
++ mime [/text/plain (as-octs (of-wain txt))] ++ mime [/text/plain (as-octs (of-wain txt))]
-- --
-- ++ grad %mime
--

View File

@ -1,10 +1,10 @@
:: ::
:: Traditionally, ovo refers an event or card, and ova refers to a list :: Traditionally, ovo refers to an ovum -- (pair wire card) -- and ova
:: of them. We have several versions of each of these depending on :: refers to a list of them. We have several versions of each of these
:: context, so we do away with that naming scheme and use the following :: depending on context, so we do away with that naming scheme and use
:: naming scheme. :: the following naming scheme.
:: ::
:: Every card is either a an `event` or an `effect`. Prepended to this :: Every card is either an `event` or an `effect`. Prepended to this
:: is `unix` if it has no ship associated with it, or `aqua` if it :: is `unix` if it has no ship associated with it, or `aqua` if it
:: does. `timed` is added if it includes the time of the event. :: does. `timed` is added if it includes the time of the event.
:: ::

View File

@ -7199,14 +7199,14 @@
|% |%
:: azimuth: data contract :: azimuth: data contract
:: ::
++ azimuth 0x223c.067f.8cf2.8ae1.73ee.5caf.ea60.ca44.c335.fecb :: mainnet
:: ++ azimuth 0x308a.b6a6.024c.f198.b57e.008d.0ac9.ad02.1988.6579 :: ropsten :: ++ azimuth 0x308a.b6a6.024c.f198.b57e.008d.0ac9.ad02.1988.6579 :: ropsten
:: ++ azimuth 0x223c.067f.8cf2.8ae1.73ee.5caf.ea60.ca44.c335.fecb :: mainnet :: ++ azimuth 0x863d.9c2e.5c4c.1335.96cf.ac29.d552.55f0.d0f8.6381 :: local bridge
++ azimuth 0x863d.9c2e.5c4c.1335.96cf.ac29.d552.55f0.d0f8.6381 :: local bridge
:: ::
:: launch: block number of azimuth deploy :: launch: block number of azimuth deploy
:: ::
:: ++ launch 6.784.800 :: mainnet ++ launch 6.784.800 :: mainnet
++ launch 0 :: local bridge :: ++ launch 0 :: local bridge
-- --
:: ::
:: hashes of ship event signatures :: hashes of ship event signatures