dany/luasocket
1
0
Fork 0
mirror of https://github.com/lunarmodules/luasocket.git synced 2024-07-05 20:59:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Updated for LuaSocket 1.2.

Browse Source
This commit is contained in:
Diego Nehab 2001-01-25 22:00:18 +00:00
parent 2bb209ab9e
commit f6b9505225
1 changed files with 104 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
test/testsrvr.lua
View File

@ -8,19 +8,29 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- Read command definitions -- Read command definitions
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
dofile("command.lua") assert(dofile("testcmd.lua"))
test_debug_mode() test_debug_mode()
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- Bind to address and wait for control connection -- Get host and port from command line
-----------------------------------------------------------------------------
HOST = "localhost"
PORT = 2020
if arg then
HOST = arg[1] or HOST
PORT = arg[2] or PORT
end
-----------------------------------------------------------------------------
-- Start control connection
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
server, err = bind(HOST, PORT) server, err = bind(HOST, PORT)
if not server then if not server then
print(err) fail(err)
exit(1) exit(1)
end end
print("server: waiting for control connection...") print("server: waiting for control connection...")
control = server:accept() control = accept(server)
print("server: control connection stablished!") print("server: control connection stablished!")
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
@ -32,7 +42,7 @@ print("server: control connection stablished!")
function execute_command(cmd, par) function execute_command(cmd, par)
if cmd == CONNECT then if cmd == CONNECT then
print("server: waiting for data connection...") print("server: waiting for data connection...")
data = server:accept() data = accept(server)
if not data then if not data then
fail("server: unable to start data connection!") fail("server: unable to start data connection!")
else else
@ -41,27 +51,31 @@ function execute_command(cmd, par)
elseif cmd == CLOSE then elseif cmd == CLOSE then
print("server: closing connection with client...") print("server: closing connection with client...")
if data then if data then
data:close() close(data)
data = nil data = nil
end end
elseif cmd == ECHO_LINE then elseif cmd == ECHO_LINE then
str, err = data:receive() str, err = receive(data)
if err then fail("server: " .. err) end if err then fail("server: " .. err) end
err = data:send(str, "\n") err = send(data, str, "\n")
if err then fail("server: " .. err) end if err then fail("server: " .. err) end
elseif cmd == ECHO_BLOCK then elseif cmd == ECHO_BLOCK then
str, err = data:receive(par) str, err = receive(data, par)
print(format("server: received %d bytes", strlen(str)))
if err then fail("server: " .. err) end if err then fail("server: " .. err) end
err = data:send(str) print(format("server: sending %d bytes", strlen(str)))
err = send(data, str)
if err then fail("server: " .. err) end if err then fail("server: " .. err) end
elseif cmd == RECEIVE_BLOCK then elseif cmd == RECEIVE_BLOCK then
str, err = data:receive(par) str, err = receive(data, par)
print(format("server: received %d bytes", strlen(str)))
elseif cmd == SEND_BLOCK then elseif cmd == SEND_BLOCK then
err = data:send(str) print(format("server: sending %d bytes", strlen(str)))
err = send(data, str)
elseif cmd == ECHO_TIMEOUT then elseif cmd == ECHO_TIMEOUT then
str, err = data:receive(par) str, err = receive(data, par)
if err then fail("server: " .. err) end if err then fail("server: " .. err) end
err = data:send(str) err = send(data, str)
if err then fail("server: " .. err) end if err then fail("server: " .. err) end
elseif cmd == COMMAND then elseif cmd == COMMAND then
cmd, par = get_command() cmd, par = get_command()