78.14 Math

<..context core-mat..>
 \def\:tempc#1#2#3{\relax\mathematics{{\a:frac{#1{#2}}\b:frac
                                  \over\c:frac{#1{#3}}\d:frac}}}
 \HLet\dofrac\:tempc
 \NewConfigure{frac}{4}
 -_-_-

<..context core-mat..>+
 \let\normalreqno\eqno
 \let\normalleqno\leqno
 -_-_-

(#1,#2)=outer(ref,sub) (#3,#4)=inner(ref,sub)

<..context core-mat..>+
 \def\:tempc#1#2#3#4{%
    \a:formulenummer
       \o:dododoformulenummer:{#1}{#2}{#3}{#4}%
    \b:formulenummer}
 \HLet\dododoformulenummer\:tempc
 
 \NewConfigure{formulenummer}{2}
 \Configure{formulenummer}
     {\HCode{<span class="formulenummer">}}
     {\HCode{</span>}}
 \Css{.formulenummer {width:20\%; float:right;}}
 -_-_-

<..context core-mat..>+
 \pend:def\startdisplaymath{\a:displaymath}
 \append:def\stopdisplaymath{\b:displaymath}
 \NewConfigure{displaymath}{2}
 \Configure{displaymath}
    {\ifvmode \IgnorePar\fi \EndP \HCode{<div class="displaymath">}}
    {\ifvmode \IgnorePar\fi \EndP \HCode{</div>}}
 \Css{div.displaymath {text-align:center;}}
 -_-_-

<..context core-mat..>+
 \NewConfigure{-@@fm}{2}
 -_-_-

<..context core-mat..>+
 \def\:tempc#1%
   {\ifmmode
     \displ@y
     \global\chardef\mathnumberstatus\plusone
      %
      \vcenter\bgroup
      \def\finishalignno{\f:mtable\d:mtable\b:mtable\crcr
                         \egroup\egroup}%
    \else
      \def\finishalignno{\f:mtable\d:mtable\b:mtable\crcr
                         \egroup}%
    \fi
    #1%
    \TeXhalign \@EA \bgroup \the\scratchtoks\crcr}
 \HLet\dobothaligneqalignno\:tempc
 -_-_-

<..context core-mat..>+
 \let\:tempc\dointertext
 \pend:defI\:tempc{\a:intertext}
 \append:defI\:tempc{\b:intertext}
 \HLet\dointertext\:tempc
 \NewConfigure{intertext}{2}
 -_-_-

<..context core-mat..>+
 \def\:tempc[#1][#2]%
   {%
    \expandafter\ifx \csname a:#1\endcsname\relax
       \Configure{mtable}
          {\a:mathalignment}
          {\b:mathalignment}
          {\c:mathalignment}
          {\d:mathalignment}
          {\e:mathalignment}
          {\f:mathalignment}%
    \else
       \Configure{mtable}
          {\csname a:#1\endcsname}
          {\csname b:#1\endcsname}
          {\csname c:#1\endcsname}
          {\csname d:#1\endcsname}
          {\csname e:#1\endcsname}
          {\csname f:#1\endcsname}%
    \fi
    \pushmacro\doalignNC
    \edef\currentmathalignment{#1}%
    \doifassignmentelse{#2}{\setupmathalignment[#1][#2]}\donothing
    \def\NC{\doalignNC }%
    \global\let\doalignNC\dodoalignNC
    \def\EQ{\HCode{<!--??? 1-->}&=}%
    \def\NR{\f:mtable&\e:mtable \global\let\doalignNC \dodoalignNC
                      \doxxdoubleempty\doalignNR}%
    %
    \def\notag{\def\\{\HCode{<!--??? 2-->}&\crcr}}%
    \doifelse{#2}{*}{\def\\{\HCode{<!--??? 3-->}&\crcr}}%
                    {\def\\{\HCode{<!--??? 4-->}&\doalignNR[+][]\crcr}}%
    %
    \eqaligncolumn\zerocount
    \a:mtable \c:mtable \e:mtable
    \processcommacommand
      [\mathalignmentparameter\c!align]
      {\advance\eqaligncolumn\plusone\doseteqaligncolumn}% takes argument
    %
    \global\eqaligncolumn\plusone
    \numberedeqalign}
 \HLet\dostartmathalignment\:tempc
 -_-_-

<..context core-mat..>+
 \def\:tempc{\gdef\doalignNC##1{\f:mtable&\e:mtable ##1}}
 \HLet\dodoalignNC\:tempc
 \def\:tempc[#1][#2]%
   {\donestedformulanumber{#1}{#2}\f:mtable\d:mtable
                                  \c:mtable\e:mtable\crcr}
 \HLet\doalignNR\:tempc
 \NewConfigure{mtable}{6}
 \NewConfigure{mathalignment}{6}
 -_-_-