server.mini

import: onion("web/onion")
import: minijs("fmt/minijs")
import: json("fmt/json")
def connection_status := onion::connection_status

var Onion := onion()
var Root := Onion:root_url

Root:add(""; Request, Response) do
	print("Path = ", Request:get_path, "\n")
	print("Full Path = ", Request:get_fullpath, "\n")
	let File := file("index.xhtml", "r")
	Response:set_code(200)
	Response:set_header("Content-Type", "application/xhtml+xml")
	Response:write(File:rest)
	File:close
	Response:flush
end

Root:add("minilang.js"; Request, Response) do
	print("Path = ", Request:get_path, "\n")
	print("Full Path = ", Request:get_fullpath, "\n")
	let File := file("minilang.js", "r")
	Response:set_code(200)
	Response:set_header("Content-Type", "text/javascript")
	Response:write(File:rest)
	File:close
	Response:flush
end

Root:add("test.js"; Request, Response) do
	print("Path = ", Request:get_path, "\n")
	print("Full Path = ", Request:get_fullpath, "\n")
	let File := file("test.js", "r")
	Response:set_code(200)
	Response:set_header("Content-Type", "text/javascript")
	Response:write(File:rest)
	File:close
	Response:flush
end

let Globals := map(globals()):grow({
	"print" is external("print"),
	"json" is external("json")
})

let Externals := external::set()
Externals:add("print", print)

print('Globals = {Globals}\n')

Root:add("compile"; Request, Response) do
	let Parser := parser()
	let Compiler := compiler(global)
	let Input := Request:get_post("input")
	print("Input = ", Input, "\n")
	Parser:input(Input)
	do
		let Function := Parser:compile(Compiler)
		Response:set_code(200)
		Response:set_header("Content-Type", "application/json")
		Response:write(json::encode(minijs::encode(Function, Externals)))
	on Error do
		Response:set_code(400)
		Response:set_header("Content-Type", "text/plain")
		Response:write('{Error:type}\n')
		Response:write('{Error:message}\n')
		for (Source, Line) in Error:trace do
			Response:write('\t{Source}:{Line}\n')
		end
	end
	Response:flush
end

Onion:set_port("9001")
print("Listening on http://localhost:9001\n")
Onion:listen