/usr/share/texlive/texmf-dist/tex/luatex/luatexbase/attr.lua is in texlive-luatex 2012.20120611-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | --
-- This is file `attr.lua',
-- generated with the docstrip utility.
--
-- The original source files were:
--
-- luatexbase-attr.dtx (with options: `luamodule')
--
-- Written in 2009, 2010 by Manuel Pegourie-Gonnard and Elie Roux.
--
-- This work is under the CC0 license.
-- See source file 'luatexbase-attr.dtx' for details.
--
module('luatexbase', package.seeall)
attributes = {}
local last_alloc = 0
function new_attribute(name, silent)
if last_alloc >= 65535 then
if silent then
return -1
else
error("No room for a new \\attribute", 1)
end
end
last_alloc = last_alloc + 1
attributes[name] = last_alloc
unset_attribute(name)
if not silent then
texio.write_nl('log', string.format(
'luatexbase.attributes[%q] = %d', name, last_alloc))
end
return last_alloc
end
local unset_value = (luatexbase.luatexversion < 37) and -1 or -2147483647
function unset_attribute(name)
tex.setattribute(attributes[name], unset_value)
end
--
-- End of File `attr.lua'.
|