I do not understand the problem you are trying to solve well enough to know what problems you are anticipating. Sometimes just trying (and failing or succeeding) is the best way to discover whether an approach will work (and, if it does not, this can help form the questions you need to answer).
I will note that I am most comfortable with putting a definition in _z_ in a fashion something like this: NB. imagine a lot of detail, here my_websocket_server_handler=: 3 :0 ...definition details go here... ) NB. export to z locale wsrv_handler_z_=: my_websocket_server_handler Of course, that does not make your approach wrong. (And, I typically avoid such long names, but when I know that the name will be used only once, and especially when it's just an email message like this, the long name doesn't bother me.) Mostly, I think I am just foggy on your requirements and am making some arbitrary observations in hope that you will orient me. (But I am not yet oriented adequately, to understand your question.) Thanks, -- Raul On Wed, Feb 12, 2014 at 8:08 PM, Pascal Jasmin <godspiral2...@yahoo.ca>wrote: > the z locale is apparently necessary for the websockets handlers (which is > how J communicates with websockets). > > The documentation is here: > http://www.jsoftware.com/jwiki/Guides/JqtWebsocket, and there are also > demos with j8. > > If the handlers have to be in z, I might as well put the tracking list for > sockets and connections there, as the handlers need to access the tracking > lists in order to dispatch to the right code, and there can only be one > handler in program. > > > I rely on some favorite utility verbs, that I keep in z. Nothing else is > in z though. > > " you can call it yourself if you wish to do so (and you couldmaintain > your own queue of commands to feed it, if you want that" > > I'm surprised to hear this. I assume J/QT would also "double call" it, if > I did. Would probably cause its own problems. Its possible that you are > describing a technique I don't know of, in maintaining my "own queue of > commands" > > > > > ----- Original Message ----- > From: Raul Miller <rauldmil...@gmail.com> > To: Programming forum <programm...@jsoftware.com> > Cc: > Sent: Wednesday, February 12, 2014 7:52:43 PM > Subject: Re: [Jprogramming] Qt websockets and doevents > > I am a little uncomfortable, reading ad-hoc code in the 'z' locale. Why not > use some other locale? > > Also, I am not clear what you are asking for, with the event handler, but > clearly you can call it yourself if you wish to do so (and you could > maintain your own queue of commands to feed it, if you want that). > > Thanks, > > -- > Raul > > > > On Wed, Feb 12, 2014 at 7:23 PM, Pascal Jasmin <godspiral2...@yahoo.ca > >wrote: > > > A minor wierdness with websockets is that connect returns a string > socket, > > whereas the event handlers have integer sockets. > > > > I was hoping that 6!:2 allowed for event handlers to process messages, > but > > it doesn't appear to. Does such a command exist? A bit like the old vb > > windows 3.1 doevents()/yield() > > > > Anyways, if you load the included code listing, and run > > > > testws a: > > > > you will note that it fails to unload/close client sockets (line wd 'ws > > query 1' returns open clients) > > > > if you run the lines inside testws individually in repl, it works. > (closes > > everything) > > > > > > > > cocurrent 'z' > > wssockets =: i.0 NB. > > wsconnections =: i.0 > > > > deleteitem_z_ =: {. , >:@[ }. ] > > defaults1 =: ([`]@.(0=#@>@[)) > > defaults =: defaults1"0 0 f. > > fixlenx =: 1 : (':';'((#y) {. x) u y') > > iorinf =: iorinf =: (#@[ _:^:= i.) > > inl_z_ =: (cocurrent@] ".@] [)"1 0 > > pD_z_ =: 1!:2&2 > > > > wscln_handler_z_=: 3 : 0 > > 'evt sk'=. y > > if. evt = jws_onMessage do. > > smoutput 'client: ' wss0_jrx_ > > elseif. evt = jws_onOpen do. > > smoutput 'connected ', ": sk > > 'onOpen 1' inl wsconnections {~ wssockets i. sk > > elseif. evt = jws_onClose do. > > smoutput 'disconnected ' , ": sk > > 'onClose 1' inl wsconnections {~ wssockets i. sk > > elseif. evt = jws_onError do. > > smoutput wsc0_jrx_ > > end. > > EMPTY > > ) > > > > wssvr_handler_z_=: 3 : 0 > > 'evt sk'=. y > > if. evt = jws_onMessage do. > > smoutput 'server: ' wss0_jrx_ > > NB. assert. _1 ~: r > > elseif. evt = jws_onOpen do. > > smoutput 'Serv connected ', ": sk > > NB. pD datatype sk > > 'onOpen 1' inl ((sk);'server') conew 'wsconnection' > > NB. 'onOpen 1' inl wsconnections {~ wssockets i. sk > > elseif. evt = jws_onClose do. > > smoutput 'Serv disconnected ' , ": sk > > 'onClose 1' inl wsconnections {~ wssockets i. sk > > elseif. evt = jws_onError do. > > smoutput 'error ', wss0_jrx_ > > end. > > EMPTY > > ) > > > > addsockconn =: 4 : 0 > > pD 'adds' > > pD wssockets_z_ =: wssockets_z_ , x > > pD wsconnections_z_ =: wsconnections_z_ , y > > ) > > delsock=: 3 : 0 > > if. _ > i =. y iorinf~ wssockets do. > > wssockets =: i deleteitem wssockets > > wsconnections =: i deleteitem wsconnections > > end. > > ) > > delconn=: 3 : 0 > > if. _ > i =. y iorinf~ wsconnections_z_ do. > > wssockets_z_ =: i deleteitem wssockets_z_ > > wsconnections_z_ =: i deleteitem wsconnections_z_ > > end. > > > > ) > > coclass 'wsconnection' > > connected =: 0 > > create =: 3 : 0 > > 'socket conntype commands auth' =: y defaults fixlenx > > a:;'client';'testcommands';'authserver' > > pD 18!:5 '' > > socket (addsockconn ]]) 18!:5 '' > > ) > > createServer =: 3 : 0 > > > > ) > > onOpen =: 3 : 'connected =: 1' > > onClose =: 3 : 0 > > connected =: 0 > > delconn 18!:5 '' > > ) > > close =: 3 : 'wd ''ws close '', ": socket' > > > > NB. ( [conntype = 'client'];[commandslocale];[authlocale]) > > new_wsconnection_ 'localhost 3000' ('addr port') > wsconnectionObj > > new =: 4 : 0 NB. called for client connection > > s =. 0 ". wd 'ws connect ws://', y > > (s ; x) conew >18!:5 '' > > ) > > > > NB. ========================================================= > > wd 'ws listen 3000' > > cocurrent 'base' > > testws =: 3 : 0 > > a: new_wsconnection_ 'localhost 3000' > > a: new_wsconnection_ 'localhost 3000' > > 6!:3 (2) > > 'close 1' inl '''client'' -: conntype' (] #~ inl) wsconnections_z_ NB. > > closes all clients (cascades cleanup) > > 6!:3 (1) > > pD 'q0';wd 'ws query 0' > > pD 'q1';wd 'ws query 1' > > ) > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm > > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
