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 Table = require "luan:Table.luan"
local to_table = Table.java_to_table_shallow or error()
local Http = require "luan:http/Http.luan"
require "java"
local Thread = require "java:java.lang.Thread"
local LuanException = require "java:luan.LuanException"


return function()
	Io.stdout = Http.response.text_writer()

	local threads = Thread.getAllStackTraces()
	local threads = {}
	for thread, trace in Luan.pairs(to_table(Thread.getAllStackTraces())) do
		threads[#threads+1] = {
			trace = trace
			string = thread.toString()
			state = thread.getState()
		}
	end
%>
<!doctype html>
<html lang="en">
	<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.toLuanString(el);
					%><li><%=line%></li><%
				end
				%>
				</ul></p>
				<%
				count = count + 1
			end
		end
		%>
		<p><%=count%> threads found</p>

	</body>
</html>
<%
end
author	Franklin Schmidt <fschmidt@gmail.com>
date	Fri, 04 Jul 2025 11:39:41 -0600
parents	301a6561fb6b
children