ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-04 10:52:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

aqua/ph: fix comet test

Browse Source
This commit is contained in:
Ted Blackman 2020-12-01 09:59:07 -05:00
parent c7b8ffbf4e
commit 174f36f1a8
2 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pkg/arvo/ted/aqua/ames.hoon
View File

@ -29,23 +29,32 @@
[%event rcvr //newt/0v1n.2m9vh %hear hear-lane pac]~ [%event rcvr //newt/0v1n.2m9vh %hear hear-lane pac]~
:: +lane-to-ship: decode a ship from an aqua lane :: +lane-to-ship: decode a ship from an aqua lane
:: ::
:: Special-case one comet, since its address doesn't fit into a lane.
::
++ lane-to-ship ++ lane-to-ship
|= =lane:ames |= =lane:ames
^- ship ^- ship
:: ::
?- -.lane ?- -.lane
%& p.lane %& p.lane
%| `ship``@`p.lane %| =/ s `ship``@`p.lane
?. =(s 0xdead.beef.cafe)
s
~bosrym-podwyl-magnes-dacrys--pander-hablep-masrym-marbud
== ==
:: +ship-to-lane: encode a lane to look like it came from .ship :: +ship-to-lane: encode a lane to look like it came from .ship
:: ::
:: Never shows up as a galaxy, because Vere wouldn't know that either. :: Never shows up as a galaxy, because Vere wouldn't know that either.
:: Special-case one comet, since its address doesn't fit into a lane.
:: ::
++ ship-to-lane ++ ship-to-lane
|= =ship |= =ship
^- lane:ames ^- lane:ames
:: :- %|
[%| `address:ames``@`ship] ^- address:ames ^- @
?. =(ship ~bosrym-podwyl-magnes-dacrys--pander-hablep-masrym-marbud)
ship
0xdead.beef.cafe
-- --
:: ::
%+ aqua-vane-thread ~[%restore %send] %+ aqua-vane-thread ~[%restore %send]

12
pkg/arvo/ted/ph/hi-comet-az.hoon
View File

@ -8,13 +8,19 @@
;< az=tid:spider ;< az=tid:spider
bind:m start-azimuth bind:m start-azimuth
;< ~ bind:m (spawn az ~bud) ;< ~ bind:m (spawn az ~bud)
;< ~ bind:m (spawn az ~marbud)
;< ~ bind:m (spawn az ~linnup-torsyx)
;< ~ bind:m (real-ship az ~bud) ;< ~ bind:m (real-ship az ~bud)
::
;< ~ bind:m (spawn az ~marbud)
;< ~ bind:m (real-ship az ~marbud) ;< ~ bind:m (real-ship az ~marbud)
;< ~ bind:m (real-ship az ~linnup-torsyx) ::
;< ~ bind:m (real-ship az comet) ;< ~ bind:m (real-ship az comet)
;< ~ bind:m (send-hi comet ~bud)
::
;< ~ bind:m (spawn az ~linnup-torsyx)
;< ~ bind:m (real-ship az ~linnup-torsyx)
::
;< ~ bind:m (send-hi comet ~linnup-torsyx) ;< ~ bind:m (send-hi comet ~linnup-torsyx)
;< ~ bind:m (send-hi ~linnup-torsyx comet) ;< ~ bind:m (send-hi ~linnup-torsyx comet)
::
;< ~ bind:m end-azimuth ;< ~ bind:m end-azimuth
(pure:m *vase) (pure:m *vase)