1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
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 type = type
--[[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 logout = "log"
local set_loglevel = function (n)
if type(n) == "number" then
loglevel = n
end
end
logs.set_loglevel = set_loglevel
logs.set_log_level = set_loglevel --- accomodating lazy typists
local set_logout = function (s)
if s == "stdout" then
logout = "term"
--else --- remains “log”
end
end
logs.set_logout = set_logout
local log = function (category, fmt, ...)
local res = { module_name, " |" }
if category then res[#res+1] = " " .. category end
if fmt then res[#res+1] = ": " .. stringformat(fmt, ...) end
texiowrite_nl(logout, tableconcat(res))
end
local stdout = function (category, fmt, ...)
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))
end
local level_ids = { common = 0, loading = 1, search = 2 }
logs.names_report = function (mode, lvl, ...)
if type(lvl) == "string" then
lvl = level_ids[lvl]
end
if not lvl then lvl = 0 end
if loglevel >= lvl then
if mode == "log" then
log (...)
elseif mode == "both" then
log (...)
stdout (...)
else
stdout (...)
end
end
end
if containers then
--- This will vanish as soon as Hans fixes it in data-con
--- https://github.com/lualatex/luaotfload/issues/17
containers.cleanname = function (name)
return (string.gsub(string.lower(name),"[^%w%d\128\255]+","-"))
end
end
-- vim:tw=71:sw=4:ts=4:expandtab
|
