diff options
| author | polwex <polwex@sortug.com> | 2025-11-01 03:55:13 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-11-01 03:55:13 +0700 |
| commit | 7305d67ff7f9e78b73326ef0e1f68a9613d34205 (patch) | |
| tree | 5e075673b42811a76963c956502ac2c5fc2ea8f4 /arvo/iris.hoon | |
| parent | f019da2e338733dd88d3a8efe60f260d74b9a7ad (diff) | |
ws connection to relay fixed, tested
Diffstat (limited to 'arvo/iris.hoon')
| -rw-r--r-- | arvo/iris.hoon | 58 |
1 files changed, 33 insertions, 25 deletions
diff --git a/arvo/iris.hoon b/arvo/iris.hoon index 7b618b2..c55c0ae 100644 --- a/arvo/iris.hoon +++ b/arvo/iris.hoon @@ -325,7 +325,7 @@ :: incoming websockets event to be sent BY VERE NOT USERSPACE ++ ws-event |= [wid=@ud event=websocket-event:eyre] - ~& iris-ws-event=[wid event duct] + ~& iris-ws-event=[wid -.event duct] =/ wc (~(get by sockets.state) wid) ?~ wc `state =/ wc u.wc @@ -478,32 +478,39 @@ [%iris-ws-watch wids=@t ~] =/ wid (slav %ud wids.wire) ~& iris-take=-.hin ?+ -.hin ~ - %gall - ?> ?=(%unto +<.hin) - ~& hin=p.hin - ?+ -.p.hin ~ - ?(%poke-ack %watch-ack) - ?~ p.p.hin ~ - ~ - %kick + %gall + ?> ?=(%unto +<.hin) + ~& hin=p.hin + ?+ -.p.hin ~ + ?(%poke-ack %watch-ack) + ?~ p.p.hin ~ + ~ + %kick + =/ event-args [[eny duct now rof] state.ax] + =/ client (per-client-event event-args) + =^ movs state.ax (cleanup-ws:client wid) + movs + %fact + =* cag cage.p.hin + ?+ p.cag ~&(bad-fact+p.cag !!) + %message =/ msg !<(websocket-message:eyre q.cag) + :~ [outbound-duct.state.ax %give %websocket-response wid %message msg] + == + %disconnect =/ event-args [[eny duct now rof] state.ax] =/ client (per-client-event event-args) =^ movs state.ax (cleanup-ws:client wid) - movs - %fact - =* cag cage.p.hin - ?+ p.cag ~&(bad-fact+p.cag !!) - %message =/ msg !<(websocket-message:eyre q.cag) - :~ [outbound-duct.state.ax %give %websocket-response wid %message msg] - == - :: =/ =tang !<(tang q.cag) - :: :: %- (slog 'khan-fact' tang) - :: :: [hen %give %arow %| p.cag tang]~ - :: ~ - :: :: - :: %thread-done - :: :: [hen %give %arow %& %noun q.cag]~ - :: ~ + %+ welp movs + :~ [outbound-duct.state.ax %give %websocket-response wid %disconnect ~] + == + :: =/ =tang !<(tang q.cag) + :: :: %- (slog 'khan-fact' tang) + :: :: [hen %give %arow %| p.cag tang]~ + :: ~ + :: :: + :: %thread-done + :: :: [hen %give %arow %& %noun q.cag]~ + :: ~ == == == @@ -538,7 +545,8 @@ ?+ s.bem ~ ~ ``noun+!>(sockets.state.ax) [%id @ ~] - =/ wid (slav %ud i.s.bem) + + =/ wid (slav %ud i.t.s.bem) =/ socket (~(got by sockets.state.ax) wid) ?. .=(app.socket caller) ~ ``noun+!>(socket) |