mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
basic skeleton of %sire
This commit is contained in:
Ubuntu
parent
dd1b229b6b
commit
ba92dee46b
@ -1,4 +1,4 @@
|
|||||||
:: :: %gall, user-level applications
|
!: :: %gall, user-level applications
|
||||||
!? 164
|
!? 164
|
||||||
::::
|
::::
|
||||||
|= pit=vase
|
|= pit=vase
|
||||||
@ -37,6 +37,7 @@
|
|||||||
[%load p=cage] :: continue boot
|
[%load p=cage] :: continue boot
|
||||||
[%mess p=ship q=cage] :: typed message
|
[%mess p=ship q=cage] :: typed message
|
||||||
[%show p=ship q=path] :: subscribe
|
[%show p=ship q=path] :: subscribe
|
||||||
|
[%sire p=term q=span] :: spawn subprocess
|
||||||
[%nuke p=ship] :: clear duct
|
[%nuke p=ship] :: clear duct
|
||||||
[%take p=path q=vase] :: user result
|
[%take p=path q=vase] :: user result
|
||||||
== ::
|
== ::
|
||||||
@ -571,6 +572,13 @@
|
|||||||
say (rite q.orf)
|
say (rite q.orf)
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
|
++ birf
|
||||||
|
|= [wir=wire hon=duct caq=vase]
|
||||||
|
^- toil
|
||||||
|
?> ?=([%pass p=* q=%g r=[p=%sire q=term r=span]] q.caq)
|
||||||
|
:: [[[%g wir] hon] r.q.caq]
|
||||||
|
[hon r.q.caq]
|
||||||
|
::
|
||||||
++ blow
|
++ blow
|
||||||
^+ .
|
^+ .
|
||||||
=> (give %nice ~)
|
=> (give %nice ~)
|
||||||
@ -847,7 +855,11 @@
|
|||||||
++ nile [%done ~ [%$ [%cube 0 [%atom %n]] ~]] :: null silk
|
++ nile [%done ~ [%$ [%cube 0 [%atom %n]] ~]] :: null silk
|
||||||
++ obey :: process app moves
|
++ obey :: process app moves
|
||||||
|= vax=vase
|
|= vax=vase
|
||||||
%_(+> mow (weld (flop (said vax)) mow))
|
=+ sax=(said vax)
|
||||||
|
%_ +>.$
|
||||||
|
mow (weld (flop -.sax) mow)
|
||||||
|
vey.sat (~(gas to vey.sat) +.sax)
|
||||||
|
==
|
||||||
::
|
::
|
||||||
++ quem :: queue action
|
++ quem :: queue action
|
||||||
|= kon=knob :: content
|
|= kon=knob :: content
|
||||||
@ -869,9 +881,13 @@
|
|||||||
::
|
::
|
||||||
++ said
|
++ said
|
||||||
|= vud=vase
|
|= vud=vase
|
||||||
|- ^- (list move)
|
|- ^- [(list move) (list toil)]
|
||||||
?: =(~ q.vud) ~
|
?: =(~ q.vud) [~ ~]
|
||||||
[(sump (slot 2 vud)) $(vud (slot 3 vud))]
|
=+ sud=(sump (slot 2 vud))
|
||||||
|
=+ res=$(vud (slot 3 vud))
|
||||||
|
?: ?=(%& -.sud)
|
||||||
|
[[p.sud -.res] +.res]
|
||||||
|
[-.res [p.sud +.res]]
|
||||||
::
|
::
|
||||||
++ show :: subscribe
|
++ show :: subscribe
|
||||||
|= [you=ship pax=path] :: subscription
|
|= [you=ship pax=path] :: subscription
|
||||||
@ -884,17 +900,21 @@
|
|||||||
::
|
::
|
||||||
++ sump
|
++ sump
|
||||||
|= wec=vase
|
|= wec=vase
|
||||||
^- move
|
^- (each move toil)
|
||||||
:- (need (~(get by r.zam.sat) ((hard bone) -.q.wec)))
|
=+ hon=(need (~(get by r.zam.sat) ((hard bone) -.q.wec)))
|
||||||
=+ caq=(spec (slot 3 wec))
|
=+ caq=(spec (slot 3 wec))
|
||||||
?+ q.caq ~&(%sump-bad !!)
|
?+ q.caq ~&(%sump-bad !!)
|
||||||
::
|
::
|
||||||
[%pass p=* q=@tas r=[p=@tas q=*]]
|
[%pass p=* q=@tas r=[p=@tas q=*]]
|
||||||
:^ %pass (away %u ((hard path) p.q.caq))
|
=+ wir=(away %u ((hard path) p.q.caq))
|
||||||
|
?: ?=(%sire p.r.q.caq) [%| (birf wir hon caq)]
|
||||||
|
:+ %& hon
|
||||||
|
:^ %pass wir
|
||||||
(need ((sand %tas) ((hard ,@) q.q.caq)))
|
(need ((sand %tas) ((hard ,@) q.q.caq)))
|
||||||
[%meta (spec (slot 15 caq))]
|
[%meta (spec (slot 15 caq))]
|
||||||
::
|
::
|
||||||
[%give p=[p=@tas q=*]]
|
[%give p=[p=@tas q=*]]
|
||||||
|
:+ %& hon
|
||||||
:- %give
|
:- %give
|
||||||
?: ?=(%mean p.p.q.caq) [%mean (ares q.p.q.caq)]
|
?: ?=(%mean p.p.q.caq) [%mean (ares q.p.q.caq)]
|
||||||
?: ?=(%nice p.p.q.caq) [%nice ~]
|
?: ?=(%nice p.p.q.caq) [%nice ~]
|
||||||
@ -982,6 +1002,10 @@
|
|||||||
?> ?=(^ huv.sat)
|
?> ?=(^ huv.sat)
|
||||||
(yawl [%peek (scot %p p.kon) q.kon] u.huv.sat sam)
|
(yawl [%peek (scot %p p.kon) q.kon] u.huv.sat sam)
|
||||||
(give(qic.sat ~) %dumb ~)
|
(give(qic.sat ~) %dumb ~)
|
||||||
|
::
|
||||||
|
%sire
|
||||||
|
~& [%sirens-lost kon]
|
||||||
|
+>.$
|
||||||
::
|
::
|
||||||
%take
|
%take
|
||||||
?. (warm %pour)
|
?. (warm %pour)
|
||||||
|
|||||||
@ -30,8 +30,9 @@
|
|||||||
[%nice ~] :: success
|
[%nice ~] :: success
|
||||||
== ::
|
== ::
|
||||||
++ note :: system request
|
++ note :: system request
|
||||||
$% $: %g :: to %ames
|
$% $: %g :: to %gall
|
||||||
$% [%mess p=hapt q=ship r=cage] ::
|
$% [%mess p=hapt q=ship r=cage] ::
|
||||||
|
[%sire p=term q=span] ::
|
||||||
== == == ::
|
== == == ::
|
||||||
++ test :: test template
|
++ test :: test template
|
||||||
$_ ^? |% ::
|
$_ ^? |% ::
|
||||||
@ -67,6 +68,21 @@
|
|||||||
^- [(list move) _+>]
|
^- [(list move) _+>]
|
||||||
!!
|
!!
|
||||||
--
|
--
|
||||||
|
++ sire
|
||||||
|
^- test
|
||||||
|
|%
|
||||||
|
++ poke
|
||||||
|
|+ [ost=bone you=ship]
|
||||||
|
^- [(list move) _+>]
|
||||||
|
:_ +>.$
|
||||||
|
:~ [ost %pass /hi %g %sire %demo %baby]
|
||||||
|
[ost %give %nice ~]
|
||||||
|
==
|
||||||
|
++ pour
|
||||||
|
|+ [ost=bone pax=path sih=*]
|
||||||
|
^- [(list move) _+>]
|
||||||
|
!!
|
||||||
|
--
|
||||||
++ poke-local
|
++ poke-local
|
||||||
^- test
|
^- test
|
||||||
=> |%
|
=> |%
|
||||||
@ -104,7 +120,7 @@
|
|||||||
^- [(list move) _+>]
|
^- [(list move) _+>]
|
||||||
:_ +>.$ :_ ~
|
:_ +>.$ :_ ~
|
||||||
=+ ^= zez
|
=+ ^= zez
|
||||||
%+ ~(axel ^ze lat.hid *dome *rang)
|
%+ ~(edit ^ze lat.hid *dome *rang)
|
||||||
lat.hid
|
lat.hid
|
||||||
[%& [0v0 0v0] [/hello %ins 'hello, world']~]
|
[%& [0v0 0v0] [/hello %ins 'hello, world']~]
|
||||||
=+ `[l=@da d=dome r=rang]`+<.zez
|
=+ `[l=@da d=dome r=rang]`+<.zez
|
||||||
@ -194,6 +210,7 @@
|
|||||||
^- (list ,[@t test])
|
^- (list ,[@t test])
|
||||||
=> et
|
=> et
|
||||||
:~ [%succeed succeed]
|
:~ [%succeed succeed]
|
||||||
|
[%sire sire]
|
||||||
[%ze ze]
|
[%ze ze]
|
||||||
[%poke-local poke-local]
|
[%poke-local poke-local]
|
||||||
==
|
==
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user