diff options
Diffstat (limited to 'samples')
| -rw-r--r-- | samples/daytimeclnt.lua | 14 | ||||
| -rw-r--r-- | samples/echoclnt.lua | 21 | ||||
| -rw-r--r-- | samples/echosrvr.lua | 22 |
3 files changed, 57 insertions, 0 deletions
diff --git a/samples/daytimeclnt.lua b/samples/daytimeclnt.lua new file mode 100644 index 0000000..94e03d3 --- /dev/null +++ b/samples/daytimeclnt.lua | |||
| @@ -0,0 +1,14 @@ | |||
| 1 | host = host or "127.0.0.1" | ||
| 2 | port = port or 13 | ||
| 3 | if arg then | ||
| 4 | host = arg[1] or host | ||
| 5 | port = arg[2] or port | ||
| 6 | end | ||
| 7 | host = toip(host) | ||
| 8 | udp = udpsocket() | ||
| 9 | print("Using host '" ..host.. "' and port " ..port.. "...") | ||
| 10 | err = sendto(udp, "anything", host, port) | ||
| 11 | if err then print(err) exit() end | ||
| 12 | dgram, err = receive(udp) | ||
| 13 | if not dgram then print(err) exit() end | ||
| 14 | write(dgram) | ||
diff --git a/samples/echoclnt.lua b/samples/echoclnt.lua new file mode 100644 index 0000000..d1c56c7 --- /dev/null +++ b/samples/echoclnt.lua | |||
| @@ -0,0 +1,21 @@ | |||
| 1 | host = host or "localhost" | ||
| 2 | port = port or 7 | ||
| 3 | if arg then | ||
| 4 | host = arg[1] or host | ||
| 5 | port = arg[2] or port | ||
| 6 | end | ||
| 7 | host = toip(host) | ||
| 8 | udp, err = udpsocket() | ||
| 9 | if not udp then print(err) exit() end | ||
| 10 | err = setpeername(udp, host, port) | ||
| 11 | if err then print(err) exit() end | ||
| 12 | print("Using host '" ..host.. "' and port " ..port.. "...") | ||
| 13 | while 1 do | ||
| 14 | line = read() | ||
| 15 | if not line then exit() end | ||
| 16 | err = send(udp, line) | ||
| 17 | if err then print(err) exit() end | ||
| 18 | dgram, err = receive(udp) | ||
| 19 | if not dgram then print(err) exit() end | ||
| 20 | print(dgram) | ||
| 21 | end | ||
diff --git a/samples/echosrvr.lua b/samples/echosrvr.lua new file mode 100644 index 0000000..fe7da06 --- /dev/null +++ b/samples/echosrvr.lua | |||
| @@ -0,0 +1,22 @@ | |||
| 1 | host = host or "127.0.0.1" | ||
| 2 | port = port or 7 | ||
| 3 | if arg then | ||
| 4 | host = arg[1] or host | ||
| 5 | port = arg[2] or port | ||
| 6 | end | ||
| 7 | print("Binding to host '" ..host.. "' and port " ..port.. "...") | ||
| 8 | udp, err = udpsocket() | ||
| 9 | if not udp then print(err) exit() end | ||
| 10 | err = setsockname(udp, host, port) | ||
| 11 | if err then print(err) exit() end | ||
| 12 | timeout(udp, 5) | ||
| 13 | ip, port = getsockname(udp) | ||
| 14 | print("Waiting packets on " .. ip .. ":" .. port .. "...") | ||
| 15 | while 1 do | ||
| 16 | dgram, ip, port = receivefrom(udp) | ||
| 17 | if not dgram then print(ip) | ||
| 18 | else | ||
| 19 | print("Echoing from " .. ip .. ":" .. port) | ||
| 20 | sendto(udp, dgram, ip, port) | ||
| 21 | end | ||
| 22 | end | ||