Revert "Import ConTeXt math modules"

This code proved to cause harm than good; unicode-math is doing better
without it. So, revert it back, until we are ready for it.

1 files changed, 0 insertions, 329 deletions

diff --git a/otfl-math-ini.lua b/otfl-math-ini.lua
deleted file mode 100644
index add198b..0000000
--- a/otfl-math-ini.lua
+++ /dev/null
@@ -1,329 +0,0 @@
-if not modules then modules = { } end modules ['math-ext'] = {
-    version   = 1.001,
-    comment   = "companion to math-ini.mkiv",
-    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
-    copyright = "PRAGMA ADE / ConTeXt Development Team",
-    license   = "see context related readme files"
-}
-
--- if needed we can use the info here to set up xetex definition files
--- the "8000 hackery influences direct characters (utf) as indirect \char's
-
-local utf = unicode.utf8
-
-local texsprint, format, utfchar, utfbyte = tex.sprint, string.format, utf.char, utf.byte
-
-local trace_defining = false  trackers.register("math.defining", function(v) trace_defining = v end)
-
-mathematics = mathematics or { }
-
-mathematics.extrabase   = 0xFE000 -- here we push some virtuals
-mathematics.privatebase = 0xFF000 -- here we push the ex
-
-local families = {
-    tf = 0, it = 1, sl = 2, bf = 3, bi = 4, bs = 5, -- virtual fonts or unicode otf
-}
-
-local classes = {
-    ord       =  0,  -- mathordcomm     mathord
-    op        =  1,  -- mathopcomm      mathop
-    bin       =  2,  -- mathbincomm     mathbin
-    rel       =  3,  -- mathrelcomm     mathrel
-    open      =  4,  -- mathopencomm    mathopen
-    close     =  5,  -- mathclosecomm   mathclose
-    punct     =  6,  -- mathpunctcomm   mathpunct
-    alpha     =  7,  -- mathalphacomm   firstofoneargument
-    accent    =  8,  -- class 0
-    radical   =  9,
-    xaccent   = 10,  -- class 3
-    topaccent = 11,  -- class 0
-    botaccent = 12,  -- class 0
-    under     = 13,
-    over      = 14,
-    delimiter = 15,
-    inner     =  0,  -- mathinnercomm   mathinner
-    nothing   =  0,  -- mathnothingcomm firstofoneargument
-    choice    =  0,  -- mathchoicecomm  @@mathchoicecomm
-    box       =  0,  -- mathboxcomm     @@mathboxcomm
-    limop     =  1,  -- mathlimopcomm   @@mathlimopcomm
-    nolop     =  1,  -- mathnolopcomm   @@mathnolopcomm
-}
-
-mathematics.families = families
-mathematics.classes  = classes
-
-classes.alphabetic  = classes.alpha
-classes.unknown     = classes.nothing
-classes.default     = classes.nothing
-classes.punctuation = classes.punct
-classes.normal      = classes.nothing
-classes.opening     = classes.open
-classes.closing     = classes.close
-classes.binary      = classes.bin
-classes.relation    = classes.rel
-classes.fence       = classes.unknown
-classes.diacritic   = classes.accent
-classes.large       = classes.op
-classes.variable    = classes.alphabetic
-classes.number      = classes.alphabetic
-
--- there will be proper functions soon (and we will move this code in-line)
--- no need for " in class and family (saves space)
-
-local function delcode(target,family,slot)
-    return format('\\Udelcode%s="%X "%X ',target,family,slot)
-end
-local function mathchar(class,family,slot)
-    return format('\\Umathchar "%X "%X "%X ',class,family,slot)
-end
-local function mathaccent(class,family,slot)
-    return format('\\Umathaccent "%X "%X "%X ',0,family,slot) -- no class
-end
-local function delimiter(class,family,slot)
-    return format('\\Udelimiter "%X "%X "%X ',class,family,slot)
-end
-local function radical(family,slot)
-    return format('\\Uradical "%X "%X ',family,slot)
-end
-local function mathchardef(name,class,family,slot)
-    return format('\\Umathchardef\\%s "%X "%X "%X ',name,class,family,slot)
-end
-local function mathcode(target,class,family,slot)
-    return format('\\Umathcode%s="%X "%X "%X ',target,class,family,slot)
-end
-local function mathtopaccent(class,family,slot)
-    return format('\\Umathaccent "%X "%X "%X ',0,family,slot) -- no class
-end
-local function mathbotaccent(class,family,slot)
-    return format('\\Umathbotaccent "%X "%X "%X ',0,family,slot) -- no class
-end
-local function mathtopdelimiter(class,family,slot)
-    return format('\\Uoverdelimiter "%X "%X ',0,family,slot) -- no class
-end
-local function mathbotdelimiter(class,family,slot)
-    return format('\\Uunderdelimiter "%X "%X ',0,family,slot) -- no class
-end
-
-local escapes = characters.filters.utf.private.escapes
-
-local function setmathsymbol(name,class,family,slot)
-    if class == classes.accent then
-        texsprint(format("\\unexpanded\\xdef\\%s{%s}",name,mathaccent(class,family,slot)))
-    elseif class == classes.topaccent then
-        texsprint(format("\\unexpanded\\xdef\\%s{%s}",name,mathtopaccent(class,family,slot)))
-    elseif class == classes.botaccent then
-        texsprint(format("\\unexpanded\\xdef\\%s{%s}",name,mathbotaccent(class,family,slot)))
-    elseif class == classes.over then
-        texsprint(format("\\unexpanded\\xdef\\%s{%s}",name,mathtopdelimiter(class,family,slot)))
-    elseif class == classes.under then
-        texsprint(format("\\unexpanded\\xdef\\%s{%s}",name,mathbotdelimiter(class,family,slot)))
-    elseif class == classes.open or class == classes.close then
-        texsprint(delcode(slot,family,slot))
-        texsprint(format("\\unexpanded\\xdef\\%s{%s}",name,delimiter(class,family,slot)))
-    elseif class == classes.delimiter then
-        texsprint(delcode(slot,family,slot))
-        texsprint(format("\\unexpanded\\xdef\\%s{%s}",name,delimiter(0,family,slot)))
-    elseif class == classes.radical then
-        texsprint(format("\\unexpanded\\xdef\\%s{%s}",name,radical(family,slot)))
-    else
-        -- beware, open/close and other specials should not end up here
---~         local ch = utfchar(slot)
---~         if escapes[ch] then
---~             texsprint(format("\\xdef\\%s{\\char%s }",name,slot))
---~         else
-            texsprint(format("\\unexpanded\\xdef\\%s{%s}",name,mathchar(class,family,slot)))
---~         end
-    end
-end
-
-local function setmathcharacter(class,family,slot,unicode,firsttime)
-    if not firsttime and class <= 7 then
-        texsprint(mathcode(slot,class,family,unicode or slot))
-    end
-end
-
-local function setmathsynonym(class,family,slot,unicode,firsttime)
-    if not firsttime and class <= 7 then
-        texsprint(mathcode(slot,class,family,unicode))
-    end
-    if class == classes.open or class == classes.close then
-        texsprint(delcode(slot,family,unicode))
-    end
-end
-
-local function report(class,family,unicode,name)
-    local nametype = type(name)
-    if nametype == "string" then
-        logs.report("mathematics","%s:%s %s U+%05X (%s) => %s",classname,class,family,unicode,utfchar(unicode),name)
-    elseif nametype == "number" then
-        logs.report("mathematics","%s:%s %s U+%05X (%s) => U+%05X",classname,class,family,unicode,utfchar(unicode),name)
-    else
-        logs.report("mathematics","%s:%s %s U+%05X (%s)", classname,class,family,unicode,utfchar(unicode))
-    end
-end
-
--- there will be a combined \(math)chardef
-
-function mathematics.define(slots,family)
-    family = family or 0
-    family = families[family] or family
-    local data = characters.data
-    for unicode, character in next, data do
-        local symbol = character.mathsymbol
-        if symbol then
-            local other = data[symbol]
-            local class = other.mathclass
-            if class then
-                class = classes[class] or class -- no real checks needed
-                if trace_defining then
-                    report(class,family,unicode,symbol)
-                end
-                setmathsynonym(class,family,unicode,symbol)
-            end
-            local spec = other.mathspec
-            if spec then
-                for i, m in next, spec do
-                    local class = m.class
-                    if class then
-                        class = classes[class] or class -- no real checks needed
-                        setmathsynonym(class,family,unicode,symbol,i)
-                    end
-                end
-            end
-        end
-        local mathclass = character.mathclass
-        local mathspec = character.mathspec
-        if mathspec then
-            for i, m in next, mathspec do
-                local name = m.name
-                local class = m.class
-                if not class then
-                    class = mathclass
-                elseif not mathclass then
-                    mathclass = class
-                end
-                if class then
-                    class = classes[class] or class -- no real checks needed
-                    if name then
-                        if trace_defining then
-                            report(class,family,unicode,name)
-                        end
-                        setmathsymbol(name,class,family,unicode)
-                    -- setmathcharacter(class,family,unicode,unicode,i)
-                    else
-                        name = class == classes.variable or class == classes.number and character.adobename
-                        if name then
-                            if trace_defining then
-                                report(class,family,unicode,name)
-                            end
-                        --  setmathcharacter(class,family,unicode,unicode,i)
-                        end
-                    end
-                    setmathcharacter(class,family,unicode,unicode,i)
-                end
-            end
-        end
-        if mathclass then
-            local name = character.mathname
-            local class = classes[mathclass] or mathclass -- no real checks needed
-            if name == false then
-                if trace_defining then
-                    report(class,family,unicode,name)
-                end
-                setmathcharacter(class,family,unicode)
-            else
-                name = name or character.contextname
-                if name then
-                    if trace_defining then
-                        report(class,family,unicode,name)
-                    end
-                    setmathsymbol(name,class,family,unicode)
-                else
-                    if trace_defining then
-                        report(class,family,unicode,character.adobename)
-                    end
-                end
-                setmathcharacter(class,family,unicode,unicode)
-            end
-        end
-    end
-end
-
--- needed for mathml analysis
-
-function mathematics.utfmathclass(chr, default)
-    local cd = characters.data[utfbyte(chr)]
-    return (cd and cd.mathclass) or default or "unknown"
-end
-function mathematics.utfmathstretch(chr, default) -- "h", "v", "b", ""
-    local cd = characters.data[utfbyte(chr)]
-    return (cd and cd.mathstretch) or default or ""
-end
-function mathematics.utfmathcommand(chr, default)
-    local cd = characters.data[utfbyte(chr)]
-    local cmd = cd and cd.mathname
-    tex.sprint(cmd or default or "")
-end
-function mathematics.utfmathfiller(chr, default)
-    local cd = characters.data[utfbyte(chr)]
-    local cmd = cd and (cd.mathfiller or cd.mathname)
-    tex.sprint(cmd or default or "")
-end
-
-mathematics.entities = mathematics.entities or { }
-
-function mathematics.register_xml_entities()
-    local entities = xml.entities
-    for name, unicode in pairs(mathematics.entities) do
-        if not entities[name] then
-            entities[name] = utfchar(unicode)
-        end
-    end
-end
-
--- helpers
-
-function mathematics.big(tfmdata,unicode,n)
-    local t = tfmdata.characters
-    local c = t[unicode]
-    if c then
-        local next = c.next
-        while next do
-            if n <= 1 then
-                return next
-            else
-                n = n - 1
-                next = t[next].next
-            end
-        end
-    end
-    return unicode
-end
-
--- plugins
-
-local hvars = table.tohash {
-    --~ "RadicalKernBeforeDegree",
-    --~ "RadicalKernAfterDegree",
-}
-
-function mathematics.scaleparameters(t,tfmtable,delta,hdelta,vdelta)
-    local math_parameters = tfmtable.math_parameters
-    if math_parameters and next(math_parameters) then
-        delta = delta or 1
-        hdelta, vdelta = hdelta or delta, vdelta or delta
-        local _, mp = mathematics.dimensions(math_parameters)
-        for name, value in next, mp do
-            if name == "RadicalDegreeBottomRaisePercent" then
-                mp[name] = value
-            elseif hvars[name] then
-                mp[name] = hdelta * value
-            else
-                mp[name] = vdelta * value
-            end
-        end
-        t.MathConstants = mp
-    end
-end
-
-table.insert(fonts.tfm.mathactions,mathematics.scaleparameters)