urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 05:22:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

arvo: full vane names in $sign

Browse Source
This commit is contained in:
Joe Bryan 2020-12-07 16:22:26 -08:00
parent 83dd7384c6
commit 17736990ed
22 changed files with 106 additions and 108 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/arvo/app/chat-hook.hoon
View File

@ -370,7 +370,7 @@
=/ nack-count=@ud (slav %ud i.t.wire) =/ nack-count=@ud (slav %ud i.t.wire)
=/ who=@p (slav %p i.t.t.wire) =/ who=@p (slav %p i.t.t.wire)
=/ pax t.t.t.wire =/ pax t.t.t.wire
?> ?=([%b %wake *] sign-arvo) ?> ?=([%behns %wake *] sign-arvo)
~? ?=(^ error.sign-arvo) ~? ?=(^ error.sign-arvo)
"behn errored in backoff timers, continuing anyway" "behn errored in backoff timers, continuing anyway"
:_ this :_ this

2
pkg/arvo/app/contact-hook.hoon
View File

@ -195,7 +195,7 @@
=/ nack-count=@ud (slav %ud i.t.wire) =/ nack-count=@ud (slav %ud i.t.wire)
=/ who=@p (slav %p i.t.t.wire) =/ who=@p (slav %p i.t.t.wire)
=/ pax t.t.t.wire =/ pax t.t.t.wire
?> ?=([%b %wake *] sign-arvo) ?> ?=([%behn %wake *] sign-arvo)
~? ?=(^ error.sign-arvo) ~? ?=(^ error.sign-arvo)
"behn errored in backoff timers, continuing anyway" "behn errored in backoff timers, continuing anyway"
:_ this :_ this

2
pkg/arvo/app/dbug.hoon
View File

@ -66,7 +66,7 @@
++ on-arvo ++ on-arvo
|= [=wire =sign-arvo] |= [=wire =sign-arvo]
^- (quip card _this) ^- (quip card _this)
?. ?=([%e %bound *] sign-arvo) ?. ?=([%eyre %bound *] sign-arvo)
(on-arvo:def wire sign-arvo) (on-arvo:def wire sign-arvo)
~? !accepted.sign-arvo ~? !accepted.sign-arvo
[dap.bowl "bind rejected!" binding.sign-arvo] [dap.bowl "bind rejected!" binding.sign-arvo]

2
pkg/arvo/app/graph-store.hoon
View File

@ -946,7 +946,7 @@
[%try-rejoin @ *] [%try-rejoin @ *]
=/ rid=resource:store (de-path:res t.t.wire) =/ rid=resource:store (de-path:res t.t.wire)
=/ nack-count (slav %ud i.t.wire) =/ nack-count (slav %ud i.t.wire)
?> ?=([%b %wake *] sign-arvo) ?> ?=([%behn %wake *] sign-arvo)
~? ?=(^ error.sign-arvo) ~? ?=(^ error.sign-arvo)
"behn errored in backoff timers, continuing anyway" "behn errored in backoff timers, continuing anyway"
=/ new=^wire [%try-rejoin (scot %ud +(nack-count)) t.t.wire] =/ new=^wire [%try-rejoin (scot %ud +(nack-count)) t.t.wire]

2
pkg/arvo/app/group-store.hoon
View File

@ -244,7 +244,7 @@
(on-arvo:def wire sign-arvo) (on-arvo:def wire sign-arvo)
=/ =resource (de-path:resource t.t.wire) =/ =resource (de-path:resource t.t.wire)
=/ nack-count=@ud (slav %ud i.t.wire) =/ nack-count=@ud (slav %ud i.t.wire)
?> ?=([%b %wake *] sign-arvo) ?> ?=([%behn %wake *] sign-arvo)
~? ?=(^ error.sign-arvo) ~? ?=(^ error.sign-arvo)
"behn errored in backoff timers, continuing anyway" "behn errored in backoff timers, continuing anyway"
:_ this :_ this

2
pkg/arvo/app/hark-store.hoon
View File

@ -258,7 +258,7 @@
^- (quip card _this) ^- (quip card _this)
?. ?=([%autoseen ~] wire) ?. ?=([%autoseen ~] wire)
(on-arvo:def wire sign-arvo) (on-arvo:def wire sign-arvo)
?> ?=([%b %wake *] sign-arvo) ?> ?=([%behn %wake *] sign-arvo)
:_ this(last-seen now.bowl) :_ this(last-seen now.bowl)
~[autoseen-timer:ha] ~[autoseen-timer:ha]
:: ::

4
pkg/arvo/app/herm.hoon
View File

@ -65,7 +65,7 @@
:: pass on dill blits for the session :: pass on dill blits for the session
:: ::
[%view %$ ~] [%view %$ ~]
?. ?=([%d %blit *] sign-arvo) ?. ?=([%dill %blit *] sign-arvo)
~| [%unexpected-sign [- +<]:sign-arvo] ~| [%unexpected-sign [- +<]:sign-arvo]
!! !!
:_ this :_ this
@ -78,7 +78,7 @@
[%tube @ @ ~] [%tube @ @ ~]
=* from i.t.wire =* from i.t.wire
=* to i.t.t.wire =* to i.t.t.wire
?. ?=([%c %writ *] sign-arvo) ?. ?=([%clay %writ *] sign-arvo)
~| [%unexpected-sign [- +<]:sign-arvo] ~| [%unexpected-sign [- +<]:sign-arvo]
!! !!
:_ this :_ this

4
pkg/arvo/app/language-server.hoon
View File

@ -100,8 +100,8 @@
^- (quip card _this) ^- (quip card _this)
=^ cards state =^ cards state
?+ sign-arvo (on-arvo:def wire sign-arvo) ?+ sign-arvo (on-arvo:def wire sign-arvo)
[%e %bound *] `state [%eyre %bound *] `state
[%c *] (handle-build:lsp wire +.sign-arvo) [%clay *] (handle-build:lsp wire +.sign-arvo)
== ==
[cards this] [cards this]
:: ::

2
pkg/arvo/app/metadata-hook.hoon
View File

@ -67,7 +67,7 @@
=/ nack-count=@ud (slav %ud i.t.wire) =/ nack-count=@ud (slav %ud i.t.wire)
=/ who=@p (slav %p i.t.t.wire) =/ who=@p (slav %p i.t.t.wire)
=/ pax t.t.t.wire =/ pax t.t.t.wire
?> ?=([%b %wake *] sign-arvo) ?> ?=([%behn %wake *] sign-arvo)
~? ?=(^ error.sign-arvo) ~? ?=(^ error.sign-arvo)
"behn errored in backoff timers, continuing anyway" "behn errored in backoff timers, continuing anyway"
:_ this :_ this

2
pkg/arvo/app/spider.hoon
View File

@ -362,7 +362,7 @@
=. starting.state =. starting.state
(~(jab by starting.state) yarn |=([=trying =vase] [%none vase])) (~(jab by starting.state) yarn |=([=trying =vase] [%none vase]))
~| sign+[- +<]:sign-arvo ~| sign+[- +<]:sign-arvo
?> ?=([?(%b %c) %writ *] sign-arvo) ?> ?=([?(%behn %clay) %writ *] sign-arvo)
=/ =riot:clay p.sign-arvo =/ =riot:clay p.sign-arvo
?~ riot ?~ riot
(thread-fail-not-running tid %build-thread-error *tang) (thread-fail-not-running tid %build-thread-error *tang)

12
pkg/arvo/lib/strandio.hoon
View File

@ -173,7 +173,7 @@
|= tin=strand-input:strand |= tin=strand-input:strand
?+ in.tin `[%skip ~] ?+ in.tin `[%skip ~]
~ `[%wait ~] ~ `[%wait ~]
[~ %sign [%wait @ ~] %b %wake *] [~ %sign [%wait @ ~] %behn %wake *]
?. |(?=(~ until) =(`u.until (slaw %da i.t.wire.u.in.tin))) ?. |(?=(~ until) =(`u.until (slaw %da i.t.wire.u.in.tin)))
`[%skip ~] `[%skip ~]
?~ error.sign-arvo.u.in.tin ?~ error.sign-arvo.u.in.tin
@ -340,7 +340,7 @@
;< ~ bind:m (send-raw-card card) ;< ~ bind:m (send-raw-card card)
|= tin=strand-input:strand |= tin=strand-input:strand
=* loop $ =* loop $
?: ?& ?=([~ %sign [%timeout @ ~] %b %wake *] in.tin) ?: ?& ?=([~ %sign [%timeout @ ~] %behn %wake *] in.tin)
=((scot %da when) i.t.wire.u.in.tin) =((scot %da when) i.t.wire.u.in.tin)
== ==
`[%fail %timeout ~] `[%fail %timeout ~]
@ -370,7 +370,7 @@
|= tin=strand-input:strand |= tin=strand-input:strand
?+ in.tin `[%skip ~] ?+ in.tin `[%skip ~]
~ `[%wait ~] ~ `[%wait ~]
[~ %sign [%request ~] %i %http-response %finished *] [~ %sign [%request ~] %iris %http-response %finished *]
`[%done client-response.sign-arvo.u.in.tin] `[%done client-response.sign-arvo.u.in.tin]
== ==
:: ::
@ -395,9 +395,9 @@
|= tin=strand-input:strand |= tin=strand-input:strand
?+ in.tin `[%skip ~] ?+ in.tin `[%skip ~]
~ `[%wait ~] ~ `[%wait ~]
[~ %sign [%request ~] %i %http-response %cancel *] [~ %sign [%request ~] %iris %http-response %cancel *]
`[%done ~] `[%done ~]
[~ %sign [%request ~] %i %http-response %finished *] [~ %sign [%request ~] %iris %http-response %finished *]
`[%done `client-response.sign-arvo.u.in.tin] `[%done `client-response.sign-arvo.u.in.tin]
== ==
:: ::
@ -516,7 +516,7 @@
|= tin=strand-input:strand |= tin=strand-input:strand
?+ in.tin `[%skip ~] ?+ in.tin `[%skip ~]
~ `[%wait ~] ~ `[%wait ~]
[~ %sign * ?(%b %c) %writ *] [~ %sign * ?(%behn %clay) %writ *]
?. =(wire wire.u.in.tin) ?. =(wire wire.u.in.tin)
`[%skip ~] `[%skip ~]
`[%done +>.sign-arvo.u.in.tin] `[%done +>.sign-arvo.u.in.tin]

27
pkg/arvo/sys/arvo.hoon
View File

@ -1008,9 +1008,9 @@
++ smit ++ smit
|= [cap=tape sub=vase pax=path txt=@t] |= [cap=tape sub=vase pax=path txt=@t]
^- vase ^- vase
~> %slog.[0 leaf+"{cap}: {(scow p+(mug txt))}"] ~> %slog.[0 leaf/"{cap}: {(scow p+(mug txt))}"]
%- road |. %- road |.
~_ leaf/cap ~_ leaf/"{cap}: build failed"
(slap sub (rain pax txt)) (slap sub (rain pax txt))
:: ::
++ create ++ create
@ -1252,7 +1252,7 @@
:: ::
~? !lac.fad ~? !lac.fad
:- (runt [(lent bars.gem) '|'] "") :- (runt [(lent bars.gem) '|'] "")
[%slip vane.gem (symp +>-.task) duct] [%slip [vane.gem vane] (symp +>-.task) duct]
:: ::
(call duct vane task) (call duct vane task)
:: ::
@ -1332,13 +1332,15 @@
?. =(2 (met 3 vis)) ?. =(2 (met 3 vis))
[vis %$] [vis %$]
[(end 3 vis) (rsh 3 vis)] [(end 3 vis) (rsh 3 vis)]
=. way (grow way)
:: ::
?: ?=(%$ way) ?: ?=(%$ way)
(peek:pith lyc car bem) (peek:pith lyc car bem)
?. (~(has by van.mod) way) ::
=. way (grow way)
?~ van=(~(get by van.mod) way)
~ ~
(peek:(plow way) lyc car bem) %. [lyc car bem]
peek:spin:(~(plow va [vil u.van]) now peek)
:: +call: advance to target :: +call: advance to target
:: ::
++ call ++ call
@ -1350,10 +1352,11 @@
~> %mean.'call: bad waif' ~> %mean.'call: bad waif'
;;(waif q.p.task) ;;(waif q.p.task)
:: ::
=. way (grow way)
%+ push [way duct bars.gem] %+ push [way duct bars.gem]
~| bar-stack=`(list ^duct)`[duct bars.gem] ~| bar-stack=`(list ^duct)`[duct bars.gem]
%. task %. task
call:(spin:(plow (grow way)) duct eny dud) call:(spin:(plow way) duct eny dud)
:: +take: retreat along call-stack :: +take: retreat along call-stack
:: ::
++ take ++ take
@ -1365,9 +1368,9 @@
:: ::
?> ?=(~ duct) ?> ?=(~ duct)
(xeno:pith wire ;;(card q.p.gift)) (xeno:pith wire ;;(card q.p.gift))
::
:: the caller was a vane :: the caller was a vane
:: ::
=. way (grow way)
%+ push [way duct bars.gem] %+ push [way duct bars.gem]
:: ::
:: cons source onto .gift to make a $sign :: cons source onto .gift to make a $sign
@ -1375,7 +1378,7 @@
~| wire=wire ~| wire=wire
~| bar-stack=`(list ^duct)`[duct bars.gem] ~| bar-stack=`(list ^duct)`[duct bars.gem]
%. [wire [vane.gem gift]] %. [wire [vane.gem gift]]
take:(spin:(plow (grow way)) duct eny dud) take:(spin:(plow way) duct eny dud)
:: +push: finalize an individual step :: +push: finalize an individual step
:: ::
++ push ++ push
@ -1383,7 +1386,7 @@
^+ this ^+ this
=^ moz sac =^ moz sac
(~(refine-moves me sac vil) zom) (~(refine-moves me sac vil) zom)
=. van.mod (~(put by van.mod) (grow vane.gum) [vax sac]) =. van.mod (~(put by van.mod) vane.gum [vax sac])
(emit `plan`[`germ`gum `(list move)`moz]) (emit `plan`[`germ`gum `(list move)`moz])
:: +plow: operate on a vane, in time and space :: +plow: operate on a vane, in time and space
:: ::
@ -1814,9 +1817,9 @@
++ smit ++ smit
|= [cap=tape sub=(trap vase) pax=path txt=@t] |= [cap=tape sub=(trap vase) pax=path txt=@t]
^- (trap vase) ^- (trap vase)
~> %slog.[0 leaf+"{cap}: {(scow p+(mug txt))}"] ~> %slog.[0 leaf/"{cap}: {(scow p+(mug txt))}"]
%- road |. %- road |.
~_ leaf/cap ~_ leaf/"{cap}: build failed"
(swat sub (rain pax txt)) (swat sub (rain pax txt))
-- --
:: ::

18
pkg/arvo/sys/vane/ames.hoon
View File

@ -634,11 +634,11 @@
:: $sign: response from other vane :: $sign: response from other vane
:: ::
+$ sign +$ sign
$~ [%b %wake ~] $~ [%behn %wake ~]
$% $: %b $% $: %behn
$% [%wake error=(unit tang)] $% $>(%wake gift:able:behn)
== == == ==
$: %j $: %jael
$% [%private-keys =life vein=(map life ring)] $% [%private-keys =life vein=(map life ring)]
[%public-keys =public-keys-result] [%public-keys =public-keys-result]
[%turf turfs=(list turf)] [%turf turfs=(list turf)]
@ -783,7 +783,7 @@
[~ larval-gate] [~ larval-gate]
:: larval event drainage timer; pop and process a queued event :: larval event drainage timer; pop and process a queued event
:: ::
?. ?=([%b %wake *] sign) ?. ?=([%behn %wake *] sign)
~> %slog.0^leaf/"ames: larva: strange sign" ~> %slog.0^leaf/"ames: larva: strange sign"
[~ larval-gate] [~ larval-gate]
:: if crashed, print, dequeue, and set next drainage timer :: if crashed, print, dequeue, and set next drainage timer
@ -916,11 +916,11 @@
[@ %done *] (on-take-done:event-core wire error.sign) [@ %done *] (on-take-done:event-core wire error.sign)
[@ %boon *] (on-take-boon:event-core wire payload.sign) [@ %boon *] (on-take-boon:event-core wire payload.sign)
:: ::
[%b %wake *] (on-take-wake:event-core wire error.sign) [%behn %wake *] (on-take-wake:event-core wire error.sign)
:: ::
[%j %turf *] (on-take-turf:event-core turfs.sign) [%jael %turf *] (on-take-turf:event-core turfs.sign)
[%j %private-keys *] (on-priv:event-core [life vein]:sign) [%jael %private-keys *] (on-priv:event-core [life vein]:sign)
[%j %public-keys *] (on-publ:event-core wire public-keys-result.sign) [%jael %public-keys *] (on-publ:event-core wire public-keys-result.sign)
== ==
:: ::
[moves ames-gate] [moves ames-gate]

4
pkg/arvo/sys/vane/behn.hoon
View File

@ -15,8 +15,8 @@
$>(%flog task:able:dill) :: log output $>(%flog task:able:dill) :: log output
== == :: == == ::
+$ sign +$ sign
$~ [%b %wake ~] $~ [%behn %wake ~]
$% [%b $>(%wake gift:able)] $% [%behn $>(%wake gift:able)]
== ==
:: ::
+$ behn-state +$ behn-state

10
pkg/arvo/sys/vane/clay.hoon
View File

@ -318,26 +318,26 @@
== == :: == == ::
+$ riot (unit rant) :: response+complete +$ riot (unit rant) :: response+complete
+$ sign :: in result $<- +$ sign :: in result $<-
$~ [%b %wake ~] :: $~ [%behn %wake ~] ::
$% $: %a :: by %ames $% $: %ames ::
$> $? %boon :: response $> $? %boon :: response
%done :: (n)ack %done :: (n)ack
%lost :: lost boon %lost :: lost boon
== :: == ::
gift:able:ames :: gift:able:ames ::
== :: == ::
$: %b :: by %behn $: %behn ::
$% $>(%wake gift:able:behn) :: timer activate $% $>(%wake gift:able:behn) :: timer activate
$>(%writ gift:able) :: XX %slip $>(%writ gift:able) :: XX %slip
== == :: == == ::
$: %c :: by %clay $: %clay ::
$> $? %mere :: $> $? %mere ::
%note :: %note ::
%writ :: %writ ::
== :: == ::
gift:able :: gift:able ::
== :: == ::
$: %j :: by %jael $: %jael ::s
$>(%public-keys gift:able:jael) :: $>(%public-keys gift:able:jael) ::
== :: == ::
$: @tas :: by any $: @tas :: by any

22
pkg/arvo/sys/vane/dill.hoon
View File

@ -65,22 +65,22 @@
task:able:jael :: task:able:jael ::
== == :: == == ::
+$ sign :: in result $<- +$ sign :: in result $<-
$~ [%d %blit ~] :: $~ [%dill %blit ~] ::
$% $: %b :: $% $: %behn ::
$% $>(%writ gift:able:clay) :: XX %slip $% $>(%writ gift:able:clay) :: XX %slip
$>(%mere gift:able:clay) :: XX %slip $>(%mere gift:able:clay) :: XX %slip
== == :: == == ::
$: %c :: $: %clay ::
$> $? %mere :: $> $? %mere ::
%note :: %note ::
%writ :: %writ ::
== :: == ::
gift:able:clay :: gift:able:clay ::
== :: == ::
$: %d :: $: %dill ::
$>(%blit gift:able:dill) :: $>(%blit gift:able:dill) ::
== :: == ::
$: %g :: $: %gall ::
$> $? %onto :: $> $? %onto ::
%unto :: %unto ::
== :: == ::
@ -255,14 +255,14 @@
|= [tea=wire sih=sign] |= [tea=wire sih=sign]
^+ +> ^+ +>
?- sih ?- sih
[%g %onto *] [%gall %onto *]
:: ~& [%take-gall-onto +>.sih] :: ~& [%take-gall-onto +>.sih]
?- -.+>.sih ?- -.+>.sih
%| (crud %onto p.p.+>.sih) %| (crud %onto p.p.+>.sih)
%& (done %blit [%lin (tuba "{<p.p.sih>}")]~) %& (done %blit [%lin (tuba "{<p.p.sih>}")]~)
== ==
:: ::
[%g %unto *] [%gall %unto *]
:: ~& [%take-gall-unto +>.sih] :: ~& [%take-gall-unto +>.sih]
?- -.+>.sih ?- -.+>.sih
%poke-ack ?~(p.p.+>.sih +>.$ (crud %coup u.p.p.+>.sih)) %poke-ack ?~(p.p.+>.sih +>.$ (crud %coup u.p.p.+>.sih))
@ -273,18 +273,18 @@
%fact (from ;;(dill-blit q:`vase`+>+>.sih)) %fact (from ;;(dill-blit q:`vase`+>+>.sih))
== ==
:: ::
[%c %note *] [%clay %note *]
(from %out (tuba p.sih ' ' ~(ram re q.sih))) (from %out (tuba p.sih ' ' ~(ram re q.sih)))
:: ::
[?(%b %c) %writ *] [?(%behn %clay) %writ *]
init init
:: ::
[?(%b %c) %mere *] [?(%behn %clay) %mere *]
?: ?=(%& -.p.sih) ?: ?=(%& -.p.sih)
mere mere
(mean >%dill-mere-fail< >p.p.p.sih< q.p.p.sih) (mean >%dill-mere-fail< >p.p.p.sih< q.p.p.sih)
:: ::
[%d %blit *] [%dill %blit *]
(done +.sih) (done +.sih)
== ==
-- --

30
pkg/arvo/sys/vane/eyre.hoon
View File

@ -47,18 +47,10 @@
:: +sign: private response from another vane to eyre :: +sign: private response from another vane to eyre
:: ::
+$ sign +$ sign
$% :: %b: from behn $% $: %behn
::
$: %b
::
::
$% [%wake error=(unit tang)] $% [%wake error=(unit tang)]
== == == ==
:: %g: from gall $: %gall
::
$: %g
::
::
gift:able:gall gift:able:gall
:: $>(%unto gift:able:gall) :: $>(%unto gift:able:gall)
== == == ==
@ -2317,7 +2309,7 @@
~|(%eyre-take-dud (mean tang.u.dud)) ~|(%eyre-take-dud (mean tang.u.dud))
=> %= . => %= .
sign sign
?: ?=(%g -.sign) ?: ?=(%gall -.sign)
?> ?=(%unto +<.sign) ?> ?=(%unto +<.sign)
sign sign
sign sign
@ -2340,7 +2332,7 @@
:: ::
++ run-app-request ++ run-app-request
:: ::
?> ?=([%g %unto *] sign) ?> ?=([%gall %unto *] sign)
:: ::
:: ::
?> ?=([%poke-ack *] p.sign) ?> ?=([%poke-ack *] p.sign)
@ -2363,7 +2355,7 @@
=/ event-args [[eny duct now rof] server-state.ax] =/ event-args [[eny duct now rof] server-state.ax]
:: ::
?> ?=([@ *] t.wire) ?> ?=([@ *] t.wire)
?: ?=([%g %unto %watch-ack *] sign) ?: ?=([%gall %unto %watch-ack *] sign)
?~ p.p.sign ?~ p.p.sign
:: received a positive acknowledgment: take no action :: received a positive acknowledgment: take no action
:: ::
@ -2375,13 +2367,13 @@
=^ moves server-state.ax (handle-gall-error u.p.p.sign) =^ moves server-state.ax (handle-gall-error u.p.p.sign)
[moves http-server-gate] [moves http-server-gate]
:: ::
?: ?=([%g %unto %kick ~] sign) ?: ?=([%gall %unto %kick ~] sign)
=/ handle-response handle-response:(per-server-event event-args) =/ handle-response handle-response:(per-server-event event-args)
=^ moves server-state.ax =^ moves server-state.ax
(handle-response %continue ~ &) (handle-response %continue ~ &)
[moves http-server-gate] [moves http-server-gate]
:: ::
?> ?=([%g %unto %fact *] sign) ?> ?=([%gall %unto %fact *] sign)
=/ =mark p.cage.p.sign =/ =mark p.cage.p.sign
=/ =vase q.cage.p.sign =/ =vase q.cage.p.sign
?. ?= ?(%http-response-header %http-response-data %http-response-cancel) ?. ?= ?(%http-response-header %http-response-data %http-response-cancel)
@ -2414,7 +2406,7 @@
~|([%bad-channel-wire wire] !!) ~|([%bad-channel-wire wire] !!)
:: ::
%timeout %timeout
?> ?=([%b %wake *] sign) ?> ?=([%behn %wake *] sign)
?^ error.sign ?^ error.sign
[[duct %slip %d %flog %crud %wake u.error.sign]~ http-server-gate] [[duct %slip %d %flog %crud %wake u.error.sign]~ http-server-gate]
=/ discard-channel =/ discard-channel
@ -2431,7 +2423,7 @@
[moves http-server-gate] [moves http-server-gate]
:: ::
?(%poke %subscription) ?(%poke %subscription)
?> ?=([%g %unto *] sign) ?> ?=([%gall %unto *] sign)
~| wire ~| wire
?> ?=([@ @ @t @ *] wire) ?> ?=([@ @ @t @ *] wire)
=* channel-id i.t.t.wire =* channel-id i.t.t.wire
@ -2448,7 +2440,7 @@
:: ::
++ sessions ++ sessions
:: ::
?> ?=([%b %wake *] sign) ?> ?=([%behn %wake *] sign)
:: ::
?^ error.sign ?^ error.sign
[[duct %slip %d %flog %crud %wake u.error.sign]~ http-server-gate] [[duct %slip %d %flog %crud %wake u.error.sign]~ http-server-gate]
@ -2473,7 +2465,7 @@
(min next expiry-time) (min next expiry-time)
:: ::
++ acme-ack ++ acme-ack
?> ?=([%g %unto *] sign) ?> ?=([%gall %unto *] sign)
:: ::
?> ?=([%poke-ack *] p.sign) ?> ?=([%poke-ack *] p.sign)
?~ p.p.sign ?~ p.p.sign

25
pkg/arvo/sys/vane/gall.hoon
View File

@ -1,3 +1,4 @@
!:
:: :: %gall, agent execution :: :: %gall, agent execution
!? 163 !? 163
:: ::
@ -506,7 +507,7 @@
++ mo-handle-sys-era ++ mo-handle-sys-era
|= [=path =sign-arvo] |= [=path =sign-arvo]
^+ mo-core ^+ mo-core
?> ?=([%j %public-keys *] sign-arvo) ?> ?=([%jael %public-keys *] sign-arvo)
?> ?=([%era ~] path) ?> ?=([%era ~] path)
?. ?=(%breach -.public-keys-result.sign-arvo) ?. ?=(%breach -.public-keys-result.sign-arvo)
mo-core mo-core
@ -521,7 +522,7 @@
=/ [dap=term her=@ta desk=@ta dat=@ta ~] t.path =/ [dap=term her=@ta desk=@ta dat=@ta ~] t.path
=/ tim (slav da+dat) =/ tim (slav da+dat)
=/ =beak [(slav %p her) desk da+tim] =/ =beak [(slav %p her) desk da+tim]
?> ?=([?(%b %c) %writ *] sign-arvo) ?> ?=([?(%behn %clay) %writ *] sign-arvo)
|^ ^+ mo-core |^ ^+ mo-core
?~ p.sign-arvo ?~ p.sign-arvo
(fail leaf+"gall: failed to build agent {<dap>}" ~) (fail leaf+"gall: failed to build agent {<dap>}" ~)
@ -548,7 +549,7 @@
|= [=path =sign-arvo] |= [=path =sign-arvo]
^+ mo-core ^+ mo-core
?> ?=([%lyv ~] path) ?> ?=([%lyv ~] path)
?> ?=([?(%b %c) %wris *] sign-arvo) ?> ?=([?(%behn %clay) %wris *] sign-arvo)
=/ bek=beak [our %home p.sign-arvo] =/ bek=beak [our %home p.sign-arvo]
=/ nex=(list [=care:clay =^path]) ~(tap in q.sign-arvo) =/ nex=(list [=care:clay =^path]) ~(tap in q.sign-arvo)
~> %slog.[0 leaf+"gall: reloading agents"] ~> %slog.[0 leaf+"gall: reloading agents"]
@ -575,7 +576,7 @@
^+ mo-core ^+ mo-core
:: ::
?> ?=([%lag ~] path) ?> ?=([%lag ~] path)
?> ?=([%a %clog *] sign-arvo) ?> ?=([%ames %clog *] sign-arvo)
:: ::
=/ agents=(list term) ~(tap in ~(key by yokes.state)) =/ agents=(list term) ~(tap in ~(key by yokes.state))
|- ^+ mo-core |- ^+ mo-core
@ -598,7 +599,7 @@
=/ him (slav %p i.t.path) =/ him (slav %p i.t.path)
=/ dap i.t.t.path =/ dap i.t.t.path
:: ::
?> ?=([?(%g %b) %unto *] sign-arvo) ?> ?=([?(%gall %behn) %unto *] sign-arvo)
=/ =sign:agent +>.sign-arvo =/ =sign:agent +>.sign-arvo
:: ::
?- -.sign ?- -.sign
@ -631,7 +632,7 @@
=/ foreign-agent i.t.t.wire =/ foreign-agent i.t.t.wire
:: ::
?+ sign-arvo !! ?+ sign-arvo !!
[%a %done *] [%ames %done *]
=^ remote-request outstanding.state =^ remote-request outstanding.state
?~ t.t.t.wire ?~ t.t.t.wire
=/ full-wire sys+wire =/ full-wire sys+wire
@ -664,7 +665,7 @@
%missing (mo-give:(mo-give %unto %watch-ack err) %unto %poke-ack err) %missing (mo-give:(mo-give %unto %watch-ack err) %unto %poke-ack err)
== ==
:: ::
[%a %boon *] [%ames %boon *]
?^ t.t.t.wire ?^ t.t.t.wire
:: kill subscriptions which use the old wire format :: kill subscriptions which use the old wire format
:: ::
@ -672,7 +673,7 @@
=/ =ames-response ;;(ames-response payload.sign-arvo) =/ =ames-response ;;(ames-response payload.sign-arvo)
(mo-handle-ames-response ames-response) (mo-handle-ames-response ames-response)
:: ::
[%a %lost *] [%ames %lost *]
:: note this should only happen on reverse bones, so only facts :: note this should only happen on reverse bones, so only facts
:: and kicks :: and kicks
:: ::
@ -709,7 +710,7 @@
?. =(nonce.u.yoke i.t.path) ?. =(nonce.u.yoke i.t.path)
%- (slog leaf+"gall: got old {<+<.sign-arvo>} for {<dap>}" ~) %- (slog leaf+"gall: got old {<+<.sign-arvo>} for {<dap>}" ~)
mo-core mo-core
?. ?=([?(%g %b) %unto *] sign-arvo) ?. ?=([?(%gall %behn) %unto *] sign-arvo)
?: ?=(%| -.agent.u.yoke) ?: ?=(%| -.agent.u.yoke)
%- (slog leaf+"gall: {<dap>} dozing, dropping {<+<.sign-arvo>}" ~) %- (slog leaf+"gall: {<dap>} dozing, dropping {<+<.sign-arvo>}" ~)
mo-core mo-core
@ -760,7 +761,7 @@
=/ card =/ card
?: ?=(%& -.blocker) ?: ?=(%& -.blocker)
[%slip %g %deal sock dap p.blocker] [%slip %g %deal sock dap p.blocker]
[%pass /clear-huck %b %huck %g %unto p.blocker] [%pass /clear-huck %b %huck `sign-arvo`[%gall %unto p.blocker]]
[duct card] [duct card]
$(moves [move moves]) $(moves [move moves])
:: +mo-filter-queue: remove all blocked tasks from ship. :: +mo-filter-queue: remove all blocked tasks from ship.
@ -1525,7 +1526,7 @@
=. ap-core =. ap-core
(ap-pass wire %agent dock %leave ~) (ap-pass wire %agent dock %leave ~)
=/ way [%out (scot %p p.dock) q.dock wire] =/ way [%out (scot %p p.dock) q.dock wire]
(ap-pass way %arvo %b %huck `sign-arvo`[%g %unto %kick ~]) (ap-pass way %arvo %b %huck `sign-arvo`[%gall %unto %kick ~])
:: +ap-mule: run virtualized with intercepted scry, preserving type :: +ap-mule: run virtualized with intercepted scry, preserving type
:: ::
:: Compare +mute and +mule. Those pass through scry, which :: Compare +mute and +mule. Those pass through scry, which
@ -1778,7 +1779,7 @@
~| [%gall-take-failed wire] ~| [%gall-take-failed wire]
?> ?=([?(%sys %use) *] wire) ?> ?=([?(%sys %use) *] wire)
=< mo-abet =< mo-abet
%. [t.wire ?:(?=([%b %heck *] syn) syn.syn syn)] %. [t.wire ?:(?=([%behn %heck *] syn) syn.syn syn)]
?- i.wire ?- i.wire
%sys mo-handle-sys:(mo-abed:mo duct) %sys mo-handle-sys:(mo-abed:mo duct)
%use mo-handle-use:(mo-abed:mo duct) %use mo-handle-use:(mo-abed:mo duct)

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

@ -98,16 +98,16 @@
== == == :: == == == ::
:: :: :: ::
+$ sign :: in result $<- +$ sign :: in result $<-
$~ [%a %done ~] :: $~ [%behn %wake ~] ::
$% $: %a :: $% $: %ames ::
$% $>(%boon gift:able:ames) :: message response $% $>(%boon gift:able:ames) :: message response
$>(%done gift:able:ames) :: message (n)ack $>(%done gift:able:ames) :: message (n)ack
$>(%lost gift:able:ames) :: lost boon $>(%lost gift:able:ames) :: lost boon
== == :: == == ::
$: %b :: $: %behn ::
$>(%wake gift:able:behn) :: $>(%wake gift:able:behn) ::
== :: == ::
$: %g :: $: %gall ::
$> $? %onto :: $> $? %onto ::
%unto :: %unto ::
== :: == ::
@ -528,25 +528,25 @@
|= [tea=wire hen=duct hin=sign] |= [tea=wire hen=duct hin=sign]
^+ +> ^+ +>
?- hin ?- hin
[%a %done *] [%ames %done *]
?~ error.hin +>.$ ?~ error.hin +>.$
~& [%done-bad tag.u.error.hin] ~& [%done-bad tag.u.error.hin]
%- (slog tang.u.error.hin) %- (slog tang.u.error.hin)
::TODO fail:et ::TODO fail:et
+>.$ +>.$
:: ::
[%a %boon *] [%ames %boon *]
=+ ;; [%public-keys-result =public-keys-result] payload.hin =+ ;; [%public-keys-result =public-keys-result] payload.hin
%- curd =< abet %- curd =< abet
(public-keys:~(feel su hen now pki etn) pos.zim.pki public-keys-result) (public-keys:~(feel su hen now pki etn) pos.zim.pki public-keys-result)
:: ::
[%a %lost *] [%ames %lost *]
:: TODO: better error handling :: TODO: better error handling
:: ::
~| %jael-ames-lost ~| %jael-ames-lost
!! !!
:: ::
[%b %wake *] [%behn %wake *]
?^ error.hin ?^ error.hin
%- %+ slog %- %+ slog
leaf+"jael unable to resubscribe, run :azimuth-tracker|listen" leaf+"jael unable to resubscribe, run :azimuth-tracker|listen"
@ -559,11 +559,11 @@
%- curd =< abet %- curd =< abet
(sources:~(feel su hen now pki etn) ships source) (sources:~(feel su hen now pki etn) ships source)
:: ::
[%g %onto *] [%gall %onto *]
~& [%jael-onto tea hin] ~& [%jael-onto tea hin]
+>.$ +>.$
:: ::
[%g %unto *] [%gall %unto *]
?- +>-.hin ?- +>-.hin
%kick ~|([%jael-unexpected-quit tea hin] !!) %kick ~|([%jael-unexpected-quit tea hin] !!)
%poke-ack %poke-ack

18
pkg/arvo/sys/zuse.hoon
View File

@ -2193,9 +2193,11 @@
[%j task:able:jael] [%j task:able:jael]
[@tas %meta vase] [@tas %meta vase]
== ==
:: full vane names are required in vanes
::
+$ sign-arvo :: in result $<- +$ sign-arvo :: in result $<-
$% [%a gift:able:ames] $% [%ames gift:able:ames]
$: %b $: %behn
$% gift:able:behn $% gift:able:behn
$>(%wris gift:able:clay) $>(%wris gift:able:clay)
$>(%writ gift:able:clay) $>(%writ gift:able:clay)
@ -2203,12 +2205,12 @@
$>(%unto gift:able:gall) $>(%unto gift:able:gall)
== ==
== ==
[%c gift:able:clay] [%clay gift:able:clay]
[%d gift:able:dill] [%dill gift:able:dill]
[%e gift:able:eyre] [%eyre gift:able:eyre]
[%g gift:able:gall] [%gall gift:able:gall]
[%i gift:able:iris] [%iris gift:able:iris]
[%j gift:able:jael] [%jael gift:able:jael]
== ==
:: $unix-task: input from unix :: $unix-task: input from unix
:: ::

2
pkg/arvo/ted/aqua/behn.hoon
View File

@ -102,7 +102,7 @@
:: ::
++ handle-arvo-response ++ handle-arvo-response
|= [=wire =sign-arvo] |= [=wire =sign-arvo]
?> ?=([%b %wake *] sign-arvo) ?> ?=([%behn %wake *] sign-arvo)
?> ?=([@ *] wire) ?> ?=([@ *] wire)
=/ who (,@p (slav %p i.wire)) =/ who (,@p (slav %p i.wire))
=^ cards piers =^ cards piers

2
pkg/arvo/ted/aqua/eyre.hoon
View File

@ -118,7 +118,7 @@
++ handle-arvo-response ++ handle-arvo-response
|= [=wire =sign-arvo] |= [=wire =sign-arvo]
^- (quip card:agent:gall _this) ^- (quip card:agent:gall _this)
?> ?=([%i %http-response %finished *] sign-arvo) ?> ?=([%iris %http-response %finished *] sign-arvo)
?> ?=([@ *] wire) ?> ?=([@ *] wire)
=/ who (,@p (slav %p i.wire)) =/ who (,@p (slav %p i.wire))
=/ =httr:eyre =/ =httr:eyre