# Copyright, 2018, by Samuel G. D. Williams. <http://www.codeotaku.com>
# 
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
# 
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
# 
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.

require 'faraday'
require 'faraday/adapter'
require 'async/http/client'

module Async
	module HTTP
		module Faraday
			class Adapter < ::Faraday::Adapter
				def call(env)
					super
					
					client = HTTP::Client.new(endpoints_for(env).to_a)
					
					response = client.send_request(env[:method], env[:url].request_uri, env[:request_headers], env[:body] || [])
					
					save_response(env, response.status, response.body, response.headers, response.reason)
					
					@app.call env
				end
				
				def endpoints_for(env)
					return to_enum(:endpoints_for, env) unless block_given?
					
					if url = env[:url]
						port = url.port
						port ||= url.scheme == 'https' ? 443 : 80
						
						endpoint = Async::IO::Endpoint.tcp(url.hostname, port)
						
						if url.scheme == 'https'
							yield SecureEndpoint.new(endpoint, ssl_context: ssl_context_for(env[:ssl]))
						else
							yield endpoint
						end
					end
				end
				
				def ssl_context_for(options)
					OpenSSL::SSL::SSLContext.new.tap do |context|
						context.set_params(
							verify_mode: options.fetch(:verify, true) ? OpenSSL::SSL::VERIFY_PEER : OpenSSL::SSL::VERIFY_NONE,
							# cert_store: ssl_cert_store(ssl),
							# cert: options[:client_cert],
							# key: options[:client_key],
							# ca_file: ssl[:ca_file],
							# ca_path: ssl[:ca_path],
							# verify_depth: ssl[:verify_depth],
							# version: ssl[:version],
						)
					end
				end
			end
		end
	end
end

module Faraday
	class Adapter
		register_middleware :async_http => Async::HTTP::Faraday::Adapter
	end
end