mirror of
https://github.com/urbit/shrub.git
synced 2025-01-03 10:02:32 +03:00
parent
a1b3348cdf
commit
283e5ad1db
@ -1,4 +1,5 @@
|
||||
:: %gall, agent execution
|
||||
!:
|
||||
:: :: %gall, agent execution
|
||||
!? 163
|
||||
::
|
||||
::::
|
||||
@ -529,7 +530,7 @@
|
||||
|= [=wire =sign-arvo]
|
||||
^+ mo-core
|
||||
::
|
||||
?+ -.wire (mean 'gall: bad sys wire' >wire< ~)
|
||||
?+ -.wire !!
|
||||
%lyv (mo-handle-sys-lyv wire sign-arvo)
|
||||
%era (mo-handle-sys-era wire sign-arvo)
|
||||
%cor (mo-handle-sys-cor wire sign-arvo)
|
||||
@ -663,7 +664,7 @@
|
||||
=/ =ship (slav %p i.t.wire)
|
||||
=/ foreign-agent i.t.t.wire
|
||||
::
|
||||
?+ sign-arvo (mean 'gall: strange sign' >[- +<]:sign-arvo< ~)
|
||||
?+ sign-arvo !!
|
||||
[%ames %done *]
|
||||
=^ remote-request outstanding.state
|
||||
?~ t.t.t.wire
|
||||
@ -702,7 +703,7 @@
|
||||
?^ t.t.t.wire
|
||||
:: kill subscriptions which use the old wire format
|
||||
::
|
||||
~_('gall: killing old style subscription' !!)
|
||||
!!
|
||||
=/ =ames-response ;;(ames-response payload.sign-arvo)
|
||||
(mo-handle-ames-response ames-response)
|
||||
::
|
||||
@ -1071,7 +1072,7 @@
|
||||
^- (list move)
|
||||
::
|
||||
?- -.card
|
||||
%slip ~_('gall: non-slip' !!)
|
||||
%slip !!
|
||||
::
|
||||
%give
|
||||
=/ =gift:agent p.card
|
||||
@ -1237,8 +1238,8 @@
|
||||
%watch-as (ap-subscribe-as +.deal)
|
||||
%poke (ap-poke +.deal)
|
||||
%watch (ap-subscribe +.deal)
|
||||
%raw-poke ~_('gall: %raw-poke unapplicable' !!)
|
||||
%poke-as ~_('gall: %poke-as unapplicable' !!)
|
||||
%raw-poke !!
|
||||
%poke-as !!
|
||||
%leave ap-load-delete
|
||||
==
|
||||
:: +ap-peek: peek.
|
||||
@ -1337,7 +1338,7 @@
|
||||
(ap-install(agent.yoke &+agent) `old-state)
|
||||
?~ error
|
||||
ap-core
|
||||
(mean 'gall: load failed' (flop u.error))
|
||||
(mean >%load-failed< u.error)
|
||||
:: +ap-subscribe-as: apply %watch-as.
|
||||
::
|
||||
++ ap-subscribe-as
|
||||
@ -1730,7 +1731,7 @@
|
||||
==
|
||||
:: +load: recreate vane; note, only valid if called from pupa
|
||||
::
|
||||
++ load ~_('gall: adult load' !!)
|
||||
++ load !!
|
||||
:: +scry: standard scry
|
||||
::
|
||||
++ scry
|
||||
|
Loading…
Reference in New Issue
Block a user