1 files changed, 167 insertions, 167 deletions
diff --git a/tex/context/base/attr-ini.lua b/tex/context/base/attr-ini.lua
index 206a86d79..cb8eecf77 100644
--- a/tex/context/base/attr-ini.lua
+++ b/tex/context/base/attr-ini.lua
@@ -1,167 +1,167 @@
-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 commands, context, nodes, storage = commands, context, nodes, storage
-
-local next, type = next, type
-
---[[ldx--
-<p>We start with a registration system for atributes so that we can use the
-symbolic names later on.</p>
---ldx]]--
-
-attributes            = attributes or { }
-local attributes      = attributes
-
-local sharedstorage   = storage.shared
-
-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           = attributes.names
-local numbers         = attributes.numbers
-local list            = attributes.list
-
-storage.register("attributes/names",   names,   "attributes.names")
-storage.register("attributes/numbers", numbers, "attributes.numbers")
-storage.register("attributes/list",    list,    "attributes.list")
-
-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--
-<p>We reserve this one as we really want it to be always set (faster).</p>
---ldx]]--
-
-names[0], numbers["fontdynamic"] = "fontdynamic", 0
-
---[[ldx--
-<p>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 <l n='context'/>.</p>
---ldx]]--
-
-sharedstorage.attributes_last_private = sharedstorage.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 = sharedstorage.attributes_last_private
---         if number < 1023 then -- tex.count.minallocatedattribute - 1
---             number = number + 1
---             sharedstorage.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 = sharedstorage.attributes_last_private
-        if last < 1023 then -- tex.count.minallocatedattribute - 1
-            last = last + 1
-            sharedstorage.attributes_last_private = last
-        else
-            report_attribute("no more room for private attributes")
-            os.exit()
-        end
-        number = last
-        numbers[name], names[number], list[number] = number, name, { }
-    end
-    return number
-end
-
--- tracers
-
-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 %a",what,i,number,value,names[number])
-            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
+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 commands, context, nodes, storage = commands, context, nodes, storage
+
+local next, type = next, type
+
+--[[ldx--
+<p>We start with a registration system for atributes so that we can use the
+symbolic names later on.</p>
+--ldx]]--
+
+attributes            = attributes or { }
+local attributes      = attributes
+
+local sharedstorage   = storage.shared
+
+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           = attributes.names
+local numbers         = attributes.numbers
+local list            = attributes.list
+
+storage.register("attributes/names",   names,   "attributes.names")
+storage.register("attributes/numbers", numbers, "attributes.numbers")
+storage.register("attributes/list",    list,    "attributes.list")
+
+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--
+<p>We reserve this one as we really want it to be always set (faster).</p>
+--ldx]]--
+
+names[0], numbers["fontdynamic"] = "fontdynamic", 0
+
+--[[ldx--
+<p>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 <l n='context'/>.</p>
+--ldx]]--
+
+sharedstorage.attributes_last_private = sharedstorage.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 = sharedstorage.attributes_last_private
+--         if number < 1023 then -- tex.count.minallocatedattribute - 1
+--             number = number + 1
+--             sharedstorage.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 = sharedstorage.attributes_last_private
+        if last < 1023 then -- tex.count.minallocatedattribute - 1
+            last = last + 1
+            sharedstorage.attributes_last_private = last
+        else
+            report_attribute("no more room for private attributes")
+            os.exit()
+        end
+        number = last
+        numbers[name], names[number], list[number] = number, name, { }
+    end
+    return number
+end
+
+-- tracers
+
+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 %a",what,i,number,value,names[number])
+            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