9. single-home %ames %want task

This commit is contained in:
Joe Bryan 2018-12-12 15:34:18 -05:00
parent 71afa6aba9
commit ab02dec5cf
6 changed files with 17 additions and 17 deletions

View File

@ -1474,7 +1474,7 @@
(~(wake am [our now fox ski]) hen)
::
%want
(~(wise am [our now fox ski]) hen q.p.kyz q.kyz r.kyz)
(~(wise am [our now fox ski]) hen p.kyz q.kyz r.kyz)
==
=> %_(. fox q.fuy)
=| out=(list move)

View File

@ -330,7 +330,7 @@
++ move {p/duct q/(wind note gift:able)} :: local move
++ note :: out request $->
$% $: $a :: to %ames
$% {$want p/sock q/path r/*} ::
$% {$want p/ship q/path r/*} ::
== == ::
$: $c :: to %clay
$% {$info p/@p q/@tas r/nori} :: internal edit
@ -700,7 +700,7 @@
::
++ send-over-ames
|= {a/duct b/path c/ship d/{p/@ud q/riff}}
(emit a %pass b %a %want [our c] [%c %question p.q.d (scot %ud p.d) ~] q.d)
(emit a %pass b %a %want c [%c %question p.q.d (scot %ud p.d) ~] q.d)
::
:: Create a request that cannot be filled immediately.
::
@ -4226,7 +4226,7 @@
=+ him=(slav %p i.t.tea)
:_ ..^$
:~ :* hen %pass /writ-want %a
%want [our him] [%c %answer t.t.tea]
%want him [%c %answer t.t.tea]
(bind p.+.q.hin rant-to-rand)
==
==

View File

@ -13,7 +13,7 @@
++ move {p/duct q/(wind note gift:able)} :: local move
++ note :: out request $->
$% $: $a :: to %ames
$% {$want p/sock q/{path *}} ::
$% {$want p/ship q/{path *}} ::
== == ::
$: $b :: to %behn
$% {$wait p/@da} ::
@ -1083,7 +1083,7 @@
:: TODO: To make this work
::
~! -.gam
(pass-note ~ %a %want [our him] [%e -.gam ~] +.gam)
(pass-note ~ %a %want him [%e -.gam ~] +.gam)
::
++ back-turbo
|= [tea=whir mar=mark cay=cage]

View File

@ -241,7 +241,7 @@
==
%+ mo-pass
[%sys %way -.q.caz ~]
`note-arvo`[%a %want [our him] [%g %ge p.caz ~] [num roc]]
`note-arvo`[%a %want him [%g %ge p.caz ~] [num roc]]
::
++ mo-baal :: error convert a
|= art/(unit ares)
@ -351,7 +351,7 @@
~& [%diff-bad-ack %mack]
(slog (flop q.,.+>.q.+>.sih))
=. +>.$ (mo-pass [%sys pax] %g %deal [him our] dap %pull ~)
(mo-pass [%sys pax] %a %want [our him] [%g %gh dap ~] [num %x ~])
(mo-pass [%sys pax] %a %want him [%g %gh dap ~] [num %x ~])
::
%rep :: reverse request
?> ?=({@ @ @ ~} t.pax)
@ -400,9 +400,9 @@
?- -.cuf
$coup (mo-give %mack p.cuf)
$diff %+ mo-pass [%sys %red t.pax]
[%a %want [our him] [%g %gh dap ~] [num %d p.p.cuf q.q.p.cuf]]
[%a %want him [%g %gh dap ~] [num %d p.p.cuf q.q.p.cuf]]
$quit %+ mo-pass [%sys pax]
[%a %want [our him] [%g %gh dap ~] [num %x ~]]
[%a %want him [%g %gh dap ~] [num %x ~]]
$reap (mo-give %mack p.cuf)
==
::

View File

@ -1097,7 +1097,7 @@
:+ %pass
/(scot %p our)/vent-result
^- note:able
[%a %want [our who] /j/(scot %p our)/vent-result %vent-result res]
[%a %want who /j/(scot %p our)/vent-result %vent-result res]
::
++ extract-snap :: extract rewind point
^- snapshot
@ -1210,7 +1210,7 @@
:_ moz
:^ *duct %pass /vest/(scot %p p.hug)
:+ %a %want
:+ [our p.hug] /j
:+ p.hug /j
^- message
[%hail |+pig]
==
@ -1702,7 +1702,7 @@
|= [our=ship who=ship]
%- put-move(source &+who)
%+ wrap-note /vent/(scot %p who)
[%a %want [our who] /j/(scot %p our)/vent `*`[%vent ~]]
[%a %want who /j/(scot %p our)/vent `*`[%vent ~]]
::
:: +unsubscribe-from-source: stop listening to current source ship
::
@ -1713,7 +1713,7 @@
%+ wrap-note /vent/(scot %p p.source)
::TODO should we maybe have a %nuke-vent,
:: or do we have a unique duct here?
[%a %want [our p.source] /j/(scot %p our)/vent `*`[%nuke ~]]
[%a %want p.source /j/(scot %p our)/vent `*`[%nuke ~]]
::
:: +listen-to-node: start syncing from a node
::
@ -2161,7 +2161,7 @@
:+ %pass
/(scot %p our)/vent-result
^- note:able
[%a %want [our who] /j/(scot %p our)/vent-result %vent-result res]
[%a %want who /j/(scot %p our)/vent-result %vent-result res]
:: :: ++feed:su
--
--

View File

@ -531,7 +531,7 @@
{$wake ~} :: timer activate
{$wegh ~} :: report memory
{$west p/sack q/path r/*} :: network request
{$want p/sock q/path r/*} :: forward message
{$want p/ship q/path r/*} :: forward message
== ::
-- ::able
::
@ -2102,7 +2102,7 @@
$% [%hiss p=(unit user) q=mark r=cage] :: outbound user req
== == ::
$: %a ::
$% [%want p=sock q=path r=*] :: send message
$% [%want p=ship q=path r=*] :: send message
== == ::
$: %j ::
$% [%vent-result p=vent-result] :: tmp workaround