1 files changed, 89 insertions, 18 deletions
diff --git a/tex/context/base/luat-run.lua b/tex/context/base/luat-run.lua
index 719a6f7c9..65cf0f338 100644
--- a/tex/context/base/luat-run.lua
+++ b/tex/context/base/luat-run.lua
@@ -6,8 +6,8 @@ if not modules then modules = { } end modules ['luat-run'] = {
     license   = "see context related readme files"
 }
 
-local format = string.format
-local insert = table.insert
+local format, find = string.format, string.find
+local insert, remove = table.insert, table.remove
 
 -- trace_job_status is also controlled by statistics.enable that is set via the directive system.nostatistics
 
@@ -130,31 +130,102 @@ luatex.registerstopactions(luatex.cleanuptempfiles)
 
 -- for the moment here
 
-local synctex = false
-
 local report_system = logs.reporter("system")
+local synctex       = 0
 
 directives.register("system.synctex", function(v)
-    synctex = v
-    if v then
-        report_system("synctex functionality is enabled!")
+    synctex = tonumber(v) or (toboolean(v,true) and 1) or (v == "zipped" and 1) or (v == "unzipped" and -1) or 0
+    if synctex ~= 0 then
+        report_system("synctex functionality is enabled (%s)!",tostring(synctex))
     else
         report_system("synctex functionality is disabled!")
     end
-    synctex = tonumber(synctex) or (toboolean(synctex,true) and 1) or (synctex == "zipped" and 1) or (synctex == "unzipped" and -1) or false
-    -- currently this is bugged:
-    tex.synctex = synctex
-    -- so for the moment we need:
-    context.normalsynctex()
-    if synctex then
-        context.plusone()
-    else
-        context.zerocount()
-    end
+    tex.normalsynctex = synctex
 end)
 
 statistics.register("synctex tracing",function()
-    if synctex or tex.synctex ~= 0 then
+    if synctex ~= 0 then
         return "synctex has been enabled (extra log file generated)"
     end
 end)
+
+-- filenames
+
+local types = {
+    "data",
+    "font map",
+    "image",
+    "font subset",
+    "full font",
+}
+
+local report_open  = logs.reporter("open source")
+local report_close = logs.reporter("close source")
+local report_load  = logs.reporter("load resource")
+
+local register     = callbacks.register
+
+local level = 0
+local total = 0
+local stack = { }
+local all   = false
+
+local function report_start(left,name)
+    if not left then
+        -- skip
+    elseif left ~= 1 then
+        if all then
+            report_load("%s > %s",types[left],name or "?")
+        end
+    elseif find(name,"virtual://") then
+        insert(stack,false)
+    else
+        insert(stack,name)
+        total = total + 1
+        level = level + 1
+        report_open("%i > %i > %s",level,total,name or "?")
+    end
+end
+
+local function report_stop(right)
+    if level == 1 or not right or right == 1 then
+        local name = remove(stack)
+        if name then
+            report_close("%i > %i > %s",level,total,name or "?")
+            level = level - 1
+        end
+    end
+end
+
+local function report_none()
+end
+
+register("start_file",report_start)
+register("stop_file", report_stop)
+
+directives.register("system.reportfiles", function(v)
+    if v == "noresources" then
+        all = false
+        register("start_file",report_start)
+        register("stop_file", report_stop)
+    elseif toboolean(v) or v == "all" then
+        all = true
+        register("start_file",report_start)
+        register("stop_file", report_stop)
+    elseif v == "traditional" then
+        register("start_file",nil)
+        register("stop_file", nil)
+    else
+        register("start_file",report_none)
+        register("stop_file", report_none)
+    end
+end)
+
+-- start_run doesn't work
+
+-- luatex.registerstartactions(function()
+--     if environment.arguments.sandbox then
+--         sandbox.enable()
+--     end
+-- end)
+