3 files changed, 79 insertions, 0 deletions

diff --git a/samples/README b/samples/README
new file mode 100644
index 0000000..ef5017b
--- /dev/null
+++ b/samples/README
@@ -0,0 +1,32 @@
+This directory contains some sample  programs using LuaSocket as well as
+the automatic tests used to make sure the library is working properly.
+
+The files provided are:
+
+        server.lua                              -- test server
+        client.lua                              -- test client
+        command.lua                             -- test command definitions
+
+The automatic tests are composed by three files: client.lua, command.lua
+and server.lua. To run the automatic tests  on your system, make sure to
+compile the library  with _DEBUG defined (check makefile)  and then open
+two terminals. Run 'luasocket server.lua'  on one of them and 'luasocket
+client.lua'  on the  other. The  programs should  start talking  to each
+other.
+
+        listen.lua                              -- echo server
+        talk.lua                                -- echo tester
+
+listen.lua  and talk.lua  are about  the simplest  applications you  can
+write  using  LuaSocket.  Run   'luasocket  listen.lua'  and  'luasocket
+talk.lua' on different terminals. Whatever  you type on talk.lua will be
+printed by listen.lua.
+
+        dict.lua                                -- dict client
+
+The  dict.lua module  is a  cool simple  client for  the DICT  protocol,
+written by Luiz  Henrique Figueiredo. Just run it and  enter a few words
+to see it working.
+
+Good luck,
+Diego.
diff --git a/samples/listener.lua b/samples/listener.lua
new file mode 100644
index 0000000..a47d9a3
--- /dev/null
+++ b/samples/listener.lua
@@ -0,0 +1,25 @@
+host = "localhost"

+port = 8080

+if arg then

+        host = arg[1] or host

+        port = arg[2] or port

+end

+print("Binding to host '" ..host.. "' and port " ..port.. "...")

+s, i, p, e = bind(host, port)

+if not s then

+        print(e)

+        exit()

+end

+print("Waiting connection from talker on " .. i .. ":" .. p .. "...")

+c, e = s:accept()

+if not c then

+        print(e)

+        exit()

+end

+print("Connected. Here is the stuff:")

+l, e = c:receive()

+while not e do

+        print(l)

+        l, e = c:receive()

+end

+print(e)

diff --git a/samples/talker.lua b/samples/talker.lua
new file mode 100644
index 0000000..b3313e6
--- /dev/null
+++ b/samples/talker.lua
@@ -0,0 +1,22 @@
+host = "localhost"

+port = 8080

+if arg then

+        host = arg[1] or host

+        port = arg[2] or port

+end

+print("Attempting connection to host '" ..host.. "' and port " ..port.. "...")

+c, e = connect(host, port)

+if not c then

+        print(e)

+        exit()

+end

+print("Connected! Please type stuff (empty line to stop):")

+l = read()

+while l and l ~= "" and not e do

+        e = c:send(l, "\n")

+        if e then

+                print(e)

+                exit()

+        end

+        l = read()

+end