shrub/pkg/arvo/ted/keen.hoon

/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([~ =spar:ames] arg)
;<  ~  bind:m
  (keen:strandio /keen spar)
;<  [* roar=(unit roar:ames)]  bind:m
  (take-tune:strandio /keen)
?~  roar
  (pure:m !>(~))
?~  data=q.dat.u.roar
  (pure:m !>(~))
::
;<  =bowl:spider  bind:m  get-bowl:strandio
=+  .^  =dais:clay  %cb
        /(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)/[p.u.data]
    ==
=/  res  (mule |.((vale.dais q.u.data)))
?.  ?=(%| -.res)
  (pure:m p.res)
~|(%keen-mark-fail (mean leaf+"-keen: ames vale fail {<mark>}" p.res))
ted: add -keen thread for simple remote scries Produces a (unit (cask)), as per %tune. 2022-02-15 22:36:35 +03:00			`/- spider`
			`/+ strandio`
			`=, strand=strand:spider`
			`^- thread:spider`
			`\|= arg=vase`
			`=/ m (strand ,vase)`
			`^- form:m`
ted/keen: use `$spar` 2023-04-24 20:09:43 +03:00			`=+ !<([~ =spar:ames] arg)`
spider: fix tracking remote-scry requests Prevously we were tracking remote scry requests using a map, assuming that every thread would do just one remote scry request. This is not right. A thread that did multiple +keen:strandio was treated as if just the last call existed, overwritten previous entries in the map. Now we track remote scries using a jug that accounts for multiple %keen tasks per thread. The logic for sending %yawns to %ames has been updated for the following scenarios: - +thread-fail will always send a %yawn task - +thread-done doesn't send %yawn tasks - unless a running thread is stopped - if %spider is reloaded: - %yawn tasks will be sent for any running or starting thread /lib/strandio also removes +take-tune from +keen, decoupling sending %tasks and receiving %signs. This allows for clients to request multiple paths at future cases, without blocking. 2023-04-27 14:55:06 +03:00			`;< ~ bind:m`
			`(keen:strandio /keen spar)`
			`;< [* roar=(unit roar:ames)] bind:m`
			`(take-tune:strandio /keen)`
strandio,-keen: use (fixed) take-tune 2023-04-26 10:50:23 +03:00			`?~ roar`
strandio: add +keen gate 2022-02-24 21:03:07 +03:00			`(pure:m !>(~))`
strandio,-keen: use (fixed) take-tune 2023-04-26 10:50:23 +03:00			`?~ data=q.dat.u.roar`
ames: fix -keen thread 2023-04-24 19:28:44 +03:00			`(pure:m !>(~))`
strandio,-keen: use (fixed) take-tune 2023-04-26 10:50:23 +03:00			`::`
			`;< =bowl:spider bind:m get-bowl:strandio`
strandio: add +keen gate 2022-02-24 21:03:07 +03:00			`=+ .^ =dais:clay %cb`
ames: fix -keen thread 2023-04-24 19:28:44 +03:00			`/(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)/[p.u.data]`
strandio: add +keen gate 2022-02-24 21:03:07 +03:00			`==`
ames: fix -keen thread 2023-04-24 19:28:44 +03:00			`=/ res (mule \|.((vale.dais q.u.data)))`
strandio,-keen: use (fixed) take-tune 2023-04-26 10:50:23 +03:00			`?. ?=(%\| -.res)`
			`(pure:m p.res)`
			`~\|(%keen-mark-fail (mean leaf+"-keen: ames vale fail {<mark>}" p.res))`