urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-13 16:03:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

basic skeleton of %sire

Browse Source
This commit is contained in:
Ubuntu 2014-09-11 00:55:44 +00:00
parent dd1b229b6b
commit ba92dee46b
2 changed files with 51 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
arvo/gall.hoon
View File

@ -1,4 +1,4 @@
:: :: %gall, user-level applications
!: :: %gall, user-level applications
!? 164
::::
|= pit=vase
@ -37,6 +37,7 @@
[%load p=cage] :: continue boot
[%mess p=ship q=cage] :: typed message
[%show p=ship q=path] :: subscribe
[%sire p=term q=span] :: spawn subprocess
[%nuke p=ship] :: clear duct
[%take p=path q=vase] :: user result
== ::
@ -571,6 +572,13 @@
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
^+ .
=> (give %nice ~)
@ -847,7 +855,11 @@
++ nile [%done ~ [%$ [%cube 0 [%atom %n]] ~]] :: null silk
++ obey :: process app moves
|= 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
|= kon=knob :: content
@ -869,9 +881,13 @@
::
++ said
|= vud=vase
|- ^- (list move)
?: =(~ q.vud) ~
[(sump (slot 2 vud)) $(vud (slot 3 vud))]
|- ^- [(list move) (list toil)]
?: =(~ q.vud) [~ ~]
=+ sud=(sump (slot 2 vud))
=+ res=$(vud (slot 3 vud))
?: ?=(%& -.sud)
[[p.sud -.res] +.res]
[-.res [p.sud +.res]]
::
++ show :: subscribe
|= [you=ship pax=path] :: subscription
@ -884,17 +900,21 @@
::
++ sump
|= wec=vase
^- move
:- (need (~(get by r.zam.sat) ((hard bone) -.q.wec)))
^- (each move toil)
=+ hon=(need (~(get by r.zam.sat) ((hard bone) -.q.wec)))
=+ caq=(spec (slot 3 wec))
?+ q.caq ~&(%sump-bad !!)
::
[%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)))
[%meta (spec (slot 15 caq))]
::
[%give p=[p=@tas q=*]]
:+ %& hon
:- %give
?: ?=(%mean p.p.q.caq) [%mean (ares q.p.q.caq)]
?: ?=(%nice p.p.q.caq) [%nice ~]
@ -982,6 +1002,10 @@
?> ?=(^ huv.sat)
(yawl [%peek (scot %p p.kon) q.kon] u.huv.sat sam)
(give(qic.sat ~) %dumb ~)
::
%sire
~& [%sirens-lost kon]
+>.$
::
%take
?. (warm %pour)

21
main/app/test/core.hook
View File

@ -30,8 +30,9 @@
[%nice ~] :: success
== ::
++ note :: system request
$% $: %g :: to %ames
$% $: %g :: to %gall
$% [%mess p=hapt q=ship r=cage] ::
[%sire p=term q=span] ::
== == == ::
++ test :: test template
$_ ^? |% ::
@ -67,6 +68,21 @@
^- [(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
^- test
=> |%
@ -104,7 +120,7 @@
^- [(list move) _+>]
:_ +>.$ :_ ~
=+ ^= zez
%+ ~(axel ^ze lat.hid *dome *rang)
%+ ~(edit ^ze lat.hid *dome *rang)
lat.hid
[%& [0v0 0v0] [/hello %ins 'hello, world']~]
=+ `[l=@da d=dome r=rang]`+<.zez
@ -194,6 +210,7 @@
^- (list ,[@t test])
=> et
:~ [%succeed succeed]
[%sire sire]
[%ze ze]
[%poke-local poke-local]
==