You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2069 lines
91 KiB
2069 lines
91 KiB
|
5 months ago
|
<?xml version="1.0" encoding="UTF-8" ?>
|
||
|
|
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:mml="http://www.w3.org/1998/Math/MathML"
|
||
|
|
xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math">
|
||
|
|
<xsl:output method="xml" encoding="UTF-16" />
|
||
|
|
|
||
|
|
<!-- %% Global Definitions -->
|
||
|
|
|
||
|
|
<!-- Every single unicode character that is recognized by OMML as an operator -->
|
||
|
|
<xsl:variable name="sOperators"
|
||
|
|
select="concat(
|
||
|
|
'¨!"#&()+,-./:',
|
||
|
|
';<=>?@[\]^_`{',
|
||
|
|
'|}~¡¦¬¯°±²³´·¹¿',
|
||
|
|
'×~÷ˇ˘˙˜˝̀́̂̃̄̅̆̇̈̉',
|
||
|
|
'̊̋̌̍̎̏̐̑̒̓̔̕',
|
||
|
|
'̡̛̖̗̘̙̜̝̞̟̠̚',
|
||
|
|
'̢̧̨̣̤̥̦̩̪̫̬̭',
|
||
|
|
'̴̵̶̷̸̮̯̰̱̲̳̿',
|
||
|
|
'         ‐‒–',
|
||
|
|
'—‖†‡•․‥…′″‴‼',
|
||
|
|
'⁀⁄⁎⁏⁐⁗⁡⁢⁣⁰⁴⁵',
|
||
|
|
'⁶⁷⁸⁹⁺⁻⁼⁽⁾₀₁₂',
|
||
|
|
'₃₄₅₆₇₈₉₊₋₌₍₎',
|
||
|
|
'⃒⃓⃘⃙⃚⃐⃑⃔⃕⃖⃗⃛',
|
||
|
|
'⃜⃝⃞⃟⃠⃡⃤⃥⃦⃨⃧⃩',
|
||
|
|
'⃪⅀ⅆ←↑→↓↔↕↖↗↘↙',
|
||
|
|
'↚↛↜↝↞↟↠↡↢↣↤↥',
|
||
|
|
'↦↧↨↩↪↫↬↭↮↯↰↱',
|
||
|
|
'↲↳↶↷↺↻↼↽↾↿⇀⇁',
|
||
|
|
'⇂⇃⇄⇅⇆⇇⇈⇉⇊⇋⇌⇍',
|
||
|
|
'⇎⇏⇐⇑⇒⇓⇔⇕⇖⇗⇘⇙',
|
||
|
|
'⇚⇛⇜⇝⇞⇟⇠⇡⇢⇣⇤⇥',
|
||
|
|
'⇦⇧⇨⇩⇳⇴⇵⇶⇷⇸⇹⇺',
|
||
|
|
'⇻⇼⇽⇾⇿∀∁∂∃∄∆∇',
|
||
|
|
'∈∉∊∋∌∍∏∐∑−∓∔',
|
||
|
|
'∕∖∗∘∙√∛∜∝∣∤∥',
|
||
|
|
'∦∧∨∩∪∫∬∭∮∯∰∱',
|
||
|
|
'∲∳∴∵∶∷∸∹∺∻∼∽',
|
||
|
|
'∾≀≁≂≃≄≅≆≇≈≉≊',
|
||
|
|
'≋≌≍≎≏≐≑≒≓≔≕≖',
|
||
|
|
'≗≘≙≚≛≜≝≞≟≠≡≢',
|
||
|
|
'≣≤≥≦≧≨≩≪≫≬≭≮',
|
||
|
|
'≯≰≱≲≳≴≵≶≷≸≹≺',
|
||
|
|
'≻≼≽≾≿⊀⊁⊂⊃⊄⊅⊆',
|
||
|
|
'⊇⊈⊉⊊⊋⊌⊍⊎⊏⊐⊑⊒',
|
||
|
|
'⊓⊔⊕⊖⊗⊘⊙⊚⊛⊜⊝⊞',
|
||
|
|
'⊟⊠⊡⊢⊣⊥⊦⊧⊨⊩⊪⊫',
|
||
|
|
'⊬⊭⊮⊯⊰⊱⊲⊳⊴⊵⊶⊷',
|
||
|
|
'⊸⊹⊺⊻⊼⊽⋀⋁⋂⋃⋄⋅',
|
||
|
|
'⋆⋇⋈⋉⋊⋋⋌⋍⋎⋏⋐⋑',
|
||
|
|
'⋒⋓⋔⋕⋖⋗⋘⋙⋚⋛⋜⋝',
|
||
|
|
'⋞⋟⋠⋡⋢⋣⋤⋥⋦⋧⋨⋩',
|
||
|
|
'⋪⋫⋬⋭⋮⋯⋰⋱⋲⋳⋴⋵',
|
||
|
|
'⋶⋷⋸⋹⋺⋻⋼⋽⋾⋿⌅⌆',
|
||
|
|
'⌈⌉⌊⌋⌜⌝⌞⌟⌢⌣〈〉',
|
||
|
|
'⌽⌿⎰⎱⏜⏝⏞⏟⏠│├┤',
|
||
|
|
'┬┴▁█▒■□▭▲△▴▵',
|
||
|
|
'▶▷▸▹▼▽▾▿◀◁◂◃',
|
||
|
|
'◄◅◊○◦◫◬◸◹◺◻◼',
|
||
|
|
'◽◾◿★☆❲❳⟑⟒⟓⟔⟕',
|
||
|
|
'⟖⟗⟘⟙⟚⟛⟜⟝⟞⟟⟠⟡',
|
||
|
|
'⟢⟣⟤⟥⟦⟧⟨⟩⟪⟫⟰⟱',
|
||
|
|
'⟲⟳⟴⟵⟶⟷⟸⟹⟺⟻⟼⟽',
|
||
|
|
'⟾⟿⤀⤁⤂⤃⤄⤅⤆⤇⤈⤉',
|
||
|
|
'⤊⤋⤌⤍⤎⤏⤐⤑⤒⤓⤔⤕',
|
||
|
|
'⤖⤗⤘⤙⤚⤛⤜⤝⤞⤟⤠⤡',
|
||
|
|
'⤢⤣⤤⤥⤦⤧⤨⤩⤪⤫⤬⤭',
|
||
|
|
'⤮⤯⤰⤱⤲⤳⤴⤵⤶⤷⤸⤹',
|
||
|
|
'⤺⤻⤼⤽⤾⤿⥀⥁⥂⥃⥄⥅',
|
||
|
|
'⥆⥇⥈⥉⥊⥋⥌⥍⥎⥏⥐⥑',
|
||
|
|
'⥒⥓⥔⥕⥖⥗⥘⥙⥚⥛⥜⥝',
|
||
|
|
'⥞⥟⥠⥡⥢⥣⥤⥥⥦⥧⥨⥩',
|
||
|
|
'⥪⥫⥬⥭⥮⥯⥰⥱⥲⥳⥴⥵',
|
||
|
|
'⥶⥷⥸⥹⥺⥻⥼⥽⥾⥿⦀⦂',
|
||
|
|
'⦃⦄⦅⦆⦇⦈⦉⦊⦋⦌⦍⦎',
|
||
|
|
'⦏⦐⦑⦒⦓⦔⦕⦖⦗⦘⦙⦚',
|
||
|
|
'⦶⦷⦸⦹⧀⧁⧄⧅⧆⧇⧈⧎',
|
||
|
|
'⧏⧐⧑⧒⧓⧔⧕⧖⧗⧘⧙⧚',
|
||
|
|
'⧛⧟⧡⧢⧣⧤⧥⧦⧫⧴⧵⧶',
|
||
|
|
'⧷⧸⧹⧺⧻⧼⧽⧾⧿⨀⨁⨂',
|
||
|
|
'⨃⨄⨅⨆⨇⨈⨉⨊⨋⨌⨍⨎',
|
||
|
|
'⨏⨐⨑⨒⨓⨔⨕⨖⨗⨘⨙⨚',
|
||
|
|
'⨛⨜⨝⨞⨟⨠⨡⨢⨣⨤⨥⨦',
|
||
|
|
'⨧⨨⨩⨪⨫⨬⨭⨮⨯⨰⨱⨲',
|
||
|
|
'⨳⨴⨵⨶⨷⨸⨹⨺⨻⨼⨽⨾',
|
||
|
|
'⨿⩀⩁⩂⩃⩄⩅⩆⩇⩈⩉⩊',
|
||
|
|
'⩋⩌⩍⩎⩏⩐⩑⩒⩓⩔⩕⩖',
|
||
|
|
'⩗⩘⩙⩚⩛⩜⩝⩞⩟⩠⩡⩢',
|
||
|
|
'⩣⩤⩥⩦⩧⩨⩩⩪⩫⩬⩭⩮',
|
||
|
|
'⩯⩰⩱⩲⩳⩴⩵⩶⩷⩸⩹⩺',
|
||
|
|
'⩻⩼⩽⩾⩿⪀⪁⪂⪃⪄⪅⪆',
|
||
|
|
'⪇⪈⪉⪊⪋⪌⪍⪎⪏⪐⪑⪒',
|
||
|
|
'⪓⪔⪕⪖⪗⪘⪙⪚⪛⪜⪝⪞',
|
||
|
|
'⪟⪠⪡⪢⪣⪤⪥⪦⪧⪨⪩⪪',
|
||
|
|
'⪫⪬⪭⪮⪯⪰⪱⪲⪳⪴⪵⪶',
|
||
|
|
'⪷⪸⪹⪺⪻⪼⪽⪾⪿⫀⫁⫂',
|
||
|
|
'⫃⫄⫅⫆⫇⫈⫉⫊⫋⫌⫍⫎',
|
||
|
|
'⫏⫐⫑⫒⫓⫔⫕⫖⫗⫘⫙⫚',
|
||
|
|
'⫛⫝̸⫝⫞⫟⫠⫢⫣⫤⫥⫦⫧',
|
||
|
|
'⫨⫩⫪⫫⫬⫭⫮⫯⫰⫲⫳⫴',
|
||
|
|
'⫵⫶⫷⫸⫹⫺⫻⫼⫽⫾⫿⬄',
|
||
|
|
'⬆⬇⬌⬍〔〕〖〗〘〙!&',
|
||
|
|
'()+,-./:;<=>',
|
||
|
|
'?@[\]^_{|}')" />
|
||
|
|
|
||
|
|
<!-- A string of '-'s repeated exactly as many times as the operators above -->
|
||
|
|
<xsl:variable name="sMinuses">
|
||
|
|
<xsl:call-template name="SRepeatChar">
|
||
|
|
<xsl:with-param name="cchRequired" select="string-length($sOperators)" />
|
||
|
|
<xsl:with-param name="ch" select="'-'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<!-- Every single unicode character that is recognized by OMML as a number -->
|
||
|
|
<xsl:variable name="sNumbers" select="'0123456789'" />
|
||
|
|
|
||
|
|
<!-- A string of '0's repeated exactly as many times as the list of numbers above -->
|
||
|
|
<xsl:variable name="sZeros">
|
||
|
|
<xsl:call-template name="SRepeatChar">
|
||
|
|
<xsl:with-param name="cchRequired" select="string-length($sNumbers)" />
|
||
|
|
<xsl:with-param name="ch" select="'0'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<!-- %%Template: SReplace
|
||
|
|
|
||
|
|
Replace all occurences of sOrig in sInput with sReplacement
|
||
|
|
and return the resulting string. -->
|
||
|
|
<xsl:template name="SReplace">
|
||
|
|
<xsl:param name="sInput" />
|
||
|
|
<xsl:param name="sOrig" />
|
||
|
|
<xsl:param name="sReplacement" />
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="not(contains($sInput, $sOrig))">
|
||
|
|
<xsl:value-of select="$sInput" />
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:variable name="sBefore" select="substring-before($sInput, $sOrig)" />
|
||
|
|
<xsl:variable name="sAfter" select="substring-after($sInput, $sOrig)" />
|
||
|
|
<xsl:variable name="sAfterProcessed">
|
||
|
|
<xsl:call-template name="SReplace">
|
||
|
|
<xsl:with-param name="sInput" select="$sAfter" />
|
||
|
|
<xsl:with-param name="sOrig" select="$sOrig" />
|
||
|
|
<xsl:with-param name="sReplacement" select="$sReplacement" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:value-of select="concat($sBefore, concat($sReplacement, $sAfterProcessed))" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- Templates -->
|
||
|
|
<xsl:template match="/">
|
||
|
|
<mml:math>
|
||
|
|
<xsl:apply-templates select="*" />
|
||
|
|
</mml:math>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:borderBox">
|
||
|
|
|
||
|
|
<!-- Get Lowercase versions of properties -->
|
||
|
|
<xsl:variable name="sLowerCaseHideTop" select="translate(m:borderBoxPr[last()]/m:hideTop[last()]/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseHideBot" select="translate(m:borderBoxPr[last()]/m:hideBot[last()]/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseHideLeft" select="translate(m:borderBoxPr[last()]/m:hideLeft[last()]/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseHideRight" select="translate(m:borderBoxPr[last()]/m:hideRight[last()]/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseStrikeH" select="translate(m:borderBoxPr[last()]/m:strikeH[last()]/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseStrikeV" select="translate(m:borderBoxPr[last()]/m:strikeV[last()]/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseStrikeBLTR" select="translate(m:borderBoxPr[last()]/m:strikeBLTR[last()]/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseStrikeTLBR" select="translate(m:borderBoxPr[last()]/m:strikeTLBR[last()]/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="fHideTop">
|
||
|
|
<xsl:call-template name="ForceTrueStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseHideTop" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fHideBot">
|
||
|
|
<xsl:call-template name="ForceTrueStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseHideBot" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fHideLeft">
|
||
|
|
<xsl:call-template name="ForceTrueStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseHideLeft" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fHideRight">
|
||
|
|
<xsl:call-template name="ForceTrueStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseHideRight" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fStrikeH">
|
||
|
|
<xsl:call-template name="ForceTrueStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseStrikeH" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fStrikeV">
|
||
|
|
<xsl:call-template name="ForceTrueStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseStrikeV" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fStrikeBLTR">
|
||
|
|
<xsl:call-template name="ForceTrueStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseStrikeBLTR" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fStrikeTLBR">
|
||
|
|
<xsl:call-template name="ForceTrueStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseStrikeTLBR" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fHideTop=1
|
||
|
|
and $fHideBot=1
|
||
|
|
and $fHideLeft=1
|
||
|
|
and $fHideRight=1
|
||
|
|
and $fStrikeH=0
|
||
|
|
and $fStrikeV=0
|
||
|
|
and $fStrikeBLTR=0
|
||
|
|
and $fStrikeTLBR=0">
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:menclose>
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fHideTop" select="$fHideTop" />
|
||
|
|
<xsl:with-param name="fHideBot" select="$fHideBot" />
|
||
|
|
<xsl:with-param name="fHideLeft" select="$fHideLeft" />
|
||
|
|
<xsl:with-param name="fHideRight" select="$fHideRight" />
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:menclose>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="*">
|
||
|
|
<xsl:apply-templates select="*" />
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!--
|
||
|
|
{ Non-combining, Upper-combining, Lower-combining }
|
||
|
|
{U+02D8, U+0306, U+032E}, // BREVE
|
||
|
|
{U+00B8, U+0312, U+0327}, // CEDILLA
|
||
|
|
{U+0060, U+0300, U+0316}, // GRAVE ACCENT
|
||
|
|
{U+002D, U+0305, U+0332}, // HYPHEN-MINUS/OVERLINE
|
||
|
|
{U+2212, U+0305, U+0332}, // MINUS SIGN/OVERLINE
|
||
|
|
{U+002E, U+0305, U+0323}, // FULL STOP/DOT ABOVE
|
||
|
|
{U+02D9, U+0307, U+0323}, // DOT ABOVE
|
||
|
|
{U+02DD, U+030B, U+02DD}, // DOUBLE ACUTE ACCENT
|
||
|
|
{U+00B4, U+0301, U+0317}, // ACUTE ACCENT
|
||
|
|
{U+007E, U+0303, U+0330}, // TILDE
|
||
|
|
{U+02DC, U+0303, U+0330}, // SMALL TILDE
|
||
|
|
{U+00A8, U+0308, U+0324}, // DIAERESIS
|
||
|
|
{U+02C7, U+030C, U+032C}, // CARON
|
||
|
|
{U+005E, U+0302, U+032D}, // CIRCUMFLEX ACCENT
|
||
|
|
{U+00AF, U+0305, ::::::}, // MACRON
|
||
|
|
{U+005F, ::::::, U+0332}, // LOW LINE
|
||
|
|
{U+2192, U+20D7, U+20EF}, // RIGHTWARDS ARROW
|
||
|
|
{U+27F6, U+20D7, U+20EF}, // LONG RIGHTWARDS ARROW
|
||
|
|
{U+2190, U+20D6, U+20EE}, // LEFT ARROW
|
||
|
|
-->
|
||
|
|
<xsl:template name="ToNonCombining">
|
||
|
|
<xsl:param name="ch" />
|
||
|
|
<xsl:choose>
|
||
|
|
<!-- BREVE -->
|
||
|
|
<xsl:when test="$ch='̆' or $ch='̮'">˘</xsl:when>
|
||
|
|
<!-- CEDILLA -->
|
||
|
|
<xsl:when test="$ch='̒' or $ch='̧'">¸</xsl:when>
|
||
|
|
<!-- GRAVE ACCENT -->
|
||
|
|
<xsl:when test="$ch='̀' or $ch='̖'">`</xsl:when>
|
||
|
|
<!-- HYPHEN-MINUS/OVERLINE -->
|
||
|
|
<xsl:when test="$ch='̅' or $ch='̲'">-</xsl:when>
|
||
|
|
<!-- MINUS SIGN/OVERLINE -->
|
||
|
|
<xsl:when test="$ch='̅' or $ch='̲'">−</xsl:when>
|
||
|
|
<!-- FULL STOP/DOT ABOVE -->
|
||
|
|
<xsl:when test="$ch='̅' or $ch='̣'">.</xsl:when>
|
||
|
|
<!-- DOT ABOVE -->
|
||
|
|
<xsl:when test="$ch='̇' or $ch='̣'">˙</xsl:when>
|
||
|
|
<!-- DOUBLE ACUTE ACCENT -->
|
||
|
|
<xsl:when test="$ch='̋' or $ch='˝'">˝</xsl:when>
|
||
|
|
<!-- ACUTE ACCENT -->
|
||
|
|
<xsl:when test="$ch='́' or $ch='̗'">´</xsl:when>
|
||
|
|
<!-- TILDE -->
|
||
|
|
<xsl:when test="$ch='̃' or $ch='̰'">~</xsl:when>
|
||
|
|
<!-- SMALL TILDE -->
|
||
|
|
<xsl:when test="$ch='̃' or $ch='̰'">˜</xsl:when>
|
||
|
|
<!-- DIAERESIS -->
|
||
|
|
<xsl:when test="$ch='̈' or $ch='̤'">¨</xsl:when>
|
||
|
|
<!-- CARON -->
|
||
|
|
<xsl:when test="$ch='̌' or $ch='̬'">ˇ</xsl:when>
|
||
|
|
<!-- CIRCUMFLEX ACCENT -->
|
||
|
|
<xsl:when test="$ch='̂' or $ch='̭'">^</xsl:when>
|
||
|
|
<!-- MACRON -->
|
||
|
|
<xsl:when test="$ch='̅' ">¯</xsl:when>
|
||
|
|
<!-- LOW LINE -->
|
||
|
|
<xsl:when test=" $ch='̲'">_</xsl:when>
|
||
|
|
<!-- RIGHTWARDS ARROW -->
|
||
|
|
<xsl:when test="$ch='⃗' or $ch='⃯'">→</xsl:when>
|
||
|
|
<!-- LONG RIGHTWARDS ARROW -->
|
||
|
|
<xsl:when test="$ch='⃗' or $ch='⃯'">⟶</xsl:when>
|
||
|
|
<!-- LEFT ARROW -->
|
||
|
|
<xsl:when test="$ch='⃖' or $ch='⃮'">←</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="$ch"/>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:acc">
|
||
|
|
<mml:mover>
|
||
|
|
<xsl:attribute name="accent">true</xsl:attribute>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<xsl:variable name="chAcc">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="not(m:accPr[last()]/m:chr)">
|
||
|
|
<xsl:value-of select="'̂'" />
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="substring(m:accPr/m:chr/@m:val,1,1)" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="chNonComb">
|
||
|
|
<xsl:call-template name="ToNonCombining">
|
||
|
|
<xsl:with-param name="ch" select="$chAcc" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="string-length($chAcc)=0">
|
||
|
|
<mml:mo/>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="ParseMt">
|
||
|
|
<xsl:with-param name="sToParse" select="$chNonComb" />
|
||
|
|
<xsl:with-param name="scr" select="m:e[1]/*/m:rPr[last()]/m:scr/@m:val" />
|
||
|
|
<xsl:with-param name="sty" select="m:e[1]/*/m:rPr[last()]/m:sty/@m:val" />
|
||
|
|
<xsl:with-param name="nor">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(m:e[1]/*/m:rPr[last()]/m:nor) = 0">0</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="translate(m:e[1]/*/m:rPr[last()]/m:nor/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:with-param>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</mml:mover>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template name="OutputScript">
|
||
|
|
<xsl:param name="ndCur" select="." />
|
||
|
|
<xsl:choose>
|
||
|
|
<!-- Only output contents of $ndCur if $ndCur exists
|
||
|
|
and $ndCur has children -->
|
||
|
|
<xsl:when test="count($ndCur/*) > 0">
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="$ndCur" />
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:none />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:sPre">
|
||
|
|
<mml:mmultiscripts>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mprescripts />
|
||
|
|
<xsl:call-template name="OutputScript">
|
||
|
|
<xsl:with-param name="ndCur" select="m:sub[1]"/>
|
||
|
|
</xsl:call-template>
|
||
|
|
<xsl:call-template name="OutputScript">
|
||
|
|
<xsl:with-param name="ndCur" select="m:sup[1]" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</mml:mmultiscripts>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:m">
|
||
|
|
<mml:mtable>
|
||
|
|
<xsl:call-template name="CreateMathMLMatrixAttr">
|
||
|
|
<xsl:with-param name="mcJc" select="m:mPr[last()]/m:mcs/m:mc/m:mcPr[last()]/m:mcJc/@m:val" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<xsl:for-each select="m:mr">
|
||
|
|
<mml:mtr>
|
||
|
|
<xsl:for-each select="m:e">
|
||
|
|
<mml:mtd>
|
||
|
|
<xsl:apply-templates select="." />
|
||
|
|
</mml:mtd>
|
||
|
|
</xsl:for-each>
|
||
|
|
</mml:mtr>
|
||
|
|
</xsl:for-each>
|
||
|
|
</mml:mtable>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template name="CreateMathMLMatrixAttr">
|
||
|
|
<xsl:param name="mcJc" />
|
||
|
|
<xsl:variable name="sLowerCaseMcjc" select="translate($mcJc, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$sLowerCaseMcjc='left'">
|
||
|
|
<xsl:attribute name="columnalign">left</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="$sLowerCaseMcjc='right'">
|
||
|
|
<xsl:attribute name="columnalign">right</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:phant">
|
||
|
|
<xsl:variable name="sLowerCaseZeroWidVal" select="translate(m:phantPr[last()]/m:zeroWid[last()]/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseZeroAscVal" select="translate(m:phantPr[last()]/m:zeroAsc[last()]/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseZeroDescVal" select="translate(m:phantPr[last()]/m:zeroDesc[last()]/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="sLowerCaseShowVal" select="translate(m:phantPr[last()]/m:show[last()]/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
|
||
|
|
|
||
|
|
<!-- The following properties default to 'yes' unless the last value equals 'no' or there isn't any node for
|
||
|
|
the property -->
|
||
|
|
|
||
|
|
<xsl:variable name="fZeroWid">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(m:phantPr[last()]/m:zeroWid[last()]) = 0">0</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseZeroWidVal" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fZeroAsc">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(m:phantPr[last()]/m:zeroAsc[last()]) = 0">0</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseZeroAscVal" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fZeroDesc">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(m:phantPr[last()]/m:zeroDesc[last()]) = 0">0</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseZeroDescVal" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<!-- The show property defaults to 'on' unless there exists a show property and its value is 'off' -->
|
||
|
|
|
||
|
|
<xsl:variable name="fShow">
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseShowVal" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
<!-- Show the phantom contents, therefore, just use mpadded. -->
|
||
|
|
<xsl:when test="$fShow = 1">
|
||
|
|
<xsl:element name="mml:mpadded">
|
||
|
|
<xsl:call-template name="CreateMpaddedAttributes">
|
||
|
|
<xsl:with-param name="fZeroWid" select="$fZeroWid" />
|
||
|
|
<xsl:with-param name="fZeroAsc" select="$fZeroAsc" />
|
||
|
|
<xsl:with-param name="fZeroDesc" select="$fZeroDesc" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e" />
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:element>
|
||
|
|
</xsl:when>
|
||
|
|
<!-- Don't show phantom contents, but don't smash anything, therefore, just
|
||
|
|
use mphantom -->
|
||
|
|
<xsl:when test="$fZeroWid=0 and $fZeroAsc=0 and $fZeroDesc=0">
|
||
|
|
<xsl:element name="mml:mphantom">
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e" />
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:element>
|
||
|
|
</xsl:when>
|
||
|
|
<!-- Combination -->
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:element name="mml:mphantom">
|
||
|
|
<xsl:element name="mml:mpadded">
|
||
|
|
<xsl:call-template name="CreateMpaddedAttributes">
|
||
|
|
<xsl:with-param name="fZeroWid" select="$fZeroWid" />
|
||
|
|
<xsl:with-param name="fZeroAsc" select="$fZeroAsc" />
|
||
|
|
<xsl:with-param name="fZeroDesc" select="$fZeroDesc" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e" />
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:element>
|
||
|
|
</xsl:element>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template name="CreateMpaddedAttributes">
|
||
|
|
<xsl:param name="fZeroWid" />
|
||
|
|
<xsl:param name="fZeroAsc" />
|
||
|
|
<xsl:param name="fZeroDesc" />
|
||
|
|
|
||
|
|
<xsl:if test="$fZeroWid=1">
|
||
|
|
<xsl:attribute name="width">0in</xsl:attribute>
|
||
|
|
</xsl:if>
|
||
|
|
<xsl:if test="$fZeroAsc=1">
|
||
|
|
<xsl:attribute name="height">0in</xsl:attribute>
|
||
|
|
</xsl:if>
|
||
|
|
<xsl:if test="$fZeroDesc=1">
|
||
|
|
<xsl:attribute name="depth">0in</xsl:attribute>
|
||
|
|
</xsl:if>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
<xsl:template match="m:rad">
|
||
|
|
<xsl:variable name="fDegHide">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(m:radPr[last()]/m:degHide)=0">0</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="translate(m:radPr[last()]/m:degHide/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fDegHide=1">
|
||
|
|
<mml:msqrt>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:msqrt>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:mroot>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:deg[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:mroot>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template name="OutputNaryMo">
|
||
|
|
<xsl:param name="ndCur" select="." />
|
||
|
|
<xsl:param name="fGrow" select="0" />
|
||
|
|
<mml:mo>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fGrow=1">
|
||
|
|
<xsl:attribute name="stretchy">true</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:attribute name="stretchy">false</xsl:attribute>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="not($ndCur/m:naryPr[last()]/m:chr/@m:val) or
|
||
|
|
$ndCur/m:naryPr[last()]/m:chr/@m:val=''">
|
||
|
|
<xsl:text>∫</xsl:text>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="$ndCur/m:naryPr[last()]/m:chr/@m:val" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</mml:mo>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template match m:nary
|
||
|
|
Process an n-ary.
|
||
|
|
|
||
|
|
Decides, based on which arguments are supplied, between
|
||
|
|
using an mo, msup, msub, or msubsup for the n-ary operator
|
||
|
|
-->
|
||
|
|
<xsl:template match="m:nary">
|
||
|
|
<xsl:variable name="sLowerCaseSubHide">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(m:naryPr[last()]/m:subHide) = 0">
|
||
|
|
<xsl:text>off</xsl:text>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="translate(m:naryPr[last()]/m:subHide/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:variable name="sLowerCaseSupHide">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(m:naryPr[last()]/m:supHide) = 0">
|
||
|
|
<xsl:text>off</xsl:text>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="translate(m:naryPr[last()]/m:supHide/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:variable name="sLowerCaseLimLoc">
|
||
|
|
<xsl:value-of select="translate(m:naryPr[last()]/m:limLoc/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:variable name="sLowerGrow">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(m:naryPr[last()]/m:grow)=0">off</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="translate(m:naryPr[last()]/m:grow/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:variable name="fLimLocSubSup">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(m:naryPr[last()]/m:limLoc)=0 or $sLowerCaseLimLoc='subsup'">1</xsl:when>
|
||
|
|
<xsl:otherwise>0</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:variable name="fGrow">
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerGrow" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:variable name="fSupHide">
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseSupHide" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:variable name="fSubHide">
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="$sLowerCaseSubHide" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fSupHide=1 and $fSubHide=1">
|
||
|
|
<xsl:call-template name="OutputNaryMo">
|
||
|
|
<xsl:with-param name="ndCur" select="." />
|
||
|
|
<xsl:with-param name="fGrow" select="$fGrow" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="$fSubHide=1">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fLimLocSubSup=1">
|
||
|
|
<mml:msup>
|
||
|
|
<xsl:call-template name="OutputNaryMo">
|
||
|
|
<xsl:with-param name="ndCur" select="." />
|
||
|
|
<xsl:with-param name="fGrow" select="$fGrow" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sup[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:msup>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:mover>
|
||
|
|
<xsl:call-template name="OutputNaryMo">
|
||
|
|
<xsl:with-param name="ndCur" select="." />
|
||
|
|
<xsl:with-param name="fGrow" select="$fGrow" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sup[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:mover>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="$fSupHide=1">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fLimLocSubSup=1">
|
||
|
|
<mml:msub>
|
||
|
|
<xsl:call-template name="OutputNaryMo">
|
||
|
|
<xsl:with-param name="ndCur" select="." />
|
||
|
|
<xsl:with-param name="fGrow" select="$fGrow" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sub[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:msub>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:munder>
|
||
|
|
<xsl:call-template name="OutputNaryMo">
|
||
|
|
<xsl:with-param name="ndCur" select="." />
|
||
|
|
<xsl:with-param name="fGrow" select="$fGrow" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sub[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:munder>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fLimLocSubSup=1">
|
||
|
|
<mml:msubsup>
|
||
|
|
<xsl:call-template name="OutputNaryMo">
|
||
|
|
<xsl:with-param name="ndCur" select="." />
|
||
|
|
<xsl:with-param name="fGrow" select="$fGrow" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sub[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sup[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:msubsup>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:munderover>
|
||
|
|
<xsl:call-template name="OutputNaryMo">
|
||
|
|
<xsl:with-param name="ndCur" select="." />
|
||
|
|
<xsl:with-param name="fGrow" select="$fGrow" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sub[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sup[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:munderover>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:limLow">
|
||
|
|
<mml:munder>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:lim[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:munder>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:limUpp">
|
||
|
|
<mml:mover>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:lim[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:mover>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:sSub">
|
||
|
|
<mml:msub>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sub[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:msub>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:sSup">
|
||
|
|
<mml:msup>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sup[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:msup>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:sSubSup">
|
||
|
|
<mml:msubsup>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sub[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:sup[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:msubsup>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:groupChr">
|
||
|
|
<xsl:variable name="ndLastGroupChrPr" select="m:groupChrPr[last()]" />
|
||
|
|
<xsl:variable name="sLowerCasePos" select="translate($ndLastGroupChrPr/m:pos/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
|
||
|
|
<xsl:variable name="sLowerCaseVertJc" select="translate($ndLastGroupChrPr/m:vertJc/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:variable name="ndLastChr" select="$ndLastGroupChrPr/m:chr" />
|
||
|
|
|
||
|
|
<xsl:variable name="chr">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$ndLastChr and (not($ndLastChr/@m:val) or string-length($ndLastChr/@m:val) = 0)"></xsl:when>
|
||
|
|
<xsl:when test="string-length($ndLastChr/@m:val) >= 1">
|
||
|
|
<xsl:value-of select="substring($ndLastChr/@m:val,1,1)" />
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:text>⏟</xsl:text>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$sLowerCasePos = 'top'">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$sLowerCaseVertJc = 'bot'">
|
||
|
|
<mml:mover accent="false">
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mo>
|
||
|
|
<xsl:value-of select="$chr" />
|
||
|
|
</mml:mo>
|
||
|
|
</mml:mover>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:munder accentunder="false">
|
||
|
|
<mml:mo>
|
||
|
|
<xsl:value-of select="$chr" />
|
||
|
|
</mml:mo>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:munder>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$sLowerCaseVertJc = 'bot'">
|
||
|
|
<mml:mover accent="false">
|
||
|
|
<mml:mo>
|
||
|
|
<xsl:value-of select="$chr" />
|
||
|
|
</mml:mo>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:mover>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:munder accentunder="false">
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mo>
|
||
|
|
<xsl:value-of select="$chr" />
|
||
|
|
</mml:mo>
|
||
|
|
</mml:munder>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template name="fName">
|
||
|
|
<xsl:for-each select="m:fName/*">
|
||
|
|
<xsl:apply-templates select="." />
|
||
|
|
</xsl:for-each>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:func">
|
||
|
|
<mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:call-template name="fName" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mo>⁡</mml:mo>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template: match m:f
|
||
|
|
|
||
|
|
m:f maps directly to mfrac.
|
||
|
|
-->
|
||
|
|
<xsl:template match="m:f">
|
||
|
|
<xsl:variable name="sLowerCaseType" select="translate(m:fPr[last()]/m:type/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$sLowerCaseType='lin'">
|
||
|
|
<mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:num[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mo>/</mml:mo>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:den[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:mfrac>
|
||
|
|
<xsl:call-template name="CreateMathMLFracProp">
|
||
|
|
<xsl:with-param name="type" select="$sLowerCaseType" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:num[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:den[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
</mml:mfrac>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
|
||
|
|
<!-- %%Template: CreateMathMLFracProp
|
||
|
|
|
||
|
|
Make fraction properties based on supplied parameters.
|
||
|
|
OMML differentiates between a linear fraction and a skewed
|
||
|
|
one. For MathML, we write both as bevelled.
|
||
|
|
-->
|
||
|
|
<xsl:template name="CreateMathMLFracProp">
|
||
|
|
<xsl:param name="type" />
|
||
|
|
<xsl:variable name="sLowerCaseType" select="translate($type, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
|
||
|
|
<xsl:if test="$sLowerCaseType='skw' or $sLowerCaseType='lin'">
|
||
|
|
<xsl:attribute name="bevelled">true</xsl:attribute>
|
||
|
|
</xsl:if>
|
||
|
|
<xsl:if test="$sLowerCaseType='nobar'">
|
||
|
|
<xsl:attribute name="linethickness">0pt</xsl:attribute>
|
||
|
|
</xsl:if>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="sLowerCaseNumJc='right'">
|
||
|
|
<xsl:attribute name="numalign">right</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="sLowerCaseNumJc='left'">
|
||
|
|
<xsl:attribute name="numalign">left</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
</xsl:choose>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="sLowerCaseDenJc='right'">
|
||
|
|
<xsl:attribute name="numalign">right</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="sLowerCaseDenJc='left'">
|
||
|
|
<xsl:attribute name="numalign">left</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template: match m:e | m:den | m:num | m:lim | m:sup | m:sub
|
||
|
|
|
||
|
|
These element delinate parts of an expression (like the numerator). -->
|
||
|
|
<xsl:template match="m:e | m:den | m:num | m:lim | m:sup | m:sub">
|
||
|
|
<xsl:choose>
|
||
|
|
|
||
|
|
<!-- If there is no scriptLevel specified, just call through -->
|
||
|
|
<xsl:when test="not(m:argPr[last()]/m:scrLvl/@m:val)">
|
||
|
|
<xsl:apply-templates select="*" />
|
||
|
|
</xsl:when>
|
||
|
|
|
||
|
|
<!-- Otherwise, create an mstyle and set the script level -->
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:mstyle>
|
||
|
|
<xsl:attribute name="scriptlevel">
|
||
|
|
<xsl:value-of select="m:argPr[last()]/m:scrLvl/@m:val" />
|
||
|
|
</xsl:attribute>
|
||
|
|
<xsl:apply-templates select="*" />
|
||
|
|
</mml:mstyle>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:bar">
|
||
|
|
<xsl:variable name="sLowerCasePos" select="translate(m:barPr/m:pos/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
|
||
|
|
<xsl:variable name="fTop">
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$sLowerCasePos='top'">1</xsl:when>
|
||
|
|
<xsl:otherwise>0</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fTop=1">
|
||
|
|
<mml:mover accent="false">
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mo>
|
||
|
|
<xsl:text>¯</xsl:text>
|
||
|
|
</mml:mo>
|
||
|
|
</mml:mover>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:munder underaccent="false">
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="m:e[1]" />
|
||
|
|
</mml:mrow>
|
||
|
|
<mml:mo>
|
||
|
|
<xsl:text>_</xsl:text>
|
||
|
|
</mml:mo>
|
||
|
|
</mml:munder>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template match m:d
|
||
|
|
|
||
|
|
Process a delimiter.
|
||
|
|
-->
|
||
|
|
<xsl:template match="m:d">
|
||
|
|
<mml:mfenced>
|
||
|
|
<!-- open: default is '(' for both OMML and MathML -->
|
||
|
|
<xsl:if test="m:dPr[1]/m:begChr/@m:val and not(m:dPr[1]/m:begChr/@m:val ='(')">
|
||
|
|
<xsl:attribute name="open">
|
||
|
|
<xsl:value-of select="m:dPr[1]/m:begChr/@m:val" />
|
||
|
|
</xsl:attribute>
|
||
|
|
</xsl:if>
|
||
|
|
|
||
|
|
<!-- close: default is ')' for both OMML and MathML -->
|
||
|
|
<xsl:if test="m:dPr[1]/m:endChr/@m:val and not(m:dPr[1]/m:endChr/@m:val =')')">
|
||
|
|
<xsl:attribute name="close">
|
||
|
|
<xsl:value-of select="m:dPr[1]/m:endChr/@m:val" />
|
||
|
|
</xsl:attribute>
|
||
|
|
</xsl:if>
|
||
|
|
|
||
|
|
<!-- separator: the default is ',' for MathML, and '|' for OMML -->
|
||
|
|
<xsl:choose>
|
||
|
|
<!-- Matches MathML default. Write nothing -->
|
||
|
|
<xsl:when test="m:dPr[1]/m:sepChr/@m:val = ','" />
|
||
|
|
|
||
|
|
<!-- OMML default: | -->
|
||
|
|
<xsl:when test="not(m:dPr[1]/m:sepChr/@m:val)">
|
||
|
|
<xsl:attribute name="separators">
|
||
|
|
<xsl:value-of select="'|'" />
|
||
|
|
</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:attribute name="separators">
|
||
|
|
<xsl:value-of select="m:dPr[1]/m:sepChr/@m:val" />
|
||
|
|
</xsl:attribute>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
|
||
|
|
<!-- now write all the children. Put each one into an mrow
|
||
|
|
just in case it produces multiple runs, etc -->
|
||
|
|
<xsl:for-each select="m:e">
|
||
|
|
<mml:mrow>
|
||
|
|
<xsl:apply-templates select="." />
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:for-each>
|
||
|
|
</mml:mfenced>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:r">
|
||
|
|
<xsl:variable name="fNor">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count(child::m:rPr[last()]/m:nor) = 0">0</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="translate(child::m:rPr[last()]/m:nor/@m:val, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fNor=1">
|
||
|
|
<mml:mtext>
|
||
|
|
<xsl:variable name="sOutput" select="translate(.//m:t, ' ', ' ')" />
|
||
|
|
<xsl:value-of select="$sOutput" />
|
||
|
|
</mml:mtext>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:for-each select=".//m:t">
|
||
|
|
<xsl:call-template name="ParseMt">
|
||
|
|
<xsl:with-param name="sToParse" select="text()" />
|
||
|
|
<xsl:with-param name="scr" select="../m:rPr[last()]/m:scr/@m:val" />
|
||
|
|
<xsl:with-param name="sty" select="../m:rPr[last()]/m:sty/@m:val" />
|
||
|
|
<xsl:with-param name="nor">0</xsl:with-param>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:for-each>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
|
||
|
|
<xsl:template name="CreateTokenAttributes">
|
||
|
|
<xsl:param name="scr" />
|
||
|
|
<xsl:param name="sty" />
|
||
|
|
<xsl:param name="nor" />
|
||
|
|
<xsl:param name="nCharToPrint" />
|
||
|
|
<xsl:param name="sTokenType" />
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$nor=1">
|
||
|
|
<xsl:attribute name="mathvariant">normal</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:variable name="mathvariant">
|
||
|
|
<xsl:choose>
|
||
|
|
<!-- numbers don't care -->
|
||
|
|
<xsl:when test="$sTokenType='mn'" />
|
||
|
|
|
||
|
|
<xsl:when test="$scr='monospace'">monospace</xsl:when>
|
||
|
|
<xsl:when test="$scr='sans-serif' and $sty='i'">sans-serif-italic</xsl:when>
|
||
|
|
<xsl:when test="$scr='sans-serif' and $sty='b'">bold-sans-serif</xsl:when>
|
||
|
|
<xsl:when test="$scr='sans-serif' and $sty='bi'">sans-serif-bold-italic</xsl:when>
|
||
|
|
<xsl:when test="$scr='sans-serif'">sans-serif</xsl:when>
|
||
|
|
<xsl:when test="$scr='fraktur' and ($sty='b' or $sty='bi')">bold-fraktur</xsl:when>
|
||
|
|
<xsl:when test="$scr='fraktur'">fraktur</xsl:when>
|
||
|
|
<xsl:when test="$scr='double-struck'">double-struck</xsl:when>
|
||
|
|
<xsl:when test="$scr='script' and ($sty='b' or $sty='bi')">bold-script</xsl:when>
|
||
|
|
<xsl:when test="$scr='script'">script</xsl:when>
|
||
|
|
<xsl:when test="($scr='roman' or not($scr) or $scr='') and $sty='b'">bold</xsl:when>
|
||
|
|
<xsl:when test="($scr='roman' or not($scr) or $scr='') and $sty='i'">italic</xsl:when>
|
||
|
|
<xsl:when test="($scr='roman' or not($scr) or $scr='') and $sty='p'">normal</xsl:when>
|
||
|
|
<xsl:when test="($scr='roman' or not($scr) or $scr='') and $sty='bi'">bold-italic</xsl:when>
|
||
|
|
<xsl:otherwise />
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fontweight">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$sty='b' or $sty='bi'">bold</xsl:when>
|
||
|
|
<xsl:otherwise>normal</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fontstyle">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$sty='p' or $sty='b'">normal</xsl:when>
|
||
|
|
<xsl:otherwise>italic</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<!-- Writing of attributes begins here -->
|
||
|
|
<xsl:choose>
|
||
|
|
<!-- Don't write mathvariant for operators unless they want to be normal -->
|
||
|
|
<xsl:when test="$sTokenType='mo' and $mathvariant!='normal'" />
|
||
|
|
|
||
|
|
<!-- A single character within an mi is already italics, don't write -->
|
||
|
|
<xsl:when test="$sTokenType='mi' and $nCharToPrint=1 and ($mathvariant='' or $mathvariant='italic')" />
|
||
|
|
|
||
|
|
<xsl:when test="$sTokenType='mi' and $nCharToPrint > 1 and ($mathvariant='' or $mathvariant='italic')">
|
||
|
|
<xsl:attribute name="mathvariant">
|
||
|
|
<xsl:value-of select="'italic'" />
|
||
|
|
</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="$mathvariant!='italic' and $mathvariant!=''">
|
||
|
|
<xsl:attribute name="mathvariant">
|
||
|
|
<xsl:value-of select="$mathvariant" />
|
||
|
|
</xsl:attribute>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:if test="not($sTokenType='mi' and $nCharToPrint=1) and $fontstyle='italic'">
|
||
|
|
<xsl:attribute name="fontstyle">italic</xsl:attribute>
|
||
|
|
</xsl:if>
|
||
|
|
<xsl:if test="$fontweight='bold'">
|
||
|
|
<xsl:attribute name="fontweight">bold</xsl:attribute>
|
||
|
|
</xsl:if>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template match="m:eqArr">
|
||
|
|
<mml:mtable>
|
||
|
|
<xsl:for-each select="m:e">
|
||
|
|
<mml:mtr>
|
||
|
|
<mml:mtd>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="m:argPr[last()]/m:scrLvl/@m:val!='0' or
|
||
|
|
not(m:argPr[last()]/m:scrLvl/@m:val) or
|
||
|
|
m:argPr[last()]/m:scrLvl/@m:val=''">
|
||
|
|
<mml:mrow>
|
||
|
|
<mml:maligngroup />
|
||
|
|
<xsl:call-template name="CreateEqArrRow">
|
||
|
|
<xsl:with-param name="align" select="1" />
|
||
|
|
<xsl:with-param name="ndCur" select="*[1]" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</mml:mrow>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:mstyle>
|
||
|
|
<xsl:attribute name="scriptlevel">
|
||
|
|
<xsl:value-of select="m:argPr[last()]/m:scrLvl/@m:val" />
|
||
|
|
</xsl:attribute>
|
||
|
|
<mml:maligngroup />
|
||
|
|
<xsl:call-template name="CreateEqArrRow">
|
||
|
|
<xsl:with-param name="align" select="1" />
|
||
|
|
<xsl:with-param name="ndCur" select="*[1]" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</mml:mstyle>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</mml:mtd>
|
||
|
|
</mml:mtr>
|
||
|
|
</xsl:for-each>
|
||
|
|
</mml:mtable>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template name="CreateEqArrRow">
|
||
|
|
<xsl:param name="align" />
|
||
|
|
<xsl:param name="ndCur" />
|
||
|
|
<xsl:variable name="sAllMt">
|
||
|
|
<xsl:for-each select="$ndCur/m:t">
|
||
|
|
<xsl:value-of select="." />
|
||
|
|
</xsl:for-each>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$ndCur/self::m:r">
|
||
|
|
<xsl:call-template name="ParseEqArrMr">
|
||
|
|
<xsl:with-param name="sToParse" select="$sAllMt" />
|
||
|
|
<xsl:with-param name="scr" select="../m:rPr[last()]/m:scr/@m:val" />
|
||
|
|
<xsl:with-param name="sty" select="../m:rPr[last()]/m:sty/@m:val" />
|
||
|
|
<xsl:with-param name="nor">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="count($ndCur/m:rPr[last()]/m:nor) = 0">0</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="ForceFalseStrVal">
|
||
|
|
<xsl:with-param name="str" select="translate($ndCur/m:rPr[last()]/m:nor/@m:val,
|
||
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
|
||
|
|
'abcdefghijklmnopqrstuvwxyz')" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:with-param>
|
||
|
|
<xsl:with-param name="align" select="$align" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:apply-templates select="$ndCur" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
<xsl:if test="count($ndCur/following-sibling::*) > 0">
|
||
|
|
<xsl:variable name="cAmp">
|
||
|
|
<xsl:call-template name="CountAmp">
|
||
|
|
<xsl:with-param name="sAllMt" select="$sAllMt" />
|
||
|
|
<xsl:with-param name="cAmp" select="0" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:call-template name="CreateEqArrRow">
|
||
|
|
<xsl:with-param name="align" select="($align+($cAmp mod 2)) mod 2" />
|
||
|
|
<xsl:with-param name="ndCur" select="$ndCur/following-sibling::*[1]" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:if>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<xsl:template name="CountAmp">
|
||
|
|
<xsl:param name="sAllMt" />
|
||
|
|
<xsl:param name="cAmp" />
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="string-length(substring-after($sAllMt, '&')) > 0 or
|
||
|
|
substring($sAllMt, string-length($sAllMt))='&'">
|
||
|
|
<xsl:call-template name="CountAmp">
|
||
|
|
<xsl:with-param name="sAllMt" select="substring-after($sAllMt, '&')" />
|
||
|
|
<xsl:with-param name="cAmp" select="$cAmp+1" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="$cAmp" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template: ParseEqArrMr
|
||
|
|
|
||
|
|
Similar to ParseMt, but this one has to do more for an equation array.
|
||
|
|
In equation arrays & is a special character which denotes alignment.
|
||
|
|
|
||
|
|
The & in an equation works by alternating between meaning insert alignment spacing
|
||
|
|
and insert alignment mark. For each equation in the equation array
|
||
|
|
there is an implied align space at the beginning of the equation. Within each equation,
|
||
|
|
the first & means alignmark, the second, align space, the third, alignmark, etc.
|
||
|
|
|
||
|
|
For this reason when parsing m:r's in equation arrays it is important to keep track of what
|
||
|
|
the next ampersand will mean.
|
||
|
|
|
||
|
|
$align=0 => Omml's align space, which is similar to MathML's maligngroup.
|
||
|
|
$align=1 => Omml's alignment mark, which is similar to MathML's malignmark.
|
||
|
|
-->
|
||
|
|
<xsl:template name="ParseEqArrMr">
|
||
|
|
<xsl:param name="sToParse" />
|
||
|
|
<xsl:param name="sty" />
|
||
|
|
<xsl:param name="scr" />
|
||
|
|
<xsl:param name="nor" />
|
||
|
|
<xsl:param name="align" />
|
||
|
|
|
||
|
|
<xsl:if test="string-length($sToParse) > 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="substring($sToParse,1,1) = '&'">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$align='0'">
|
||
|
|
<mml:maligngroup />
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="$align='1'">
|
||
|
|
<mml:malignmark />
|
||
|
|
</xsl:when>
|
||
|
|
</xsl:choose>
|
||
|
|
<xsl:call-template name="ParseEqArrMr">
|
||
|
|
<xsl:with-param name="sToParse" select="substring($sToParse,2)" />
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="$sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="align">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$align='1'">0</xsl:when>
|
||
|
|
<xsl:otherwise>1</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:with-param>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:variable name="sRepNumWith0">
|
||
|
|
<xsl:call-template name="SReplaceNumWithZero">
|
||
|
|
<xsl:with-param name="sToParse" select="$sToParse" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="sRepOperWith-">
|
||
|
|
<xsl:call-template name="SReplaceOperWithMinus">
|
||
|
|
<xsl:with-param name="sToParse" select="$sRepNumWith0" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:variable name="iFirstOper" select="string-length($sRepOperWith-) - string-length(substring-after($sRepOperWith-, '-'))" />
|
||
|
|
<xsl:variable name="iFirstNum" select="string-length($sRepOperWith-) - string-length(substring-after($sRepOperWith-, '0'))" />
|
||
|
|
<xsl:variable name="iFirstAmp" select="string-length($sRepOperWith-) - string-length(substring-after($sRepOperWith-, '&'))" />
|
||
|
|
<xsl:variable name="fNumAtPos1">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="substring($sRepOperWith-,1,1)='0'">1</xsl:when>
|
||
|
|
<xsl:otherwise>0</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fOperAtPos1">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="substring($sRepOperWith-,1,1)='-'">1</xsl:when>
|
||
|
|
<xsl:otherwise>0</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:choose>
|
||
|
|
|
||
|
|
<!-- Case I: The string begins with neither a number, nor an operator -->
|
||
|
|
<xsl:when test="$fNumAtPos1='0' and $fOperAtPos1='0'">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$nor = 0">
|
||
|
|
<mml:mi>
|
||
|
|
<xsl:call-template name="CreateTokenAttributes">
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="$sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="nCharToPrint" select="1" />
|
||
|
|
<xsl:with-param name="sTokenType" select="'mi'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<xsl:variable name="sOutput" select="translate(substring($sToParse, 1, 1), ' ', ' ')" />
|
||
|
|
<xsl:value-of select="$sOutput" />
|
||
|
|
</mml:mi>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:mtext>
|
||
|
|
<xsl:variable name="sOutput" select="translate(substring($sToParse, 1, 1), ' ', ' ')" />
|
||
|
|
<xsl:value-of select="$sOutput" />
|
||
|
|
</mml:mtext>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
<xsl:call-template name="ParseEqArrMr">
|
||
|
|
<xsl:with-param name="sToParse" select="substring($sToParse, 2)" />
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="$sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="align" select="$align" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
|
||
|
|
<!-- Case II: There is an operator at position 1 -->
|
||
|
|
<xsl:when test="$fOperAtPos1='1'">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$nor = 0">
|
||
|
|
<mml:mo>
|
||
|
|
<xsl:call-template name="CreateTokenAttributes">
|
||
|
|
<xsl:with-param name="scr" />
|
||
|
|
<xsl:with-param name="sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="sTokenType" select="'mo'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<xsl:value-of select="substring($sToParse,1,1)" />
|
||
|
|
</mml:mo>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:mtext>
|
||
|
|
<xsl:value-of select="substring($sToParse,1,1)" />
|
||
|
|
</mml:mtext>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
<xsl:call-template name="ParseEqArrMr">
|
||
|
|
<xsl:with-param name="sToParse" select="substring($sToParse, 2)" />
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="$sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="align" select="$align" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
|
||
|
|
<!-- Case III: There is a number at position 1 -->
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:variable name="sConsecNum">
|
||
|
|
<xsl:call-template name="SNumStart">
|
||
|
|
<xsl:with-param name="sToParse" select="$sToParse" />
|
||
|
|
<xsl:with-param name="sPattern" select="$sRepNumWith0" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$nor = 0">
|
||
|
|
<mml:mn>
|
||
|
|
<xsl:call-template name="CreateTokenAttributes">
|
||
|
|
<xsl:with-param name="scr" />
|
||
|
|
<xsl:with-param name="sty" select="'p'"/>
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="sTokenType" select="'mn'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<xsl:value-of select="$sConsecNum" />
|
||
|
|
</mml:mn>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<mml:mtext>
|
||
|
|
<xsl:value-of select="$sConsecNum" />
|
||
|
|
</mml:mtext>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
<xsl:call-template name="ParseEqArrMr">
|
||
|
|
<xsl:with-param name="sToParse" select="substring-after($sToParse, $sConsecNum)" />
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="$sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="align" select="$align" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:if>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template: ParseMt
|
||
|
|
|
||
|
|
Produce a run of text. Technically, OMML makes no distinction
|
||
|
|
between numbers, operators, and other characters in a run. For
|
||
|
|
MathML we need to break these into mi, mn, or mo elements.
|
||
|
|
|
||
|
|
See also ParseEqArrMr
|
||
|
|
-->
|
||
|
|
<xsl:template name="ParseMt">
|
||
|
|
<xsl:param name="sToParse" />
|
||
|
|
<xsl:param name="sty" />
|
||
|
|
<xsl:param name="scr" />
|
||
|
|
<xsl:param name="nor" />
|
||
|
|
<xsl:if test="string-length($sToParse) > 0">
|
||
|
|
<xsl:variable name="sRepNumWith0">
|
||
|
|
<xsl:call-template name="SReplaceNumWithZero">
|
||
|
|
<xsl:with-param name="sToParse" select="$sToParse" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="sRepOperWith-">
|
||
|
|
<xsl:call-template name="SReplaceOperWithMinus">
|
||
|
|
<xsl:with-param name="sToParse" select="$sRepNumWith0" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:variable name="iFirstOper" select="string-length($sRepOperWith-) - string-length(substring-after($sRepOperWith-, '-'))" />
|
||
|
|
<xsl:variable name="iFirstNum" select="string-length($sRepOperWith-) - string-length(substring-after($sRepOperWith-, '0'))" />
|
||
|
|
<xsl:variable name="fNumAtPos1">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="substring($sRepOperWith-,1,1)='0'">1</xsl:when>
|
||
|
|
<xsl:otherwise>0</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:variable name="fOperAtPos1">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="substring($sRepOperWith-,1,1)='-'">1</xsl:when>
|
||
|
|
<xsl:otherwise>0</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
|
||
|
|
<!-- Case I: The string begins with neither a number, nor an operator -->
|
||
|
|
<xsl:when test="$fOperAtPos1='0' and $fNumAtPos1='0'">
|
||
|
|
<xsl:variable name="nCharToPrint">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="ancestor::m:fName">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="($iFirstOper=$iFirstNum) and
|
||
|
|
($iFirstOper=string-length($sToParse)) and
|
||
|
|
(substring($sRepOperWith-, string-length($sRepOperWith-))!='0') and
|
||
|
|
(substring($sRepOperWith-, string-length($sRepOperWith-))!='-')">
|
||
|
|
<xsl:value-of select="string-length($sToParse)" />
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="$iFirstOper < $iFirstNum">
|
||
|
|
<xsl:value-of select="$iFirstOper - 1" />
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="$iFirstNum - 1" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>1</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<mml:mi>
|
||
|
|
<xsl:call-template name="CreateTokenAttributes">
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="$sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="nCharToPrint" select="$nCharToPrint" />
|
||
|
|
<xsl:with-param name="sTokenType" select="'mi'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<xsl:variable name="sWrite" select="translate(substring($sToParse, 1, $nCharToPrint), ' ', ' ')" />
|
||
|
|
<xsl:value-of select="$sWrite" />
|
||
|
|
</mml:mi>
|
||
|
|
<xsl:call-template name="ParseMt">
|
||
|
|
<xsl:with-param name="sToParse" select="substring($sToParse, $nCharToPrint+1)" />
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="$sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
|
||
|
|
<!-- Case II: There is an operator at position 1 -->
|
||
|
|
<xsl:when test="$fOperAtPos1='1'">
|
||
|
|
<mml:mo>
|
||
|
|
<xsl:call-template name="CreateTokenAttributes">
|
||
|
|
<xsl:with-param name="scr" />
|
||
|
|
<xsl:with-param name="sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="sTokenType" select="'mo'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<xsl:value-of select="substring($sToParse,1,1)" />
|
||
|
|
</mml:mo>
|
||
|
|
<xsl:call-template name="ParseMt">
|
||
|
|
<xsl:with-param name="sToParse" select="substring($sToParse, 2)" />
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="$sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
|
||
|
|
<!-- Case III: There is a number at position 1 -->
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:variable name="sConsecNum">
|
||
|
|
<xsl:call-template name="SNumStart">
|
||
|
|
<xsl:with-param name="sToParse" select="$sToParse" />
|
||
|
|
<xsl:with-param name="sPattern" select="$sRepNumWith0" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<mml:mn>
|
||
|
|
<xsl:call-template name="CreateTokenAttributes">
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="'p'" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
<xsl:with-param name="sTokenType" select="'mn'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
<xsl:value-of select="$sConsecNum" />
|
||
|
|
</mml:mn>
|
||
|
|
<xsl:call-template name="ParseMt">
|
||
|
|
<xsl:with-param name="sToParse" select="substring-after($sToParse, $sConsecNum)" />
|
||
|
|
<xsl:with-param name="scr" select="$scr" />
|
||
|
|
<xsl:with-param name="sty" select="$sty" />
|
||
|
|
<xsl:with-param name="nor" select="$nor" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:if>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template: SNumStart
|
||
|
|
|
||
|
|
Return the longest substring of sToParse starting from the
|
||
|
|
start of sToParse that is a number. In addition, it takes the
|
||
|
|
pattern string, which is sToParse with all of its numbers
|
||
|
|
replaced with a 0. sPattern should be the same length
|
||
|
|
as sToParse
|
||
|
|
-->
|
||
|
|
<xsl:template name="SNumStart">
|
||
|
|
<xsl:param name="sToParse" select="''" />
|
||
|
|
<!-- if we don't get anything, take the string itself -->
|
||
|
|
<xsl:param name="sPattern" select="'$sToParse'" />
|
||
|
|
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
<!-- the pattern says this is a number, recurse with the rest -->
|
||
|
|
<xsl:when test="substring($sPattern, 1, 1) = '0'">
|
||
|
|
<xsl:call-template name="SNumStart">
|
||
|
|
<xsl:with-param name="sToParse" select="$sToParse" />
|
||
|
|
<xsl:with-param name="sPattern" select="substring($sPattern, 2)" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
|
||
|
|
<!-- the pattern says we've run out of numbers. Take as many
|
||
|
|
characters from sToParse as we shaved off sPattern -->
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="substring($sToParse, 1, string-length($sToParse) - string-length($sPattern))" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template SRepeatCharAcc
|
||
|
|
|
||
|
|
The core of SRepeatChar with an accumulator. The current
|
||
|
|
string is in param $acc, and we will double and recurse,
|
||
|
|
if we're less than half of the required length or else just
|
||
|
|
add the right amount of characters to the accumulator and
|
||
|
|
return
|
||
|
|
-->
|
||
|
|
<xsl:template name="SRepeatCharAcc">
|
||
|
|
<xsl:param name="cchRequired" select="1" />
|
||
|
|
<xsl:param name="ch" select="'-'" />
|
||
|
|
<xsl:param name="acc" select="$ch" />
|
||
|
|
|
||
|
|
<xsl:variable name="cchAcc" select="string-length($acc)" />
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="(2 * $cchAcc) < $cchRequired">
|
||
|
|
<xsl:call-template name="SRepeatCharAcc">
|
||
|
|
<xsl:with-param name="cchRequired" select="$cchRequired" />
|
||
|
|
<xsl:with-param name="ch" select="$ch" />
|
||
|
|
<xsl:with-param name="acc" select="concat($acc, $acc)" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:value-of select="concat($acc, substring($acc, 1, $cchRequired - $cchAcc))" />
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
|
||
|
|
<!-- %%Template SRepeatChar
|
||
|
|
|
||
|
|
Generates a string nchRequired long by repeating the given character ch
|
||
|
|
-->
|
||
|
|
<xsl:template name="SRepeatChar">
|
||
|
|
<xsl:param name="cchRequired" select="1" />
|
||
|
|
<xsl:param name="ch" select="'-'" />
|
||
|
|
|
||
|
|
<xsl:call-template name="SRepeatCharAcc">
|
||
|
|
<xsl:with-param name="cchRequired" select="$cchRequired" />
|
||
|
|
<xsl:with-param name="ch" select="$ch" />
|
||
|
|
<xsl:with-param name="acc" select="$ch" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template SReplaceOperWithMinus
|
||
|
|
|
||
|
|
Go through the given string and replace every instance
|
||
|
|
of an operator with a minus '-'. This helps quickly identify
|
||
|
|
the first instance of an operator.
|
||
|
|
-->
|
||
|
|
<xsl:template name="SReplaceOperWithMinus">
|
||
|
|
<xsl:param name="sToParse" select="''" />
|
||
|
|
|
||
|
|
<xsl:value-of select="translate($sToParse, $sOperators, $sMinuses)" />
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- %%Template SReplaceNumWithZero
|
||
|
|
|
||
|
|
Go through the given string and replace every instance
|
||
|
|
of an number with a zero '0'. This helps quickly identify
|
||
|
|
the first occurence of a number.
|
||
|
|
|
||
|
|
Considers the '.' and ',' part of a number iff they are sandwiched
|
||
|
|
between two other numbers. 0.3 will be recognized as a number,
|
||
|
|
x.3 will not be. Since these characters can also be an operator, this
|
||
|
|
should be called before SReplaceOperWithMinus.
|
||
|
|
-->
|
||
|
|
<xsl:template name="SReplaceNumWithZero">
|
||
|
|
<xsl:param name="sToParse" select="''" />
|
||
|
|
|
||
|
|
<!-- First do a simple replace. Numbers will all be come 0's.
|
||
|
|
After this point, the pattern involving the . or , that
|
||
|
|
we are looking for will become 0.0 or 0,0 -->
|
||
|
|
<xsl:variable name="sSimpleReplace" select="translate($sToParse, $sNumbers, $sZeros)" />
|
||
|
|
|
||
|
|
<!-- And then, replace 0.0 with just 000. This means that the . will
|
||
|
|
become part of the number -->
|
||
|
|
<xsl:variable name="sReplacePeriod">
|
||
|
|
<xsl:call-template name="SReplace">
|
||
|
|
<xsl:with-param name="sInput" select="$sSimpleReplace" />
|
||
|
|
<xsl:with-param name="sOrig" select="'0.0'" />
|
||
|
|
<xsl:with-param name="sReplacement" select="'000'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
|
||
|
|
<!-- And then, replace 0,0 with just 000. This means that the , will
|
||
|
|
become part of the number -->
|
||
|
|
<xsl:call-template name="SReplace">
|
||
|
|
<xsl:with-param name="sInput" select="$sReplacePeriod" />
|
||
|
|
<xsl:with-param name="sOrig" select="'0,0'" />
|
||
|
|
<xsl:with-param name="sReplacement" select="'000'" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- Template to translate Word's borderBox properties into the menclose notation attribute
|
||
|
|
The initial call to this SHOULD NOT pass an sAttribute. Subsequent calls to
|
||
|
|
CreateMencloseNotationAttrFromBorderBoxAttr by CreateMencloseNotationAttrFromBorderBoxAttr will
|
||
|
|
update the sAttribute as appropriate.
|
||
|
|
|
||
|
|
CreateMencloseNotationAttrFromBorderBoxAttr looks at each attribute (fHideTop, fHideBot, etc.) one at a time
|
||
|
|
in the order they are listed and passes a modified sAttribute to CreateMencloseNotationAttrFromBorderBoxAttr.
|
||
|
|
Each successive call to CreateMencloseNotationAttrFromBorderBoxAttr knows which attribute to look at because
|
||
|
|
the previous call should have omitted passing the attribute it just analyzed. This is why as you read lower
|
||
|
|
and lower in the template that each call to CreateMencloseNotationAttrFromBorderBoxAttr has fewer and fewer attributes.
|
||
|
|
-->
|
||
|
|
<xsl:template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:param name="fHideTop" />
|
||
|
|
<xsl:param name="fHideBot" />
|
||
|
|
<xsl:param name="fHideLeft" />
|
||
|
|
<xsl:param name="fHideRight" />
|
||
|
|
<xsl:param name="fStrikeH" />
|
||
|
|
<xsl:param name="fStrikeV" />
|
||
|
|
<xsl:param name="fStrikeBLTR" />
|
||
|
|
<xsl:param name="fStrikeTLBR" />
|
||
|
|
<xsl:param name="sAttribute" />
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="string-length($sAttribute) = 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="string-length($fHideTop) > 0
|
||
|
|
and string-length($fHideBot) > 0
|
||
|
|
and string-length($fHideLeft) > 0
|
||
|
|
and string-length($fHideRight) > 0">
|
||
|
|
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fHideTop = 0
|
||
|
|
and $fHideBot = 0
|
||
|
|
and $fHideLeft = 0
|
||
|
|
and $fHideRight = 0">
|
||
|
|
<!-- We can use 'box' instead of top, bot, left, and right. Therefore,
|
||
|
|
replace sAttribute with 'box' and begin analyzing params fStrikeH
|
||
|
|
and below. -->
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute">
|
||
|
|
<xsl:text>box</xsl:text>
|
||
|
|
</xsl:with-param>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<!-- Can't use 'box', theremore, must analyze all attributes -->
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fHideTop" select="$fHideTop" />
|
||
|
|
<xsl:with-param name="fHideBot" select="$fHideBot" />
|
||
|
|
<xsl:with-param name="fHideLeft" select="$fHideLeft" />
|
||
|
|
<xsl:with-param name="fHideRight" select="$fHideRight" />
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute">
|
||
|
|
<!-- Assume using all four (left right top bottom). Subsequent calls
|
||
|
|
will remove the sides which aren't to be includes. -->
|
||
|
|
<xsl:text>left right top bottom</xsl:text>
|
||
|
|
</xsl:with-param>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="string-length($fHideTop) > 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fHideTop=1">
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fHideBot" select="$fHideBot" />
|
||
|
|
<xsl:with-param name="fHideLeft" select="$fHideLeft" />
|
||
|
|
<xsl:with-param name="fHideRight" select="$fHideRight" />
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute">
|
||
|
|
<xsl:call-template name="SReplace">
|
||
|
|
<xsl:with-param name="sInput" select="$sAttribute" />
|
||
|
|
<xsl:with-param name="sOrig" select="'top'" />
|
||
|
|
<xsl:with-param name="sReplacement" select="''" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:with-param>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fHideBot" select="$fHideBot" />
|
||
|
|
<xsl:with-param name="fHideLeft" select="$fHideLeft" />
|
||
|
|
<xsl:with-param name="fHideRight" select="$fHideRight" />
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="$sAttribute" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="string-length($fHideBot) > 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fHideBot=1">
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fHideLeft" select="$fHideLeft" />
|
||
|
|
<xsl:with-param name="fHideRight" select="$fHideRight" />
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute">
|
||
|
|
<xsl:call-template name="SReplace">
|
||
|
|
<xsl:with-param name="sInput" select="$sAttribute" />
|
||
|
|
<xsl:with-param name="sOrig" select="'bottom'" />
|
||
|
|
<xsl:with-param name="sReplacement" select="''" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:with-param>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fHideLeft" select="$fHideLeft" />
|
||
|
|
<xsl:with-param name="fHideRight" select="$fHideRight" />
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="$sAttribute" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="string-length($fHideLeft) > 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fHideLeft=1">
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fHideRight" select="$fHideRight" />
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute">
|
||
|
|
<xsl:call-template name="SReplace">
|
||
|
|
<xsl:with-param name="sInput" select="$sAttribute" />
|
||
|
|
<xsl:with-param name="sOrig" select="'left'" />
|
||
|
|
<xsl:with-param name="sReplacement" select="''" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:with-param>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fHideRight" select="$fHideRight" />
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="$sAttribute" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="string-length($fHideRight) > 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fHideRight=1">
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute">
|
||
|
|
<xsl:call-template name="SReplace">
|
||
|
|
<xsl:with-param name="sInput" select="$sAttribute" />
|
||
|
|
<xsl:with-param name="sOrig" select="'right'" />
|
||
|
|
<xsl:with-param name="sReplacement" select="''" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:with-param>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fStrikeH" select="$fStrikeH" />
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="$sAttribute" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="string-length($fStrikeH) > 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fStrikeH=1">
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="concat($sAttribute, ' horizontalstrike')" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fStrikeV" select="$fStrikeV" />
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="$sAttribute" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="string-length($fStrikeV) > 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fStrikeV=1">
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="concat($sAttribute, ' verticalstrike')" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fStrikeBLTR" select="$fStrikeBLTR" />
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="$sAttribute" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="string-length($fStrikeBLTR) > 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fStrikeBLTR=1">
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="concat($sAttribute, ' updiagonalstrike')" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="fStrikeTLBR" select="$fStrikeTLBR" />
|
||
|
|
<xsl:with-param name="sAttribute" select="$sAttribute" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:when test="string-length($fStrikeTLBR) > 0">
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$fStrikeTLBR=1">
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="sAttribute" select="concat($sAttribute, ' downdiagonalstrike')" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:call-template name="CreateMencloseNotationAttrFromBorderBoxAttr">
|
||
|
|
<xsl:with-param name="sAttribute" select="$sAttribute" />
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:when>
|
||
|
|
<xsl:otherwise>
|
||
|
|
<xsl:attribute name="notation">
|
||
|
|
<xsl:value-of select="normalize-space($sAttribute)" />
|
||
|
|
</xsl:attribute>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- Tristate (true, false, neither) from string value -->
|
||
|
|
<xsl:template name="TFromStrVal">
|
||
|
|
<xsl:param name="str" />
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$str = 'on' or $str = '1' or $str = 'true'">1</xsl:when>
|
||
|
|
<xsl:when test="$str = 'off' or $str = '0' or $str = 'false'">0</xsl:when>
|
||
|
|
<xsl:otherwise>-1</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- Return 0 iff $str is explicitly set to a false value.
|
||
|
|
Return true otherwise -->
|
||
|
|
<xsl:template name="ForceFalseStrVal">
|
||
|
|
<xsl:param name="str" />
|
||
|
|
<xsl:variable name="tValue">
|
||
|
|
<xsl:call-template name="TFromStrVal">
|
||
|
|
<xsl:with-param name="str" select="$str"/>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$tValue = '0'">0</xsl:when>
|
||
|
|
<xsl:otherwise>1</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
|
||
|
|
<!-- Return 1 iff $str is explicitly set to a true value.
|
||
|
|
Return false otherwise -->
|
||
|
|
<xsl:template name="ForceTrueStrVal">
|
||
|
|
<xsl:param name="str" />
|
||
|
|
<xsl:variable name="tValue">
|
||
|
|
<xsl:call-template name="TFromStrVal">
|
||
|
|
<xsl:with-param name="str" select="$str"/>
|
||
|
|
</xsl:call-template>
|
||
|
|
</xsl:variable>
|
||
|
|
<xsl:choose>
|
||
|
|
<xsl:when test="$tValue = '1'">1</xsl:when>
|
||
|
|
<xsl:otherwise>0</xsl:otherwise>
|
||
|
|
</xsl:choose>
|
||
|
|
</xsl:template>
|
||
|
|
</xsl:stylesheet>
|