summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua')
-rw-r--r--Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua20
1 files changed, 20 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua b/Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua
new file mode 100644
index 00000000000..1eb2d5b1f76
--- /dev/null
+++ b/Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua
@@ -0,0 +1,20 @@
+socket = require("socket");
+host = host or "localhost";
+port = port or "8383";
+server = assert(socket.bind(host, port));
+ack = "\n";
+while 1 do
+ print("server: waiting for client connection...");
+ control = assert(server:accept());
+ while 1 do
+ command, emsg = control:receive();
+ if emsg == "closed" then
+ control:close()
+ break
+ end
+ assert(command, emsg)
+ assert(control:send(ack));
+ print(command);
+ ((loadstring or load)(command))();
+ end
+end