From 985fa2f7c99832cdf3c3351d2273c8fd05402b78 Mon Sep 17 00:00:00 2001 From: polwex Date: Wed, 17 Sep 2025 21:45:18 +0700 Subject: basic comms working --- desk/ted/beg.hoon | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 desk/ted/beg.hoon (limited to 'desk/ted') diff --git a/desk/ted/beg.hoon b/desk/ted/beg.hoon new file mode 100644 index 0000000..2cabbea --- /dev/null +++ b/desk/ted/beg.hoon @@ -0,0 +1,31 @@ +/- spider +/+ strandio, jsonlib=json-nostrill +=, strand=strand:spider +=, strand-fail=strand-fail:libstrand:spider +^- thread:spider +|= arg=vase + =/ m (strand ,vase) ^- form:m + |^ + =/ ujon !<((unit json) arg) + :: ~& ujon=ujon + ?~ ujon (pure:m !>(bail)) + =/ req (ui:de:jsonlib u.ujon) + ?~ req (pure:m !>(bail)) + ?. ?=(%begs -.u.req) (pure:m !>(bail)) + ?- +<.u.req + %feed + ;< =bowl:spider bind:m get-bowl:strandio + =/ desk q.byk.bowl + ~& dock=[+>.u.req desk] + ;< =cage bind:m (watch-one:strandio /beg/feed [+>.u.req desk] /beg/feed) + ~& > watch-cage=-.cage + =/ j !<(json +.cage) + (pure:m !>(j)) + + %thread + (pure:m !>(bail)) + == + ++ bail ^- json + %+ frond:enjs:format %error + s+'error' + -- -- cgit v1.2.3