class Falcon::Command::Serve

def client
	Async::HTTP::Client.new(client_endpoint)
end

def client_endpoint
	Async::HTTP::URLEndpoint.parse(@options[:bind], **endpoint_options)
end

def container_class
	case @options[:container]
	when :threaded
		require 'async/container/threaded'
		return Async::Container::Threaded
	when :forked
		require 'async/container/forked'
		return Async::Container::Forked
	end
end

def endpoint_options
	# Oh, for Hash#slice(keys...)
	options = {}
	
	if @options.key? :hostname
		options[:hostname] = @options[:hostname]
	end
	
	if @options.key? :port
		options[:port] = @options[:port]
	end
	
	if @options.key? :reuse_port
		options[:reuse_port] = @options[:reuse_port]
	end
	
	if duration = @options[:timeout] and !duration.zero?
		options[:timeout] = duration
	end
	
	return options
end

def invoke(parent)
	container = run(parent.verbose?)
	
	container.wait
end

def load_app(verbose)
	rack_app, options = Rack::Builder.parse_file(@options[:config])
	
	return Server.middleware(rack_app, verbose: verbose), options
end

def run(verbose = false)
	app, _ = load_app(verbose)
	
	endpoint = Endpoint.parse(@options[:bind], **endpoint_options)
	
	bound_endpoint = Async::Reactor.run do
		Async::IO::SharedEndpoint.bound(endpoint)
	end.wait
	
	Async.logger.info(endpoint) do
		"Falcon taking flight! Using #{container_class} with concurrency: #{@options[:concurrency]}"
	end
	
	debug_trap = Async::IO::Trap.new(:USR1)
	
	debug_trap.ignore!
	
	if container_class.multiprocess?
		Async.logger.info "Full status: kill -USR1 #{-Process.pid}"
	end
	
	container_class.new(concurrency: @options[:concurrency], name: "Falcon Server") do |task, instance|
		task.async do
			if debug_trap.install!
				Async.logger.info "Per-process status: kill -USR1 #{Process.pid}"
			end
			
			debug_trap.trap do
				Async.logger.info(self) do |buffer|
					task.reactor.print_hierarchy(buffer)
				end
			end
		end
		
		server = Falcon::Server.new(app, bound_endpoint, endpoint.protocol, endpoint.scheme)
		
		server.run
		
		task.children.each(&:wait)
	end
end