1 files changed, 94 insertions, 0 deletions
diff --git a/tex/context/base/char-fio.lua b/tex/context/base/char-fio.lua
new file mode 100644
index 000000000..ab2555935
--- /dev/null
+++ b/tex/context/base/char-fio.lua
@@ -0,0 +1,94 @@
+if not modules then modules = { } end modules ['char-fio'] = {
+    version   = 1.001,
+    comment   = "companion to char-ini.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+-- % directives="filters.utf.reorder=false"
+
+
+local next = next
+
+-- --
+
+local sequencers      = utilities.sequencers
+local appendaction    = sequencers.appendaction
+local enableaction    = sequencers.enableaction
+local disableaction   = sequencers.disableaction
+
+local utffilters      = characters.filters.utf
+
+local textfileactions = resolvers.openers.helpers.textfileactions
+local textlineactions = resolvers.openers.helpers.textlineactions
+
+appendaction (textfileactions,"system","characters.filters.utf.reorder")
+disableaction(textfileactions,         "characters.filters.utf.reorder")
+
+appendaction (textlineactions,"system","characters.filters.utf.reorder")
+disableaction(textlineactions,         "characters.filters.utf.reorder")
+
+appendaction (textfileactions,"system","characters.filters.utf.collapse")
+disableaction(textfileactions,         "characters.filters.utf.collapse")
+
+appendaction (textfileactions,"system","characters.filters.utf.decompose")
+disableaction(textfileactions,         "characters.filters.utf.decompose")
+
+local report    = logs.reporter("unicode filter")
+local reporting = "no"
+
+-- this is messy as for performance reasons i don't want this to happen
+-- per line by default
+
+local enforced = {
+    ["characters.filters.utf.reorder"]   = true,
+    ["characters.filters.utf.collapse"]  = true,
+    ["characters.filters.utf.decompose"] = true,
+}
+
+function utffilters.enable()
+    for k, v in next, enforced do
+        if v then
+            if reporting == "yes" then
+                report("%a enabled",k)
+            end
+            enableaction(textfileactions,v)
+        else
+            if reporting == "yes" then
+                report("%a not enabled",k)
+            end
+        end
+    end
+    reporting = "never"
+end
+
+local function configure(what,v)
+    if v == "line" then
+        disableaction(textfileactions,what)
+        enableaction (textlineactions,what)
+    elseif not toboolean(v) then
+        if reporting ~= "never" then
+            report("%a disabled",k)
+            reporting = "yes"
+        end
+        enforced[what] = false
+        disableaction(textfileactions,what)
+        disableaction(textlineactions,what)
+    else -- true or text
+        enableaction (textfileactions,what)
+        disableaction(textlineactions,what)
+    end
+end
+
+directives.register("filters.utf.reorder",   function(v) configure("characters.filters.utf.reorder",  v) end)
+directives.register("filters.utf.collapse",  function(v) configure("characters.filters.utf.collapse", v) end)
+directives.register("filters.utf.decompose", function(v) configure("characters.filters.utf.decompose",v) end)
+
+utffilters.setskippable { "mkiv", "mkvi", "mkix", "mkxi" }
+
+interfaces.implement {
+    name     = "enableutf",
+    onlyonce = true,
+    actions  = utffilters.enable
+}