mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
31 lines
575 B
Plaintext
31 lines
575 B
Plaintext
/+ tapp, stdio
|
|
=>
|
|
|%
|
|
+$ subscription-state
|
|
$: her=ship
|
|
app=term
|
|
==
|
|
+$ state
|
|
$: subscription=(unit subscription-state)
|
|
==
|
|
+$ command cord
|
|
+$ poke-data
|
|
$% [%noun cord]
|
|
==
|
|
++ tapp (^tapp state command poke-data)
|
|
++ stdio (^stdio poke-data)
|
|
--
|
|
=, trad=trad:tapp
|
|
=, tapp-trad=tapp-trad:tapp
|
|
=, stdio
|
|
%- create-tapp:tapp
|
|
^- tapp-core:tapp
|
|
|_ [=bowl:gall state]
|
|
++ handle-command
|
|
|= =command
|
|
=/ m tapp-trad
|
|
^- form:m
|
|
;< ~ bind:m (poke-app [our.bowl %baby] %noun 'print')
|
|
(pure:m subscription)
|
|
--
|