rewrite filename logger

1 files changed, 34 insertions, 0 deletions

diff --git a/otfl-luat-ovr.lua b/otfl-luat-ovr.lua
index 984dbf5..63ad6a7 100644
--- a/otfl-luat-ovr.lua
+++ b/otfl-luat-ovr.lua
@@ -11,9 +11,32 @@ local module_name = "luaotfload"
 
 local texiowrite_nl = texio.write_nl
 local stringformat  = string.format
+local tableconcat   = table.concat
 local ioflush       = io.flush
 local dummyfunction = function() end
 
+--[[doc--
+We recreate the verbosity levels previously implemented in font-nms:
+
+    ==========================================================
+    lvl      arg  trace_loading  trace_search  suppress_output
+    ----------------------------------------------------------
+    (0)  ->  -q         ⊥              ⊥            ⊤
+    (1)  ->  ∅          ⊥              ⊥            ⊥
+    (2)  ->  -v         ⊤              ⊥            ⊥
+    (>2) ->  -vv        ⊤              ⊤            ⊥
+    ==========================================================
+
+--doc]]--
+local loglevel = 1 --- default
+
+local set_loglevel = function (n)
+  if type(n) == "number" then
+    loglevel = n
+  end
+end
+logs.set_loglevel = set_loglevel
+
 function logs.report(category,fmt,...)
     if fmt then
         texiowrite_nl('log', stringformat("%s | %s: %s",module_name,category,stringformat(fmt,...)))
@@ -35,3 +58,14 @@ function logs.info(category,fmt,...)
     ioflush()
 end
 
+logs.names_loading = function (category, fmt, ...)
+    if loglevel > 1 then
+        local res = { module_name, " |" }
+        if category then res[#res+1] = " " .. category end
+        if fmt      then res[#res+1] = ": " .. stringformat(fmt, ...) end
+        texiowrite_nl(tableconcat(res))
+        ioflush()
+    end
+end
+
+-- vim:tw=71:sw=4:ts=4:expandtab