diff options
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua b/Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua new file mode 100644 index 00000000000..a96b570e1b9 --- /dev/null +++ b/Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua @@ -0,0 +1,17 @@ +socket=require("socket"); +os.remove("/tmp/luasocket") +socket.unix = require("socket.unix"); +host = host or "luasocket"; +server = assert(socket.unix()) +assert(server:bind(host)) +assert(server:listen(5)) +ack = "\n"; +while 1 do + print("server: waiting for client connection..."); + control = assert(server:accept()); + while 1 do + command = assert(control:receive()); + assert(control:send(ack)); + ((loadstring or load)(command))(); + end +end |