class Async::HTTP::Server

def self.for(*args, &block)
	self.new(block, *args)
end

def accept(peer, address, task: Task.current)
	stream = Async::IO::Stream.new(peer)
	protocol = @protocol.server(stream)
	
	Async.logger.debug(self) {"Incoming connnection from #{address.inspect} to #{protocol}"}
	
	protocol.each do |request|
		# We set the default scheme unless it was otherwise specified.
		# https://tools.ietf.org/html/rfc7230#section-5.5
		request.scheme ||= self.scheme
		
		# This is a slight optimization to avoid having to get the address from the socket.
		request.remote_address = address
		
		# Async.logger.debug(self) {"Incoming request from #{address.inspect}: #{request.method} #{request.path}"}
		
		# If this returns nil, we assume that the connection has been hijacked.
		self.call(request)
	end
rescue EOFError, Errno::ECONNRESET, Errno::EPIPE, Errno::EPROTOTYPE
	# Sometimes client will disconnect without completing a result or reading the entire buffer. That means we are done.
	# Errno::EPROTOTYPE is a bug with Darwin. It happens because the socket is lazily created (in Darwin).
end

def initialize(app, endpoint, protocol = endpoint.protocol, scheme = endpoint.scheme)
	super(app)
	
	@endpoint = endpoint
	@protocol = protocol
	@scheme = scheme
end

def run
	@endpoint.accept(&self.method(:accept))
end