diff options
Diffstat (limited to 'tex/context/base/catc-ini.lua')
-rw-r--r-- | tex/context/base/catc-ini.lua | 82 |
1 files changed, 41 insertions, 41 deletions
diff --git a/tex/context/base/catc-ini.lua b/tex/context/base/catc-ini.lua index d4f9b65af..61f28d789 100644 --- a/tex/context/base/catc-ini.lua +++ b/tex/context/base/catc-ini.lua @@ -1,41 +1,41 @@ -if not modules then modules = { } end modules ['catc-ini'] = { - version = 1.001, - comment = "companion to catc-ini.mkiv", - author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", - copyright = "PRAGMA ADE / ConTeXt Development Team", - license = "see context related readme files" -} - -catcodes = catcodes or { } -catcodes.numbers = catcodes.numbers or { } -catcodes.names = catcodes.names or { } - -storage.register("catcodes/numbers", catcodes.numbers, "catcodes.numbers") -storage.register("catcodes/names", catcodes.names, "catcodes.names") - -local numbers = catcodes.numbers -local names = catcodes.names - --- this only happens at initime - -function catcodes.register(name,number) - numbers[name] = number - local cnn = names[number] - if cnn then - cnn[#cnn+1] = name - else - names[number] = { name } - end - tex[name] = number -- downward compatible -end - --- this only happens at runtime - -for k, v in next, numbers do - tex[k] = v -- downward compatible -end - --- nasty - -table.setmetatableindex(numbers,function(t,k) if type(k) == "number" then t[k] = k return k end end) -table.setmetatableindex(names, function(t,k) if type(k) == "string" then t[k] = k return k end end) +if not modules then modules = { } end modules ['catc-ini'] = {
+ version = 1.001,
+ comment = "companion to catc-ini.mkiv",
+ author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright = "PRAGMA ADE / ConTeXt Development Team",
+ license = "see context related readme files"
+}
+
+catcodes = catcodes or { }
+catcodes.numbers = catcodes.numbers or { }
+catcodes.names = catcodes.names or { }
+
+storage.register("catcodes/numbers", catcodes.numbers, "catcodes.numbers")
+storage.register("catcodes/names", catcodes.names, "catcodes.names")
+
+local numbers = catcodes.numbers
+local names = catcodes.names
+
+-- this only happens at initime
+
+function catcodes.register(name,number)
+ numbers[name] = number
+ local cnn = names[number]
+ if cnn then
+ cnn[#cnn+1] = name
+ else
+ names[number] = { name }
+ end
+ tex[name] = number -- downward compatible
+end
+
+-- this only happens at runtime
+
+for k, v in next, numbers do
+ tex[k] = v -- downward compatible
+end
+
+-- nasty
+
+table.setmetatableindex(numbers,function(t,k) if type(k) == "number" then t[k] = k return k end end)
+table.setmetatableindex(names, function(t,k) if type(k) == "string" then t[k] = k return k end end)
|