local Luan = require "luan:Luan.luan"
local error = Luan.error
local String = require "luan:String.luan"
local gsub = String.gsub or error()
local match = String.match or error()
local matches = String.matches or error()
local try = Luan.try or error()
local Io = require "luan:Io.luan"
local Package = require "luan:Package.luan"
local Rpc = require "luan:Rpc.luan"
local Thread = require "luan:Thread.luan"
local Http = require "luan:http/Http.luan"
local Logging = require "luan:logging/Logging.luan"
local logger = Logging.logger "http/Server"

java()
local JavaServer = require "java:luan.webserver.Server"
local FileHandler = require "java:luan.webserver.handlers.FileHandler"
local DirHandler = require "java:luan.webserver.handlers.DirHandler"
local IndexHandler = require "java:luan.webserver.handlers.IndexHandler"
local ContentTypeHandler = require "java:luan.webserver.handlers.ContentTypeHandler"
local SafeHandler = require "java:luan.webserver.handlers.SafeHandler"
local LogHandler = require "java:luan.webserver.handlers.LogHandler"
local ListHandler = require "java:luan.webserver.handlers.ListHandler"
local LuanHandler = require "java:luan.modules.http.LuanHandler"
local NotFound = require "java:luan.modules.http.NotFound"
local System = require "java:java.lang.System"


local Server = {}

function Server.init_dir(dir)
	if not matches(dir,":") then
		dir = "file:"..dir
	end
	dir = gsub(dir,"/$","")  -- remove trailing '/' if any
	Http.dir = dir
	function Io.schemes.site(path)
		return Io.uri( dir..path )
	end
end

function Server.start()
	try {
		function()
			LuanHandler.start(Server.server)
		end
		catch = function(e)
--			e.java.printStackTrace();
			Io.print_to(Io.stderr, e )
			System.exit(-1)
		end
	}
end

function Server.start_rpc()
	function Rpc.functions.call(domain,fn_name,...)
		return Server.luan_handler.call_rpc(fn_name,...)
	end
	Thread.fork(Rpc.serve)
end

function Server.serve(dir,port)
	port = port or 8080
	Server.init_dir(dir)
	local dir_path = match(Http.dir,"^file:(.*)$") or error "server dir must be scheme 'file:'"
	local file_handler = FileHandler.new(dir_path)
	local dir_handler = DirHandler.new(file_handler)
	local luan_handler = LuanHandler.new()
	local not_found_hander = NotFound.new(luan_handler)
	local handler = ListHandler.new( file_handler, luan_handler )
	handler = IndexHandler.new(handler)
	handler = ListHandler.new( handler, dir_handler, not_found_hander )
	handler = ContentTypeHandler.new(handler)
	handler = SafeHandler.new(handler)
	handler = LogHandler.new(handler)
	Server.server = JavaServer.new(port,handler)
	Server.start()
	Server.start_rpc()
end

function Server.serve_for_proxy(dir,port)
	port = port or 8080
	Server.init_dir(dir)
	local handler = LuanHandler.new()
	handler = IndexHandler.new(handler)
	handler = ContentTypeHandler.new(handler)
	handler = SafeHandler.new(handler)
	Server.server = JavaServer.new(port,handler)
	Server.start()
end

return Server