Mercurial Hosting > luan
view src/luan/modules/http/tools/Luan_threads.luan @ 1662:d6a50ed9604f
file.move_to
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Mon, 02 May 2022 19:15:42 -0600 |
parents | ef1620aa99cb |
children |
line wrap: on
line source
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" 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(to_table(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.toLuanString(el); %><li><%=line%></li><% end %> </ul></p> <% count = count + 1 end end %> <p><%=count%> threads found</p> </body> </html> <% end return Luan_threads