Initial revision

1 files changed, 21 insertions, 0 deletions

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 @@
+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