local threads = require './pthreads'
local socket = require 'socket'

local weakref = function(obj) if obj then return setmetatable({real = obj, free=function(self) self.real=nil end}, {__mode = "k", __call=function(self) return self.real end} ) end end

server = socket.bind("*", 55555)
server:settimeout(1e-2)

callback = function(ptr) local cs = ptr() if cs then cs:receive() cs:send("HTTP/1.0 200 OK\n\ntest") cs:close() end ptr:free() end

while true do
    local c = weakref(server:accept())
    if c then
        threads.thread(callback, c):join()
    end
end