## socket.lua

    local sig    = require "posix.signal"
    local sock   = require "posix.sys.socket"
    local unistd = require "posix.unistd"

    sig.signal (sig.SIGPIPE, function () print "pipe" end)

    -- Get Lua web site title
    local r, err = sock.getaddrinfo ("www.lua.org", "http", { family = sock.AF_INET, socktype = sock.SOCK_STREAM })
    if not r then error (err) end

    local fd = sock.socket (sock.AF_INET, sock.SOCK_STREAM, 0)
    local ok, err, e = sock.connect (fd, r[1])
    local sa = sock.getsockname(fd)
    print("Local socket bound to " .. sa.addr .. ":" .. tostring(sa.port))
    if err then error (err) end

    sock.send (fd, "GET / HTTP/1.0\r\nHost: www.lua.org\r\n\r\n")
    local data = {}
    while true do
    	local b = sock.recv (fd, 1024)
    	if not b or #b == 0 then
    		break
    	end
    	table.insert (data, b)
    end
    unistd.close (fd)
    data = table.concat (data)
    print (data:match "<TITLE>(.+)</TITLE>")

    -- Loopback UDP test, IPV4 and IPV6
    local fd = sock.socket (sock.AF_INET6, sock.SOCK_DGRAM, 0)
    sock.bind (fd, { family = sock.AF_INET6, addr = "::", port = 9999 })
    sock.sendto (fd, "Test ipv4", { family = sock.AF_INET, addr = "127.0.0.1", port = 9999 })
    sock.sendto (fd, "Test ipv6", { family = sock.AF_INET6, addr = "::", port = 9999 })
    for i = 1, 2 do
    	local ok, r = sock.recvfrom (fd, 1024)
    	if ok then
    		print (ok, r.addr, r.port)
    	else
    		print (ok, r)
    	end
    end
    unistd.close (fd)

    os.exit (0)

generated by LDoc 1.4.3 Last updated 2016-02-27 14:10:34