aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/LuaSL/testLua/yueliang-0.4.1/test_lua/5.0/trace-calls.lua
diff options
context:
space:
mode:
authorDavid Walter Seikel2012-01-23 21:58:02 +1000
committerDavid Walter Seikel2012-01-23 21:58:02 +1000
commit2d1df4714e2736dbde7855ddcd76b4c1de822fa5 (patch)
treec80e4622631c92dbe8dd6375d187702d084c2f2b /LuaSL/testLua/yueliang-0.4.1/test_lua/5.0/trace-calls.lua
parentRemove the conflict, and the comment. lol (diff)
downloadSledjHamr-2d1df4714e2736dbde7855ddcd76b4c1de822fa5.zip
SledjHamr-2d1df4714e2736dbde7855ddcd76b4c1de822fa5.tar.gz
SledjHamr-2d1df4714e2736dbde7855ddcd76b4c1de822fa5.tar.bz2
SledjHamr-2d1df4714e2736dbde7855ddcd76b4c1de822fa5.tar.xz
Added a big bunch of example lua scripts for testing the speed of lua compiling.
Diffstat (limited to 'LuaSL/testLua/yueliang-0.4.1/test_lua/5.0/trace-calls.lua')
-rw-r--r--LuaSL/testLua/yueliang-0.4.1/test_lua/5.0/trace-calls.lua32
1 files changed, 32 insertions, 0 deletions
diff --git a/LuaSL/testLua/yueliang-0.4.1/test_lua/5.0/trace-calls.lua b/LuaSL/testLua/yueliang-0.4.1/test_lua/5.0/trace-calls.lua
new file mode 100644
index 0000000..63c8b8f
--- /dev/null
+++ b/LuaSL/testLua/yueliang-0.4.1/test_lua/5.0/trace-calls.lua
@@ -0,0 +1,32 @@
1-- trace calls
2-- example: lua -ltrace-calls.lua bisect.lua
3
4local level=0
5
6function hook(event)
7 local t=debug.getinfo(3)
8 io.write(level," >>> ",string.rep(" ",level))
9 if t~=nil and t.currentline>=0 then io.write(t.short_src,":",t.currentline," ") end
10 t=debug.getinfo(2)
11 if event=="call" then
12 level=level+1
13 else
14 level=level-1 if level<0 then level=0 end
15 end
16 if t.what=="main" then
17 if event=="call" then
18 io.write("begin ",t.short_src)
19 else
20 io.write("end ",t.short_src)
21 end
22 elseif t.what=="Lua" then
23-- table.foreach(t,print)
24 io.write(event," ",t.name or "(Lua)"," <",t.linedefined,":",t.short_src,">")
25 else
26 io.write(event," ",t.name or "(C)"," [",t.what,"] ")
27 end
28 io.write("\n")
29end
30
31debug.sethook(hook,"cr")
32level=0