mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-28 11:40:11 +03:00
Restore unified old naming of ames tasks/gifts.
This commit is contained in:
C. Guy Yarvin
parent
081ddcb634
commit
b889898efb
@ -17,7 +17,6 @@
|
||||
== == ::
|
||||
$: @tas :: to any
|
||||
$% {$init p/@p} ::
|
||||
{$want p/sock q/path r/*} ::
|
||||
{$wart p/sock q/@tas r/path s/*} ::
|
||||
{$west p/sack q/path r/*} ::
|
||||
== == == ::
|
||||
@ -631,7 +630,7 @@
|
||||
%^ cat 7
|
||||
p.u.yed.caq.dur
|
||||
(en:r:cluy q.u.yed.caq.dur (jam ham))
|
||||
?: &(=(~ lew.wod.dur) =(%buck -.ham))
|
||||
?: &(=(~ lew.wod.dur) =(%back -.ham))
|
||||
[wasp ..wisp]
|
||||
=^ tuy +>.$
|
||||
?:(=(~ lew.wod.dur) [*code +>.$] (griz now))
|
||||
@ -1130,7 +1129,7 @@
|
||||
raz.bah (~(put by raz.bah) cha rum(dod |))
|
||||
bin
|
||||
:_ bin
|
||||
:^ %mulk
|
||||
:^ %milk
|
||||
[our her]
|
||||
`soap`[[p:sen:gus clon:diz] cha did.rum]
|
||||
u.s.u.cun
|
||||
@ -1154,7 +1153,7 @@
|
||||
?^ ram raz.bah
|
||||
%+ ~(put by raz.bah) cha
|
||||
rum(dod &, bum ?~(cop bum.rum (~(put by bum.rum) did.rum u.cop)))
|
||||
=^ roc diz (zuul:diz now [%buck cop dam ~s0])
|
||||
=^ roc diz (zuul:diz now [%back cop dam ~s0])
|
||||
(busk(diz (wast:diz ryn)) xong:diz roc)
|
||||
::
|
||||
++ done :: done:ho:um:am
|
||||
@ -1253,7 +1252,7 @@
|
||||
^+ . :: send new ack
|
||||
:: ~& [%back kay dam]
|
||||
=* cop `coop`?:(=(%good kay) ~ ``[%dead-packet ~])
|
||||
=^ pax diz (zuul:diz now [%buck cop dam ~s0])
|
||||
=^ pax diz (zuul:diz now [%back cop dam ~s0])
|
||||
+(+> (busk(diz (wast:diz ryn)) xong:diz pax))
|
||||
::
|
||||
++ deer :: deer:la:ho:um:am
|
||||
@ -1288,12 +1287,12 @@
|
||||
|= fud/meal :: interpret meal
|
||||
^+ +>
|
||||
?- -.fud
|
||||
$buck
|
||||
$back
|
||||
=. +> ?.(=(%full aut) +> cuck) :: finish key exch
|
||||
+>(..la (tock p.fud q.fud r.fud))
|
||||
::
|
||||
$bund
|
||||
:: ~& [%bund q.fud r.fud]
|
||||
$bond
|
||||
:: ~& [%bond q.fud r.fud]
|
||||
?> =(p:sen:gus p.fud)
|
||||
(deer q.fud r.fud ?-(kay $dead ~, $good [~ s.fud]))
|
||||
::
|
||||
@ -1416,7 +1415,7 @@
|
||||
rol(sed +(sed.rol), san (~(put by san.rol) sex hen))
|
||||
=+ cov=[p=p:sen:gus q=clon:diz]
|
||||
%+ wind [cha sex]
|
||||
[%bund q.cov cha sex val]
|
||||
[%bond q.cov cha sex val]
|
||||
::
|
||||
++ zest :: zest:ho:um:am
|
||||
:~ :~ :* [%rtt rtt.sop.bah]
|
||||
@ -1600,8 +1599,8 @@
|
||||
==
|
||||
::
|
||||
$mead :_(fox [[hen [%give %hear p.bon q.bon]] ~])
|
||||
$mulk
|
||||
:: ~& [%mulk p.bon q.bon]
|
||||
$milk
|
||||
:: ~& [%milk p.bon q.bon]
|
||||
?> ?=({@ @ *} q.q.bon)
|
||||
?> ?=(?($a $c $e $g) i.q.q.bon)
|
||||
=+ pax=[(scot %p p.p.bon) (scot %p q.p.bon) q.q.bon]
|
||||
@ -1712,7 +1711,7 @@
|
||||
$wake
|
||||
(~(wake am [now fox]) hen)
|
||||
::
|
||||
$wont
|
||||
$want
|
||||
(~(wise am [now fox]) p.kyz hen q.kyz r.kyz)
|
||||
==
|
||||
=> %_(. fox q.fuy)
|
||||
|
||||
@ -57,7 +57,7 @@
|
||||
== ::
|
||||
++ note :: out request $->
|
||||
$% $: $a :: to %ames
|
||||
$% {$wont p/sock q/path r/*} ::
|
||||
$% {$want p/sock q/path r/*} ::
|
||||
== == ::
|
||||
$: $c :: to %clay
|
||||
$% {$info p/@p q/@tas r/nori} :: internal edit
|
||||
@ -361,7 +361,7 @@
|
||||
::
|
||||
++ send-over-ames
|
||||
|= {a/duct b/path c/ship d/{p/@ud q/riff}}
|
||||
(emit a %pass b %a %wont [our c] [%c %question p.q.d (scot %ud p.d) ~] q.d)
|
||||
(emit a %pass b %a %want [our c] [%c %question p.q.d (scot %ud p.d) ~] q.d)
|
||||
::
|
||||
++ foon
|
||||
|= @da
|
||||
@ -3025,8 +3025,8 @@
|
||||
=+ our=(slav %p i.tea)
|
||||
=+ him=(slav %p i.t.tea)
|
||||
:_ ..^$
|
||||
:~ :* hen %pass /writ-wont %a
|
||||
%wont [our him] [%c %answer t.t.tea]
|
||||
:~ :* hen %pass /writ-want %a
|
||||
%want [our him] [%c %answer t.t.tea]
|
||||
(bind p.+.q.hin rant-to-rand)
|
||||
==
|
||||
==
|
||||
|
||||
@ -9,7 +9,7 @@
|
||||
++ move {p/duct q/(wind note gift)} :: local move
|
||||
++ note :: out request $->
|
||||
$% $: $a :: to %ames
|
||||
$% {$wont p/sock q/{path *}} ::
|
||||
$% {$want p/sock q/{path *}} ::
|
||||
== == ::
|
||||
$: $b :: to %behn
|
||||
$% {$wait p/@da} ::
|
||||
@ -919,7 +919,7 @@
|
||||
(pass-note tea [%e %meta :(slop !>(%them) !>(~) vax)])
|
||||
::
|
||||
++ ames-gram
|
||||
|=({him/ship gam/gram} (pass-note ~ %a %wont [our him] [%e -.gam] +.gam))
|
||||
|=({him/ship gam/gram} (pass-note ~ %a %want [our him] [%e -.gam] +.gam))
|
||||
::
|
||||
++ back :: %ford bounce
|
||||
|= {tea/whir mar/mark cay/cage}
|
||||
|
||||
@ -261,7 +261,7 @@
|
||||
==
|
||||
%+ mo-pass
|
||||
[%sys %way -.q.caz ~]
|
||||
`note-arvo`[%a %wont [our him] [%g %ge p.caz ~] [num roc]]
|
||||
`note-arvo`[%a %want [our him] [%g %ge p.caz ~] [num roc]]
|
||||
::
|
||||
++ mo-baal :: error convert a
|
||||
|= art/(unit ares)
|
||||
@ -373,7 +373,7 @@
|
||||
(mo-pass [%sys pax] %g %deal [him our] dap %pump ~)
|
||||
~& [%diff-bad-ack q.+>.sih] :: should not happen
|
||||
=. +>.$ (mo-pass [%sys pax] %g %deal [him our] dap %pull ~)
|
||||
(mo-pass [%sys pax] %a %wont [our him] [%g %gh dap ~] [num %x ~])
|
||||
(mo-pass [%sys pax] %a %want [our him] [%g %gh dap ~] [num %x ~])
|
||||
::
|
||||
$rep :: reverse request
|
||||
?> ?=({@ @ @ $~} t.pax)
|
||||
@ -407,9 +407,9 @@
|
||||
?- -.cuf
|
||||
$coup (mo-give %mack p.cuf)
|
||||
$diff %+ mo-pass [%sys %red t.pax]
|
||||
[%a %wont [our him] [%g %gh dap ~] [num %d p.p.cuf q.q.p.cuf]]
|
||||
[%a %want [our him] [%g %gh dap ~] [num %d p.p.cuf q.q.p.cuf]]
|
||||
$quit %+ mo-pass [%sys pax]
|
||||
[%a %wont [our him] [%g %gh dap ~] [num %x ~]]
|
||||
[%a %want [our him] [%g %gh dap ~] [num %x ~]]
|
||||
$reap (mo-give %mack p.cuf)
|
||||
==
|
||||
::
|
||||
@ -1237,7 +1237,6 @@
|
||||
$them `%e
|
||||
$wait `%b
|
||||
$want `%a
|
||||
$wont `%a :: XX for begin; remove
|
||||
$warp `%c
|
||||
$wipe `%f :: XX cache clear
|
||||
==
|
||||
|
||||
@ -2269,7 +2269,7 @@
|
||||
$% {$beer p/ship q/@uvG} :: gained ownership
|
||||
{$cake p/sock q/soap r/coop s/duct} :: e2e message result
|
||||
{$mead p/lane q/rock} :: accept packet
|
||||
{$mulk p/sock q/soap r/*} :: e2e pass message
|
||||
{$milk p/sock q/soap r/*} :: e2e pass message
|
||||
{$ouzo p/lane q/rock} :: transmit packet
|
||||
{$wine p/sock q/tape} :: notify user
|
||||
== ::
|
||||
@ -2462,8 +2462,8 @@
|
||||
++ mace (list {p/life q/ring}) :: private secrets
|
||||
++ math (map @t (list @t)) :: semiparsed headers
|
||||
++ meal :: payload
|
||||
$% {$buck p/coop q/flap r/@dr} :: ack
|
||||
{$bund p/life q/path r/@ud s/*} :: message
|
||||
$% {$back p/coop q/flap r/@dr} :: ack
|
||||
{$bond p/life q/path r/@ud s/*} :: message
|
||||
{$carp p/@ q/@ud r/@ud s/flap t/@} :: skin+inx+cnt+hash
|
||||
{$fore p/ship q/(unit lane) r/@} :: forwarded packet
|
||||
== ::
|
||||
@ -2668,7 +2668,7 @@
|
||||
{$mass p/mass} :: memory usage
|
||||
{$send p/lane q/@} :: transmit packet
|
||||
{$waft p/sock q/*} :: response message
|
||||
{$wart p/sock q/@tas r/path s/*} :: network request
|
||||
{$wart p/sock q/@tas r/path s/*} :: reverse request
|
||||
{$woot p/ship q/coop} :: reaction message
|
||||
== ::
|
||||
++ kiss-ames :: in request ->$
|
||||
@ -2685,7 +2685,7 @@
|
||||
{$wake $~} :: timer activate
|
||||
{$wegh $~} :: report memory
|
||||
{$west p/sack q/path r/*} :: network request
|
||||
{$wont p/sock q/path r/*} :: send message
|
||||
{$want p/sock q/path r/*} :: forward message
|
||||
== ::
|
||||
::
|
||||
:::: %behn
|
||||
|
||||
@ -59,7 +59,7 @@
|
||||
{$nuke wire ship} ::
|
||||
{$serv wire ?(desk beam)} ::
|
||||
{$poke wire dock pear} ::
|
||||
{$wont wire sock path *} :: send message
|
||||
{$want wire sock path *} :: send message
|
||||
== ::
|
||||
++ move (pair bone card) :: user-level move
|
||||
++ pear :: poke fruit
|
||||
@ -85,7 +85,7 @@
|
||||
=+ buz=(shaz :(mix (jam ges) eny))
|
||||
=+ loy=(pit:nu:crub 512 buz)
|
||||
%- emit(bur `[his [0 sec:ex:loy]~])
|
||||
[%wont /helm/ticket [our (sein his)] /a/ta his tic ges pub:ex:loy]
|
||||
[%want /helm/ticket [our (sein his)] /a/ta his tic ges pub:ex:loy]
|
||||
::
|
||||
++ poke-init :: initialize
|
||||
|= him/ship =< abet
|
||||
@ -225,7 +225,7 @@
|
||||
|= {way/wire chr/@tD tan/tank} =< abet
|
||||
(emit %flog ~ %text chr ' ' ~(ram re tan))
|
||||
::
|
||||
++ take-woot :: result of %wont
|
||||
++ take-woot :: result of %want
|
||||
|= {way/wire her/ship cop/coop} =< abet
|
||||
(emit %flog ~ %text "woot: {<[way cop]>}")
|
||||
--
|
||||
|
||||
Loading…
Reference in New Issue
Block a user