2 -- luatexja/infomute.lua
4 luatexbase.provides_module({
5 name = 'luatexja.infomute',
10 module('luatexja.infomute', package.seeall)
11 local err, warn, info, log = luatexbase.errwarinf(_NAME)
14 --! luatexbase.module_info() で特定のモジュールの情報出力だけ
17 local org_texio = texio
18 local patch_applied = false
21 local function pick_module_name(line)
23 if line:sub(1, 7) == "Module " then
24 local s, e = line:find(" ", 8, true)
25 if s then mod = line:sub(8, s - 1) end
26 elseif line:sub(1, 1) == "(" then
27 local s, e = line:find(")", 2, true)
28 if s then mod = line:sub(2, s - 1) end
33 local function patched_write_nl(line, ...)
34 local mod = pick_module_name(line)
35 if not (mod and info_mute[mod]) then
36 org_texio.write_nl(line, ...)
40 local new_texio = setmetatable({ write_nl = patched_write_nl },
41 { __index = org_texio })
42 local org_fenv = getfenv(luatexbase.module_info)
44 local function apply_patch()
45 setfenv(luatexbase.module_info,
46 setmetatable({ texio = new_texio }, { __index = org_fenv }))
50 --! モジュール mod の情報出力を抑止する.
51 function add_mute(mod)
53 if not patch_applied then
58 -------------------- all done