khan: wip fyrd
=> |%
+$ move [p=duct q=(wite note gift:khan)]
+$ note :: out request $->
+ $~ [%g %deal *sock *term *deal:gall]
$% $: %g :: to %gall
$>(%deal task:gall) :: full transmission
== == ::
=>
|%
++ start-spider
- |= *
- !!
+ |= [our=@p =cage]
+ ^- note
+ [%g %deal [our our] %spider %poke cage]
++ watch-spider
- |= *
- !!
+ |= [our=@p =path]
+ ^- note
+ [%g %deal [our our] %spider %watch path]
--
=| khan-state
=* state -
=/ rid=@ta (rear (head hen))
=/ tid=@ta
(cat 3 'khan-fyrd--' rid)
+ =/ args
+ :* ~ `tid [our q.beak.task %da now] name.task
+ !>(data.task)
+ ==
=/ start-moves=(list move)
- :~ (watch-spider beak.task name.task /thread-result/[tid])
- (start-spider beak.task name.task !>(data.task))
+ %+ turn
+ :~ (watch-spider p.beak.task name.task /thread-result/[tid])
+ (start-spider p.beak.task %noun !>(args))
==
- :: send to gall, sub for updates
+ |=(=note ^-(move [hen %pass //g note]))
[start-moves khan-gate]
==
:: +load: migrate an old state to a new khan version
