Merge branch 'master' of github.com:jonathonmcmurray/ws.q

jonathonmcmurray · Apr 22, 2021 · f528bad · f528bad
2 parents ecb6040 + e5a177a
commit f528bad
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/ws-client/ws.q b/ws-client/ws.q
@@ -58,4 +58,13 @@ open0:{[x;y;v]
 
 open:{neg first open0[x;y;.ws.VERBOSE]}                                 //return neg handle for messaging
 
+.ws.close:{[h]
+  h:abs h;
+  if[all(h in key .ws.w;h in key .z.W);hclose h];                       //close handle if h is found both in .ws.w and .z.W (all opened handles)
+  .ws.w:.ws.w _ h;                                                      //remove h from .ws.w
+  .z.wc h;                                                              //remove h from .ws.servers
+ }
+
+.ws.closea:{.ws.close each (0!.ws.w)[`h]}                               //close all opened websockets
+
 \d .