2016-05-17 19:25:00

1 files changed, 0 insertions, 195 deletions

diff --git a/tex/context/base/attr-ini.lua b/tex/context/base/attr-ini.lua
deleted file mode 100644
index df7404d11..000000000
--- a/tex/context/base/attr-ini.lua
+++ /dev/null
@@ -1,195 +0,0 @@
-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--
-<p>We start with a registration system for atributes so that we can use the
-symbolic names later on.</p>
---ldx]]--
-
-local nodes           = nodes
-local context         = context
-local storage         = storage
-local commands        = commands
-
-local implement       = interfaces.implement
-
-attributes            = attributes or { }
-local attributes      = attributes
-
-local sharedstorage   = storage.shared
-
-local texgetcount     = tex.getcount
-local texsetattribute = tex.setattribute
-
-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>private attributes are used by the system and public ones are for users. We use dedicated
-ranges of numbers for them. Of course a the <l n='context'/> end a private attribute can be
-accessible too, so a private attribute can have a public appearance.</p>
---ldx]]--
-
-sharedstorage.attributes_last_private = sharedstorage.attributes_last_private or  127 -- very private (can become 15)
-sharedstorage.attributes_last_public  = sharedstorage.attributes_last_public  or 1024 -- less private
-
-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
-            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
-
-function attributes.public(name) -- at the lua end (hidden from user)
-    local number = numbers[name]
-    if not number then
-        local last = sharedstorage.attributes_last_public
-        if last < 65535 then
-            last = last + 1
-            sharedstorage.attributes_last_public = last
-        else
-            report_attribute("no more room for public attributes")
-            os.exit()
-        end
-        number = last
-        numbers[name], names[number], list[number] = number, name, { }
-    end
-    return number
-end
-
-attributes.system = attributes.private
-
-function attributes.define(name,category)
-    return (attributes[category or "public"] or attributes["public"])(name)
-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
-
--- rather special
-
-local store = { }
-
-function attributes.save(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 attributes.restore(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
-                texsetattribute(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
-
-implement {
-    name      = "defineattribute",
-    arguments = { "string", "string" },
-    actions   = { attributes.define, context }
-}
-
--- interface
-
-implement {
-    name      = "showattributes",
-    actions   = attributes.showcurrent
-}
-
-implement {
-    name      = "savecurrentattributes",
-    arguments = "string",
-    actions   = attributes.save
-}
-
-implement {
-    name      = "restorecurrentattributes",
-    arguments = "string",
-    actions   = attributes.restore
-}