diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/trac-tim.lua')
-rw-r--r-- | Master/texmf-dist/tex/context/base/trac-tim.lua | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/Master/texmf-dist/tex/context/base/trac-tim.lua b/Master/texmf-dist/tex/context/base/trac-tim.lua index a8725bb5c11..de7ceca4610 100644 --- a/Master/texmf-dist/tex/context/base/trac-tim.lua +++ b/Master/texmf-dist/tex/context/base/trac-tim.lua @@ -10,12 +10,9 @@ local format, gsub = string.format, string.gsub local concat, sort = table.concat, table.sort local next, tonumber = next, tonumber -plugins = plugins or { } -plugins.progress = plugins.progress or { } - -local progress = plugins.progress - -progress = progress or { } +moduledata = moduledata or { } +moduledata.progress = moduledata.progress or { } +local progress = moduledata.progress progress.defaultfilename = ((tex and tex.jobname) or "whatever") .. "-luatex-progress" @@ -39,7 +36,7 @@ local params = { local last = os.clock() local data = { } -function progress.save() +function progress.save(name) io.savedata((name or progress.defaultfilename) .. ".lut",table.serialize(data,true)) data = { } end @@ -48,7 +45,7 @@ function progress.store() local c = os.clock() local t = { elapsed_time = c - last, - node_memory = nodes.usage(), + node_memory = nodes.pool.usage(), } for k, v in next, params do if status[v] then t[v] = status[v] end @@ -129,8 +126,8 @@ local function convert(name) sort(names) processed[name] = { names = names, - top = top, - bot = bot, + top = top, + bot = bot, pages = pages, paths = paths, } @@ -143,18 +140,23 @@ progress.convert = convert function progress.bot(name,tag) return convert(name).bot[tag] or 0 end + function progress.top(name,tag) return convert(name).top[tag] or 0 end + function progress.pages(name,tag) return convert(name).pages or 0 end + function progress.path(name,tag) return convert(name).paths[tag] or "origin" end + function progress.nodes(name) return convert(name).names or { } end + function progress.parameters(name) return params -- shared end |