2016-01-12 16:26:00

1 files changed, 197 insertions, 0 deletions

diff --git a/tex/context/modules/mkiv/s-math-coverage.lua b/tex/context/modules/mkiv/s-math-coverage.lua
new file mode 100644
index 000000000..3c6080dc3
--- /dev/null
+++ b/tex/context/modules/mkiv/s-math-coverage.lua
@@ -0,0 +1,197 @@
+if not modules then modules = { } end modules ['s-math-coverage'] = {
+    version   = 1.001,
+    comment   = "companion to s-math-coverage.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+local utfchar, utfbyte = utf.char, utf.byte
+local formatters, lower = string.formatters, string.lower
+local concat = table.concat
+local sortedhash = table.sortedhash
+
+moduledata.math             = moduledata.math          or { }
+moduledata.math.coverage    = moduledata.math.coverage or { }
+
+local context               = context
+
+local ctx_NC                = context.NC
+local ctx_NR                = context.NR
+local ctx_HL                = context.HL
+
+local ctx_startmixedcolumns = context.startmixedcolumns
+local ctx_stopmixedcolumns  = context.stopmixedcolumns
+local ctx_setupalign        = context.setupalign
+local ctx_starttabulate     = context.starttabulate
+local ctx_stoptabulate      = context.stoptabulate
+local ctx_rawmathematics    = context.formatted.rawmathematics
+local ctx_mathematics       = context.formatted.mathematics
+local ctx_startimath        = context.startimath
+local ctx_stopimath         = context.stopimath
+local ctx_setmathattribute  = context.setmathattribute
+local ctx_underbar          = context.underbar
+local ctx_getglyph          = context.getglyph
+
+local styles                = mathematics.styles
+local alternatives          = mathematics.alternatives
+local charactersets         = mathematics.charactersets
+
+local getboth               = mathematics.getboth
+local remapalphabets        = mathematics.remapalphabets
+
+local chardata              = characters.data
+local superscripts          = characters.superscripts
+local subscripts            = characters.subscripts
+
+context.writestatus("math coverage","underline: not remapped")
+
+function moduledata.math.coverage.showalphabets()
+    ctx_starttabulate { "|lT|l|Tl|" }
+    for i=1,#styles do
+        local style = styles[i]
+        for i=1,#alternatives do
+            local alternative = alternatives[i]
+            for _, alphabet in sortedhash(charactersets) do
+                ctx_NC()
+                    if i == 1 then
+                        context("%s %s",style,alternative)
+                    end
+                ctx_NC()
+                    ctx_startimath()
+                    ctx_setmathattribute(style,alternative)
+                    for i=1,#alphabet do
+                        local letter = alphabet[i]
+                        local id = getboth(style,alternative)
+                        local unicode = remapalphabets(letter,id)
+                        if not unicode then
+                            ctx_underbar(utfchar(letter))
+                        elseif unicode == letter then
+                            context(utfchar(unicode))
+                        else
+                            context(utfchar(unicode))
+                        end
+                    end
+                    ctx_stopimath()
+                ctx_NC()
+                    local first = alphabet[1]
+                    local last = alphabet[#alphabet]
+                    local id = getboth(style,alternative)
+                    local f_unicode = remapalphabets(first,id) or utfbyte(first)
+                    local l_unicode = remapalphabets(last,id) or utfbyte(last)
+                    context("%05X - %05X",f_unicode,l_unicode)
+                ctx_NC()
+                ctx_NR()
+            end
+        end
+    end
+    ctx_stoptabulate()
+end
+
+function moduledata.math.coverage.showcharacters()
+    ctx_startmixedcolumns { balance = "yes" }
+    ctx_setupalign { "nothyphenated" }
+    ctx_starttabulate { "|T|i2|Tpl|" }
+    for u, d in sortedhash(chardata) do
+        local mathclass = d.mathclass
+        local mathspec = d.mathspec
+        if mathclass or mathspec then
+            ctx_NC()
+                context("%05X",u)
+            ctx_NC()
+                ctx_getglyph("MathRoman",u)
+            ctx_NC()
+                if mathspec then
+                    local t = { }
+                    for i=1,#mathspec do
+                        t[mathspec[i].class] = true
+                    end
+                    t = table.sortedkeys(t)
+                    context("% t",t)
+                else
+                    context(mathclass)
+                end
+            ctx_NC()
+            ctx_NR()
+        end
+    end
+    ctx_stoptabulate()
+    ctx_stopmixedcolumns()
+end
+
+-- This is a somewhat tricky table as we need to bypass the math machinery.
+
+function moduledata.math.coverage.showscripts()
+    ctx_starttabulate { "|cT|c|cT|c|c|c|l|" }
+    for k, v in sortedhash(table.merged(superscripts,subscripts)) do
+        local ck = utfchar(k)
+        local cv = utfchar(v)
+        local ss = superscripts[k] and "^" or "_"
+        ctx_NC() context("%05X",k)
+        ctx_NC() context(ck)
+        ctx_NC() context("%05X",v)
+        ctx_NC() context(cv)
+        ctx_NC() ctx_rawmathematics("x%s = x%s%s",ck,ss,cv)
+        ctx_NC() ctx_mathematics("x%s = x%s%s",ck,ss,cv)
+        ctx_NC() context(lower(chardata[k].description))
+        ctx_NC() ctx_NR()
+    end
+    ctx_stoptabulate()
+end
+
+-- Handy too.
+
+function moduledata.math.coverage.showbold()
+    ctx_starttabulate { "|lT|cm|lT|cm|lT|" }
+    for k, v in sortedhash(mathematics.boldmap) do
+        ctx_NC() context("%U",k)
+        ctx_NC() context("%c",k)
+        ctx_NC() context("%U",v)
+        ctx_NC() context("%c",v)
+        ctx_NC() context(chardata[k].description)
+        ctx_NC() ctx_NR()
+    end
+    ctx_stoptabulate()
+end
+
+-- function moduledata.math.coverage.showentities()
+--     ctx_startmixedcolumns { balance = "yes" }
+--     ctx_starttabulate { "|Tl|c|Tl|" }
+--     for k, v in sortedhash(characters.entities) do
+--         local b = utf.byte(v)
+--         local d = chardata[b]
+--         local m = d.mathname
+--         local c = d.contextname
+--         local s = ((m and "\\"..m) or (c and "\\".. c) or v) .. "{}{}{}"
+--         ctx_NC()
+--         context("%U",b)
+--         ctx_NC()
+--         ctx_mathematics(s)
+--         ctx_NC()
+--         context(k)
+--         ctx_NC()
+--         ctx_NR()
+--     end
+--     ctx_stoptabulate()
+--     ctx_stopmixedcolumns()
+-- end
+
+function moduledata.math.coverage.showentities()
+    ctx_startmixedcolumns { balance = "yes" }
+    ctx_starttabulate { "|T||T|T|" }
+    for k, v in sortedhash(characters.entities) do
+        local d = chardata[v]
+        if d then
+            local m = d.mathclass or d.mathspec
+            local u = d.unicodeslot
+            ctx_NC() context(m and "m" or "t")
+            ctx_NC() ctx_getglyph("MathRoman",u)
+            ctx_NC() context("%05X",u)
+            ctx_NC() context(k)
+            ctx_NC() ctx_NR()
+        end
+    end
+    ctx_stoptabulate()
+    ctx_stopmixedcolumns()
+end
+