if not modules then modules = { } end modules ['luat-ovr'] = {
    version   = 1.001,
    comment   = "companion to luatex-*.tex",
    author    = "Khaled Hosny and Elie Roux",
    copyright = "Luaotfload Development Team",
    license   = "GNU GPL v2"
}


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,...)))
    elseif category then
        texiowrite_nl('log', stringformat("%s | %s",module_name,category))
    else
        texiowrite_nl('log', stringformat("%s |",module_name))
    end
end

function logs.info(category,fmt,...)
    if fmt then
        texiowrite_nl(stringformat("%s | %s: %s",module_name,category,stringformat(fmt,...)))
    elseif category then
        texiowrite_nl(stringformat("%s | %s",module_name,category))
    else
        texiowrite_nl(stringformat("%s |",module_name))
    end
    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