Rename font-xtx.lua

We heavily change the file locally and it is relatively static, so
rename it to void being overridden with every sync.

1 files changed, 208 insertions, 0 deletions

diff --git a/otfl-font-ltx.lua b/otfl-font-ltx.lua
new file mode 100644
index 0000000..12fef44
--- /dev/null
+++ b/otfl-font-ltx.lua
@@ -0,0 +1,208 @@
+if not modules then modules = { } end modules ['font-ltx'] = {
+    version   = 1.001,
+    comment   = "companion to font-ini.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+local texsprint, count = tex.sprint, tex.count
+local format, concat, gmatch, match, find, lower = string.format, table.concat, string.gmatch, string.match, string.find, string.lower
+local tostring, next = tostring, next
+local lpegmatch = lpeg.match
+
+local trace_defining = false  trackers.register("fonts.defining", function(v) trace_defining = v end)
+
+--[[ldx--
+<p>Choosing a font by name and specififying its size is only part of the
+game. In order to prevent complex commands, <l n='xetex'/> introduced
+a method to pass feature information as part of the font name. At the
+risk of introducing nasty parsing and compatinility problems, this
+syntax was expanded over time.</p>
+
+<p>For the sake of users who have defined fonts using that syntax, we
+will support it, but we will provide additional methods as well.
+Normally users will not use this direct way, but use a more abstract
+interface.</p>
+
+<p>The next one is the official one. However, in the plain
+variant we need to support the crappy [] specification as
+well and that does not work too well with the general design
+of the specifier.</p>
+--ldx]]--
+
+local fonts              = fonts
+local definers           = fonts.definers
+local specifiers         = definers.specifiers
+local normalize_meanings = fonts.otf.meanings.normalize
+
+local list = { }
+
+specifiers.colonizedpreference = "file"
+
+local function isstyle(s)
+    local style  = string.lower(s):split("/")
+    for _,v in ipairs(style) do
+        if v == "b" then
+            list.style = "bold"
+        elseif v == "i" then
+            list.style = "italic"
+        elseif v == "bi" or v == "ib" then
+            list.style = "bolditalic"
+        elseif v:find("^s=") then
+            list.optsize = v:split("=")[2]
+        elseif v == "aat" or v == "icu" or v == "gr" then
+            logs.report("load font", "unsupported font option: %s", v)
+        elseif not v:is_empty() then
+            list.style = v:gsub("[^%a%d]", "")
+        end
+    end
+end
+
+fonts      = fonts      or { }
+fonts.otf  = fonts.otf  or { }
+
+local otf  = fonts.otf
+
+otf.tables = otf.tables or { }
+
+otf.tables.defaults = {
+    dflt = {
+        "ccmp", "locl", "rlig", "liga", "clig",
+        "kern", "mark", "mkmk",
+    },
+    arab = {
+        "ccmp", "locl", "isol", "fina", "fin2",
+        "fin3", "medi", "med2", "init", "rlig",
+        "calt", "liga", "cswh", "mset", "curs",
+        "kern", "mark", "mkmk",
+    },
+    deva = {
+        "ccmp", "locl", "init", "nukt", "akhn",
+        "rphf", "blwf", "half", "pstf", "vatu",
+        "pres", "blws", "abvs", "psts", "haln",
+        "calt", "blwm", "abvm", "dist", "kern",
+        "mark", "mkmk",
+    },
+    khmr = {
+        "ccmp", "locl", "pref", "blwf", "abvf",
+        "pstf", "pres", "blws", "abvs", "psts",
+        "clig", "calt", "blwm", "abvm", "dist",
+        "kern", "mark", "mkmk",
+    },
+    thai = {
+        "ccmp", "locl", "liga", "kern", "mark",
+        "mkmk",
+    },
+    hang = {
+        "ccmp", "ljmo", "vjmo", "tjmo",
+    },
+}
+
+otf.tables.defaults.beng = otf.tables.defaults.deva
+otf.tables.defaults.guru = otf.tables.defaults.deva
+otf.tables.defaults.gujr = otf.tables.defaults.deva
+otf.tables.defaults.orya = otf.tables.defaults.deva
+otf.tables.defaults.taml = otf.tables.defaults.deva
+otf.tables.defaults.telu = otf.tables.defaults.deva
+otf.tables.defaults.knda = otf.tables.defaults.deva
+otf.tables.defaults.mlym = otf.tables.defaults.deva
+otf.tables.defaults.sinh = otf.tables.defaults.deva
+
+otf.tables.defaults.syrc = otf.tables.defaults.arab
+otf.tables.defaults.mong = otf.tables.defaults.arab
+otf.tables.defaults.nko  = otf.tables.defaults.arab
+
+otf.tables.defaults.tibt = otf.tables.defaults.khmr
+
+otf.tables.defaults.lao  = otf.tables.defaults.thai
+
+local function parse_script(script)
+    if otf.tables.scripts[script] then
+        local dflt
+        if otf.tables.defaults[script] then
+            logs.report("load font", "auto-selecting default features for script: %s", script)
+            dflt = otf.tables.defaults[script]
+        else
+            logs.report("load font", "auto-selecting default features for script: dflt (was %s)", script)
+            dflt = otf.tables.defaults["dflt"]
+        end
+        for _,v in next, dflt do
+            list[v] = "yes"
+        end
+    else
+        logs.report("load font", "unknown script: %s", script)
+    end
+end
+
+specifiers.colonizedpreference = "file"
+
+local function issome ()    list.lookup = specifiers.colonizedpreference end
+local function isfile ()    list.lookup = 'file' end
+local function isname ()    list.lookup = 'name' end
+local function thename(s)   list.name   = s end
+local function issub  (v)   list.sub    = v end
+local function istrue (s)   list[s]     = true end
+local function isfalse(s)   list[s]     = false end
+local function iskey  (k,v)
+    if k == "script" then
+        parse_script(v)
+    end
+    list[k] = v
+end
+
+local P, S, R, C = lpeg.P, lpeg.S, lpeg.R, lpeg.C
+
+local spaces     = P(" ")^0
+local namespec   = (1-S("/:("))^0 -- was: (1-S("/: ("))^0
+local filespec   = (R("az", "AZ") * P(":"))^-1 * (1-S(":("))^1
+local stylespec  = spaces * P("/") * (((1-P(":"))^0)/isstyle) * spaces
+local filename   = (P("file:")/isfile * (filespec/thename)) + (P("[") * P(true)/isname * (((1-P("]"))^0)/thename) * P("]"))
+local fontname   = (P("name:")/isname * (namespec/thename)) + P(true)/issome * (namespec/thename)
+local sometext   = (R("az","AZ","09") + S("+-."))^1
+local truevalue  = P("+") * spaces * (sometext/istrue)
+local falsevalue = P("-") * spaces * (sometext/isfalse)
+local keyvalue   = P("+") + (C(sometext) * spaces * P("=") * spaces * C(sometext))/iskey
+local somevalue  = sometext/istrue
+local subvalue   = P("(") * (C(P(1-S("()"))^1)/issub) * P(")") -- for Kim
+local option     = spaces * (keyvalue + falsevalue + truevalue + somevalue) * spaces
+local options    = P(":") * spaces * (P(";")^0  * option)^0
+local pattern    = (filename + fontname) * subvalue^0 * stylespec^0 * options^0
+
+local function colonized(specification) -- xetex mode
+    list = { }
+    lpegmatch(pattern,specification.specification)
+    if list.style then
+        specification.style = list.style
+        list.style = nil
+    end
+    if list.optsize then
+        specification.optsize = list.optsize
+        list.optsize = nil
+    end
+    if list.name then
+        if resolvers.findfile(list.name, "tfm") then
+            list.lookup = "file"
+            list.name   = file.addsuffix(list.name, "tfm")
+        elseif resolvers.findfile(list.name, "ofm") then
+            list.lookup = "file"
+            list.name   = file.addsuffix(list.name, "ofm")
+        end
+
+        specification.name = list.name
+        list.name = nil
+    end
+    if list.lookup then
+        specification.lookup = list.lookup
+        list.lookup = nil
+    end
+    if list.sub then
+        specification.sub = list.sub
+        list.sub = nil
+    end
+ -- specification.features.normal = list
+    specification.features.normal = normalize_meanings(list)
+    return specification
+end
+
+definers.registersplit(":",colonized,"cryptic")