2018-06-12 21:56:00

27 files changed, 1429 insertions, 276 deletions

diff --git a/tex/context/base/mkii/cont-new.mkii b/tex/context/base/mkii/cont-new.mkii
index 241725efa..c5e1def0d 100644
--- a/tex/context/base/mkii/cont-new.mkii
+++ b/tex/context/base/mkii/cont-new.mkii
@@ -11,7 +11,7 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-\newcontextversion{2018.06.11 12:05}
+\newcontextversion{2018.06.12 21:48}
 
 %D This file is loaded at runtime, thereby providing an
 %D excellent place for hacks, patches, extensions and new
diff --git a/tex/context/base/mkii/context.mkii b/tex/context/base/mkii/context.mkii
index 5ff255b8e..073bce83a 100644
--- a/tex/context/base/mkii/context.mkii
+++ b/tex/context/base/mkii/context.mkii
@@ -20,7 +20,7 @@
 %D your styles an modules.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2018.06.11 12:05}
+\edef\contextversion{2018.06.12 21:48}
 
 %D For those who want to use this:
 
diff --git a/tex/context/base/mkii/mult-fr.mkii b/tex/context/base/mkii/mult-fr.mkii
index 7cf1bc684..8b6120f48 100644
--- a/tex/context/base/mkii/mult-fr.mkii
+++ b/tex/context/base/mkii/mult-fr.mkii
@@ -1274,6 +1274,7 @@
 \setinterfaceconstant{vcompact}{vcompact}
 \setinterfaceconstant{vector}{vector}
 \setinterfaceconstant{veroffset}{veroffset}
+\setinterfaceconstant{vfactor}{vfactor}
 \setinterfaceconstant{vfil}{vfil}
 \setinterfaceconstant{viewerprefix}{viewerprefix}
 \setinterfaceconstant{voffset}{voffset}
diff --git a/tex/context/base/mkiv/cldf-ini.lua b/tex/context/base/mkiv/cldf-ini.lua
index 54048b52a..dabdbb9b0 100644
--- a/tex/context/base/mkiv/cldf-ini.lua
+++ b/tex/context/base/mkiv/cldf-ini.lua
@@ -1454,7 +1454,7 @@ do
 
     local function indexer(parent,k)
         local f = function(...)
-            local a = { ... }
+            local a = { ... } -- this also freezes ...
             return function()
              -- return context[k](unpack(a))
                 return core[k](unpack(a))
@@ -1479,46 +1479,48 @@ do
 
 end
 
-do
-
-    -- context.nested (todo: lines), creates strings
-
-    local nested = { }
-
-    local function indexer(parent,k) -- not ok when traced
-        local f = function(...)
-            local t, savedflush, n = { }, flush, 0
-            flush = function(c,f,s,...) -- catcodes are ignored
-                n = n + 1
-                t[n] = s and concat{f,s,...} or f -- optimized for #args == 1
-            end
-         -- context[k](...)
-            core[k](...)
-            flush = savedflush
-            return concat(t)
-        end
-        parent[k] = f
-        return f
-    end
-
-    local function caller(parent,...)
-        local t, savedflush, n = { }, flush, 0
-        flush = function(c,f,s,...) -- catcodes are ignored
-            n = n + 1
-            t[n] = s and concat{f,s,...} or f -- optimized for #args == 1
-        end
-     -- context(...)
-        defaultcaller(context,...)
-        flush = savedflush
-        return concat(t)
-    end
-
-    setmetatableindex(nested,indexer)
-    setmetatablecall (nested,caller)
-
-    context.nested = nested
+-- do
+--
+--     -- context.nested (todo: lines), creates strings
+--
+--     local nested = { }
+--
+--     local function indexer(parent,k) -- not ok when traced
+--         local f = function(...)
+--             local t, savedflush, n = { }, flush, 0
+--             flush = function(c,f,s,...) -- catcodes are ignored
+--                 n = n + 1
+--                 t[n] = s and concat{f,s,...} or f -- optimized for #args == 1
+--             end
+--          -- context[k](...)
+--             core[k](...)
+--             flush = savedflush
+--             return concat(t)
+--         end
+--         parent[k] = f
+--         return f
+--     end
+--
+--     local function caller(parent,...)
+--         local t, savedflush, n = { }, flush, 0
+--         flush = function(c,f,s,...) -- catcodes are ignored
+--             n = n + 1
+--             t[n] = s and concat{f,s,...} or f -- optimized for #args == 1
+--         end
+--      -- context(...)
+--         defaultcaller(context,...)
+--         flush = savedflush
+--         return concat(t)
+--     end
+--
+--     setmetatableindex(nested,indexer)
+--     setmetatablecall (nested,caller)
+--
+--     context.nested = nested
+--
+-- end
 
-end
+context.nested = context.delayed
 
 -- verbatim
 
diff --git a/tex/context/base/mkiv/cont-new.mkiv b/tex/context/base/mkiv/cont-new.mkiv
index 17ace314b..3a9acfb13 100644
--- a/tex/context/base/mkiv/cont-new.mkiv
+++ b/tex/context/base/mkiv/cont-new.mkiv
@@ -11,7 +11,7 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-\newcontextversion{2018.06.11 12:05}
+\newcontextversion{2018.06.12 21:48}
 
 %D This file is loaded at runtime, thereby providing an excellent place for
 %D hacks, patches, extensions and new features.
diff --git a/tex/context/base/mkiv/context.mkiv b/tex/context/base/mkiv/context.mkiv
index 8842e4fc3..1e90175c8 100644
--- a/tex/context/base/mkiv/context.mkiv
+++ b/tex/context/base/mkiv/context.mkiv
@@ -42,7 +42,7 @@
 %D has to match \type {YYYY.MM.DD HH:MM} format.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2018.06.11 12:05}
+\edef\contextversion{2018.06.12 21:48}
 \edef\contextkind   {beta}
 
 %D For those who want to use this:
diff --git a/tex/context/base/mkiv/core-env.lua b/tex/context/base/mkiv/core-env.lua
index 23f7ca178..ea7bbcb8e 100644
--- a/tex/context/base/mkiv/core-env.lua
+++ b/tex/context/base/mkiv/core-env.lua
@@ -40,14 +40,27 @@ local systemmodes          = { }
 -- we could use the built-in tex.is[count|dimen|skip|toks] here but caching
 -- at the lua end is not that bad (and we need more anyway)
 
--- undefined: mode == 0 or cmdname = "undefined_cs"
-
 local cache = tokens.cache
 
 -- we can have a modes cache too
 
-local iftrue    = cache["iftrue"].mode
-local undefined = cache["*undefined*crap*"].mode -- is this ok?
+local iftrue        = cache["iftrue"].mode
+
+local dimencode     = cache["scratchdimen"]    .command
+local countcode     = cache["scratchcounter"]  .command
+local tokencode     = cache["scratchtoken"]    .command
+local skipcode      = cache["scratchskip"]     .command
+local muskipcode    = cache["scratchmuskip"]   .command
+----- attributecode = cache["scratchattribute"].command
+
+local types = {
+    [dimencode]     = "dimen",
+    [countcode]     = "count",
+    [tokencode]     = "token",
+    [skipcode]      = "skip",
+    [muskipcode]    = "muskip",
+ -- [attributecode] = "attribute",
+}
 
 setmetatableindex(texmodes, function(t,k)
     local m = modes[k]
@@ -55,16 +68,17 @@ setmetatableindex(texmodes, function(t,k)
         return m()
     elseif k then
         local n = "mode>" .. k
-        if cache[n].mode == 0 then
-            return false
-        else
+        if is_defined then
             rawset(modes,k, function() return texgetcount(n) == 1 end)
             return texgetcount(n) == 1 -- 2 is prevented
+        else
+            return false
         end
     else
         return false
     end
 end)
+
 setmetatablenewindex(texmodes, function(t,k)
     report_mode("you cannot set the %s named %a this way","mode",k)
 end)
@@ -75,11 +89,11 @@ setmetatableindex(texsystemmodes, function(t,k)
         return m()
     else
         local n = "mode>*" .. k
-        if cache[n].mode == 0 then
-            return false
-        else
+        if is_defined(n) then
             rawset(systemmodes,k,function() return texgetcount(n) == 1 end)
             return texgetcount(n) == 1 -- 2 is prevented
+        else
+            return false
         end
     end
 end)
@@ -118,22 +132,6 @@ setmetatablenewindex(texisdefined, function(t,k)
     -- just ignore
 end)
 
-local dimencode     = cache["scratchdimen"]    .command
-local countcode     = cache["scratchcounter"]  .command
-local tokencode     = cache["scratchtoken"]    .command
-local skipcode      = cache["scratchskip"]     .command
-local muskipcode    = cache["scratchmuskip"]   .command
----- attributecode = cache["scratchattribute"].command
-
-local types = {
-    [dimencode]     = "dimen",
-    [countcode]     = "count",
-    [tokencode]     = "token",
-    [skipcode]      = "skip",
-    [muskipcode]    = "muskip",
- -- [attributecode] = "attribute",
-}
-
 function tex.isdimen(name)
     local hit = cache[name]
     return hit.command == dimencode and hit.index or true
diff --git a/tex/context/base/mkiv/font-ott.lua b/tex/context/base/mkiv/font-ott.lua
index c9e2836d8..88da136ac 100644
--- a/tex/context/base/mkiv/font-ott.lua
+++ b/tex/context/base/mkiv/font-ott.lua
@@ -988,9 +988,13 @@ setmetatableindex(languages, function(t,k)
     return "dflt"
 end)
 
-setmetatablenewindex(languages, "ignore")
-setmetatablenewindex(baselines, "ignore")
-setmetatablenewindex(baselines, "ignore")
+if setmetatablenewindex then
+
+    setmetatablenewindex(languages, "ignore")
+    setmetatablenewindex(scripts,   "ignore")
+    setmetatablenewindex(baselines, "ignore")
+
+end
 
 local function resolve(t,k)
     if k then
@@ -1030,7 +1034,11 @@ local function assign(t,k,v)
     end
 end
 
-setmetatablenewindex(features, assign)
+if setmetatablenewindex then
+
+    setmetatablenewindex(features, assign)
+
+end
 
 local checkers = {
     rand = function(v)
diff --git a/tex/context/base/mkiv/luat-cod.lua b/tex/context/base/mkiv/luat-cod.lua
index 63a51b4fc..f74c53e82 100644
--- a/tex/context/base/mkiv/luat-cod.lua
+++ b/tex/context/base/mkiv/luat-cod.lua
@@ -49,6 +49,8 @@ end
 
 -- no file.* and utilities.parsers.* functions yet
 
+local strip = false if arg then for i=-1,#arg do if arg[i] == "--c:strip" then strip = true break end end end
+
 function lua.registercode(filename,options)
     local barename = gsub(filename,"%.[%a%d]+$","")
     if barename == filename then filename = filename .. ".lua" end
@@ -66,7 +68,11 @@ function lua.registercode(filename,options)
             if environment.initex then
                 local n = lua.lastbytecode + 1
                 bytedata[n] = { name = barename, options = opts }
-                setbytecode(n,code)
+                if strip or opts.strip then
+                    setbytecode(n,code,true)
+                else
+                    setbytecode(n,code)
+                end
                 lua.lastbytecode = n
             end
         elseif environment.initex then
diff --git a/tex/context/base/mkiv/luat-fmt.lua b/tex/context/base/mkiv/luat-fmt.lua
index 3e08a86f0..2abc47094 100644
--- a/tex/context/base/mkiv/luat-fmt.lua
+++ b/tex/context/base/mkiv/luat-fmt.lua
@@ -48,6 +48,9 @@ local function secondaryflags()
     if arguments.ansi then
         flags[#flags+1] = "--c:ansi"
     end
+    if arguments.strip then
+        flags[#flags+1] = "--c:strip"
+    end
     return concat(flags," ")
 end
 
diff --git a/tex/context/base/mkiv/meta-blb.lua b/tex/context/base/mkiv/meta-blb.lua
index 957af16ca..d3418199c 100644
--- a/tex/context/base/mkiv/meta-blb.lua
+++ b/tex/context/base/mkiv/meta-blb.lua
@@ -196,7 +196,12 @@ local function process(object,prescript,before,after)
 --     end
 end
 
-metapost.installplugin(reset,analyze,process)
+metapost.installplugin {
+    name    = "texblob",
+    reset   = reset,
+    analyze = analyze,
+    process = process,
+}
 
 -- Here follows an example of usage of the above: a more modern
 -- version of followokens (in meta-imp-txt.mkiv).
@@ -279,7 +284,7 @@ interfaces.implement {
     actions   = initialize,
 }
 
-local tb_reset, tb_analyze, tb_process  do
+local ft_reset, ft_analyze, ft_process  do
 
     if metapost.use_one_pass then
 
@@ -300,7 +305,7 @@ local tb_reset, tb_analyze, tb_process  do
             end
         }
 
-        tb_process = function(object,prescript,before,after)
+        ft_process = function(object,prescript,before,after)
             object.path    = false
             object.color   = false
             object.grouped = true
@@ -310,11 +315,11 @@ local tb_reset, tb_analyze, tb_process  do
 
     else
 
-        tb_reset = function()
+        ft_reset = function()
             -- nothing
         end
 
-        tb_analyze = function(object,prescript)
+        ft_analyze = function(object,prescript)
             if prescript.ft_stage == "trial" then
                 local ft_category = tonumber(prescript.ft_category)
                 if ft_category then
@@ -325,7 +330,7 @@ local tb_reset, tb_analyze, tb_process  do
             end
         end
 
-        tb_process = function(object,prescript,before,after)
+        ft_process = function(object,prescript,before,after)
             if prescript.ft_stage == "final" then
                 object.path    = false
                 object.color   = false
@@ -339,4 +344,9 @@ local tb_reset, tb_analyze, tb_process  do
 
 end
 
-metapost.installplugin(tb_reset,tb_analyze,tb_process)
+metapost.installplugin {
+    name    = "followtext",
+    reset   = ft_reset,
+    analyze = ft_analyze,
+    process = ft_process,
+}
diff --git a/tex/context/base/mkiv/mlib-lua.lua b/tex/context/base/mkiv/mlib-lua.lua
index 675be15bc..543d04697 100644
--- a/tex/context/base/mkiv/mlib-lua.lua
+++ b/tex/context/base/mkiv/mlib-lua.lua
@@ -776,3 +776,17 @@ do
     end
 
 end
+
+do
+
+    -- a bit overkill: just a find(str,"mf_object=") can be enough
+
+    local p1      = P("mf_object=")
+    local p2      = lpeg.patterns.eol * p1
+    local pattern = (1-p2)^0 * p2 + p1
+
+    function mp.isobject(str)
+        mp.boolean(pattern and str ~= "" and lpegmatch(p,str))
+    end
+
+end
diff --git a/tex/context/base/mkiv/mlib-pps.lua b/tex/context/base/mkiv/mlib-pps.lua
index 3d361f835..da1e9c4f7 100644
--- a/tex/context/base/mkiv/mlib-pps.lua
+++ b/tex/context/base/mkiv/mlib-pps.lua
@@ -842,10 +842,6 @@ local sequencers       = utilities.sequencers
 local appendgroup      = sequencers.appendgroup
 local appendaction     = sequencers.appendaction
 
-local resetter         = nil
-local analyzer         = nil
-local processor        = nil
-
 local resetteractions  = sequencers.new { arguments = "t" }
 local analyzeractions  = sequencers.new { arguments = "object,prescript" }
 local processoractions = sequencers.new { arguments = "object,prescript,before,after" }
@@ -914,7 +910,7 @@ end
 function metapost.resetplugins(t) -- intialize plugins, before figure
     if top.plugmode then
         outercolormodel = colors.currentmodel() -- currently overloads the one set at the tex end
-        resetter(t)
+        resetteractions.runner(t)
     end
 end
 
@@ -922,7 +918,7 @@ function metapost.analyzeplugins(object) -- each object (first pass)
     if top.plugmode then
         local prescript = object.prescript   -- specifications
         if prescript and #prescript > 0 then
-            analyzer(object,splitprescript(prescript) or {})
+            analyzeractions.runner(object,splitprescript(prescript) or {})
             return top.multipass
         end
     end
@@ -935,7 +931,7 @@ function metapost.processplugins(object) -- each object (second pass)
         if prescript and #prescript > 0 then
             local before = { }
             local after = { }
-            processor(object,splitprescript(prescript) or {},before,after)
+            processoractions.runner(object,splitprescript(prescript) or {},before,after)
             return #before > 0 and before, #after > 0 and after
         else
             local c = object.color
@@ -1850,31 +1846,21 @@ local ot_reset, ot_analyze, ot_process do
 
 end
 
--- definitions
-
-appendaction(resetteractions, "system",ot_reset)
-appendaction(resetteractions, "system",cl_reset)
-appendaction(resetteractions, "system",tx_reset)
-
-appendaction(processoractions,"system",ot_process)
-appendaction(processoractions,"system",gr_process)
+-- mf_object=<string>
 
-appendaction(analyzeractions, "system",ot_analyze)
-appendaction(analyzeractions, "system",tx_analyze)
-appendaction(analyzeractions, "system",gt_analyze)
+local p1      = P("mf_object=")
+local p2      = lpeg.patterns.eol * p1
+local pattern = (1-p2)^0 * p2 + p1
 
-appendaction(processoractions,"system",sh_process)
---          (processoractions,"system",gt_process)
-appendaction(processoractions,"system",bm_process)
-appendaction(processoractions,"system",tx_process)
-appendaction(processoractions,"system",bx_process)
-appendaction(processoractions,"system",ps_process)
-appendaction(processoractions,"system",fg_process)
-appendaction(processoractions,"system",tr_process) -- last, as color can be reset
-
-appendaction(processoractions,"system",la_process)
+function metapost.isobject(str)
+    return pattern and str ~= "" and lpegmatch(p,str) and true or false
+end
 
-function metapost.installplugin(reset,analyze,process)
+local function installplugin(specification)
+    local reset   = specification.reset
+    local analyze = specification.analyze
+    local process = specification.process
+    local object  = specification.object
     if reset then
         appendaction(resetteractions,"system",reset)
     end
@@ -1884,13 +1870,21 @@ function metapost.installplugin(reset,analyze,process)
     if process then
         appendaction(processoractions,"system",process)
     end
-    resetter  = resetteractions .runner
-    analyzer  = analyzeractions .runner
-    processor = processoractions.runner
 end
 
--- we're nice and set them already
+metapost.installplugin = installplugin
+
+-- definitions
 
-resetter  = resetteractions .runner
-analyzer  = analyzeractions .runner
-processor = processoractions.runner
+installplugin { name = "outline",      reset = ot_reset, analyze = ot_analyze, process = ot_process }
+installplugin { name = "color",        reset = cl_reset, analyze = cl_analyze, process = cl_process }
+installplugin { name = "text",         reset = tx_reset, analyze = tx_analyze, process = tx_process }
+installplugin { name = "group",        reset = gr_reset, analyze = gr_analyze, process = gr_process }
+installplugin { name = "graphictext",  reset = gt_reset, analyze = gt_analyze, process = gt_process }
+installplugin { name = "shade",        reset = sh_reset, analyze = sh_analyze, process = sh_process }
+installplugin { name = "bitmap",       reset = bm_reset, analyze = bm_analyze, process = bm_process }
+installplugin { name = "box",          reset = bx_reset, analyze = bx_analyze, process = bx_process }
+installplugin { name = "position",     reset = ps_reset, analyze = ps_analyze, process = ps_process }
+installplugin { name = "figure",       reset = fg_reset, analyze = fg_analyze, process = fg_process }
+installplugin { name = "layer",        reset = la_reset, analyze = la_analyze, process = la_process }
+installplugin { name = "transparency", reset = tr_reset, analyze = tr_analyze, process = tr_process }
diff --git a/tex/context/base/mkiv/mtx-context-listing.tex b/tex/context/base/mkiv/mtx-context-listing.tex
index f7c3d2868..29c4999ae 100644
--- a/tex/context/base/mkiv/mtx-context-listing.tex
+++ b/tex/context/base/mkiv/mtx-context-listing.tex
@@ -44,7 +44,7 @@
 }
 
 \setupbodyfont
-  [dejavu,11pt,tt,\getdocumentargument{bodyfont}] % dejavu is more complete
+  [dejavu,9pt,tt,\getdocumentargument{bodyfont}] % dejavu is more complete
 
 \setuptyping
   [lines=yes]
diff --git a/tex/context/base/mkiv/mult-fun.lua b/tex/context/base/mkiv/mult-fun.lua
index caac199de..c6b3a9377 100644
--- a/tex/context/base/mkiv/mult-fun.lua
+++ b/tex/context/base/mkiv/mult-fun.lua
@@ -145,5 +145,7 @@ return {
         "sortlist", "copylist", "shapedlist", "listtocurves", "listtolines", "listsize", "listlast", "uniquelist",
         --
         "circularpath", "squarepath", "linearpath",
+        --
+        "theoffset",
     },
 }
diff --git a/tex/context/base/mkiv/spac-ver.mkiv b/tex/context/base/mkiv/spac-ver.mkiv
index 4c78dfd69..cb08fa14a 100644
--- a/tex/context/base/mkiv/spac-ver.mkiv
+++ b/tex/context/base/mkiv/spac-ver.mkiv
@@ -2420,13 +2420,14 @@
    \scratchwidth\dimexpr\wd\nextbox+\scratchdistance\relax
    \ifx\m_spac_hanging_location\v!right
      \hangindent\ifconditional\displaylefttoright-\fi\scratchwidth
-     \rlap{\hskip\dimexpr\hsize-\wd\nextbox\relax\box\nextbox}%
+     \rlap{\hskip\dimexpr\hsize-\leftskip-\wd\nextbox\relax\box\nextbox}% \leftskip is new
    \else
      \hangindent\ifconditional\displaylefttoright\else-\fi\scratchwidth
      \llap{\box\nextbox\hskip\scratchdistance}%
    \fi
    \ignorespaces}
 
+
 %D \macros
 %D   {startfixed}
 %D
diff --git a/tex/context/base/mkiv/status-files.pdf b/tex/context/base/mkiv/status-files.pdf
index 8697305df..4a95efec4 100644
--- a/tex/context/base/mkiv/status-files.pdf
+++ b/tex/context/base/mkiv/status-files.pdf
diff --git a/tex/context/base/mkiv/status-lua.pdf b/tex/context/base/mkiv/status-lua.pdf
index 5e4f1b448..bd1efee16 100644
--- a/tex/context/base/mkiv/status-lua.pdf
+++ b/tex/context/base/mkiv/status-lua.pdf
diff --git a/tex/context/base/mkiv/strc-doc.lua b/tex/context/base/mkiv/strc-doc.lua
index 2de26ac64..80e41451e 100644
--- a/tex/context/base/mkiv/strc-doc.lua
+++ b/tex/context/base/mkiv/strc-doc.lua
@@ -18,6 +18,7 @@ if not modules then modules = { } end modules ['strc-doc'] = {
 local next, type, tonumber, select = next, type, tonumber, select
 local find, match = string.find, string.match
 local concat, fastcopy, insert, remove = table.concat, table.fastcopy, table.insert, table.remove
+local sortedhash, sortedkeys = table.sortedhash, table.sortedkeys
 local max, min = math.max, math.min
 local allocate, mark, accesstable = utilities.storage.allocate, utilities.storage.mark, utilities.tables.accesstable
 local setmetatableindex = table.setmetatableindex
@@ -42,6 +43,7 @@ local trace_sectioning    = false  trackers.register("structures.sectioning", fu
 local trace_detail        = false  trackers.register("structures.detail",     function(v) trace_detail     = v end)
 
 local report_structure    = logs.reporter("structure","sectioning")
+local report_used         = logs.reporter("structure")
 
 local context             = context
 local commands            = commands
@@ -972,6 +974,47 @@ function sections.getnumber(depth,what) -- redefined here
     context(askednumber)
 end
 
+-- maybe handy
+
+function sections.showstructure()
+
+    local tobesaved = structures.lists.tobesaved
+
+    if not tobesaved then
+        return
+    end
+
+    local levels = setmetatableindex("table")
+    local names  = setmetatableindex("table")
+
+    report_used()
+    report_used("sections")
+    for i=1,#tobesaved do
+        local si = tobesaved[i]
+        local md = si.metadata
+        if md and md.kind == "section" then
+            local level   = md.level
+            local name    = md.name
+            local numbers = si.numberdata.numbers
+            local  title  = si.titledata.title
+            report_used("  %i : %-10s %-20s %s",level,concat(numbers,"."),name,title)
+            levels[level][name] = true
+            names[name][level]  = true
+        end
+    end
+    report_used()
+    report_used("levels")
+    for level, list in sortedhash(levels) do
+        report_used("  %s : % t",level,sortedkeys(list))
+    end
+    report_used()
+    report_used("names")
+    for name, list in sortedhash(names) do
+        report_used("  %-10s : % t",name,sortedkeys(list))
+    end
+    report_used()
+end
+
 -- experimental
 
 local levels = { }
@@ -1042,6 +1085,7 @@ implement { name = "getsomefullstructurenumber", actions = sections.fullnumber,
 implement { name = "getspecificstructuretitle",  actions = sections.structuredata,   arguments = { "string", "'titledata.title'",false,"string" } }
 
 implement { name = "reportstructure",            actions = sections.reportstructure }
+implement { name = "showstructure",              actions = sections.showstructure }
 
 implement {
     name      = "registersection",
diff --git a/tex/context/base/mkiv/strc-sec.mkiv b/tex/context/base/mkiv/strc-sec.mkiv
index 4cc2c7bd6..82c6d7ea7 100644
--- a/tex/context/base/mkiv/strc-sec.mkiv
+++ b/tex/context/base/mkiv/strc-sec.mkiv
@@ -816,6 +816,17 @@
 \let\currentheadlevel   \!!zerocount
 \let\currentheadcounter \!!zerocount
 
+\let\strc_show_used\relax
+
+\installtextracker
+  {structures.showused}
+  {\let\strc_show_used\clf_showstructure}
+  {\let\strc_show_used\relax}
+
+\appendtoks
+    \strc_show_used
+\to \everystoptext
+
 \unexpanded\def\placeheadtext  {\dosingleempty\strc_sectioning_place_head_text  } % use with care
 \unexpanded\def\placeheadnumber{\dosingleempty\strc_sectioning_place_head_number} % use with care
 
diff --git a/tex/context/base/mkiv/toks-ini.lua b/tex/context/base/mkiv/toks-ini.lua
index dfdf854d0..43e2d80a3 100644
--- a/tex/context/base/mkiv/toks-ini.lua
+++ b/tex/context/base/mkiv/toks-ini.lua
@@ -315,6 +315,9 @@ if setinspector then
 end
 
 tokens.cache = table.setmetatableindex(function(t,k)
+    if not is_defined(k) then
+        set_macro(k,"","global")
+    end
     local v = create_token(k)
     t[k] = v
     return v
diff --git a/tex/context/interface/mkii/keys-fr.xml b/tex/context/interface/mkii/keys-fr.xml
index ab256770c..20a0b9e2f 100644
--- a/tex/context/interface/mkii/keys-fr.xml
+++ b/tex/context/interface/mkii/keys-fr.xml
@@ -1280,6 +1280,7 @@
 		<cd:constant name='vcompact' value='vcompact'/>
 		<cd:constant name='vector' value='vector'/>
 		<cd:constant name='veroffset' value='veroffset'/>
+		<cd:constant name='vfactor' value='vfactor'/>
 		<cd:constant name='vfil' value='vfil'/>
 		<cd:constant name='viewerprefix' value='viewerprefix'/>
 		<cd:constant name='voffset' value='voffset'/>
diff --git a/tex/context/interface/mkiv/i-context.pdf b/tex/context/interface/mkiv/i-context.pdf
index ab8ade821..420e8e191 100644
--- a/tex/context/interface/mkiv/i-context.pdf
+++ b/tex/context/interface/mkiv/i-context.pdf
diff --git a/tex/context/interface/mkiv/i-readme.pdf b/tex/context/interface/mkiv/i-readme.pdf
index 315413f0e..508b08da6 100644
--- a/tex/context/interface/mkiv/i-readme.pdf
+++ b/tex/context/interface/mkiv/i-readme.pdf
diff --git a/tex/generic/context/luatex/luatex-fonts-ext.lua b/tex/generic/context/luatex/luatex-fonts-ext.lua
index 4f475bf4b..215217953 100644
--- a/tex/generic/context/luatex/luatex-fonts-ext.lua
+++ b/tex/generic/context/luatex/luatex-fonts-ext.lua
@@ -151,11 +151,15 @@ registerafmfeature(specification)
 
 -- normalizer (generic only)
 
-otf.features.normalize = function(t)
-    if t.rand then
-        t.rand = "random"
+if not otf.features.normalize then
+
+    otf.features.normalize = function(t)
+        if t.rand then
+            t.rand = "random"
+        end
+        return t
     end
-    return t
+
 end
 
 -- bonus
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index ae3761cce..4d19c4217 100644
--- a/tex/generic/context/luatex/luatex-fonts-merged.lua
+++ b/tex/generic/context/luatex/luatex-fonts-merged.lua
@@ -1,6 +1,6 @@
 -- merged file : c:/data/develop/context/sources/luatex-fonts-merged.lua
 -- parent file : c:/data/develop/context/sources/luatex-fonts.lua
--- merge date  : 06/11/18 12:05:53
+-- merge date  : 06/12/18 21:48:58
 
 do -- begin closure to overcome local limits and interference
 
@@ -11160,151 +11160,6 @@ end -- closure
 
 do -- begin closure to overcome local limits and interference
 
-if not modules then modules={} end modules ['font-oti']={
-  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 lower=string.lower
-local fonts=fonts
-local constructors=fonts.constructors
-local otf=constructors.handlers.otf
-local otffeatures=constructors.features.otf
-local registerotffeature=otffeatures.register
-local otftables=otf.tables or {}
-otf.tables=otftables
-local allocate=utilities.storage.allocate
-registerotffeature {
-  name="features",
-  description="initialization of feature handler",
-  default=true,
-}
-local function setmode(tfmdata,value)
-  if value then
-    tfmdata.properties.mode=lower(value)
-  end
-end
-otf.modeinitializer=setmode
-local function setlanguage(tfmdata,value)
-  if value then
-    local cleanvalue=lower(value)
-    local languages=otftables and otftables.languages
-    local properties=tfmdata.properties
-    if not languages then
-      properties.language=cleanvalue
-    elseif languages[value] then
-      properties.language=cleanvalue
-    else
-      properties.language="dflt"
-    end
-  end
-end
-local function setscript(tfmdata,value)
-  if value then
-    local cleanvalue=lower(value)
-    local scripts=otftables and otftables.scripts
-    local properties=tfmdata.properties
-    if not scripts then
-      properties.script=cleanvalue
-    elseif scripts[value] then
-      properties.script=cleanvalue
-    else
-      properties.script="dflt"
-    end
-  end
-end
-registerotffeature {
-  name="mode",
-  description="mode",
-  initializers={
-    base=setmode,
-    node=setmode,
-    plug=setmode,
-  }
-}
-registerotffeature {
-  name="language",
-  description="language",
-  initializers={
-    base=setlanguage,
-    node=setlanguage,
-    plug=setlanguage,
-  }
-}
-registerotffeature {
-  name="script",
-  description="script",
-  initializers={
-    base=setscript,
-    node=setscript,
-    plug=setscript,
-  }
-}
-otftables.featuretypes=allocate {
-  gpos_single="position",
-  gpos_pair="position",
-  gpos_cursive="position",
-  gpos_mark2base="position",
-  gpos_mark2ligature="position",
-  gpos_mark2mark="position",
-  gpos_context="position",
-  gpos_contextchain="position",
-  gsub_single="substitution",
-  gsub_multiple="substitution",
-  gsub_alternate="substitution",
-  gsub_ligature="substitution",
-  gsub_context="substitution",
-  gsub_contextchain="substitution",
-  gsub_reversecontextchain="substitution",
-  gsub_reversesub="substitution",
-}
-function otffeatures.checkeddefaultscript(featuretype,autoscript,scripts)
-  if featuretype=="position" then
-    local default=scripts.dflt
-    if default then
-      if autoscript=="position" or autoscript==true then
-        return default
-      else
-        report_otf("script feature %s not applied, enable default positioning")
-      end
-    else
-    end
-  elseif featuretype=="substitution" then
-    local default=scripts.dflt
-    if default then
-      if autoscript=="substitution" or autoscript==true then
-        return default
-      end
-    end
-  end
-end
-function otffeatures.checkeddefaultlanguage(featuretype,autolanguage,languages)
-  if featuretype=="position" then
-    local default=languages.dflt
-    if default then
-      if autolanguage=="position" or autolanguage==true then
-        return default
-      else
-        report_otf("language feature %s not applied, enable default positioning")
-      end
-    else
-    end
-  elseif featuretype=="substitution" then
-    local default=languages.dflt
-    if default then
-      if autolanguage=="substitution" or autolanguage==true then
-        return default
-      end
-    end
-  end
-end
-
-end -- closure
-
-do -- begin closure to overcome local limits and interference
-
 if not modules then modules={} end modules ['font-otr']={
   version=1.001,
   comment="companion to font-ini.mkiv",
@@ -13085,6 +12940,1199 @@ end -- closure
 
 do -- begin closure to overcome local limits and interference
 
+if not modules then modules={} end modules ['font-oti']={
+  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 lower=string.lower
+local fonts=fonts
+local constructors=fonts.constructors
+local otf=constructors.handlers.otf
+local otffeatures=constructors.features.otf
+local registerotffeature=otffeatures.register
+local otftables=otf.tables or {}
+otf.tables=otftables
+local allocate=utilities.storage.allocate
+registerotffeature {
+  name="features",
+  description="initialization of feature handler",
+  default=true,
+}
+local function setmode(tfmdata,value)
+  if value then
+    tfmdata.properties.mode=lower(value)
+  end
+end
+otf.modeinitializer=setmode
+local function setlanguage(tfmdata,value)
+  if value then
+    local cleanvalue=lower(value)
+    local languages=otftables and otftables.languages
+    local properties=tfmdata.properties
+    if not languages then
+      properties.language=cleanvalue
+    elseif languages[value] then
+      properties.language=cleanvalue
+    else
+      properties.language="dflt"
+    end
+  end
+end
+local function setscript(tfmdata,value)
+  if value then
+    local cleanvalue=lower(value)
+    local scripts=otftables and otftables.scripts
+    local properties=tfmdata.properties
+    if not scripts then
+      properties.script=cleanvalue
+    elseif scripts[value] then
+      properties.script=cleanvalue
+    else
+      properties.script="dflt"
+    end
+  end
+end
+registerotffeature {
+  name="mode",
+  description="mode",
+  initializers={
+    base=setmode,
+    node=setmode,
+    plug=setmode,
+  }
+}
+registerotffeature {
+  name="language",
+  description="language",
+  initializers={
+    base=setlanguage,
+    node=setlanguage,
+    plug=setlanguage,
+  }
+}
+registerotffeature {
+  name="script",
+  description="script",
+  initializers={
+    base=setscript,
+    node=setscript,
+    plug=setscript,
+  }
+}
+otftables.featuretypes=allocate {
+  gpos_single="position",
+  gpos_pair="position",
+  gpos_cursive="position",
+  gpos_mark2base="position",
+  gpos_mark2ligature="position",
+  gpos_mark2mark="position",
+  gpos_context="position",
+  gpos_contextchain="position",
+  gsub_single="substitution",
+  gsub_multiple="substitution",
+  gsub_alternate="substitution",
+  gsub_ligature="substitution",
+  gsub_context="substitution",
+  gsub_contextchain="substitution",
+  gsub_reversecontextchain="substitution",
+  gsub_reversesub="substitution",
+}
+function otffeatures.checkeddefaultscript(featuretype,autoscript,scripts)
+  if featuretype=="position" then
+    local default=scripts.dflt
+    if default then
+      if autoscript=="position" or autoscript==true then
+        return default
+      else
+        report_otf("script feature %s not applied, enable default positioning")
+      end
+    else
+    end
+  elseif featuretype=="substitution" then
+    local default=scripts.dflt
+    if default then
+      if autoscript=="substitution" or autoscript==true then
+        return default
+      end
+    end
+  end
+end
+function otffeatures.checkeddefaultlanguage(featuretype,autolanguage,languages)
+  if featuretype=="position" then
+    local default=languages.dflt
+    if default then
+      if autolanguage=="position" or autolanguage==true then
+        return default
+      else
+        report_otf("language feature %s not applied, enable default positioning")
+      end
+    else
+    end
+  elseif featuretype=="substitution" then
+    local default=languages.dflt
+    if default then
+      if autolanguage=="substitution" or autolanguage==true then
+        return default
+      end
+    end
+  end
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
+if not modules then modules={} end modules ["font-ott"]={
+  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 type,next,tonumber,tostring,rawget,rawset=type,next,tonumber,tostring,rawget,rawset
+local gsub,lower,format,match,gmatch,find=string.gsub,string.lower,string.format,string.match,string.gmatch,string.find
+local sequenced=table.sequenced
+local is_boolean=string.is_boolean
+local setmetatableindex=table.setmetatableindex
+local setmetatablenewindex=table.setmetatablenewindex
+local allocate=utilities.storage.allocate
+local fonts=fonts
+local otf=fonts.handlers.otf
+local otffeatures=otf.features
+local tables=otf.tables or {}
+otf.tables=tables
+local statistics=otf.statistics or {}
+otf.statistics=statistics
+local scripts=allocate {
+  ["arab"]="arabic",
+  ["armi"]="imperial aramaic",
+  ["armn"]="armenian",
+  ["avst"]="avestan",
+  ["bali"]="balinese",
+  ["bamu"]="bamum",
+  ["batk"]="batak",
+  ["beng"]="bengali",
+  ["bng2"]="bengali variant 2",
+  ["bopo"]="bopomofo",
+  ["brah"]="brahmi",
+  ["brai"]="braille",
+  ["bugi"]="buginese",
+  ["buhd"]="buhid",
+  ["byzm"]="byzantine music",
+  ["cakm"]="chakma",
+  ["cans"]="canadian syllabics",
+  ["cari"]="carian",
+  ["cham"]="cham",
+  ["cher"]="cherokee",
+  ["copt"]="coptic",
+  ["cprt"]="cypriot syllabary",
+  ["cyrl"]="cyrillic",
+  ["deva"]="devanagari",
+  ["dev2"]="devanagari variant 2",
+  ["dsrt"]="deseret",
+  ["egyp"]="egyptian heiroglyphs",
+  ["ethi"]="ethiopic",
+  ["geor"]="georgian",
+  ["glag"]="glagolitic",
+  ["goth"]="gothic",
+  ["grek"]="greek",
+  ["gujr"]="gujarati",
+  ["gjr2"]="gujarati variant 2",
+  ["guru"]="gurmukhi",
+  ["gur2"]="gurmukhi variant 2",
+  ["hang"]="hangul",
+  ["hani"]="cjk ideographic",
+  ["hano"]="hanunoo",
+  ["hebr"]="hebrew",
+  ["ital"]="old italic",
+  ["jamo"]="hangul jamo",
+  ["java"]="javanese",
+  ["kali"]="kayah li",
+  ["kana"]="hiragana and katakana",
+  ["khar"]="kharosthi",
+  ["khmr"]="khmer",
+  ["knda"]="kannada",
+  ["knd2"]="kannada variant 2",
+  ["kthi"]="kaithi",
+  ["lana"]="tai tham",
+  ["lao" ]="lao",
+  ["latn"]="latin",
+  ["lepc"]="lepcha",
+  ["limb"]="limbu",
+  ["linb"]="linear b",
+  ["lisu"]="lisu",
+  ["lyci"]="lycian",
+  ["lydi"]="lydian",
+  ["mand"]="mandaic and mandaean",
+  ["math"]="mathematical alphanumeric symbols",
+  ["merc"]="meroitic cursive",
+  ["mero"]="meroitic hieroglyphs",
+  ["mlym"]="malayalam",
+  ["mlm2"]="malayalam variant 2",
+  ["mong"]="mongolian",
+  ["mtei"]="meitei Mayek",
+  ["musc"]="musical symbols",
+  ["mym2"]="myanmar variant 2",
+  ["mymr"]="myanmar",
+  ["nko" ]='n"ko',
+  ["ogam"]="ogham",
+  ["olck"]="ol chiki",
+  ["orkh"]="old turkic and orkhon runic",
+  ["orya"]="oriya",
+  ["ory2"]="odia variant 2",
+  ["osma"]="osmanya",
+  ["phag"]="phags-pa",
+  ["phli"]="inscriptional pahlavi",
+  ["phnx"]="phoenician",
+  ["prti"]="inscriptional parthian",
+  ["rjng"]="rejang",
+  ["runr"]="runic",
+  ["samr"]="samaritan",
+  ["sarb"]="old south arabian",
+  ["saur"]="saurashtra",
+  ["shaw"]="shavian",
+  ["shrd"]="sharada",
+  ["sinh"]="sinhala",
+  ["sora"]="sora sompeng",
+  ["sund"]="sundanese",
+  ["sylo"]="syloti nagri",
+  ["syrc"]="syriac",
+  ["tagb"]="tagbanwa",
+  ["takr"]="takri",
+  ["tale"]="tai le",
+  ["talu"]="tai lu",
+  ["taml"]="tamil",
+  ["tavt"]="tai viet",
+  ["telu"]="telugu",
+  ["tel2"]="telugu variant 2",
+  ["tfng"]="tifinagh",
+  ["tglg"]="tagalog",
+  ["thaa"]="thaana",
+  ["thai"]="thai",
+  ["tibt"]="tibetan",
+  ["tml2"]="tamil variant 2",
+  ["ugar"]="ugaritic cuneiform",
+  ["vai" ]="vai",
+  ["xpeo"]="old persian cuneiform",
+  ["xsux"]="sumero-akkadian cuneiform",
+  ["yi" ]="yi",
+}
+local languages=allocate {
+  ["aba" ]="abaza",
+  ["abk" ]="abkhazian",
+  ["ach" ]="acholi",
+  ["acr" ]="achi",
+  ["ady" ]="adyghe",
+  ["afk" ]="afrikaans",
+  ["afr" ]="afar",
+  ["agw" ]="agaw",
+  ["aio" ]="aiton",
+  ["aka" ]="akan",
+  ["als" ]="alsatian",
+  ["alt" ]="altai",
+  ["amh" ]="amharic",
+  ["ang" ]="anglo-saxon",
+  ["apph"]="phonetic transcription—americanist conventions",
+  ["ara" ]="arabic",
+  ["arg" ]="aragonese",
+  ["ari" ]="aari",
+  ["ark" ]="rakhine",
+  ["asm" ]="assamese",
+  ["ast" ]="asturian",
+  ["ath" ]="athapaskan",
+  ["avr" ]="avar",
+  ["awa" ]="awadhi",
+  ["aym" ]="aymara",
+  ["azb" ]="torki",
+  ["aze" ]="azerbaijani",
+  ["bad" ]="badaga",
+  ["bad0"]="banda",
+  ["bag" ]="baghelkhandi",
+  ["bal" ]="balkar",
+  ["ban" ]="balinese",
+  ["bar" ]="bavarian",
+  ["bau" ]="baulé",
+  ["bbc" ]="batak toba",
+  ["bbr" ]="berber",
+  ["bch" ]="bench",
+  ["bcr" ]="bible cree",
+  ["bdy" ]="bandjalang",
+  ["bel" ]="belarussian",
+  ["bem" ]="bemba",
+  ["ben" ]="bengali",
+  ["bgc" ]="haryanvi",
+  ["bgq" ]="bagri",
+  ["bgr" ]="bulgarian",
+  ["bhi" ]="bhili",
+  ["bho" ]="bhojpuri",
+  ["bik" ]="bikol",
+  ["bil" ]="bilen",
+  ["bis" ]="bislama",
+  ["bjj" ]="kanauji",
+  ["bkf" ]="blackfoot",
+  ["bli" ]="baluchi",
+  ["blk" ]="pa'o karen",
+  ["bln" ]="balante",
+  ["blt" ]="balti",
+  ["bmb" ]="bambara (bamanankan)",
+  ["bml" ]="bamileke",
+  ["bos" ]="bosnian",
+  ["bpy" ]="bishnupriya manipuri",
+  ["bre" ]="breton",
+  ["brh" ]="brahui",
+  ["bri" ]="braj bhasha",
+  ["brm" ]="burmese",
+  ["brx" ]="bodo",
+  ["bsh" ]="bashkir",
+  ["bti" ]="beti",
+  ["bts" ]="batak simalungun",
+  ["bug" ]="bugis",
+  ["cak" ]="kaqchikel",
+  ["cat" ]="catalan",
+  ["cbk" ]="zamboanga chavacano",
+  ["ceb" ]="cebuano",
+  ["cgg" ]="chiga",
+  ["cha" ]="chamorro",
+  ["che" ]="chechen",
+  ["chg" ]="chaha gurage",
+  ["chh" ]="chattisgarhi",
+  ["chi" ]="chichewa (chewa, nyanja)",
+  ["chk" ]="chukchi",
+  ["chk0"]="chuukese",
+  ["cho" ]="choctaw",
+  ["chp" ]="chipewyan",
+  ["chr" ]="cherokee",
+  ["chu" ]="chuvash",
+  ["chy" ]="cheyenne",
+  ["cmr" ]="comorian",
+  ["cop" ]="coptic",
+  ["cor" ]="cornish",
+  ["cos" ]="corsican",
+  ["cpp" ]="creoles",
+  ["cre" ]="cree",
+  ["crr" ]="carrier",
+  ["crt" ]="crimean tatar",
+  ["csb" ]="kashubian",
+  ["csl" ]="church slavonic",
+  ["csy" ]="czech",
+  ["ctg" ]="chittagonian",
+  ["cuk" ]="san blas kuna",
+  ["dan" ]="danish",
+  ["dar" ]="dargwa",
+  ["dax" ]="dayi",
+  ["dcr" ]="woods cree",
+  ["deu" ]="german",
+  ["dgo" ]="dogri",
+  ["dgr" ]="dogri",
+  ["dhg" ]="dhangu",
+  ["dhv" ]="divehi (dhivehi, maldivian)",
+  ["diq" ]="dimli",
+  ["div" ]="divehi (dhivehi, maldivian)",
+  ["djr" ]="zarma",
+  ["djr0"]="djambarrpuyngu",
+  ["dng" ]="dangme",
+  ["dnj" ]="dan",
+  ["dnk" ]="dinka",
+  ["dri" ]="dari",
+  ["duj" ]="dhuwal",
+  ["dun" ]="dungan",
+  ["dzn" ]="dzongkha",
+  ["ebi" ]="ebira",
+  ["ecr" ]="eastern cree",
+  ["edo" ]="edo",
+  ["efi" ]="efik",
+  ["ell" ]="greek",
+  ["emk" ]="eastern maninkakan",
+  ["eng" ]="english",
+  ["erz" ]="erzya",
+  ["esp" ]="spanish",
+  ["esu" ]="central yupik",
+  ["eti" ]="estonian",
+  ["euq" ]="basque",
+  ["evk" ]="evenki",
+  ["evn" ]="even",
+  ["ewe" ]="ewe",
+  ["fan" ]="french antillean",
+  ["fan0"]=" fang",
+  ["far" ]="persian",
+  ["fat" ]="fanti",
+  ["fin" ]="finnish",
+  ["fji" ]="fijian",
+  ["fle" ]="dutch (flemish)",
+  ["fne" ]="forest nenets",
+  ["fon" ]="fon",
+  ["fos" ]="faroese",
+  ["fra" ]="french",
+  ["frc" ]="cajun french",
+  ["fri" ]="frisian",
+  ["frl" ]="friulian",
+  ["frp" ]="arpitan",
+  ["fta" ]="futa",
+  ["ful" ]="fulah",
+  ["fuv" ]="nigerian fulfulde",
+  ["gad" ]="ga",
+  ["gae" ]="scottish gaelic (gaelic)",
+  ["gag" ]="gagauz",
+  ["gal" ]="galician",
+  ["gar" ]="garshuni",
+  ["gaw" ]="garhwali",
+  ["gez" ]="ge'ez",
+  ["gih" ]="githabul",
+  ["gil" ]="gilyak",
+  ["gil0"]="kiribati (gilbertese)",
+  ["gkp" ]="kpelle (guinea)",
+  ["glk" ]="gilaki",
+  ["gmz" ]="gumuz",
+  ["gnn" ]="gumatj",
+  ["gog" ]="gogo",
+  ["gon" ]="gondi",
+  ["grn" ]="greenlandic",
+  ["gro" ]="garo",
+  ["gua" ]="guarani",
+  ["guc" ]="wayuu",
+  ["guf" ]="gupapuyngu",
+  ["guj" ]="gujarati",
+  ["guz" ]="gusii",
+  ["hai" ]="haitian (haitian creole)",
+  ["hal" ]="halam",
+  ["har" ]="harauti",
+  ["hau" ]="hausa",
+  ["haw" ]="hawaiian",
+  ["hay" ]="haya",
+  ["haz" ]="hazaragi",
+  ["hbn" ]="hammer-banna",
+  ["her" ]="herero",
+  ["hil" ]="hiligaynon",
+  ["hin" ]="hindi",
+  ["hma" ]="high mari",
+  ["hmn" ]="hmong",
+  ["hmo" ]="hiri motu",
+  ["hnd" ]="hindko",
+  ["ho" ]="ho",
+  ["hri" ]="harari",
+  ["hrv" ]="croatian",
+  ["hun" ]="hungarian",
+  ["hye" ]="armenian",
+  ["hye0"]="armenian east",
+  ["iba" ]="iban",
+  ["ibb" ]="ibibio",
+  ["ibo" ]="igbo",
+  ["ido" ]="ido",
+  ["ijo" ]="ijo languages",
+  ["ile" ]="interlingue",
+  ["ilo" ]="ilokano",
+  ["ina" ]="interlingua",
+  ["ind" ]="indonesian",
+  ["ing" ]="ingush",
+  ["inu" ]="inuktitut",
+  ["ipk" ]="inupiat",
+  ["ipph"]="phonetic transcription—ipa conventions",
+  ["iri" ]="irish",
+  ["irt" ]="irish traditional",
+  ["isl" ]="icelandic",
+  ["ism" ]="inari sami",
+  ["ita" ]="italian",
+  ["iwr" ]="hebrew",
+  ["jam" ]="jamaican creole",
+  ["jan" ]="japanese",
+  ["jav" ]="javanese",
+  ["jbo" ]="lojban",
+  ["jii" ]="yiddish",
+  ["jud" ]="ladino",
+  ["jul" ]="jula",
+  ["kab" ]="kabardian",
+  ["kab0"]="kabyle",
+  ["kac" ]="kachchi",
+  ["kal" ]="kalenjin",
+  ["kan" ]="kannada",
+  ["kar" ]="karachay",
+  ["kat" ]="georgian",
+  ["kaz" ]="kazakh",
+  ["kde" ]="makonde",
+  ["kea" ]="kabuverdianu (crioulo)",
+  ["keb" ]="kebena",
+  ["kek" ]="kekchi",
+  ["kge" ]="khutsuri georgian",
+  ["kha" ]="khakass",
+  ["khk" ]="khanty-kazim",
+  ["khm" ]="khmer",
+  ["khs" ]="khanty-shurishkar",
+  ["kht" ]="khamti shan",
+  ["khv" ]="khanty-vakhi",
+  ["khw" ]="khowar",
+  ["kik" ]="kikuyu (gikuyu)",
+  ["kir" ]="kirghiz (kyrgyz)",
+  ["kis" ]="kisii",
+  ["kiu" ]="kirmanjki",
+  ["kjd" ]="southern kiwai",
+  ["kjp" ]="eastern pwo karen",
+  ["kkn" ]="kokni",
+  ["klm" ]="kalmyk",
+  ["kmb" ]="kamba",
+  ["kmn" ]="kumaoni",
+  ["kmo" ]="komo",
+  ["kms" ]="komso",
+  ["knr" ]="kanuri",
+  ["kod" ]="kodagu",
+  ["koh" ]="korean old hangul",
+  ["kok" ]="konkani",
+  ["kom" ]="komi",
+  ["kon" ]="kikongo",
+  ["kon0"]="kongo",
+  ["kop" ]="komi-permyak",
+  ["kor" ]="korean",
+  ["kos" ]="kosraean",
+  ["koz" ]="komi-zyrian",
+  ["kpl" ]="kpelle",
+  ["kri" ]="krio",
+  ["krk" ]="karakalpak",
+  ["krl" ]="karelian",
+  ["krm" ]="karaim",
+  ["krn" ]="karen",
+  ["krt" ]="koorete",
+  ["ksh" ]="kashmiri",
+  ["ksh0"]="ripuarian",
+  ["ksi" ]="khasi",
+  ["ksm" ]="kildin sami",
+  ["ksw" ]="s’gaw karen",
+  ["kua" ]="kuanyama",
+  ["kui" ]="kui",
+  ["kul" ]="kulvi",
+  ["kum" ]="kumyk",
+  ["kur" ]="kurdish",
+  ["kuu" ]="kurukh",
+  ["kuy" ]="kuy",
+  ["kyk" ]="koryak",
+  ["kyu" ]="western kayah",
+  ["lad" ]="ladin",
+  ["lah" ]="lahuli",
+  ["lak" ]="lak",
+  ["lam" ]="lambani",
+  ["lao" ]="lao",
+  ["lat" ]="latin",
+  ["laz" ]="laz",
+  ["lcr" ]="l-cree",
+  ["ldk" ]="ladakhi",
+  ["lez" ]="lezgi",
+  ["lij" ]="ligurian",
+  ["lim" ]="limburgish",
+  ["lin" ]="lingala",
+  ["lis" ]="lisu",
+  ["ljp" ]="lampung",
+  ["lki" ]="laki",
+  ["lma" ]="low mari",
+  ["lmb" ]="limbu",
+  ["lmo" ]="lombard",
+  ["lmw" ]="lomwe",
+  ["lom" ]="loma",
+  ["lrc" ]="luri",
+  ["lsb" ]="lower sorbian",
+  ["lsm" ]="lule sami",
+  ["lth" ]="lithuanian",
+  ["ltz" ]="luxembourgish",
+  ["lua" ]="luba-lulua",
+  ["lub" ]="luba-katanga",
+  ["lug" ]="ganda",
+  ["luh" ]="luyia",
+  ["luo" ]="luo",
+  ["lvi" ]="latvian",
+  ["mad" ]="madura",
+  ["mag" ]="magahi",
+  ["mah" ]="marshallese",
+  ["maj" ]="majang",
+  ["mak" ]="makhuwa",
+  ["mal" ]="malayalam reformed",
+  ["mam" ]="mam",
+  ["man" ]="mansi",
+  ["map" ]="mapudungun",
+  ["mar" ]="marathi",
+  ["maw" ]="marwari",
+  ["mbn" ]="mbundu",
+  ["mch" ]="manchu",
+  ["mcr" ]="moose cree",
+  ["mde" ]="mende",
+  ["mdr" ]="mandar",
+  ["men" ]="me'en",
+  ["mer" ]="meru",
+  ["mfe" ]="morisyen",
+  ["min" ]="minangkabau",
+  ["miz" ]="mizo",
+  ["mkd" ]="macedonian",
+  ["mkr" ]="makasar",
+  ["mkw" ]="kituba",
+  ["mle" ]="male",
+  ["mlg" ]="malagasy",
+  ["mln" ]="malinke",
+  ["mly" ]="malay",
+  ["mnd" ]="mandinka",
+  ["mng" ]="mongolian",
+  ["mni" ]="manipuri",
+  ["mnk" ]="maninka",
+  ["mnx" ]="manx",
+  ["moh" ]="mohawk",
+  ["mok" ]="moksha",
+  ["mol" ]="moldavian",
+  ["mon" ]="mon",
+  ["mor" ]="moroccan",
+  ["mos" ]="mossi",
+  ["mri" ]="maori",
+  ["mth" ]="maithili",
+  ["mts" ]="maltese",
+  ["mun" ]="mundari",
+  ["mus" ]="muscogee",
+  ["mwl" ]="mirandese",
+  ["mww" ]="hmong daw",
+  ["myn" ]="mayan",
+  ["mzn" ]="mazanderani",
+  ["nag" ]="naga-assamese",
+  ["nah" ]="nahuatl",
+  ["nan" ]="nanai",
+  ["nap" ]="neapolitan",
+  ["nas" ]="naskapi",
+  ["nau" ]="nauruan",
+  ["nav" ]="navajo",
+  ["ncr" ]="n-cree",
+  ["ndb" ]="ndebele",
+  ["ndc" ]="ndau",
+  ["ndg" ]="ndonga",
+  ["nds" ]="low saxon",
+  ["nep" ]="nepali",
+  ["new" ]="newari",
+  ["nga" ]="ngbaka",
+  ["ngr" ]="nagari",
+  ["nhc" ]="norway house cree",
+  ["nis" ]="nisi",
+  ["niu" ]="niuean",
+  ["nkl" ]="nyankole",
+  ["nko" ]="n'ko",
+  ["nld" ]="dutch",
+  ["noe" ]="nimadi",
+  ["nog" ]="nogai",
+  ["nor" ]="norwegian",
+  ["nov" ]="novial",
+  ["nsm" ]="northern sami",
+  ["nso" ]="sotho, northern",
+  ["nta" ]="northern tai",
+  ["nto" ]="esperanto",
+  ["nym" ]="nyamwezi",
+  ["nyn" ]="norwegian nynorsk",
+  ["oci" ]="occitan",
+  ["ocr" ]="oji-cree",
+  ["ojb" ]="ojibway",
+  ["ori" ]="odia",
+  ["oro" ]="oromo",
+  ["oss" ]="ossetian",
+  ["paa" ]="palestinian aramaic",
+  ["pag" ]="pangasinan",
+  ["pal" ]="pali",
+  ["pam" ]="pampangan",
+  ["pan" ]="punjabi",
+  ["pap" ]="palpa",
+  ["pap0"]="papiamentu",
+  ["pas" ]="pashto",
+  ["pau" ]="palauan",
+  ["pcc" ]="bouyei",
+  ["pcd" ]="picard",
+  ["pdc" ]="pennsylvania german",
+  ["pgr" ]="polytonic greek",
+  ["phk" ]="phake",
+  ["pih" ]="norfolk",
+  ["pil" ]="filipino",
+  ["plg" ]="palaung",
+  ["plk" ]="polish",
+  ["pms" ]="piemontese",
+  ["pnb" ]="western panjabi",
+  ["poh" ]="pocomchi",
+  ["pon" ]="pohnpeian",
+  ["pro" ]="provencal",
+  ["ptg" ]="portuguese",
+  ["pwo" ]="western pwo karen",
+  ["qin" ]="chin",
+  ["quc" ]="k’iche’",
+  ["quh" ]="quechua (bolivia)",
+  ["quz" ]="quechua",
+  ["qvi" ]="quechua (ecuador)",
+  ["qwh" ]="quechua (peru)",
+  ["raj" ]="rajasthani",
+  ["rar" ]="rarotongan",
+  ["rbu" ]="russian buriat",
+  ["rcr" ]="r-cree",
+  ["rej" ]="rejang",
+  ["ria" ]="riang",
+  ["rif" ]="tarifit",
+  ["rit" ]="ritarungo",
+  ["rkw" ]="arakwal",
+  ["rms" ]="romansh",
+  ["rmy" ]="vlax romani",
+  ["rom" ]="romanian",
+  ["roy" ]="romany",
+  ["rsy" ]="rusyn",
+  ["rtm" ]="rotuman",
+  ["rua" ]="kinyarwanda",
+  ["run" ]="rundi",
+  ["rup" ]="aromanian",
+  ["rus" ]="russian",
+  ["sad" ]="sadri",
+  ["san" ]="sanskrit",
+  ["sas" ]="sasak",
+  ["sat" ]="santali",
+  ["say" ]="sayisi",
+  ["scn" ]="sicilian",
+  ["sco" ]="scots",
+  ["sek" ]="sekota",
+  ["sel" ]="selkup",
+  ["sga" ]="old irish",
+  ["sgo" ]="sango",
+  ["sgs" ]="samogitian",
+  ["shi" ]="tachelhit",
+  ["shn" ]="shan",
+  ["sib" ]="sibe",
+  ["sid" ]="sidamo",
+  ["sig" ]="silte gurage",
+  ["sks" ]="skolt sami",
+  ["sky" ]="slovak",
+  ["sla" ]="slavey",
+  ["slv" ]="slovenian",
+  ["sml" ]="somali",
+  ["smo" ]="samoan",
+  ["sna" ]="sena",
+  ["sna0"]="shona",
+  ["snd" ]="sindhi",
+  ["snh" ]="sinhala (sinhalese)",
+  ["snk" ]="soninke",
+  ["sog" ]="sodo gurage",
+  ["sop" ]="songe",
+  ["sot" ]="sotho, southern",
+  ["sqi" ]="albanian",
+  ["srb" ]="serbian",
+  ["srd" ]="sardinian",
+  ["srk" ]="saraiki",
+  ["srr" ]="serer",
+  ["ssl" ]="south slavey",
+  ["ssm" ]="southern sami",
+  ["stq" ]="saterland frisian",
+  ["suk" ]="sukuma",
+  ["sun" ]="sundanese",
+  ["sur" ]="suri",
+  ["sva" ]="svan",
+  ["sve" ]="swedish",
+  ["swa" ]="swadaya aramaic",
+  ["swk" ]="swahili",
+  ["swz" ]="swati",
+  ["sxt" ]="sutu",
+  ["sxu" ]="upper saxon",
+  ["syl" ]="sylheti",
+  ["syr" ]="syriac",
+  ["szl" ]="silesian",
+  ["tab" ]="tabasaran",
+  ["taj" ]="tajiki",
+  ["tam" ]="tamil",
+  ["tat" ]="tatar",
+  ["tcr" ]="th-cree",
+  ["tdd" ]="dehong dai",
+  ["tel" ]="telugu",
+  ["tet" ]="tetum",
+  ["tgl" ]="tagalog",
+  ["tgn" ]="tongan",
+  ["tgr" ]="tigre",
+  ["tgy" ]="tigrinya",
+  ["tha" ]="thai",
+  ["tht" ]="tahitian",
+  ["tib" ]="tibetan",
+  ["tiv" ]="tiv",
+  ["tkm" ]="turkmen",
+  ["tmh" ]="tamashek",
+  ["tmn" ]="temne",
+  ["tna" ]="tswana",
+  ["tne" ]="tundra nenets",
+  ["tng" ]="tonga",
+  ["tod" ]="todo",
+  ["tod0"]="toma",
+  ["tpi" ]="tok pisin",
+  ["trk" ]="turkish",
+  ["tsg" ]="tsonga",
+  ["tua" ]="turoyo aramaic",
+  ["tul" ]="tulu",
+  ["tuv" ]="tuvin",
+  ["tvl" ]="tuvalu",
+  ["twi" ]="twi",
+  ["tyz" ]="tày",
+  ["tzm" ]="tamazight",
+  ["tzo" ]="tzotzil",
+  ["udm" ]="udmurt",
+  ["ukr" ]="ukrainian",
+  ["umb" ]="umbundu",
+  ["urd" ]="urdu",
+  ["usb" ]="upper sorbian",
+  ["uyg" ]="uyghur",
+  ["uzb" ]="uzbek",
+  ["vec" ]="venetian",
+  ["ven" ]="venda",
+  ["vit" ]="vietnamese",
+  ["vol" ]="volapük",
+  ["vro" ]="võro",
+  ["wa" ]="wa",
+  ["wag" ]="wagdi",
+  ["war" ]="waray-waray",
+  ["wcr" ]="west-cree",
+  ["wel" ]="welsh",
+  ["wlf" ]="wolof",
+  ["wln" ]="walloon",
+  ["xbd" ]="lü",
+  ["xhs" ]="xhosa",
+  ["xjb" ]="minjangbal",
+  ["xog" ]="soga",
+  ["xpe" ]="kpelle (liberia)",
+  ["yak" ]="sakha",
+  ["yao" ]="yao",
+  ["yap" ]="yapese",
+  ["yba" ]="yoruba",
+  ["ycr" ]="y-cree",
+  ["yic" ]="yi classic",
+  ["yim" ]="yi modern",
+  ["zea" ]="zealandic",
+  ["zgh" ]="standard morrocan tamazigh",
+  ["zha" ]="zhuang",
+  ["zhh" ]="chinese, hong kong sar",
+  ["zhp" ]="chinese phonetic",
+  ["zhs" ]="chinese simplified",
+  ["zht" ]="chinese traditional",
+  ["znd" ]="zande",
+  ["zul" ]="zulu",
+  ["zza" ]="zazaki",
+}
+local features=allocate {
+  ["aalt"]="access all alternates",
+  ["abvf"]="above-base forms",
+  ["abvm"]="above-base mark positioning",
+  ["abvs"]="above-base substitutions",
+  ["afrc"]="alternative fractions",
+  ["akhn"]="akhands",
+  ["blwf"]="below-base forms",
+  ["blwm"]="below-base mark positioning",
+  ["blws"]="below-base substitutions",
+  ["c2pc"]="petite capitals from capitals",
+  ["c2sc"]="small capitals from capitals",
+  ["calt"]="contextual alternates",
+  ["case"]="case-sensitive forms",
+  ["ccmp"]="glyph composition/decomposition",
+  ["cfar"]="conjunct form after ro",
+  ["cjct"]="conjunct forms",
+  ["clig"]="contextual ligatures",
+  ["cpct"]="centered cjk punctuation",
+  ["cpsp"]="capital spacing",
+  ["cswh"]="contextual swash",
+  ["curs"]="cursive positioning",
+  ["dflt"]="default processing",
+  ["dist"]="distances",
+  ["dlig"]="discretionary ligatures",
+  ["dnom"]="denominators",
+  ["dtls"]="dotless forms",
+  ["expt"]="expert forms",
+  ["falt"]="final glyph alternates",
+  ["fin2"]="terminal forms #2",
+  ["fin3"]="terminal forms #3",
+  ["fina"]="terminal forms",
+  ["flac"]="flattened accents over capitals",
+  ["frac"]="fractions",
+  ["fwid"]="full width",
+  ["half"]="half forms",
+  ["haln"]="halant forms",
+  ["halt"]="alternate half width",
+  ["hist"]="historical forms",
+  ["hkna"]="horizontal kana alternates",
+  ["hlig"]="historical ligatures",
+  ["hngl"]="hangul",
+  ["hojo"]="hojo kanji forms",
+  ["hwid"]="half width",
+  ["init"]="initial forms",
+  ["isol"]="isolated forms",
+  ["ital"]="italics",
+  ["jalt"]="justification alternatives",
+  ["jp04"]="jis2004 forms",
+  ["jp78"]="jis78 forms",
+  ["jp83"]="jis83 forms",
+  ["jp90"]="jis90 forms",
+  ["kern"]="kerning",
+  ["lfbd"]="left bounds",
+  ["liga"]="standard ligatures",
+  ["ljmo"]="leading jamo forms",
+  ["lnum"]="lining figures",
+  ["locl"]="localized forms",
+  ["ltra"]="left-to-right alternates",
+  ["ltrm"]="left-to-right mirrored forms",
+  ["mark"]="mark positioning",
+  ["med2"]="medial forms #2",
+  ["medi"]="medial forms",
+  ["mgrk"]="mathematical greek",
+  ["mkmk"]="mark to mark positioning",
+  ["mset"]="mark positioning via substitution",
+  ["nalt"]="alternate annotation forms",
+  ["nlck"]="nlc kanji forms",
+  ["nukt"]="nukta forms",
+  ["numr"]="numerators",
+  ["onum"]="old style figures",
+  ["opbd"]="optical bounds",
+  ["ordn"]="ordinals",
+  ["ornm"]="ornaments",
+  ["palt"]="proportional alternate width",
+  ["pcap"]="petite capitals",
+  ["pkna"]="proportional kana",
+  ["pnum"]="proportional figures",
+  ["pref"]="pre-base forms",
+  ["pres"]="pre-base substitutions",
+  ["pstf"]="post-base forms",
+  ["psts"]="post-base substitutions",
+  ["pwid"]="proportional widths",
+  ["qwid"]="quarter widths",
+  ["rand"]="randomize",
+  ["rclt"]="required contextual alternates",
+  ["rkrf"]="rakar forms",
+  ["rlig"]="required ligatures",
+  ["rphf"]="reph form",
+  ["rtbd"]="right bounds",
+  ["rtla"]="right-to-left alternates",
+  ["rtlm"]="right to left mirrored forms",
+  ["rvrn"]="required variation alternates",
+  ["ruby"]="ruby notation forms",
+  ["salt"]="stylistic alternates",
+  ["sinf"]="scientific inferiors",
+  ["size"]="optical size",
+  ["smcp"]="small capitals",
+  ["smpl"]="simplified forms",
+  ["ssty"]="script style",
+  ["stch"]="stretching glyph decomposition",
+  ["subs"]="subscript",
+  ["sups"]="superscript",
+  ["swsh"]="swash",
+  ["titl"]="titling",
+  ["tjmo"]="trailing jamo forms",
+  ["tnam"]="traditional name forms",
+  ["tnum"]="tabular figures",
+  ["trad"]="traditional forms",
+  ["twid"]="third widths",
+  ["unic"]="unicase",
+  ["valt"]="alternate vertical metrics",
+  ["vatu"]="vattu variants",
+  ["vert"]="vertical writing",
+  ["vhal"]="alternate vertical half metrics",
+  ["vjmo"]="vowel jamo forms",
+  ["vkna"]="vertical kana alternates",
+  ["vkrn"]="vertical kerning",
+  ["vpal"]="proportional alternate vertical metrics",
+  ["vrt2"]="vertical rotation",
+  ["zero"]="slashed zero",
+  ["trep"]="traditional tex replacements",
+  ["tlig"]="traditional tex ligatures",
+  ["ss.."]="stylistic set ..",
+  ["cv.."]="character variant ..",
+  ["js.."]="justification ..",
+  ["dv.."]="devanagari ..",
+  ["ml.."]="malayalam ..",
+}
+local baselines=allocate {
+  ["hang"]="hanging baseline",
+  ["icfb"]="ideographic character face bottom edge baseline",
+  ["icft"]="ideographic character face tope edige baseline",
+  ["ideo"]="ideographic em-box bottom edge baseline",
+  ["idtp"]="ideographic em-box top edge baseline",
+  ["math"]="mathematical centered baseline",
+  ["romn"]="roman baseline"
+}
+tables.scripts=scripts
+tables.languages=languages
+tables.features=features
+tables.baselines=baselines
+local acceptscripts=true directives.register("otf.acceptscripts",function(v) acceptscripts=v end)
+local acceptlanguages=true directives.register("otf.acceptlanguages",function(v) acceptlanguages=v end)
+local report_checks=logs.reporter("fonts","checks")
+if otffeatures.features then
+  for k,v in next,otffeatures.features do
+    features[k]=v
+  end
+  otffeatures.features=features
+end
+local function swapped(h)
+  local r={}
+  for k,v in next,h do
+    r[gsub(v,"[^a-z0-9]","")]=k 
+  end
+  return r
+end
+local verbosescripts=allocate(swapped(scripts ))
+local verboselanguages=allocate(swapped(languages))
+local verbosefeatures=allocate(swapped(features ))
+local verbosebaselines=allocate(swapped(baselines))
+local function resolve(t,k)
+  if k then
+    k=gsub(lower(k),"[^a-z0-9]","")
+    local v=rawget(t,k)
+    if v then
+      return v
+    end
+  end
+end
+setmetatableindex(verbosescripts,resolve)
+setmetatableindex(verboselanguages,resolve)
+setmetatableindex(verbosefeatures,resolve)
+setmetatableindex(verbosebaselines,resolve)
+setmetatableindex(scripts,function(t,k)
+  if k then
+    k=lower(k)
+    if k=="dflt" then
+      return k
+    end
+    local v=rawget(t,k)
+    if v then
+      return v
+    end
+    k=gsub(k," ","")
+    v=rawget(t,v)
+    if v then
+      return v
+    elseif acceptscripts then
+      report_checks("registering extra script %a",k)
+      rawset(t,k,k)
+      return k
+    end
+  end
+  return "dflt"
+end)
+setmetatableindex(languages,function(t,k)
+  if k then
+    k=lower(k)
+    if k=="dflt" then
+      return k
+    end
+    local v=rawget(t,k)
+    if v then
+      return v
+    end
+    k=gsub(k," ","")
+    v=rawget(t,v)
+    if v then
+      return v
+    elseif acceptlanguages then
+      report_checks("registering extra language %a",k)
+      rawset(t,k,k)
+      return k
+    end
+  end
+  return "dflt"
+end)
+if setmetatablenewindex then
+  setmetatablenewindex(languages,"ignore")
+  setmetatablenewindex(scripts,"ignore")
+  setmetatablenewindex(baselines,"ignore")
+end
+local function resolve(t,k)
+  if k then
+    k=lower(k)
+    local v=rawget(t,k)
+    if v then
+      return v
+    end
+    k=gsub(k," ","")
+    local v=rawget(t,k)
+    if v then
+      return v
+    end
+    local tag,dd=match(k,"(..)(%d+)")
+    if tag and dd then
+      local v=rawget(t,tag)
+      if v then
+        return v 
+      else
+        local v=rawget(t,tag.."..") 
+        if v then
+          return (gsub(v,"%.%.",tonumber(dd))) 
+        end
+      end
+    end
+  end
+  return k 
+end
+setmetatableindex(features,resolve)
+local function assign(t,k,v)
+  if k and v then
+    v=lower(v)
+    rawset(t,k,v)
+  end
+end
+if setmetatablenewindex then
+  setmetatablenewindex(features,assign)
+end
+local checkers={
+  rand=function(v)
+    return v==true and "random" or v
+  end
+}
+if not storage then
+  return
+end
+local usedfeatures=statistics.usedfeatures or {}
+statistics.usedfeatures=usedfeatures
+table.setmetatableindex(usedfeatures,function(t,k) if k then local v={} t[k]=v return v end end) 
+storage.register("fonts/otf/usedfeatures",usedfeatures,"fonts.handlers.otf.statistics.usedfeatures" )
+local normalizedaxis=otf.readers.helpers.normalizedaxis or function(s) return s end
+function otffeatures.normalize(features)
+  if features then
+    local h={}
+    for key,value in next,features do
+      local k=lower(key)
+      if k=="language" then
+        local v=gsub(lower(value),"[^a-z0-9]","")
+        h.language=rawget(verboselanguages,v) or (languages[v] and v) or "dflt" 
+      elseif k=="script" then
+        local v=gsub(lower(value),"[^a-z0-9]","")
+        h.script=rawget(verbosescripts,v) or (scripts[v] and v) or "dflt" 
+      elseif k=="axis" then
+        h[k]=normalizedaxis(value)
+        if not callbacks.supported.glyph_stream_provider then
+          h.variableshapes=true 
+        end
+      else
+        local uk=usedfeatures[key]
+        local uv=uk[value]
+        if uv then
+        else
+          uv=tonumber(value) 
+          if uv then
+          elseif type(value)=="string" then
+            local b=is_boolean(value)
+            if type(b)=="nil" then
+              uv=lower(value)
+            else
+              uv=b
+            end
+          elseif type(value)=="table" then
+            uv=sequenced(t,",")
+          else
+            uv=value
+          end
+          if not rawget(features,k) then
+            k=rawget(verbosefeatures,k) or k
+          end
+          local c=checkers[k]
+          if c then
+            uv=c(uv) or vc
+          end
+          uk[value]=uv
+        end
+        h[k]=uv
+      end
+    end
+    return h
+  end
+end
+
+end -- closure
+
+do -- begin closure to overcome local limits and interference
+
 if not modules then modules={} end modules ['font-cff']={
   version=1.001,
   comment="companion to font-ini.mkiv",
@@ -33386,11 +34434,13 @@ local specification={
 }
 registerotffeature(specification)
 registerafmfeature(specification)
-otf.features.normalize=function(t)
-  if t.rand then
-    t.rand="random"
+if not otf.features.normalize then
+  otf.features.normalize=function(t)
+    if t.rand then
+      t.rand="random"
+    end
+    return t
   end
-  return t
 end
 function fonts.helpers.nametoslot(name)
   local t=type(name)
diff --git a/tex/generic/context/luatex/luatex-fonts.lua b/tex/generic/context/luatex/luatex-fonts.lua
index b0f5aac3f..bef0b53a4 100644
--- a/tex/generic/context/luatex/luatex-fonts.lua
+++ b/tex/generic/context/luatex/luatex-fonts.lua
@@ -8,7 +8,7 @@ if not modules then modules = { } end modules ['luatex-fonts'] = {
 
 -- A merged file is generated with:
 --
---   mtxrun --script package --merge ./luatex-fonts.lua
+--   mtxrun --script package --merge luatex-fonts.lua
 --
 -- A needed resource file is made by:
 --
@@ -243,8 +243,9 @@ if non_generic_context.luatex_fonts.skip_loading ~= true then
 
         -- This is the bulk of opentype code.
 
-        loadmodule('font-oti.lua')
         loadmodule('font-otr.lua')
+        loadmodule('font-oti.lua')
+        loadmodule('font-ott.lua')
         loadmodule('font-cff.lua')
         loadmodule('font-ttf.lua')
         loadmodule('font-dsp.lua')