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

fix old jael subscription bug; aqua %hi-cousin-az passes

Browse Source
This commit is contained in:
Ted Blackman 2019-08-23 18:19:50 -07:00
parent 507a5f722f
commit a50181b65c
2 changed files with 68 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
pkg/arvo/app/ph.hoon
View File

@ -139,6 +139,60 @@
~& > 'BUD-DONE'
(send-hi ~bud ~marbud)
(pure:m ~)
::
:+ %hi-uncle-az
~[~bud ~marbud ~dev]
=. eth-node (spawn:eth-node ~marbud)
=. eth-node (spawn:eth-node ~dev)
;< [eth-node=_eth-node ~] bind:m
%+ (wrap-philter ,_eth-node ,~)
router:eth-node
;< ~ bind:m (raw-real-ship:eth-node ~bud)
~& > 'BUD-DONE'
;< ~ bind:m (raw-real-ship:eth-node ~marbud)
~& > 'MARBUD-DONE'
;< ~ bind:m (raw-real-ship:eth-node ~dev)
~& > 'BUD-DONE'
(send-hi ~marbud ~dev)
~& > 'HI DONE'
(pure:m ~)
::
:+ %hi-nephew-az
~[~bud ~marbud ~dev]
=. eth-node (spawn:eth-node ~marbud)
=. eth-node (spawn:eth-node ~dev)
;< [eth-node=_eth-node ~] bind:m
%+ (wrap-philter ,_eth-node ,~)
router:eth-node
;< ~ bind:m (raw-real-ship:eth-node ~bud)
~& > 'BUD-DONE'
;< ~ bind:m (raw-real-ship:eth-node ~marbud)
~& > 'MARBUD-DONE'
;< ~ bind:m (raw-real-ship:eth-node ~dev)
~& > 'BUD-DONE'
(send-hi ~dev ~marbud)
~& > 'HI DONE'
(pure:m ~)
::
:+ %hi-cousin-az
~[~bud ~marbud ~dev ~mardev]
=. eth-node (spawn:eth-node ~marbud)
=. eth-node (spawn:eth-node ~dev)
=. eth-node (spawn:eth-node ~mardev)
;< [eth-node=_eth-node ~] bind:m
%+ (wrap-philter ,_eth-node ,~)
router:eth-node
;< ~ bind:m (raw-real-ship:eth-node ~bud)
~& > 'BUD-DONE'
;< ~ bind:m (raw-real-ship:eth-node ~marbud)
~& > 'MARBUD-DONE'
;< ~ bind:m (raw-real-ship:eth-node ~dev)
~& > 'BUD-DONE'
;< ~ bind:m (raw-real-ship:eth-node ~mardev)
~& > 'MARDEV-DONE'
(send-hi ~mardev ~marbud)
~& > 'HI DONE'
(pure:m ~)
::
:+ %hi-linnup-az
~[~bud ~marbud ~linnup-torsyx]
@ -240,18 +294,27 @@
%+ (wrap-philter ,_eth-node ,~)
router:eth-node
;< ~ bind:m (raw-real-ship:eth-node ~bud)
~& > 'BUD DONE'
;< ~ bind:m (raw-real-ship:eth-node ~dev)
~& > 'DEV DONE'
;< ~ bind:m (raw-real-ship:eth-node ~marbud)
~& > 'MARBUD DONE'
;< ~ bind:m (raw-real-ship:eth-node ~mardev)
~& > 'MARDEV DONE'
(send-hi ~marbud ~mardev)
~& > 'HI MARBUD MARDEV'
;< eth-node=_eth-node bind:m
(breach-and-hear:eth-node our.hid ~mardev ~marbud)
~& > 'BREACH MARDEV'
;< [eth-node=_eth-node ~] bind:m
%+ (wrap-philter ,_eth-node ,~)
router:eth-node
;< ~ bind:m (send-hi-not-responding ~marbud ~mardev)
~& > 'HI NOT RESPONDING'
;< ~ bind:m (raw-real-ship:eth-node ~mardev)
~& > 'MARDEV RE DONE'
(wait-for-dojo ~marbud "hi ~mardev successful")
~& > 'DONE'
(pure:m ~)
::
:+ %breach-sync

8
pkg/arvo/sys/vane/jael.hoon
View File

@ -791,9 +791,11 @@
|- ^+ ..feel
?~ pointl
..feel
%+ public-keys-give
(subscribers-on-ship who.i.pointl)
[%full (my i.pointl ~)]
=. ..feel
%+ public-keys-give
(subscribers-on-ship who.i.pointl)
[%full (my i.pointl ~)]
$(pointl t.pointl)
=* who who.public-keys-result
=/ a-diff=diff:point diff.public-keys-result
=/ maybe-point (~(get by pos.zim) who)