% engine=luatex

% \startluacode
% local tfm = fonts.tfm
% function tfm.remap(tfmdata,remapping)
%     local vector = remapping and fonts.enc.remappings[remapping]
%     if vector then
%         local characters, original = tfmdata.characters, { }
%         for k, v in pairs(characters) do
%             original[k], characters[k] = v, nil
%         end
%         for k,v in pairs(vector) do
%             if k ~= v then
%                 if fonts.trace then
%                     logs.report("define font","remapping %04X to %04X",k,v)
%                 end
%                 local c = original[k]
%                 characters[v] = c
%                 c.index = k
%                 print(k)
%             end
%         end
%         tfmdata.encodingbytes = 2
%         tfmdata.format = 'type1'
%     end
% end
% fonts.initializers.base.tfm.remap = tfm.remap
% fonts.initializers.node.tfm.remap = tfm.remap
% \stopluacode

\startluacode
fonts.enc.remappings['tex-default-sy'] = {
   [0x5B] = 0x222A,
   [0x5C] = 0x2229,
}

mathematics.setmathcharacter(0x2229,"ord","sy",0x2229)
mathematics.setmathcharacter(0x222A,"ord","sy",0x222A)
\stopluacode

\starttypescript [math] [modern,latin-modern]
    \definefontsynonym [LMMathRoman5-Regular]      [rm-lmr5]
    \definefontsynonym [LMMathRoman6-Regular]      [rm-lmr6]
    \definefontsynonym [LMMathRoman7-Regular]      [rm-lmr7]
    \definefontsynonym [LMMathRoman8-Regular]      [rm-lmr8]
    \definefontsynonym [LMMathRoman9-Regular]      [rm-lmr9]
    \definefontsynonym [LMMathRoman10-Regular]     [rm-lmr10]
    \definefontsynonym [LMMathRoman12-Regular]     [rm-lmr12]
    \definefontsynonym [LMMathRoman17-Regular]     [rm-lmr17]
    \definefontsynonym [LMMathRoman5-Bold]         [rm-lmbx5]
    \definefontsynonym [LMMathRoman6-Bold]         [rm-lmbx6]
    \definefontsynonym [LMMathRoman7-Bold]         [rm-lmbx7]
    \definefontsynonym [LMMathRoman8-Bold]         [rm-lmbx8]
    \definefontsynonym [LMMathRoman9-Bold]         [rm-lmbx9]
    \definefontsynonym [LMMathRoman10-Bold]        [rm-lmbx10]
    \definefontsynonym [LMMathRoman12-Bold]        [rm-lmbx12]
    \definefontsynonym [LMMathSymbols5-BoldItalic] [lmbsy5*symath]
    \definefontsynonym [LMMathSymbols7-BoldItalic] [lmbsy7*symath]
    \definefontsynonym [LMMathSymbols10-BoldItalic][lmbsy10*symath]
    \definefontsynonym [LMMathSymbols5-Italic]     [lmsy5*symath]
    \definefontsynonym [LMMathSymbols6-Italic]     [lmsy6*symath]
    \definefontsynonym [LMMathSymbols7-Italic]     [lmsy7*symath]
    \definefontsynonym [LMMathSymbols8-Italic]     [lmsy8] % *symath]
    \definefontsynonym [LMMathSymbols9-Italic]     [lmsy9*symath]
    \definefontsynonym [LMMathSymbols10-Italic]    [lmsy10*symath]
    \definefontsynonym [LMMathExtension10-Regular] [lmex10]
    \definefontsynonym [LMMathItalic5-Italic]      [lmmi5]
    \definefontsynonym [LMMathItalic6-Italic]      [lmmi6]
    \definefontsynonym [LMMathItalic7-Italic]      [lmmi7]
    \definefontsynonym [LMMathItalic8-Italic]      [lmmi8]
    \definefontsynonym [LMMathItalic9-Italic]      [lmmi9]
    \definefontsynonym [LMMathItalic10-Italic]     [lmmi10]
    \definefontsynonym [LMMathItalic12-Italic]     [lmmi12]
    \definefontsynonym [LMMathItalic5-BoldItalic]  [lmmib5]
    \definefontsynonym [LMMathItalic7-BoldItalic]  [lmmib7]
    \definefontsynonym [LMMathItalic10-BoldItalic] [lmmib10]

    \loadmapfile[lm-math.map]
    \loadmapfile[lm-rm.map]
\stoptypescript

\definefontfeature[symath][remap=tex-default-sy]

% \definefontfallback [texmath] [ComputerModernMath-Italic] [0x0000-0xFFFF] [force=yes]
% \definefontfallback [texmath] [AMS-SymbolA]               [0x0000-0xFFFF] [force=yes]
% \definefontfallback [texmath] [AMS-SymbolB]               [0x0000-0xFFFF] [force=yes]

\starttext

\definetypeface[myface][rm][serif][modern][default]
\definetypeface[myface][ss][sans] [modern][default]
\definetypeface[myface][tt][mono] [modern][default]
\definetypeface[myface][mm][math] [modern][default]

\setupbodyfont[myface]

\noheaderandfooterlines $\utfchar{"222A}\utfchar{"2229}^{\utfchar{"222A}\utfchar{"2229}}$

\showfont[lmsy8]

\stoptext