class Async::HTTP::Server

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

def accept(peer, address, task: Task.current)
	connection = @protocol.server(peer)
	
	Console.debug(self) {"Incoming connnection from #{address.inspect} to #{@protocol}"}
	
	connection.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
		
		# Console.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
ensure
	connection&.close
end

def as_json(...)
	{
		endpoint: @endpoint.to_s,
		protocol: @protocol,
		scheme: @scheme,
	}
end

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

def run
	Async do |task|
		@endpoint.accept(&self.method(:accept))
		
		# Wait for all children to finish:
		task.children.each(&:wait)
	end
end

def to_json(...)
	as_json.to_json(...)
end