mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-03 14:37:05 +03:00
%ames to %gall as /q/gm/[app]/[logo].
This commit is contained in:
C. Guy Yarvin
parent
53658de351
commit
43f7dcba1d
@ -17,6 +17,7 @@
|
||||
[%wart p=sock q=@tas r=path s=*] :: network request
|
||||
[%went p=ship q=cape] :: reaction message
|
||||
== ::
|
||||
++ hasp ,[p=ship q=term] :: see %gall
|
||||
++ kiss :: in request ->$
|
||||
$% [%crud p=@tas q=(list tank)] :: error with trace
|
||||
[%cash p=@p q=buck] :: civil license
|
||||
@ -37,6 +38,9 @@
|
||||
$: %a :: to %ames
|
||||
$% [%kick p=@da] ::
|
||||
== == ::
|
||||
$: %g :: to %gall
|
||||
[%muss p=hasp q=ship r=logo s=*] ::
|
||||
==
|
||||
$: @tas :: to any
|
||||
$% [%init p=@p] ::
|
||||
[%want p=sock q=path r=*] ::
|
||||
@ -46,6 +50,9 @@
|
||||
$? $: %a :: from %ames
|
||||
$% [%went p=ship q=cape] ::
|
||||
== == ::
|
||||
$: %g :: from %gall
|
||||
$% [%rasp p=(unit (pair logo noun))] ::
|
||||
== == ::
|
||||
$: @tas ::
|
||||
$% [%crud p=@tas q=(list tank)] :: by any
|
||||
[%send p=lane q=@] :: transmit packet
|
||||
@ -1608,6 +1615,14 @@
|
||||
:~ :- (claw p.p.bon)
|
||||
[%sick %wart p.bon i.t.q.q.bon t.t.q.q.bon r.bon]
|
||||
==
|
||||
::
|
||||
%gm :: general message
|
||||
?> ?=([@ @ *] t.t.q.q.bon)
|
||||
=+ app=`term`(need ((sand %tas) i.t.t.q.q.bon))
|
||||
=+ for=`logo`(need ((sand %tas) i.t.t.t.q.q.bon))
|
||||
:_ fox
|
||||
:~ [hen [%pass ~ %g %muss [p.p.bon app] q.p.bon for r.bon]]
|
||||
==
|
||||
::
|
||||
%pi :: ping
|
||||
$(bon [%wine p.bon " sent a ping at {(scow %da now)}"])
|
||||
@ -1670,6 +1685,8 @@
|
||||
^- [(list move) _+>]
|
||||
?- +<.sih
|
||||
%crud [[[hen [%slip %d %flog +.sih]] ~] +>]
|
||||
%rasp ~& %knap-rasp
|
||||
[~ +>]
|
||||
%send [[hen %give +.sih]~ +>]
|
||||
%went [~ +>]
|
||||
==
|
||||
|
||||
@ -413,6 +413,14 @@
|
||||
|= [cof=cafe pro=vase]
|
||||
(fine cof ~ pro)
|
||||
::
|
||||
++ lave :: validate
|
||||
|= [cof=cafe for=logo sax=sack som=*]
|
||||
=+ lok=`case`[%da now]
|
||||
=+ ^= own ^- ship
|
||||
=+ von=(ska %cy (tope [[p.sax %main lok] /core/ref/[for]/sys]))
|
||||
?~(von q.sax p.sax)
|
||||
((lake for [own %main lok]) cof [%noun som])
|
||||
::
|
||||
++ lair :: metaload
|
||||
|= [for=logo bem=beam]
|
||||
|= [cof=cafe vax=vase]
|
||||
@ -612,6 +620,12 @@
|
||||
(fine cof %noun vax)
|
||||
::
|
||||
%reef (fine cof %noun pit)
|
||||
%vale
|
||||
%+ cope (lave cof p.kas q.kas r.kas)
|
||||
|= [cof=cafe vux=(unit vase)]
|
||||
?~ vux
|
||||
(flaw cof [%leaf "invalid logos: {<[p.kas q.kas]>}"]~)
|
||||
(fine cof `cage`[p.kas u.vux])
|
||||
==
|
||||
::
|
||||
++ maim :: slap
|
||||
|
||||
@ -22,14 +22,16 @@
|
||||
$% [%init p=ship] :: initialize owner
|
||||
[%show p=hasp q=ship r=path] :: subscribe
|
||||
:: [%cuff p=(unit cuff) q=kiss] :: controlled kiss
|
||||
[%mess p=hasp q=ship r=cage] :: message
|
||||
[%mess p=hasp q=ship r=cage] :: typed message
|
||||
[%muss p=hasp q=ship r=logo s=*] :: untyped message
|
||||
[%nuke p=hasp] :: clear duct
|
||||
== ::
|
||||
++ knob :: pending action
|
||||
$% [%boot ~] :: begin boot
|
||||
[%crud p=@tas q=(list tank)] :: error
|
||||
[%load p=cage] :: continue boot
|
||||
[%mess p=ship q=cage] :: message
|
||||
[%mess p=ship q=cage] :: typed message
|
||||
[%muss p=ship q=logo r=*] :: untyped message
|
||||
[%show p=ship q=path] :: subscribe
|
||||
[%nuke ~] :: clear duct
|
||||
[%take p=path q=vase] :: user result
|
||||
@ -159,6 +161,7 @@
|
||||
?- -.q.hic
|
||||
:: %cuff $(q.hic q.q.hic, law (limp p.q.hic law))
|
||||
%mess [law p.q.hic %mess q.q.hic r.q.hic]
|
||||
%muss [law p.q.hic %muss q.q.hic r.q.hic s.q.hic]
|
||||
%show [law p.q.hic %show q.q.hic r.q.hic]
|
||||
%nuke [law p.q.hic %nuke ~]
|
||||
==
|
||||
@ -486,6 +489,15 @@
|
||||
qic.sat ~
|
||||
==
|
||||
?+ i.t.pax !!
|
||||
%muss
|
||||
?> ?=([@ ~] t.t.pax)
|
||||
=+ you=(need (slaw %p i.t.t.pax))
|
||||
?> ?=(%made -.+.q.hin)
|
||||
?- -.p.+.q.hin
|
||||
| (give:(give %rasp ~) [%crud %vale p.p.+.q.hin])
|
||||
& (quen %mess you q.p.p.+.q.hin)
|
||||
==
|
||||
::
|
||||
%park
|
||||
=^ gyd +>.$ (murk q.hin)
|
||||
?~ gyd
|
||||
@ -705,6 +717,10 @@
|
||||
:: ~& [%mess-poke cog]
|
||||
%+ ford /s/poke
|
||||
[%call (harm cog (conf (core u.huv.sat))) (cove %$ sam)]
|
||||
::
|
||||
%muss
|
||||
%+ ford /s/muss/[(scot %p p.kon)]
|
||||
[%vale q.kon [our p.kon] r.kon]
|
||||
::
|
||||
%show
|
||||
?: (warm %peer)
|
||||
|
||||
@ -2369,6 +2369,7 @@
|
||||
++ rout ,[p=(list host) q=path r=oryx s=path] :: http route (new)
|
||||
++ rump ,[p=care q=case r=@tas s=path] :: relative path
|
||||
++ saba ,[p=ship q=@tas r=moar s=(list nori)] :: patch/merge
|
||||
++ sack ,[p=ship q=ship] :: incoming [our his]
|
||||
++ sufi :: domestic host
|
||||
$: hoy=(list ship) :: hierarchy
|
||||
val=wund :: private keys
|
||||
@ -2414,6 +2415,7 @@
|
||||
[%mute p=silk q=(list (pair wing silk))] :: mutant
|
||||
[%pass p=silk q=sill] :: twig construction
|
||||
[%reef ~] :: kernel reef
|
||||
[%vale p=logo q=sack r=*] :: validate [our his]
|
||||
== ::
|
||||
++ sill :: code construction
|
||||
$% [%0 p=@] :: direct text
|
||||
@ -2435,7 +2437,7 @@
|
||||
pac=rock :: packet data
|
||||
== ::
|
||||
++ soba ,[p=cart q=(list tako)] :: delta
|
||||
++ sock ,[p=ship q=ship] :: from to
|
||||
++ sock ,[p=ship q=ship] :: outgoing [from to]
|
||||
++ spur path :: ship desk case spur
|
||||
++ step ,[p=bray q=gens r=pass] :: identity stage
|
||||
++ tako ,[p=path q=miso] :: change detail
|
||||
|
||||
Loading…
Reference in New Issue
Block a user