dany/luasocket
1
0
Fork 0
mirror of https://github.com/lunarmodules/luasocket.git synced 2025-07-13 06:04:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Initial revision

Browse Source
This commit is contained in:
Diego Nehab
2001-01-25 21:59:39 +00:00
parent 68f51243b3
commit 7096b8df82
6 changed files with 191 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
samples/daytimeclnt.lua Normal file
View File

@ -0,0 +1,14 @@
host = host or "127.0.0.1"
port = port or 13
if arg then
host = arg[1] or host
port = arg[2] or port
end
host = toip(host)
udp = udpsocket()
print("Using host '" ..host.. "' and port " ..port.. "...")
err = sendto(udp, "anything", host, port)
if err then print(err) exit() end
dgram, err = receive(udp)
if not dgram then print(err) exit() end
write(dgram)

21
samples/echoclnt.lua Normal file
View File

@ -0,0 +1,21 @@
host = host or "localhost"
port = port or 7
if arg then
host = arg[1] or host
port = arg[2] or port
end
host = toip(host)
udp, err = udpsocket()
if not udp then print(err) exit() end
err = setpeername(udp, host, port)
if err then print(err) exit() end
print("Using host '" ..host.. "' and port " ..port.. "...")
while 1 do
line = read()
if not line then exit() end
err = send(udp, line)
if err then print(err) exit() end
dgram, err = receive(udp)
if not dgram then print(err) exit() end
print(dgram)
end

22
samples/echosrvr.lua Normal file
View File

@ -0,0 +1,22 @@
host = host or "127.0.0.1"
port = port or 7
if arg then
host = arg[1] or host
port = arg[2] or port
end
print("Binding to host '" ..host.. "' and port " ..port.. "...")
udp, err = udpsocket()
if not udp then print(err) exit() end
err = setsockname(udp, host, port)
if err then print(err) exit() end
timeout(udp, 5)
ip, port = getsockname(udp)
print("Waiting packets on " .. ip .. ":" .. port .. "...")
while 1 do
dgram, ip, port = receivefrom(udp)
if not dgram then print(ip)
else
print("Echoing from " .. ip .. ":" .. port)
sendto(udp, dgram, ip, port)
end
end