Mercurial Hosting > luan
annotate src/luan/modules/http/tools/Luan_threads.luan @ 1401:ef1620aa99cb
fix gc issues
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Mon, 16 Sep 2019 22:51:41 -0400 |
parents | b84f60ebe196 |
children |
rev | line source |
---|---|
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
1 local Luan = require "luan:Luan.luan" |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
2 local error = Luan.error |
1261
198d6af7330a
rename Luan.to_table to Table.java_to_table_shallow and Luan.to_luan to Table.java_to_table_deep
Franklin Schmidt <fschmidt@gmail.com>
parents:
1260
diff
changeset
|
3 local Table = require "luan:Table.luan" |
198d6af7330a
rename Luan.to_table to Table.java_to_table_shallow and Luan.to_luan to Table.java_to_table_deep
Franklin Schmidt <fschmidt@gmail.com>
parents:
1260
diff
changeset
|
4 local java_to_table_shallow = Table.java_to_table_shallow or error() |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
5 local Io = require "luan:Io.luan" |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
6 local Time = require "luan:Time.luan" |
1355 | 7 local Table = require "luan:Table.luan" |
8 local to_table = Table.java_to_table_shallow or error() | |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
9 local Http = require "luan:http/Http.luan" |
1353
8d95711f6615
replace java() with require "java"
Franklin Schmidt <fschmidt@gmail.com>
parents:
1261
diff
changeset
|
10 require "java" |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
11 local Thread = require "java:java.lang.Thread" |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
12 local LuanException = require "java:luan.LuanException" |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
13 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
14 |
1246 | 15 local Luan_threads = {} |
16 | |
17 function Luan_threads.respond() | |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
18 Io.stdout = Http.response.text_writer() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
19 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
20 local threads = Thread.getAllStackTraces() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
21 local threads = {} |
1355 | 22 for thread, trace in Luan.pairs(to_table(Thread.getAllStackTraces())) do |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
23 threads[#threads+1] = { |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
24 trace = trace |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
25 string = thread.toString() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
26 state = thread.getState() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
27 } |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
28 end |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
29 %> |
1216 | 30 <!doctype html> |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
31 <html> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
32 <body> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
33 <h1>Luan Threads</h1> |
1150
0842b9b570f8
change http headers interface
Franklin Schmidt <fschmidt@gmail.com>
parents:
790
diff
changeset
|
34 <p><%=Http.request.headers["host"]%> - <%=Time.format(Time.now())%></p> |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
35 <% |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
36 local count = 0 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
37 for _, thread in Luan.ipairs(threads) do |
1261
198d6af7330a
rename Luan.to_table to Table.java_to_table_shallow and Luan.to_luan to Table.java_to_table_deep
Franklin Schmidt <fschmidt@gmail.com>
parents:
1260
diff
changeset
|
38 local luan_trace = java_to_table_shallow(LuanException.justLuan(thread.trace)) |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
39 if #luan_trace > 0 then |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
40 %> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
41 <p><%=thread.string%> <%=thread.state%> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
42 <ul> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
43 <% |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
44 for i, el in Luan.ipairs(luan_trace) do |
1401 | 45 local line = LuanException.toLuanString(el); |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
46 %><li><%=line%></li><% |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
47 end |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
48 %> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
49 </ul></p> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
50 <% |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
51 count = count + 1 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
52 end |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
53 end |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
54 %> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
55 <p><%=count%> threads found</p> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
56 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
57 </body> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
58 </html> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
59 <% |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
60 end |
1246 | 61 |
62 return Luan_threads |