Mercurial Hosting > luan

local Luan = require "luan:Luan"
local error = Luan.error
local load = Luan.load or error()
local try = Luan.try or error()
local Io = require "luan:Io"
local print = Io.print or error()
local Http = require "luan:http/Http"
local String = require "luan:String"
local Html = require "luan:Html"


local function lines(s)
	local matcher = s.gmatch "([^\n]*)\n|([^\n])+$"
	return function()
		local m1, m2 = matcher()
		return m1 or m2
	end
end

local function print_with_line_numbers(s)
	local i = 1
	for line in lines(s) do
		print(i,line)
		i = i + 1
	end
end

local function form() %>
<html>
	<head>
		<title>Run Luan Code</title>
		<style>
			input[type="submit"]:hover { background: #236aa7 !important }
		</style>
	</head>
	<body style='
		font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
		text-align: center;
		margin-top: 1em;
	'>
		<h2 style='
			margin-bottom: .3em;
			font-weight: normal;
		'>Run Luan Code</h2>
		<form name="form0" method="post">
			<input type="hidden" name="content_type" value="text/plain" />
			<div>
				<textarea name="code" rows="20" cols="90" wrap="off" autofocus style='
					font: inherit;
					border-radius: 4px;
					padding: .5em .8em;
				'></textarea>
			</div>
			<div>
				<input type="submit" value="Execute Luan Code" style='
					margin-top: .3em;
					color: white;
					background: #337ab7;
					border-color: #337ab7;
					font: inherit;
					padding: .5em;
					border-radius: 4px;
				'/>
			</div>
		</form>
	</body>
</html>
<% end

return function()
	Io.stdout = Http.response.text_writer()
	local code = Http.request.parameter.code
	if code == nil then
		form()
		return
	end
	local content_type = Http.request.parameter.content_type
	if content_type ~= nil then
		Http.response.header.content_type = content_type
	end
	local env = {
		request = Http.request;
		response = Http.response;
	}
	try {
		function()
			local run = load(code,"<web_run>",env)
			run()
		end;
		catch = function(e)
			Http.response.header.content_type = "text/plain"
			print(e)
			print()
			print()
			print_with_line_numbers(code)
		end;
	}
end
author	Franklin Schmidt <fschmidt@gmail.com>
date	Tue, 23 Jun 2015 03:24:03 -0600
parents	7bc63886d4f2
children	bfb2c30324c0