diff options
author | Marius <mariausol@gmail.com> | 2014-02-13 13:00:35 +0200 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2014-02-13 13:00:35 +0200 |
commit | 43b2c43c53673bbaebc0cec57d32c4609c026cd9 (patch) | |
tree | fe93e87b47c31f163d6042cc27af86d2a990fb28 /tex/context/base/util-deb.lua | |
parent | 8c7fab57c5fd2db6b9ade5f7608add9f650c8460 (diff) | |
download | context-43b2c43c53673bbaebc0cec57d32c4609c026cd9.tar.gz |
beta 2014.02.13 11:27
Diffstat (limited to 'tex/context/base/util-deb.lua')
-rw-r--r-- | tex/context/base/util-deb.lua | 46 |
1 files changed, 25 insertions, 21 deletions
diff --git a/tex/context/base/util-deb.lua b/tex/context/base/util-deb.lua index 785373f86..ee732b3b5 100644 --- a/tex/context/base/util-deb.lua +++ b/tex/context/base/util-deb.lua @@ -92,37 +92,41 @@ end function debugger.disable() debug.sethook() ---~ counters[debug.getinfo(2,"f").func] = nil + -- counters[debug.getinfo(2,"f").func] = nil end ---~ debugger.enable() - ---~ print(math.sin(1*.5)) ---~ print(math.sin(1*.5)) ---~ print(math.sin(1*.5)) ---~ print(math.sin(1*.5)) ---~ print(math.sin(1*.5)) - ---~ debugger.disable() - ---~ print("") ---~ debugger.showstats() ---~ print("") ---~ debugger.showstats(print,3) - +-- debugger.enable() +-- +-- print(math.sin(1*.5)) +-- print(math.sin(1*.5)) +-- print(math.sin(1*.5)) +-- print(math.sin(1*.5)) +-- print(math.sin(1*.5)) +-- +-- debugger.disable() +-- +-- print("") +-- debugger.showstats() +-- print("") +-- debugger.showstats(print,3) +-- -- from the lua book: -function traceback() - local level = 1 +local function showtraceback(rep) -- from lua site / adapted + local level = 2 -- we don't want this function to be reported + local reporter = rep or report while true do - local info = debug.getinfo(level, "Sl") + local info = getinfo(level, "Sl") if not info then break elseif info.what == "C" then - print(format("%3i : C function",level)) + reporter("%2i : %s",level-1,"C function") else - print(format("%3i : [%s]:%d",level,info.short_src,info.currentline)) + reporter("%2i : %s : %s",level-1,info.short_src,info.currentline) end level = level + 1 end end + +debugger.showtraceback = showtraceback +-- debug.showtraceback = showtraceback |