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