if not modules then modules = { } end modules ['attr-ini'] = {
version = 1.001,
comment = "companion to attr-ini.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local next, type = next, type
--[[ldx--
We start with a registration system for atributes so that we can use the
symbolic names later on.
--ldx]]--
attributes = attributes or { }
local attributes, nodes = attributes, nodes
-- todo: local and then gobals ... first loaded anyway
attributes.names = attributes.names or { }
attributes.numbers = attributes.numbers or { }
attributes.list = attributes.list or { }
attributes.states = attributes.states or { }
attributes.handlers = attributes.handlers or { }
attributes.unsetvalue = -0x7FFFFFFF
local names, numbers, list = attributes.names, attributes.numbers, attributes.list
storage.register("attributes/names", names, "attributes.names")
storage.register("attributes/numbers", numbers, "attributes.numbers")
storage.register("attributes/list", list, "attributes.list")
names [0] = "fontdynamic"
numbers["fontdynamic"] = 0
function attributes.define(name,number) -- at the tex end
if not numbers[name] then
numbers[name] = number
names[number] = name
list[number] = { }
end
end
--[[ldx--
We can use the attributes in the range 127-255 (outside user space). These
are only used when no attribute is set at the \TEX\ end which normally
happens in .
--ldx]]--
storage.shared.attributes_last_private = storage.shared.attributes_last_private or 127
-- to be considered (so that we can use an array access):
--
-- local private = { } attributes.private = private
--
-- setmetatable(private, {
-- __index = function(t,name)
-- local number = storage.shared.attributes_last_private or 127
-- if number < 1023 then -- tex.count.minallocatedattribute - 1
-- number = number + 1
-- storage.shared.attributes_last_private = number
-- end
-- numbers[name], names[number], list[number] = number, name, { }
-- private[name] = number
-- return number
-- end,
-- __call = function(t,name)
-- return t[name]
-- end
-- } )
function attributes.private(name) -- at the lua end (hidden from user)
local number = numbers[name]
if not number then
local last = storage.shared.attributes_last_private or 127
if last < 1023 then -- tex.count.minallocatedattribute - 1
last = last + 1
storage.shared.attributes_last_private = last
else
report_attribute("no more room for private attributes") -- fatal
os.exit()
end
number = last
numbers[name], names[number], list[number] = number, name, { }
end
return number
end
-- new (actually a tracer)
local report_attribute = logs.reporter("attributes")
local function showlist(what,list)
if list then
local a = list.next
local i = 0
while a do
local number, value = a.number, a.value
i = i + 1
report_attribute("%s %2i: attribute %3i, value %4i, name %s",tostring(what),i,number,value,names[number] or '?')
a = a.next
end
end
end
function attributes.showcurrent()
showlist("current",node.current_attr())
end
function attributes.ofnode(n)
showlist(n,n.attr)
end
-- interface
commands.defineattribute = attributes.define
commands.showattributes = attributes.showcurrent
function commands.getprivateattribute(name)
context(attributes.private(name))
end
-- rather special
local store = { }
function commands.savecurrentattributes(name)
name = name or ""
local n = node.current_attr()
n = n and n.next
local t = { }
while n do
t[n.number] = n.value
n = n.next
end
store[name] = {
attr = t,
font = font.current(),
}
end
function commands.restorecurrentattributes(name)
name = name or ""
local t = store[name]
if t then
local attr = t.attr
local font = t.font
if attr then
for k, v in next, attr do
tex.attribute[k] = v
end
end
if font then
-- tex.font = font
context.getvalue(fonts.hashes.csnames[font]) -- we don't have a direct way yet (will discuss it with taco)
end
end
-- store[name] = nil
end