zyppe/luasocket
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updated to remove use of global methods. Conforming to

Browse source 
LuaSocket release 1.2.1
This commit is contained in:
Diego Nehab 2001-03-06 20:16:17 +00:00
parent 22a5d3f669
commit bbb4b3e2c1
2 changed files with 44 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

22
test/testsrvr.lua
View file

@ -30,7 +30,7 @@ if not server then
exit(1)
end
print("server: waiting for control connection...")
control = accept(server)
control = server:accept()
print("server: control connection stablished!")
-----------------------------------------------------------------------------
@ -42,7 +42,7 @@ print("server: control connection stablished!")
function execute_command(cmd, par)
if cmd == CONNECT then
print("server: waiting for data connection...")
data = accept(server)
data = server:accept()
if not data then
fail("server: unable to start data connection!")
else
@ -51,31 +51,31 @@ function execute_command(cmd, par)
elseif cmd == CLOSE then
print("server: closing connection with client...")
if data then
close(data)
data:close()
data = nil
end
elseif cmd == ECHO_LINE then
str, err = receive(data)
str, err = data:receive()
if err then fail("server: " .. err) end
err = send(data, str, "\n")
err = data:send(str, "\n")
if err then fail("server: " .. err) end
elseif cmd == ECHO_BLOCK then
str, err = receive(data, par)
str, err = data:receive(par)
print(format("server: received %d bytes", strlen(str)))
if err then fail("server: " .. err) end
print(format("server: sending %d bytes", strlen(str)))
err = send(data, str)
err = data:send(str)
if err then fail("server: " .. err) end
elseif cmd == RECEIVE_BLOCK then
str, err = receive(data, par)
str, err = data:receive(par)
print(format("server: received %d bytes", strlen(str)))
elseif cmd == SEND_BLOCK then
print(format("server: sending %d bytes", strlen(str)))
err = send(data, str)
err = data:send(str)
elseif cmd == ECHO_TIMEOUT then
str, err = receive(data, par)
str, err = data:receive(par)
if err then fail("server: " .. err) end
err = send(data, str)
err = data:send(str)
if err then fail("server: " .. err) end
elseif cmd == COMMAND then
cmd, par = get_command()