49 lines
943 B
Plaintext
49 lines
943 B
Plaintext
|%
|
|
+$ event
|
|
$% [%on-init ~]
|
|
[%on-load ~]
|
|
[%on-poke =mark]
|
|
[%on-watch =path]
|
|
[%on-leave =path]
|
|
[%on-agent =wire sign=term]
|
|
[%on-arvo =wire vane=term sign=term]
|
|
[%on-fail =term]
|
|
==
|
|
::
|
|
+$ event-plus
|
|
$: act=@ud
|
|
now=@da
|
|
src=@p
|
|
sap=path
|
|
=cause
|
|
effects=(list effect)
|
|
==
|
|
::
|
|
+$ cause
|
|
$% [%on-init ~]
|
|
[%on-load ~]
|
|
[%on-poke =mark mug=@ux]
|
|
[%on-watch =path]
|
|
[%on-leave =path]
|
|
[%on-agent =wire =sign]
|
|
[%on-arvo =wire vane=term sign=term]
|
|
[%on-fail =term]
|
|
==
|
|
::
|
|
+$ sign
|
|
$% [%poke-ack ack=?]
|
|
[%watch-ack ack=?]
|
|
[%kick ~]
|
|
[%fact =mark mug=@ux]
|
|
==
|
|
::
|
|
+$ effect
|
|
$% [%poke =wire =gill:gall =mark mug=@ux]
|
|
[%watch =wire =gill:gall =path]
|
|
[%leave =wire =gill:gall]
|
|
[%fact paths=(list path) =mark mug=@ux]
|
|
[%kick paths=(list path)]
|
|
[%arvo =wire vane=term task=term]
|
|
==
|
|
--
|