summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/regi-ini.lua
diff options
context:
space:
mode:
authorTaco Hoekwater <taco@elvenkind.com>2009-08-23 11:11:32 +0000
committerTaco Hoekwater <taco@elvenkind.com>2009-08-23 11:11:32 +0000
commit8fc3039c82d48605b5ca8b2eda3f4fdd755681e1 (patch)
tree3cd9bbdd599bc4d1ac0409e167fee2136e4c0ec9 /Master/texmf-dist/tex/context/base/regi-ini.lua
parent850fc99b7cd3ae7a20065531fe866ff7bae642ec (diff)
this is context 2009.08.19 17:10
git-svn-id: svn://tug.org/texlive/trunk@14827 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/regi-ini.lua')
-rw-r--r--Master/texmf-dist/tex/context/base/regi-ini.lua88
1 files changed, 33 insertions, 55 deletions
diff --git a/Master/texmf-dist/tex/context/base/regi-ini.lua b/Master/texmf-dist/tex/context/base/regi-ini.lua
index a12fd24a24f..04b93db35b0 100644
--- a/Master/texmf-dist/tex/context/base/regi-ini.lua
+++ b/Master/texmf-dist/tex/context/base/regi-ini.lua
@@ -6,57 +6,60 @@ if not modules then modules = { } end modules ['regi-ini'] = {
license = "see context related readme files"
}
+local utf = unicode.utf8
+local char, utfchar = string.char, utf.char
+local texsprint = tex.sprint
+
+local ctxcatcodes = tex.ctxcatcodes
+
--[[ldx--
<p>Regimes take care of converting the input characters into
<l n='utf'/> sequences. The conversion tables are loaded at
runtime.</p>
--ldx]]--
-regimes = regimes or { }
-regimes.data = regimes.data or { }
-regimes.utf = regimes.utf or { }
-regimes.context = regimes.context or { }
+regimes = regimes or { }
+regimes.data = regimes.data or { }
+regimes.utf = regimes.utf or { }
+regimes.synonyms = regimes.synonyms or { }
+
+storage.register("regimes/synonyms", regimes.synonyms, "regimes.synonyms")
-- setmetatable(regimes.data,_empty_table_)
-regimes.currentregime = ""
+regimes.currentregime = "utf"
--[[ldx--
<p>We will hook regime handling code into the input methods.</p>
--ldx]]--
-input = input or { }
-input.filters = input.filters or { }
-
function regimes.number(n)
if type(n) == "string" then return tonumber(n,16) else return n end
end
-function regimes.define(c) -- is this used at all?
- local r, u, s = c.regime, c.unicodeslot, c.slot
- regimes.data[r] = regimes.data[r] or { }
- if s then
- if u then
- regimes.data[r][regimes.number(s)] = regimes.number(u)
- else
- regimes.data[r][regimes.number(s)] = 0
- end
- else
- input.report(string.format("regi-ini: invalid regime code %s/%s", r, s))
- end
+function regimes.setsynonym(synonym,target)
+ regimes.synonyms[synonym] = target
+end
+
+function regimes.truename(regime)
+ texsprint(ctxcatcodes,(regime and regimes.synonyms[synonym] or regime) or regimes.currentregime)
end
function regimes.load(regime)
- environment.loadlucfile("regi-"..regime, 1.001)
- if regimes.data[regime] then
- regimes.utf[regime] = { }
- for k,v in pairs(regimes.data[regime]) do
- regimes.utf[regime][string.char(k)] = unicode.utf8.char(v)
+ regime = regimes.synonyms[regime] or regime
+ if not regimes.data[regime] then
+ environment.loadluafile("regi-"..regime, 1.001)
+ if regimes.data[regime] then
+ regimes.utf[regime] = { }
+ for k,v in pairs(regimes.data[regime]) do
+ regimes.utf[regime][char(k)] = utfchar(v)
+ end
end
end
end
function regimes.translate(line,regime)
+ regime = regimes.synonyms[regime] or regime
if regime and line then
local rur = regimes.utf[regime]
if rur then
@@ -67,44 +70,19 @@ function regimes.translate(line,regime)
end
function regimes.enable(regime)
+ regime = regimes.synonyms[regime] or regime
if regimes.data[regime] then
regimes.currentregime = regime
local translate = regimes.translate
- input.filters.dynamic_translator = function(s)
+ resolvers.install_text_filter('input',function(s)
return translate(s,regime)
- end
+ end)
else
regimes.disable()
end
end
function regimes.disable()
- regimes.currentregime = ""
- input.filters.dynamic_translator = nil
-end
-
-function input.filters.frozen_translator(regime)
- return function(s)
- return regimes.translate(s,regime)
- end
-end
-
---[[ldx--
-<p>The following code is rather <l n='context'/> specific.</p>
---ldx]]--
-
-function regimes.context.show(regime)
- local flush, tc = tex.sprint, tex.ctxcatcodes
- local r = regimes.data[regime]
- if r then
- flush(tc, "\\starttabulate[|rT|T|rT|lT|lT|lT|]")
- for k, v in ipairs(r) do
- flush(tc, string.format("\\NC %s\\NC\\getvalue{%s}\\NC %s\\NC %s\\NC %s\\NC %s\\NC\\NR", k,
- characters.contextname(v), characters.hexindex(v), characters.contextname(v),
- characters.category(v), characters.description(v)))
- end
- flush(tc, "\\stoptabulate")
- else
- flush(tc, "unknown regime " .. regime)
- end
+ regimes.currentregime = "utf"
+ resolvers.install_text_filter('input',nil)
end