mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 18:12:47 +03:00
9. single-home %ames %want task
This commit is contained in:
parent
71afa6aba9
commit
ab02dec5cf
@ -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)
|
||||
|
@ -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)
|
||||
==
|
||||
==
|
||||
|
@ -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]
|
||||
|
@ -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)
|
||||
==
|
||||
::
|
||||
|
@ -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
|
||||
--
|
||||
--
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user