class Async::HTTP::Protocol::HTTP11

def initialize(stream)
	super(stream, CRLF)
end

def keep_alive?(headers)
	headers[HTTP_CONNECTION] != CLOSE
end

def read_body(headers)
	if headers[HTTP_TRANSFER_ENCODING] == 'chunked'
		buffer = Async::IO::BinaryString.new
		
		while true
			size = read_line.to_i(16)
			
			if size == 0
				read_line
				break
			end
			
			buffer << @stream.read(size)
			
			read_line # Consume the trailing CRLF
		end
		
		return buffer
	elsif content_length = headers[HTTP_CONTENT_LENGTH]
		return @stream.read(Integer(content_length))
	end
end

def read_headers(headers = {})
	# Parsing headers:
	each_line do |line|
		if line =~ /^([a-zA-Z\-]+):\s*(.+?)\s*$/
			headers["HTTP_#{$1.tr('-', '_').upcase}"] = $2
		else
			break
		end
	end
	
	return headers
end

def read_request
	method, path, version = read_line.split(/\s+/, 3)
	headers = read_headers
	body = read_body(headers)
	
	return method, path, version, headers, body
end

def read_response
	version, status, reason = read_line.split(/\s+/, 3)
	headers = read_headers
	body = read_body(headers)
	
	return version, Integer(status), reason, headers, body
end

def receive_requests
	while request = Request.new(*read_request)
		status, headers, body = yield request
		
		write_response(request.version, status, headers, body)
		
		break unless keep_alive?(request.headers) && keep_alive?(headers)
	end
	
rescue EOFError, Errno::ECONNRESET
	return nil
end

def send_request(method, path, headers, body = [])
	write_request(method, path, version, headers, body)
	
	return Response.new(*read_response)

rescue EOFError
	return nil
end

def version
	VERSION
end

def write_body(body, chunked = true)
	if chunked
		@stream.write("Transfer-Encoding: chunked\r\n\r\n")
		
		body.each do |chunk|
			next if chunk.size == 0
			
			@stream.write("#{chunk.bytesize.to_s(16).upcase}\r\n")
			@stream.write(chunk)
			@stream.write(CRLF)
		end
		
		@stream.write("0\r\n\r\n")
	else
		buffer = String.new
		body.each{|chunk| buffer << chunk}
		
		@stream.write("Content-Length: #{chunk.bytesize}\r\n\r\n")
		@stream.write(chunk)
	end
end

def write_headers(headers)
	headers.each do |name, value|
		@stream.write("#{name}: #{value}\r\n")
	end
end

def write_request(method, path, version, headers, body)
	@stream.write("#{method} #{path} #{version}\r\n")
	write_headers(headers)
	write_body(body)
	
	@stream.flush
	
	return true
end

def write_response(version, status, headers, body)
	@stream.write("#{version} #{status}\r\n")
	write_headers(headers)
	write_body(body)
	
	@stream.flush
	
	return true
end