Mercurial Hosting > luan

local Luan = require "luan:Luan.luan"
local error = Luan.error
local Table = require "luan:Table.luan"
local java_to_table_shallow = Table.java_to_table_shallow or error()
local Io = require "luan:Io.luan"
local Time = require "luan:Time.luan"
local Http = require "luan:http/Http.luan"
java()
local Thread = require "java:java.lang.Thread"
local LuanException = require "java:luan.LuanException"


local Luan_threads = {}

function Luan_threads.respond()
	Io.stdout = Http.response.text_writer()

	local threads = Thread.getAllStackTraces()
	local threads = {}
	for thread, trace in Luan.pairs(Thread.getAllStackTraces()) do
		threads[#threads+1] = {
			trace = trace
			string = thread.toString()
			state = thread.getState()
		}
	end
%>
<!doctype html>
<html>
	<body>
		<h1>Luan Threads</h1>
		<p><%=Http.request.headers["host"]%> - <%=Time.format(Time.now())%></p>
		<%
		local count = 0
		for _, thread in Luan.ipairs(threads) do
			local luan_trace = java_to_table_shallow(LuanException.justLuan(thread.trace))
			if #luan_trace > 0 then
				%>
				<p><%=thread.string%> <%=thread.state%>
				<ul>
				<%
				for i, el in Luan.ipairs(luan_trace) do
					local line = LuanException.toString(el);
					%><li><%=line%></li><%
				end
				%>
				</ul></p>
				<%
				count = count + 1
			end
		end
		%>
		<p><%=count%> threads found</p>

	</body>
</html>
<%
end

return Luan_threads
author	Franklin Schmidt <fschmidt@gmail.com>
date	Mon, 24 Sep 2018 13:09:16 -0600
parents	4b5b84853f6f
children	8d95711f6615