diff options
author | Karl Berry <karl@freefriends.org> | 2015-10-28 21:52:54 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-10-28 21:52:54 +0000 |
commit | 01e5c00bb581b8eed8b6cc2b08a9147fb759ce07 (patch) | |
tree | a1bd9795c6c9c237ced7f461ea4c890b701af333 /Master/texmf-dist/tex/latex/base/ltluatex.lua | |
parent | 4957862cf064bc3a65f91f9935028b9214e8fd48 (diff) |
latex (28oct15)
git-svn-id: svn://tug.org/texlive/trunk@38732 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/base/ltluatex.lua')
-rw-r--r-- | Master/texmf-dist/tex/latex/base/ltluatex.lua | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/Master/texmf-dist/tex/latex/base/ltluatex.lua b/Master/texmf-dist/tex/latex/base/ltluatex.lua index e91286d71f2..98e14c7e658 100644 --- a/Master/texmf-dist/tex/latex/base/ltluatex.lua +++ b/Master/texmf-dist/tex/latex/base/ltluatex.lua @@ -49,6 +49,9 @@ local tex_setattribute = tex.setattribute local tex_setcount = tex.setcount local texio_write_nl = texio.write_nl local modules = modules or { } +local function luatexbase_log(text) + texio_write_nl("log", text) +end local function provides_module(info) if not (info and info.name) then luatexbase_error("Missing module name for provides_modules") @@ -57,8 +60,7 @@ local function provides_module(info) local function spaced(text) return text and (" " .. text) or "" end - texio_write_nl( - "log", + luatexbase_log( "Lua module: " .. info.name .. spaced(info.date) .. spaced(info.version) @@ -174,7 +176,7 @@ local function new_attribute(name) return -1 end attributes[name]= tex_count["e@alloc@attribute@count"] - texio_write_nl("Lua-only attribute " .. name .. " = " .. + luatexbase_log("Lua-only attribute " .. name .. " = " .. tex_count["e@alloc@attribute@count"]) return tex_count["e@alloc@attribute@count"] end @@ -186,7 +188,7 @@ local function new_whatsit(name) luatexbase_error("No room for a new custom whatsit") return -1 end - texio_write_nl("Custom whatsit " .. (name or "") .. " = " .. + luatexbase_log("Custom whatsit " .. (name or "") .. " = " .. tex_count["e@alloc@whatsit@count"]) return tex_count["e@alloc@whatsit@count"] end @@ -198,7 +200,7 @@ local function new_bytecode(name) luatexbase_error("No room for a new bytecode register") return -1 end - texio_write_nl("Lua bytecode " .. (name or "") .. " = " .. + luatexbase_log("Lua bytecode " .. (name or "") .. " = " .. tex_count["e@alloc@bytecode@count"]) return tex_count["e@alloc@bytecode@count"] end @@ -213,7 +215,7 @@ local function new_chunkname(name) return -1 end lua.name[chunkname_count]=name - texio_write_nl("Lua chunkname " .. (name or "") .. " = " .. + luatexbase_log("Lua chunkname " .. (name or "") .. " = " .. chunkname_count .. "\n") return chunkname_count end @@ -408,7 +410,7 @@ local function add_to_callback(name, func, description) end end table.insert(l, priority, f) - texio_write_nl( + luatexbase_log( "Inserting `" .. description .. "' at position " .. priority .. " in `" .. name .. "'." ) @@ -450,7 +452,7 @@ local function remove_from_callback(name, description) end cb = l[index] table.remove(l, index) - texio_write_nl( + luatexbase_log( "Removing `" .. description .. "' from `" .. name .. "'." ) if #l == 0 then |