1 files changed, 23 insertions, 0 deletions
diff --git a/test/trace-calls.lua b/test/trace-calls.lua
new file mode 100644
index 00000000..a073cc20
--- /dev/null
+++ b/test/trace-calls.lua
@@ -0,0 +1,23 @@
+-- trace calls
+-- example: lua trace-calls.lua hello.lua bisect.lua
+
+function callhook(func)
+ local t=getinfo(2)
+ write(">>> ")
+--foreach(t,print)
+ if t.what=="main" then
+  if func=="call" then
+   write("begin ",t.source)
+  else
+   write("end ",t.source)
+  end
+ elseif t.what=="Lua" then
+  write(func," ",t.name," <",t.linedefined,":",t.source,">")
+ else
+  write(func," ",t.name," [",t.what,"] ")
+ end
+ if t.currentline>=0 then write(":",t.currentline) end
+ write("\n")
+end
+
+setcallhook(callhook)