/*************************************************************
*
* Copyright (c) 2021-2022 The MathJax Consortium
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
/**
* @fileoverview Implements the elementary MathML3 support (experimental)
* using David Carlisle's XLST transform.
*
* @author dpvc@mathjax.org (Davide Cervone)
*/
import {MathItem} from '../../../core/MathItem.js';
import {MathDocument} from '../../../core/MathDocument.js';
import {Handler} from '../../../core/Handler.js';
import {OptionList} from '../../../util/Options.js';
import {createTransform} from './mml3-node.js';
import {MathML} from '../../mathml.js';
/**
* The data for a MathML prefilter.
*
* @template N The HTMLElement node class
* @template T The Text node class
* @template D The Document class
*/
export type FILTERDATA<N, T, D> = {math: MathItem<N, T, D>, document: MathDocument<N, T, D>, data: N};
/**
* Class that handles XSLT transform for MathML3 elementary math tags.
*/
export class Mml3<N, T, D> {
/**
* The XSLT transform as a string;
*/
public static XSLT: string; // added below (it is huge)
/**
* The function to convert serialized MathML using the XSLT.
* (Different for browser and node environments.)
*/
protected transform: (node: N, doc: MathDocument<N, T, D>) => N;
/**
* @param {MathDocument} document The MathDocument for the transformation
* @constructor
*/
constructor(document: MathDocument<N, T, D>) {
if (typeof XSLTProcessor === 'undefined') {
//
// For Node, get the trasnform from the external module
//
this.transform = createTransform();
} else {
//
// For in-browser use, use the browser's XSLTProcessor
//
const processor = new XSLTProcessor();
const parsed = document.adaptor.parse(Mml3.XSLT, 'text/xml') as any as Node;
processor.importStylesheet(parsed);
this.transform = (node: N) => {
const adaptor = document.adaptor;
const div = adaptor.node('div', {}, [adaptor.clone(node)]);
const mml = processor.transformToDocument(div as any as Node) as any as N;
return adaptor.tags(mml, 'math')[0];
};
}
}
/**
* The mathml filter for the MathML input jax
*
* @param {FILTERDATA} args The data from the pre-filter chain.
*/
public mmlFilter(args: FILTERDATA<N, T, D>) {
if (args.document.options.enableMml3) {
args.data = this.transform(args.data, args.document);
}
}
}
/**
* Add Mml3 support into the handler.
*/
export function Mml3Handler<N, T, D>(handler: Handler<N, T, D>): Handler<N, T, D> {
handler.documentClass = class extends handler.documentClass {
/**
* @override
*/
public static OPTIONS: OptionList = {
...handler.documentClass.OPTIONS,
enableMml3: true,
};
/**
* Add a prefilter to the MathML input jax, if there is one.
*
* @override
* @constructor
*/
constructor(...args: any[]) {
super(...args);
for (const jax of this.inputJax || []) {
if (jax.name === 'MathML') {
if (!jax.options._mml3) { // prevent filter being added twice (e.g., when a11y tools load)
const mml3 = new Mml3(this);
(jax as MathML<N, T, D>).mmlFilters.add(mml3.mmlFilter.bind(mml3));
jax.options._mml3 = true;
}
break;
}
}
}
};
return handler;
}
//
// The actual XSLT transform
//
Mml3.XSLT = `
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:m="http://www.w3.org/1998/Math/MathML"
xmlns:c="http://exslt.org/common"
exclude-result-prefixes="m c">
<xsl:output indent="yes" omit-xml-declaration="yes"/>
<xsl:output indent="yes" omit-xml-declaration="yes"/>
<xsl:template match="*">
<xsl:copy>
<xsl:copy-of select="@*"/>
<xsl:apply-templates/>
</xsl:copy>
</xsl:template>
<xsl:template match="m:*[@dir='rtl']" priority="10">
<xsl:apply-templates mode="rtl" select="."/>
</xsl:template>
<xsl:template match="@*" mode="rtl">
<xsl:copy-of select="."/>
<xsl:attribute name="dir">ltr</xsl:attribute>
</xsl:template>
<xsl:template match="*" mode="rtl">
<xsl:copy>
<xsl:apply-templates select="@*" mode="rtl"/>
<xsl:for-each select="node()">
<xsl:sort data-type="number" order="descending" select="position()"/>
<xsl:text> </xsl:text>
<xsl:apply-templates mode="rtl" select="."/>
</xsl:for-each>
</xsl:copy>
</xsl:template>
<xsl:template match="@open" mode="rtl">
<xsl:attribute name="close"><xsl:value-of select="."/></xsl:attribute>
</xsl:template>
<xsl:template match="@open[.='(']" mode="rtl">
<xsl:attribute name="close">)</xsl:attribute>
</xsl:template>
<xsl:template match="@open[.=')']" mode="rtl">
<xsl:attribute name="close">(</xsl:attribute>
</xsl:template>
<xsl:template match="@open[.='[']" mode="rtl">
<xsl:attribute name="close">]</xsl:attribute>
</xsl:template>
<xsl:template match="@open[.=']']" mode="rtl">
<xsl:attribute name="close">[</xsl:attribute>
</xsl:template>
<xsl:template match="@open[.='{']" mode="rtl">
<xsl:attribute name="close">}</xsl:attribute>
</xsl:template>
<xsl:template match="@open[.='}']" mode="rtl">
<xsl:attribute name="close">{</xsl:attribute>
</xsl:template>
<xsl:template match="@close" mode="rtl">
<xsl:attribute name="open"><xsl:value-of select="."/></xsl:attribute>
</xsl:template>
<xsl:template match="@close[.='(']" mode="rtl">
<xsl:attribute name="open">)</xsl:attribute>
</xsl:template>
<xsl:template match="@close[.=')']" mode="rtl">
<xsl:attribute name="open">(</xsl:attribute>
</xsl:template>
<xsl:template match="@close[.='[']" mode="rtl">
<xsl:attribute name="open">]</xsl:attribute>
</xsl:template>
<xsl:template match="@close[.=']']" mode="rtl">
<xsl:attribute name="open">[</xsl:attribute>
</xsl:template>
<xsl:template match="@close[.='{']" mode="rtl">
<xsl:attribute name="open">}</xsl:attribute>
</xsl:template>
<xsl:template match="@close[.='}']" mode="rtl">
<xsl:attribute name="open">{</xsl:attribute>
</xsl:template>
<xsl:template match="m:mfrac[@bevelled='true']" mode="rtl">
<m:mrow>
<m:msub><m:mi></m:mi><xsl:apply-templates select="*[2]" mode="rtl"/></m:msub>
<m:mo>\</m:mo>
<m:msup><m:mi></m:mi><xsl:apply-templates select="*[1]" mode="rtl"/></m:msup>
</m:mrow>
</xsl:template>
<xsl:template match="m:mfrac" mode="rtl">
<xsl:copy>
<xsl:apply-templates mode="rtl" select="@*|*"/>
</xsl:copy>
</xsl:template>
<xsl:template match="m:mroot" mode="rtl">
<m:msup>
<m:menclose notation="top right">
<xsl:apply-templates mode="rtl" select="@*|*[1]"/>
</m:menclose>
<xsl:apply-templates mode="rtl" select="*[2]"/>
</m:msup>
</xsl:template>
<xsl:template match="m:msqrt" mode="rtl">
<m:menclose notation="top right">
<xsl:apply-templates mode="rtl" select="@*|*[1]"/>
</m:menclose>
</xsl:template>
<xsl:template match="m:mtable|m:munder|m:mover|m:munderover" mode="rtl" priority="2">
<xsl:copy>
<xsl:apply-templates select="@*" mode="rtl"/>
<xsl:apply-templates mode="rtl">
</xsl:apply-templates>
</xsl:copy>
</xsl:template>
<xsl:template match="m:msup" mode="rtl" priority="2">
<m:mmultiscripts>
<xsl:apply-templates select="*[1]" mode="rtl"/>
<m:mprescripts/>
<m:none/>
<xsl:apply-templates select="*[2]" mode="rtl"/>
</m:mmultiscripts>
</xsl:template>
<xsl:template match="m:msub" mode="rtl" priority="2">
<m:mmultiscripts>
<xsl:apply-templates select="*[1]" mode="rtl"/>
<m:mprescripts/>
<xsl:apply-templates select="*[2]" mode="rtl"/>
<m:none/>
</m:mmultiscripts>
</xsl:template>
<xsl:template match="m:msubsup" mode="rtl" priority="2">
<m:mmultiscripts>
<xsl:apply-templates select="*[1]" mode="rtl"/>
<m:mprescripts/>
<xsl:apply-templates select="*[2]" mode="rtl"/>
<xsl:apply-templates select="*[3]" mode="rtl"/>
</m:mmultiscripts>
</xsl:template>
<xsl:template match="m:mmultiscripts" mode="rtl" priority="2">
<m:mmultiscripts>
<xsl:apply-templates select="*[1]" mode="rtl"/>
<xsl:for-each select="m:mprescripts/following-sibling::*[position() mod 2 = 1]">
<xsl:sort data-type="number" order="descending" select="position()"/>
<xsl:apply-templates select="." mode="rtl"/>
<xsl:apply-templates select="following-sibling::*[1]" mode="rtl"/>
</xsl:for-each>
<m:mprescripts/>
<xsl:for-each select="m:mprescripts/preceding-sibling::*[position()!=last()][position() mod 2 = 0]">
<xsl:sort data-type="number" order="descending" select="position()"/>
<xsl:apply-templates select="." mode="rtl"/>
<xsl:apply-templates select="following-sibling::*[1]" mode="rtl"/>
</xsl:for-each>
</m:mmultiscripts>
</xsl:template>
<xsl:template match="m:mmultiscripts[not(m:mprescripts)]" mode="rtl" priority="3">
<m:mmultiscripts>
<xsl:apply-templates select="*[1]" mode="rtl"/>
<m:mprescripts/>
<xsl:for-each select="*[position() mod 2 = 0]">
<xsl:sort data-type="number" order="descending" select="position()"/>
<xsl:apply-templates select="." mode="rtl"/>
<xsl:apply-templates select="following-sibling::*[1]" mode="rtl"/>
</xsl:for-each>
</m:mmultiscripts>
</xsl:template>
<xsl:template match="text()[.='(']" mode="rtl">)</xsl:template>
<xsl:template match="text()[.=')']" mode="rtl">(</xsl:template>
<xsl:template match="text()[.='{']" mode="rtl">}</xsl:template>
<xsl:template match="text()[.='}']" mode="rtl">{</xsl:template>
<xsl:template match="text()[.='<']" mode="rtl">></xsl:template>
<xsl:template match="text()[.='>']" mode="rtl"><</xsl:template>
<xsl:template match="text()[.='∈']" mode="rtl">∋</xsl:template>
<xsl:template match="text()[.='∋']" mode="rtl">∈</xsl:template>
<xsl:template match="@notation[.='radical']" mode="rtl">
<xsl:attribute name="notation">top right</xsl:attribute>
</xsl:template>
<xsl:template match="m:mlongdiv|m:mstack" mode="rtl">
<m:mrow dir="ltr">
<xsl:apply-templates select="."/>
</m:mrow>
</xsl:template>
<xsl:template match="m:mstack" priority="11">
<xsl:variable name="m">
<m:mtable columnspacing="0em" rowspacing="0em">
<xsl:copy-of select="@align"/>
<xsl:variable name="t">
<xsl:apply-templates select="*" mode="mstack1">
<xsl:with-param name="p" select="0"/>
</xsl:apply-templates>
</xsl:variable>
<xsl:variable name="maxl">
<xsl:for-each select="c:node-set($t)/*/@l">
<xsl:sort data-type="number" order="descending"/>
<xsl:if test="position()=1">
<xsl:value-of select="."/>
</xsl:if>
</xsl:for-each>
</xsl:variable>
<xsl:for-each select="c:node-set($t)/*[not(@class='mscarries') or following-sibling::*[1]/@class='mscarries']">
<xsl:variable name="c" select="preceding-sibling::*[1][@class='mscarries']"/>
<xsl:text> </xsl:text>
<m:mtr>
<xsl:copy-of select="@class[.='msline']"/>
<xsl:variable name="offset" select="$maxl - @l"/>
<xsl:choose>
<xsl:when test="@class='msline' and @l='*'">
<xsl:variable name="msl" select="*[1]"/>
<xsl:for-each select="(//node())[position()<=$maxl]">
<xsl:copy-of select="$msl"/>
</xsl:for-each>
</xsl:when>
<xsl:when test="$c">
<xsl:variable name="ldiff" select="$c/@l - @l"/>
<xsl:variable name="loffset" select="$maxl - $c/@l"/>
<xsl:for-each select="(//*)[position()<= $offset]">
<xsl:variable name="pn" select="position()"/>
<xsl:variable name="cy" select="$c/*[position()=$pn - $loffset]"/>
<m:mtd>
<xsl:if test="$cy/*">
<m:mover><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mpadded width="0em" lspace="-0.5width">
<xsl:copy-of select="$cy/*"/></m:mpadded></m:mover>
</xsl:if>
</m:mtd>
</xsl:for-each>
<xsl:for-each select="*">
<xsl:variable name="pn" select="position()"/>
<xsl:variable name="cy" select="$c/*[position()=$pn + $ldiff]"/>
<xsl:copy>
<xsl:copy-of select="@*"/>
<xsl:variable name="b">
<xsl:choose>
<xsl:when test="not(string($cy/@crossout) or $cy/@crossout='none')"><xsl:copy-of select="*"/></xsl:when>
<xsl:otherwise>
<m:menclose notation="{$cy/@crossout}"><xsl:copy-of select="*"/></m:menclose>
</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:choose>
<xsl:when test="$cy/m:none or not($cy/*)"><xsl:copy-of select="$b"/></xsl:when>
<xsl:when test="not(string($cy/@location)) or $cy/@location='n'">
<m:mover>
<xsl:copy-of select="$b"/><m:mpadded width="0em" lspace="-0.5width">
<xsl:copy-of select="$cy/*"/>
</m:mpadded>
</m:mover>
</xsl:when>
<xsl:when test="$cy/@location='nw'">
<m:mmultiscripts><xsl:copy-of select="$b"/><m:mprescripts/><m:none/><m:mpadded lspace="-1width" width="0em"><xsl:copy-of select="$cy/*"/></m:mpadded></m:mmultiscripts>
</xsl:when>
<xsl:when test="$cy/@location='s'">
<m:munder><xsl:copy-of select="$b"/><m:mpadded width="0em" lspace="-0.5width"><xsl:copy-of select="$cy/*"/></m:mpadded></m:munder>
</xsl:when>
<xsl:when test="$cy/@location='sw'">
<m:mmultiscripts><xsl:copy-of select="$b"/><m:mprescripts/><m:mpadded lspace="-1width" width="0em"><xsl:copy-of select="$cy/*"/></m:mpadded><m:none/></m:mmultiscripts>
</xsl:when>
<xsl:when test="$cy/@location='ne'">
<m:msup><xsl:copy-of select="$b"/><m:mpadded width="0em"><xsl:copy-of select="$cy/*"/></m:mpadded></m:msup>
</xsl:when>
<xsl:when test="$cy/@location='se'">
<m:msub><xsl:copy-of select="$b"/><m:mpadded width="0em"><xsl:copy-of select="$cy/*"/></m:mpadded></m:msub>
</xsl:when>
<xsl:when test="$cy/@location='w'">
<m:msup><m:mrow/><m:mpadded lspace="-1width" width="0em"><xsl:copy-of select="$cy/*"/></m:mpadded></m:msup>
<xsl:copy-of select="$b"/>
</xsl:when>
<xsl:when test="$cy/@location='e'">
<xsl:copy-of select="$b"/>
<m:msup><m:mrow/><m:mpadded width="0em"><xsl:copy-of select="$cy/*"/></m:mpadded></m:msup>
</xsl:when>
<xsl:otherwise>
<xsl:copy-of select="$b"/>
</xsl:otherwise>
</xsl:choose>
</xsl:copy>
</xsl:for-each>
</xsl:when>
<xsl:otherwise>
<xsl:for-each select="(//*)[position()<= $offset]"><m:mtd/></xsl:for-each>
<xsl:copy-of select="*"/>
</xsl:otherwise>
</xsl:choose>
</m:mtr>
</xsl:for-each>
</m:mtable>
</xsl:variable>
<xsl:apply-templates mode="ml" select="c:node-set($m)"/>
</xsl:template>
<xsl:template match="m:none" mode="ml">
<m:mrow/>
</xsl:template>
<xsl:template match="*" mode="ml">
<xsl:copy>
<xsl:copy-of select="@*"/>
<xsl:apply-templates mode="ml"/>
</xsl:copy>
</xsl:template>
<xsl:template mode="ml" match="m:mtr[following-sibling::*[1][@class='msline']]">
<m:mtr>
<xsl:copy-of select="@*"/>
<xsl:variable name="m" select="following-sibling::*[1]/m:mtd"/>
<xsl:for-each select="m:mtd">
<xsl:variable name="p" select="position()"/>
<m:mtd>
<xsl:copy-of select="@*"/>
<xsl:choose>
<xsl:when test="$m[$p]/m:mpadded">
<m:mpadded depth="+.2em">
<m:menclose notation="bottom">
<m:mpadded depth=".1em" height=".8em" width=".8em">
<m:mspace width=".15em"/>
<xsl:copy-of select="*"/>
</m:mpadded>
</m:menclose>
</m:mpadded>
</xsl:when>
<xsl:otherwise>
<xsl:copy-of select="*"/>
</xsl:otherwise>
</xsl:choose>
</m:mtd>
</xsl:for-each>
</m:mtr>
</xsl:template>
<xsl:template mode="ml" match="m:mtr[not(preceding-sibling::*)][@class='msline']" priority="3">
<m:mtr>
<xsl:copy-of select="@*"/>
<xsl:for-each select="m:mtd">
<m:mtd>
<xsl:copy-of select="@*"/>
<xsl:if test="m:mpadded">
<m:menclose notation="bottom">
<m:mpadded depth=".1em" height="1em" width=".5em">
<m:mspace width=".2em"/>
</m:mpadded>
</m:menclose>
</xsl:if>
</m:mtd>
</xsl:for-each>
</m:mtr>
</xsl:template>
<xsl:template mode="ml" match="m:mtr[@class='msline']" priority="2"/>
<xsl:template mode="mstack1" match="*">
<xsl:param name="p"/>
<xsl:param name="maxl" select="0"/>
<m:mtr l="{1 + $p}">
<xsl:if test="ancestor::mstack[1]/@stackalign='left'">
<xsl:attribute name="l"><xsl:value-of select="$p"/></xsl:attribute>
</xsl:if>
<m:mtd><xsl:apply-templates select="."/></m:mtd>
</m:mtr>
</xsl:template>
<xsl:template mode="mstack1" match="m:msrow">
<xsl:param name="p"/>
<xsl:param name="maxl" select="0"/>
<xsl:variable name="align1" select="ancestor::m:mstack[1]/@stackalign"/>
<xsl:variable name="align">
<xsl:choose>
<xsl:when test="string($align1)=''">decimalpoint</xsl:when>
<xsl:otherwise><xsl:value-of select="$align1"/></xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:variable name="row">
<xsl:apply-templates mode="mstack1" select="*">
<xsl:with-param name="p" select="0"/>
</xsl:apply-templates>
</xsl:variable>
<xsl:text> </xsl:text>
<xsl:variable name="l1">
<xsl:choose>
<xsl:when test="$align='decimalpoint' and m:mn">
<xsl:for-each select="c:node-set($row)/m:mtr[m:mtd/m:mn][1]">
<xsl:value-of select="number(sum(@l))+count(preceding-sibling::*/@l)"/>
</xsl:for-each>
</xsl:when>
<xsl:when test="$align='right' or $align='decimalpoint'">
<xsl:value-of select="count(c:node-set($row)/m:mtr/m:mtd)"/>
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="0"/>
</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<m:mtr class="msrow" l="{number($l1) + number(sum(@position)) +$p}">
<xsl:copy-of select="c:node-set($row)/m:mtr/*"/>
</m:mtr>
</xsl:template>
<xsl:template mode="mstack1" match="m:mn">
<xsl:param name="p"/>
<xsl:variable name="align1" select="ancestor::m:mstack[1]/@stackalign"/>
<xsl:variable name="dp1" select="ancestor::*[@decimalpoint][1]/@decimalpoint"/>
<xsl:variable name="align">
<xsl:choose>
<xsl:when test="string($align1)=''">decimalpoint</xsl:when>
<xsl:otherwise><xsl:value-of select="$align1"/></xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:variable name="dp">
<xsl:choose>
<xsl:when test="string($dp1)=''">.</xsl:when>
<xsl:otherwise><xsl:value-of select="$dp1"/></xsl:otherwise>
</xsl:choose>
</xsl:variable>
<m:mtr l="$p">
<xsl:variable name="mn" select="normalize-space(.)"/>
<xsl:variable name="len" select="string-length($mn)"/>
<xsl:choose>
<xsl:when test="$align='right' or ($align='decimalpoint' and not(contains($mn,$dp)))">
<xsl:attribute name="l"><xsl:value-of select="$p + $len"/></xsl:attribute>
</xsl:when>
<xsl:when test="$align='center'">
<xsl:attribute name="l"><xsl:value-of select="round(($p + $len) div 2)"/></xsl:attribute>
</xsl:when>
<xsl:when test="$align='decimalpoint'">
<xsl:attribute name="l"><xsl:value-of select="$p + string-length(substring-before($mn,$dp))"/></xsl:attribute>
</xsl:when>
</xsl:choose>
<xsl:for-each select="(//node())[position() <=$len]">
<xsl:variable name="pos" select="position()"/>
<xsl:variable name="digit" select="substring($mn,$pos,1)"/>
<m:mtd>
<xsl:if test="$digit='.' or $digit=','">
<m:mspace width=".15em"/>
</xsl:if>
<m:mn><xsl:value-of select="$digit"/></m:mn>
</m:mtd>
</xsl:for-each>
</m:mtr>
</xsl:template>
<xsl:template match="m:msgroup" mode="mstack1">
<xsl:param name="p"/>
<xsl:variable name="s" select="number(sum(@shift))"/>
<xsl:variable name="thisp" select="number(sum(@position))"/>
<xsl:for-each select="*">
<xsl:apply-templates mode="mstack1" select=".">
<xsl:with-param name="p" select="number($p)+$thisp+(position()-1)*$s"/>
</xsl:apply-templates>
</xsl:for-each>
</xsl:template>
<xsl:template match="m:msline" mode="mstack1">
<xsl:param name="p"/>
<xsl:variable name="align1" select="ancestor::m:mstack[1]/@stackalign"/>
<xsl:variable name="align">
<xsl:choose>
<xsl:when test="string($align1)=''">decimalpoint</xsl:when>
<xsl:otherwise><xsl:value-of select="$align1"/></xsl:otherwise>
</xsl:choose>
</xsl:variable>
<m:mtr class="msline">
<xsl:attribute name="l">
<xsl:choose>
<xsl:when test="not(string(@length)) or @length=0">*</xsl:when>
<xsl:when test="string($align)='right' or string($align)='decimalpoint' "><xsl:value-of select="$p+ @length"/></xsl:when>
<xsl:otherwise><xsl:value-of select="$p"/></xsl:otherwise>
</xsl:choose>
</xsl:attribute>
<xsl:variable name="w">
<xsl:choose>
<xsl:when test="@mslinethickness='thin'">0.1em</xsl:when>
<xsl:when test="@mslinethickness='medium'">0.15em</xsl:when>
<xsl:when test="@mslinethickness='thick'">0.2em</xsl:when>
<xsl:when test="@mslinethickness"><xsl:value-of select="@mslinethickness"/></xsl:when>
<xsl:otherwise>0.15em</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:choose>
<xsl:when test="not(string(@length)) or @length=0">
<m:mtd class="mslinemax">
<m:mpadded lspace="-0.2em" width="0em" height="0em">
<m:mfrac linethickness="{$w}">
<m:mspace width=".5em"/>
<m:mrow/>
</m:mfrac>
</m:mpadded>
</m:mtd>
</xsl:when>
<xsl:otherwise>
<xsl:variable name="l" select="@length"/>
<xsl:for-each select="(//node())[position()<=$l]">
<m:mtd class="msline">
<m:mpadded lspace="-0.2em" width="0em" height="0em">
<m:mfrac linethickness="{$w}">
<m:mspace width=".5em"/>
<m:mrow/>
</m:mfrac>
</m:mpadded>
</m:mtd>
</xsl:for-each>
</xsl:otherwise>
</xsl:choose>
</m:mtr>
</xsl:template>
<xsl:template match="m:mscarries" mode="mstack1">
<xsl:param name="p"/>
<xsl:variable name="align1" select="ancestor::m:mstack[1]/@stackalign"/>
<xsl:variable name="l1">
<xsl:choose>
<xsl:when test="string($align1)='left'">0</xsl:when>
<xsl:otherwise><xsl:value-of select="count(*)"/></xsl:otherwise>
</xsl:choose>
</xsl:variable>
<m:mtr class="mscarries" l="{$p + $l1 + sum(@position)}">
<xsl:apply-templates select="*" mode="msc"/>
</m:mtr>
</xsl:template>
<xsl:template match="*" mode="msc">
<m:mtd>
<xsl:copy-of select="../@location|../@crossout"/>
<xsl:choose>
<xsl:when test="../@scriptsizemultiplier">
<m:mstyle mathsize="{round(../@scriptsizemultiplier div .007)}%">
<xsl:apply-templates select="."/>
</m:mstyle>
</xsl:when>
<xsl:otherwise>
<xsl:apply-templates select="."/>
</xsl:otherwise>
</xsl:choose>
</m:mtd>
</xsl:template>
<xsl:template match="m:mscarry" mode="msc">
<m:mtd>
<xsl:copy-of select="@location|@crossout"/>
<xsl:choose>
<xsl:when test="../@scriptsizemultiplier">
<m:mstyle mathsize="{round(../@scriptsizemultiplier div .007)}%">
<xsl:apply-templates/>
</m:mstyle>
</xsl:when>
<xsl:otherwise>
<xsl:apply-templates/>
</xsl:otherwise>
</xsl:choose>
</m:mtd>
</xsl:template>
<xsl:template match="m:mlongdiv" priority="11">
<xsl:variable name="ms">
<m:mstack>
<xsl:copy-of select="(ancestor-or-self::*/@decimalpoint)[last()]"/>
<xsl:choose>
<xsl:when test="@longdivstyle='left)(right'">
<m:msrow>
<m:mrow><xsl:copy-of select="*[1]"/></m:mrow>
<m:mo>)</m:mo>
<xsl:copy-of select="*[3]"/>
<m:mo>(</m:mo>
<xsl:copy-of select="*[2]"/>
</m:msrow>
</xsl:when>
<xsl:when test="@longdivstyle='left/\right'">
<m:msrow>
<m:mrow><xsl:copy-of select="*[1]"/></m:mrow>
<m:mo>/</m:mo>
<xsl:copy-of select="*[3]"/>
<m:mo>\</m:mo>
<xsl:copy-of select="*[2]"/>
</m:msrow>
</xsl:when>
<xsl:when test="@longdivstyle=':right=right'">
<m:msrow>
<xsl:copy-of select="*[3]"/>
<m:mo>:</m:mo>
<xsl:copy-of select="*[1]"/>
<m:mo>=</m:mo>
<xsl:copy-of select="*[2]"/>
</m:msrow>
</xsl:when>
<xsl:when test="@longdivstyle='stackedrightright'
or @longdivstyle='mediumstackedrightright'
or @longdivstyle='shortstackedrightright'
or @longdivstyle='stackedleftleft'
">
<xsl:attribute name="align">top</xsl:attribute>
<xsl:copy-of select="*[3]"/>
</xsl:when>
<xsl:when test="@longdivstyle='stackedleftlinetop'">
<xsl:copy-of select="*[2]"/>
<m:msline length="{string-length(*[3])}"/>
<m:msrow>
<m:mrow>
<m:menclose notation="bottom right">
<xsl:copy-of select="*[1]"/>
</m:menclose>
</m:mrow>
<xsl:copy-of select="*[3]"/>
</m:msrow>
</xsl:when>
<xsl:when test="@longdivstyle='righttop'">
<xsl:copy-of select="*[2]"/>
<m:msline length="{string-length(*[3])}"/>
<m:msrow>
<xsl:copy-of select="*[3]"/>
<m:menclose notation="top left bottom">
<xsl:copy-of select="*[1]"/></m:menclose>
</m:msrow>
</xsl:when>
<xsl:otherwise>
<xsl:copy-of select="*[2]"/>
<m:msline length="{string-length(*[3])+1}"/>
<m:msrow>
<m:mrow><xsl:copy-of select="*[1]"/><m:mspace width=".2em"/></m:mrow>
<m:mpadded voffset=".1em" lspace="-.15em" depth="-.2em" height="-.2em">
<m:mo minsize="1.2em">)</m:mo>
</m:mpadded>
<xsl:copy-of select="*[3]"/>
</m:msrow>
</xsl:otherwise>
</xsl:choose>
<xsl:copy-of select="*[position()>3]"/>
</m:mstack>
</xsl:variable>
<xsl:choose>
<xsl:when test="@longdivstyle='stackedrightright'">
<m:menclose notation="right">
<xsl:apply-templates select="c:node-set($ms)"/>
</m:menclose>
<m:mtable align="top">
<m:mtr>
<m:menclose notation="bottom">
<xsl:copy-of select="*[1]"/>
</m:menclose>
</m:mtr>
<m:mtr>
<mtd><xsl:copy-of select="*[2]"/></mtd>
</m:mtr>
</m:mtable>
</xsl:when>
<xsl:when test="@longdivstyle='mediumstackedrightright'">
<xsl:apply-templates select="c:node-set($ms)"/>
<m:menclose notation="left">
<m:mtable align="top">
<m:mtr>
<m:menclose notation="bottom">
<xsl:copy-of select="*[1]"/>
</m:menclose>
</m:mtr>
<m:mtr>
<mtd><xsl:copy-of select="*[2]"/></mtd>
</m:mtr>
</m:mtable>
</m:menclose>
</xsl:when>
<xsl:when test="@longdivstyle='shortstackedrightright'">
<xsl:apply-templates select="c:node-set($ms)"/>
<m:mtable align="top">
<m:mtr>
<m:menclose notation="left bottom">
<xsl:copy-of select="*[1]"/>
</m:menclose>
</m:mtr>
<m:mtr>
<mtd><xsl:copy-of select="*[2]"/></mtd>
</m:mtr>
</m:mtable>
</xsl:when>
<xsl:when test="@longdivstyle='stackedleftleft'">
<m:mtable align="top">
<m:mtr>
<m:menclose notation="bottom">
<xsl:copy-of select="*[1]"/>
</m:menclose>
</m:mtr>
<m:mtr>
<mtd><xsl:copy-of select="*[2]"/></mtd>
</m:mtr>
</m:mtable>
<m:menclose notation="left">
<xsl:apply-templates select="c:node-set($ms)"/>
</m:menclose>
</xsl:when>
<xsl:otherwise>
<xsl:apply-templates select="c:node-set($ms)"/>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template match="m:menclose[@notation='madruwb']" mode="rtl">
<m:menclose notation="bottom right">
<xsl:apply-templates mode="rtl"/>
</m:menclose>
</xsl:template>
</xsl:stylesheet>
`;