mirror of
https://github.com/urbit/shrub.git
synced 2024-12-30 15:44:03 +03:00
51 lines
765 B
Plaintext
51 lines
765 B
Plaintext
^- agent:mall
|
|
=| state=@
|
|
|_ bowl:mall
|
|
++ handle-init
|
|
`..handle-init
|
|
::
|
|
++ handle-prep
|
|
|= =old-state=vase
|
|
=/ old-state !<(@ old-state-vase)
|
|
?~ old-state
|
|
~& %prep-lost
|
|
`..handle-init
|
|
~& %prep-found
|
|
`..handle-init(state u.old-state)
|
|
::
|
|
++ handle-poke
|
|
|= in-poke-data=cage
|
|
~& >> 'ouchies!'
|
|
~& >>> in-poke-data
|
|
~& > state=state
|
|
=. state +(state)
|
|
`..handle-init
|
|
::
|
|
++ handle-peer
|
|
|= path
|
|
`..handle-init
|
|
::
|
|
++ handle-pull
|
|
|= path
|
|
`..handle-init
|
|
::
|
|
++ handle-peek
|
|
|= path
|
|
*(unit (unit cage))
|
|
::
|
|
++ handle-mall
|
|
|= [wire internal-gift:mall]
|
|
`..handle-init
|
|
::
|
|
++ handle-take
|
|
|= [wire vase]
|
|
`..handle-init
|
|
::
|
|
++ handle-lame
|
|
|= [term tang]
|
|
`..handle-init
|
|
::
|
|
++ handle-stay
|
|
!>(state)
|
|
--
|