Mercurial Hosting > luan
annotate src/luan/modules/http/tools/java_threads.html.luan @ 1218:a50803fde972
http/tools cleanup
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Tue, 20 Mar 2018 16:24:59 -0600 |
parents | src/luan/modules/http/tools/java_threads.luan@5dbb552075ff |
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 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
3 local Io = require "luan:Io.luan" |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
4 local Time = require "luan:Time.luan" |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
5 local Http = require "luan:http/Http.luan" |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
6 java() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
7 local Thread = require "java:java.lang.Thread" |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
8 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
9 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
10 return function() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
11 Io.stdout = Http.response.text_writer() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
12 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
13 local threads = Thread.getAllStackTraces() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
14 local threads = {} |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
15 for thread, trace in Luan.pairs(Thread.getAllStackTraces()) do |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
16 threads[#threads+1] = { |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
17 trace = trace |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
18 string = thread.toString() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
19 state = thread.getState() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
20 } |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
21 end |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
22 %> |
1216 | 23 <!doctype html> |
790
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
24 <html> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
25 <body> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
26 <h1>Java Threads</h1> |
1150
0842b9b570f8
change http headers interface
Franklin Schmidt <fschmidt@gmail.com>
parents:
790
diff
changeset
|
27 <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
|
28 <% |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
29 local count = 0 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
30 for _, thread in Luan.ipairs(threads) do |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
31 %> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
32 <p><%=thread.string%> <%=thread.state%> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
33 <ul> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
34 <% |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
35 local trace = thread.trace |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
36 for i in Luan.range( 0 , trace.length - 1 ) do |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
37 local line = trace[i].toString() |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
38 %><li><%=line%></li><% |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
39 end |
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 </ul></p> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
42 <% |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
43 count = count + 1 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
44 end |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
45 %> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
46 <p><%=count%> threads found</p> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
47 |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
48 </body> |
4cddfc06a34f
add java_threads and luan_threads
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
49 </html> |
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 end |