|
@@ -0,0 +1,2068 @@
|
|
|
+<?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>
|