urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Make outgoing messages actually work.

Browse Source
This commit is contained in:
Fang 2018-05-18 21:12:46 +02:00
parent f58ccdeb39
commit 6d68a74630
2 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
sys/vane/jael.hoon
View File

@ -1039,15 +1039,15 @@
:: {$hail p/safe} :: {$hail p/safe}
:: ::
$hail $hail
%+ cure our.tac %+ cure p.p.tac
abet:abet:(hail:(burb p.tac) our.tac [%| p.mes]) abet:abet:(hail:(burb q.p.tac) p.p.tac [%| p.mes])
:: ::
:: share certificates :: share certificates
:: {$meet p/farm} :: {$meet p/farm}
:: ::
$meet $meet
%+ cure our.tac %+ cure p.p.tac
abet:(~(meet ur urb) ``p.tac p.mes) abet:(~(meet ur urb) ``q.p.tac p.mes)
:: ::
:: cancel trackers :: cancel trackers
:: [%nuke ~] :: [%nuke ~]
@ -2023,14 +2023,14 @@
[d %give %vent upd] [d %give %vent upd]
:: ::
++ subscribe-to ++ subscribe-to
|= who=@p |= [our=ship who=ship]
%+ wrap-note /vent/(scot %p who) %+ wrap-note /vent/(scot %p who)
[%x %mess who /j %vent ~] [%a %want [our who] /j/vent `*`[%vent ~]]
:: ::
++ unsubscribe-from ++ unsubscribe-from
|= who=@p |= [our=ship who=ship]
%+ wrap-note /vent/(scot %p who) %+ wrap-note /vent/(scot %p who)
[%x %mess who /j %nuke ~] [%a %want [our who] /j/vent `*`[%nuke ~]]
:: ::
:: ::
++ read ++ read
@ -2093,7 +2093,7 @@
=+ bos=(sein:title our) =+ bos=(sein:title our)
?. =(our bos) ?. =(our bos)
::TODO set bos as source in config ::TODO set bos as source in config
(put-move (subscribe-to bos)) (put-move (subscribe-to our bos))
::TODO set localhost as source in config ::TODO set localhost as source in config
new-filter new-filter
:: ::
@ -2464,7 +2464,14 @@
== ==
^- {p/(list move) q/_..^$} ^- {p/(list move) q/_..^$}
=* req q.hin =* req q.hin
?+ req [~ ..^$] ?- req
[%a %woot *]
?~ q.req ~&(%coop-fine [~ ..^$])
?~ u.q.req ~&(%ares-fine [~ ..^$])
~& [%woot-bad p.u.u.q.req]
~_ q.u.u.q.req
[~ ..^$]
::
[%e %sigh *] [%e %sigh *]
~& [%got-sigh p.p.req] ~& [%got-sigh p.p.req]
=^ moz eth.lex abet:(~(sigh et tea now eth.lex) p.req) =^ moz eth.lex abet:(~(sigh et tea now eth.lex) p.req)

7
sys/zuse.hoon
View File

@ -1252,7 +1252,7 @@
=, eyre =, eyre
$% {$b $wait p/@da} :: wait until $% {$b $wait p/@da} :: wait until
[%e %hiss p=(unit user) q=mark r=cage] :: outbound user req [%e %hiss p=(unit user) q=mark r=cage] :: outbound user req
{$x $mess p/ship q/path r/*} :: send message [%a %want p=sock q=path r=*] :: send message
== :: == ::
++ remote :: remote notification ++ remote :: remote notification
%+ each safe :: &/addition %+ each safe :: &/addition
@ -1261,7 +1261,8 @@
++ sign :: in result $<- ++ sign :: in result $<-
$% {$b $wake $~} :: wakeup $% {$b $wake $~} :: wakeup
[%e %sigh p=cage] :: marked http response [%e %sigh p=cage] :: marked http response
{$x $rest p/coop} :: message result [%j %vent p=update:constitution:ethe] :: ethereum changes
[%a %woot p=ship q=coop] :: message result
== :: == ::
++ tally :: balance update ++ tally :: balance update
%+ each balance :: complete %+ each balance :: complete
@ -1282,7 +1283,7 @@
[%vent ~] :: view ethereum state [%vent ~] :: view ethereum state
[%vest our=ship] :: view public balance [%vest our=ship] :: view public balance
[%vine ~] :: view secret history [%vine ~] :: view secret history
[%west our=ship p=ship q=path r=*] :: remote request [%west p=sack q=path r=*] :: remote request
== :: == ::
++ gilt gilt:womb ++ gilt gilt:womb
-- --