diff options
Diffstat (limited to 'tex/context/base/l-package.lua')
-rw-r--r-- | tex/context/base/l-package.lua | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tex/context/base/l-package.lua b/tex/context/base/l-package.lua index 09e65f9c8..837502ca6 100644 --- a/tex/context/base/l-package.lua +++ b/tex/context/base/l-package.lua @@ -279,6 +279,9 @@ methods["not loaded"] = function(name) end local level = 0 +local used = { } + +helpers.traceused = false function helpers.loaded(name) local sequence = helpers.sequence @@ -293,6 +296,9 @@ function helpers.loaded(name) if helpers.trace then helpers.report("%s, level '%s', method '%s', name '%s'","found",level,method,name) end + if helpers.traceused then + used[#used+1] = { level = level, name = name } + end level = level - 1 return result, rest end @@ -302,6 +308,19 @@ function helpers.loaded(name) return nil end +function helpers.showused() + local n = #used + if n > 0 then + helpers.report("%s libraries loaded:",n) + helpers.report() + for i=1,n do + local u = used[i] + helpers.report("%i %a",u.level,u.name) + end + helpers.report() + end +end + function helpers.unload(name) if helpers.trace then if package.loaded[name] then |