wolfram-node-server/wolfram-server.wls at master · arnoudbuzing/wolfram-node-server · GitHub

executable file

19 lines (15 loc) · 562 Bytes

#!/usr/bin/wolframscript

xSocketServer[{host_,port_}] := Module[ {socket},

socket = SocketOpen[{host,port},"ZMQ_REP"];

SocketListen[socket,

Function[{assoc},

WriteString[$Output,"*"];

BinaryWrite[assoc["SourceSocket"], ByteArray@ToCharacterCode[ToString[ToExpression@FromCharacterCode@Normal[assoc["DataByteArray"]],InputForm]]]

HandlerFunctionsKeys -> {"Socket", "SourceSocket", "DataByteArray"}

];

]

xSocketServer[{"172.31.39.91","1234"}];

task = First @ AsynchronousTasks[];

Print["Ready..."];

WaitAsynchronousTask[task];

Expand file tree