aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDiego Nehab <diego@tecgraf.puc-rio.br>2001-03-06 19:46:42 +0000
committerDiego Nehab <diego@tecgraf.puc-rio.br>2001-03-06 19:46:42 +0000
commit2c9008772ef9c015569204bede90152ed975d0cc (patch)
treeceba0f04392962929d63eaafeb3c51fadb60a67e
parent29226588da627587cacc40605b24c3eea01c2a8e (diff)
downloadluasocket-2c9008772ef9c015569204bede90152ed975d0cc.tar.gz
luasocket-2c9008772ef9c015569204bede90152ed975d0cc.tar.bz2
luasocket-2c9008772ef9c015569204bede90152ed975d0cc.zip
Updated to remove use of global methods. Conforming to
LuaSocket release 1.2.1
-rw-r--r--etc/dict.lua12
-rw-r--r--samples/echoclnt.lua8
-rw-r--r--samples/echosrvr.lua10
3 files changed, 15 insertions, 15 deletions
diff --git a/etc/dict.lua b/etc/dict.lua
index 683cb45..c620cc4 100644
--- a/etc/dict.lua
+++ b/etc/dict.lua
@@ -17,13 +17,13 @@ while 1 do
17 if w=="=" then 17 if w=="=" then
18 w=read"*l" 18 w=read"*l"
19 verbose(">>>",w,"\n") 19 verbose(">>>",w,"\n")
20 send(s,w,"\r\n") 20 s:send(w,"\r\n")
21 else 21 else
22 verbose(">>> looking up `",w,"'\n") 22 verbose(">>> looking up `",w,"'\n")
23 send(s,"DEFINE wn ",w,"\r\n") 23 s:send("DEFINE wn ",w,"\r\n")
24 end 24 end
25 while 1 do 25 while 1 do
26 local l=receive(s) 26 local l=s:receive()
27 if l==nil then break end 27 if l==nil then break end
28 if strfind(l,"^[0-9]") then 28 if strfind(l,"^[0-9]") then
29 write("<<< ",l,"\n") 29 write("<<< ",l,"\n")
@@ -34,6 +34,6 @@ while 1 do
34 end 34 end
35end 35end
36 36
37send(s,"QUIT\r\n") 37s:send("QUIT\r\n")
38verbose("<<< ",receive(s),"\n") 38verbose("<<< ",s:receive(),"\n")
39close(s) 39s:close()
diff --git a/samples/echoclnt.lua b/samples/echoclnt.lua
index d1c56c7..043b2f0 100644
--- a/samples/echoclnt.lua
+++ b/samples/echoclnt.lua
@@ -7,15 +7,15 @@ end
7host = toip(host) 7host = toip(host)
8udp, err = udpsocket() 8udp, err = udpsocket()
9if not udp then print(err) exit() end 9if not udp then print(err) exit() end
10err = setpeername(udp, host, port) 10err = udp:setpeername(host, port)
11if err then print(err) exit() end 11if err then print(err) exit() end
12print("Using host '" ..host.. "' and port " ..port.. "...") 12print("Using host '" ..host.. "' and port " .. port .. "...")
13while 1 do 13while 1 do
14 line = read() 14 line = read()
15 if not line then exit() end 15 if not line then exit() end
16 err = send(udp, line) 16 err = udp:send(line)
17 if err then print(err) exit() end 17 if err then print(err) exit() end
18 dgram, err = receive(udp) 18 dgram, err = udp:receive()
19 if not dgram then print(err) exit() end 19 if not dgram then print(err) exit() end
20 print(dgram) 20 print(dgram)
21end 21end
diff --git a/samples/echosrvr.lua b/samples/echosrvr.lua
index fe7da06..330f9e6 100644
--- a/samples/echosrvr.lua
+++ b/samples/echosrvr.lua
@@ -7,16 +7,16 @@ end
7print("Binding to host '" ..host.. "' and port " ..port.. "...") 7print("Binding to host '" ..host.. "' and port " ..port.. "...")
8udp, err = udpsocket() 8udp, err = udpsocket()
9if not udp then print(err) exit() end 9if not udp then print(err) exit() end
10err = setsockname(udp, host, port) 10err = udp:setsockname(host, port)
11if err then print(err) exit() end 11if err then print(err) exit() end
12timeout(udp, 5) 12udp:timeout(5)
13ip, port = getsockname(udp) 13ip, port = udp:getsockname()
14print("Waiting packets on " .. ip .. ":" .. port .. "...") 14print("Waiting packets on " .. ip .. ":" .. port .. "...")
15while 1 do 15while 1 do
16 dgram, ip, port = receivefrom(udp) 16 dgram, ip, port = udp:receivefrom()
17 if not dgram then print(ip) 17 if not dgram then print(ip)
18 else 18 else
19 print("Echoing from " .. ip .. ":" .. port) 19 print("Echoing from " .. ip .. ":" .. port)
20 sendto(udp, dgram, ip, port) 20 udp:sendto(dgram, ip, port)
21 end 21 end
22end 22end