mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
72 lines
1.3 KiB
Plaintext
72 lines
1.3 KiB
Plaintext
|
/+ verb, default-agent, dbug
|
||
|
|
|%
|
||
|
|
+$ state-0 [%0 ~]
|
||
|
|
+$ card card:agent:gall
|
||
|
|
+$ coop coop:gall
|
||
|
|
+$ action
|
||
|
|
$% [%tend =coop =path =page]
|
||
|
|
[%germ =coop]
|
||
|
|
[%snip =coop]
|
||
|
|
[%keen case=@ud =path]
|
||
|
|
==
|
||
|
|
--
|
||
|
|
::
|
||
|
|
=| state-0
|
||
|
|
=* state -
|
||
|
|
%+ verb |
|
||
|
|
%- agent:dbug
|
||
|
|
^- agent:gall
|
||
|
|
|_ =bowl:gall
|
||
|
|
+* this .
|
||
|
|
def ~(. (default-agent this %|) bowl)
|
||
|
|
::
|
||
|
|
++ on-init
|
||
|
|
^- (quip card:agent:gall _this)
|
||
|
|
[~ this]
|
||
|
|
::
|
||
|
|
++ on-save !>([%0 ~])
|
||
|
|
++ on-load
|
||
|
|
|= old=vase
|
||
|
|
^- (quip card:agent:gall _this)
|
||
|
|
[~ this(state [%0 ~])]
|
||
|
|
::
|
||
|
|
++ on-poke
|
||
|
|
|= [=mark =vase]
|
||
|
|
~| mark/mark
|
||
|
|
?> =(%noun mark)
|
||
|
|
=+ ;;(=action q.vase)
|
||
|
|
:_ this
|
||
|
|
?: ?=(%keen -.action)
|
||
|
|
=/ =path
|
||
|
|
%+ welp /g/x/(scot %ud case.action)
|
||
|
|
path.action
|
||
|
|
[%pass /keen %keen & ?:(=(our.bowl ~met) ~hex ~met) path]~
|
||
|
|
[%pass /foo action]~
|
||
|
|
++ on-peek
|
||
|
|
|= =path
|
||
|
|
^- (unit (unit cage))
|
||
|
|
~& peek-path/path
|
||
|
|
~& eny/eny.bowl
|
||
|
|
?. ?=([%c *] path)
|
||
|
|
[~ ~]
|
||
|
|
``noun+!>(&)
|
||
|
|
++ on-watch on-watch:def
|
||
|
|
++ on-arvo
|
||
|
|
|= [=wire syn=sign-arvo]
|
||
|
|
^- (quip card _this)
|
||
|
|
~& syn
|
||
|
|
?: =(/keen wire)
|
||
|
|
?: ?=([%ames %near *] syn)
|
||
|
|
?. ?=([~ ~ *] dat.syn)
|
||
|
|
~& no-item/dat.syn
|
||
|
|
`this
|
||
|
|
~& ;;([@tas @tas] q.u.u.dat.syn)
|
||
|
|
`this
|
||
|
|
`this
|
||
|
|
`this
|
||
|
|
::
|
||
|
|
++ on-leave on-leave:def
|
||
|
|
++ on-agent on-agent:def
|
||
|
|
++ on-fail on-fail:def
|
||
|
|
--
|