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)