1 local debug = require "debug"
2 local io = require "io"
3 local collectgarbage, floor = collectgarbage, math.floor
6 __file__ = debug.getinfo(1, 'S').source:sub(2)
8 -- Enables the memory tracer with given flags and returns a function to disable the tracer again
9 function trap_memtrace(flags, dest)
10 flags = flags or "clr"
11 local tracefile = io.open(dest or "/tmp/memtrace", "w")
14 local function trap(what, line)
15 local info = debug.getinfo(2, "Sn")
16 local size = floor(collectgarbage("count"))
22 "[", what, "] ", info.source, ":", (line or "?"), "\t",
23 (info.namewhat or ""), "\t",
24 (info.name or ""), "\t",
25 size, " (", peak, ")\n"
30 debug.sethook(trap, flags)