Blame xsl/url.xsl

Packit Service 76cb02
Packit Service 76cb02
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version='1.0'>
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
    XSLT Stylesheet DocBook -> LaTeX 
Packit Service 76cb02
    ############################################################################ -->
Packit Service 76cb02
Packit Service 76cb02
<xsl:template name="nolinkurl">
Packit Service 76cb02
  <xsl:param name="url" select="@url"/>
Packit Service 76cb02
  <xsl:param name="command" select="'\nolinkurl'"/>
Packit Service 76cb02
  <xsl:value-of select="$command"/>
Packit Service 76cb02
  <xsl:text>{</xsl:text>
Packit Service 76cb02
  <xsl:call-template name="scape-encode">
Packit Service 76cb02
    <xsl:with-param name="string" select="$url"/>
Packit Service 76cb02
  </xsl:call-template>
Packit Service 76cb02
  <xsl:text>}</xsl:text>
Packit Service 76cb02
</xsl:template>
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
     '\'. The workaround is to append a space. Moreover, the problem occurs only
Packit Service 76cb02
     if the ending '\'s are non a multiple of 2!
Packit Service 76cb02
-->
Packit Service 76cb02
<xsl:template name="nolinkurl2">
Packit Service 76cb02
  <xsl:param name="url" select="@url"/>
Packit Service 76cb02
  <xsl:param name="command" select="'\nolinkurl'"/>
Packit Service 76cb02
  
Packit Service 76cb02
  <xsl:if test="$url != '
'">
Packit Service 76cb02
    <xsl:variable name="bscount">
Packit Service 76cb02
      <xsl:call-template name="bslash-end-count">
Packit Service 76cb02
        <xsl:with-param name="url" select="$url"/>
Packit Service 76cb02
      </xsl:call-template>
Packit Service 76cb02
    </xsl:variable>
Packit Service 76cb02
    <xsl:value-of select="$command"/>
Packit Service 76cb02
    <xsl:text>{</xsl:text>
Packit Service 76cb02
    <xsl:call-template name="scape-encode">
Packit Service 76cb02
      <xsl:with-param name="string" select="$url"/>
Packit Service 76cb02
    </xsl:call-template>
Packit Service 76cb02
    <xsl:if test="$bscount mod 2">
Packit Service 76cb02
      <xsl:text> </xsl:text>
Packit Service 76cb02
    </xsl:if>
Packit Service 76cb02
    <xsl:text>}</xsl:text>
Packit Service 76cb02
  </xsl:if>
Packit Service 76cb02
</xsl:template>
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
<xsl:template name="bslash-end-count">
Packit Service 76cb02
  <xsl:param name="count" select="0"/>
Packit Service 76cb02
  <xsl:param name="url"/>
Packit Service 76cb02
Packit Service 76cb02
  <xsl:choose>
Packit Service 76cb02
  <xsl:when test="$url = ''">
Packit Service 76cb02
    <xsl:value-of select="$count"/>
Packit Service 76cb02
  </xsl:when>
Packit Service 76cb02
  <xsl:when test="substring($url,string-length($url))='\'">
Packit Service 76cb02
    <xsl:call-template name="bslash-end-count">
Packit Service 76cb02
      
Packit Service 76cb02
                      select="substring($url,1,string-length($url)-1)"/>
Packit Service 76cb02
      <xsl:with-param name="count" select="$count + 1"/>
Packit Service 76cb02
    </xsl:call-template>
Packit Service 76cb02
  </xsl:when>
Packit Service 76cb02
  <xsl:otherwise>
Packit Service 76cb02
    <xsl:value-of select="$count"/>
Packit Service 76cb02
  </xsl:otherwise>
Packit Service 76cb02
  </xsl:choose>
Packit Service 76cb02
</xsl:template>
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
     except for spaces that are always skipped by \nolinkurl{}. Note that
Packit Service 76cb02
     setting the 'obeyspaces' option to the url package doesn't help.
Packit Service 76cb02
     -->
Packit Service 76cb02
<xsl:template name="nolinkurl-output">
Packit Service 76cb02
  <xsl:param name="url" select="@url"/>
Packit Service 76cb02
  <xsl:param name="command" select="'\nolinkurl'"/>
Packit Service 76cb02
  <xsl:variable name="url2">
Packit Service 76cb02
    <xsl:choose>
Packit Service 76cb02
      
Packit Service 76cb02
      <xsl:when test="number($texlive.version) >= 2009">
Packit Service 76cb02
        <xsl:call-template name="string-replace">
Packit Service 76cb02
          <xsl:with-param name="string" select="$url"/>
Packit Service 76cb02
          <xsl:with-param name="from" select="'\'"/>
Packit Service 76cb02
          <xsl:with-param name="to" select="'\\'"/>
Packit Service 76cb02
        </xsl:call-template>
Packit Service 76cb02
      </xsl:when>
Packit Service 76cb02
      <xsl:otherwise>
Packit Service 76cb02
        <xsl:value-of select="$url"/>
Packit Service 76cb02
      </xsl:otherwise>
Packit Service 76cb02
    </xsl:choose>
Packit Service 76cb02
  </xsl:variable>
Packit Service 76cb02
Packit Service 76cb02
  <xsl:choose>
Packit Service 76cb02
  <xsl:when test="ancestor::entry or ancestor::revision or ancestor::footnote">
Packit Service 76cb02
    <xsl:call-template name="nolinkurl-escape">
Packit Service 76cb02
      <xsl:with-param name="url" select="$url2"/>
Packit Service 76cb02
      <xsl:with-param name="command" select="$command"/>
Packit Service 76cb02
    </xsl:call-template>
Packit Service 76cb02
    
Packit Service 76cb02
  </xsl:when>
Packit Service 76cb02
  <xsl:otherwise>
Packit Service 76cb02
    <xsl:call-template name="nolinkurl-escape">
Packit Service 76cb02
      <xsl:with-param name="url" select="$url2"/>
Packit Service 76cb02
      <xsl:with-param name="chars" select="' '"/>
Packit Service 76cb02
      <xsl:with-param name="command" select="$command"/>
Packit Service 76cb02
    </xsl:call-template>
Packit Service 76cb02
  </xsl:otherwise>
Packit Service 76cb02
  </xsl:choose>
Packit Service 76cb02
</xsl:template>
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
<xsl:template name="find-first">
Packit Service 76cb02
  <xsl:param name="string"/>
Packit Service 76cb02
  <xsl:param name="chars" select="'#% '"/>
Packit Service 76cb02
Packit Service 76cb02
  <xsl:choose>
Packit Service 76cb02
  <xsl:when test="$string = ''">
Packit Service 76cb02
    <xsl:value-of select="0"/>
Packit Service 76cb02
  </xsl:when>
Packit Service 76cb02
  <xsl:when test="string-length($chars)=1">
Packit Service 76cb02
    <xsl:choose>
Packit Service 76cb02
    <xsl:when test="contains($string, $chars)">
Packit Service 76cb02
      <xsl:value-of select="string-length(substring-before($string, $chars))"/>
Packit Service 76cb02
    </xsl:when>
Packit Service 76cb02
    <xsl:otherwise>
Packit Service 76cb02
      <xsl:value-of select="string-length($string)"/>
Packit Service 76cb02
    </xsl:otherwise>
Packit Service 76cb02
    </xsl:choose>
Packit Service 76cb02
  </xsl:when>
Packit Service 76cb02
  <xsl:otherwise>
Packit Service 76cb02
    <xsl:variable name="charset" select="substring($chars, 2)"/>
Packit Service 76cb02
    <xsl:variable name="char" select="substring($chars, 1, 1)"/>
Packit Service 76cb02
    <xsl:choose>
Packit Service 76cb02
    <xsl:when test="contains($string, $char)">
Packit Service 76cb02
      <xsl:call-template name="find-first">
Packit Service 76cb02
        <xsl:with-param name="string" select="substring-before($string, $char)"/>
Packit Service 76cb02
        <xsl:with-param name="chars" select="$charset"/>
Packit Service 76cb02
      </xsl:call-template>
Packit Service 76cb02
    </xsl:when>
Packit Service 76cb02
    <xsl:otherwise>
Packit Service 76cb02
      <xsl:call-template name="find-first">
Packit Service 76cb02
        <xsl:with-param name="string" select="$string"/>
Packit Service 76cb02
        <xsl:with-param name="chars" select="$charset"/>
Packit Service 76cb02
      </xsl:call-template>
Packit Service 76cb02
    </xsl:otherwise>
Packit Service 76cb02
    </xsl:choose>
Packit Service 76cb02
  </xsl:otherwise>
Packit Service 76cb02
  </xsl:choose>
Packit Service 76cb02
</xsl:template>
Packit Service 76cb02
  
Packit Service 76cb02
<xsl:template name="nolinkurl-escape">
Packit Service 76cb02
  <xsl:param name="escchars"/>
Packit Service 76cb02
  <xsl:param name="url"/>
Packit Service 76cb02
  <xsl:param name="chars" select="'#% '"/>
Packit Service 76cb02
  <xsl:param name="command" select="'\nolinkurl'"/>
Packit Service 76cb02
Packit Service 76cb02
  <xsl:variable name="len" select="string-length($url)"/>
Packit Service 76cb02
Packit Service 76cb02
  <xsl:variable name="pos">
Packit Service 76cb02
    <xsl:call-template name="find-first">
Packit Service 76cb02
      <xsl:with-param name="string" select="$url"/>
Packit Service 76cb02
      <xsl:with-param name="chars" select="$chars"/>
Packit Service 76cb02
    </xsl:call-template>
Packit Service 76cb02
  </xsl:variable>
Packit Service 76cb02
Packit Service 76cb02
  <xsl:choose>
Packit Service 76cb02
  <xsl:when test="$pos = $len">
Packit Service 76cb02
    <xsl:if test="$escchars != ''">
Packit Service 76cb02
      <xsl:text>\texttt{</xsl:text>
Packit Service 76cb02
      <xsl:value-of select="$escchars"/>
Packit Service 76cb02
      <xsl:text>}</xsl:text>
Packit Service 76cb02
    </xsl:if>
Packit Service 76cb02
    <xsl:if test="$len != 0">
Packit Service 76cb02
      <xsl:call-template name="nolinkurl2">
Packit Service 76cb02
        <xsl:with-param name="url" select="$url"/>
Packit Service 76cb02
        <xsl:with-param name="command" select="$command"/>
Packit Service 76cb02
      </xsl:call-template>
Packit Service 76cb02
    </xsl:if>
Packit Service 76cb02
  </xsl:when>
Packit Service 76cb02
  <xsl:when test="$pos = 0">
Packit Service 76cb02
    <xsl:call-template name="nolinkurl-escape">
Packit Service 76cb02
      
Packit Service 76cb02
                      select="concat($escchars, '\', substring($url,1,1))"/>
Packit Service 76cb02
      <xsl:with-param name="url" select="substring($url, 2)"/>
Packit Service 76cb02
      <xsl:with-param name="chars" select="$chars"/>
Packit Service 76cb02
      <xsl:with-param name="command" select="$command"/>
Packit Service 76cb02
    </xsl:call-template>
Packit Service 76cb02
  </xsl:when>
Packit Service 76cb02
  <xsl:otherwise>
Packit Service 76cb02
    <xsl:if test="$escchars != ''">
Packit Service 76cb02
      <xsl:text>\texttt{</xsl:text>
Packit Service 76cb02
      <xsl:value-of select="$escchars"/>
Packit Service 76cb02
      <xsl:text>}</xsl:text>
Packit Service 76cb02
    </xsl:if>
Packit Service 76cb02
    <xsl:call-template name="nolinkurl2">
Packit Service 76cb02
      <xsl:with-param name="url" select="substring($url, 1, $pos)"/>
Packit Service 76cb02
      <xsl:with-param name="command" select="$command"/>
Packit Service 76cb02
    </xsl:call-template>
Packit Service 76cb02
    <xsl:call-template name="nolinkurl-escape">
Packit Service 76cb02
      
Packit Service 76cb02
                      select="concat('\', substring($url,$pos+1,1))"/>
Packit Service 76cb02
      <xsl:with-param name="url" select="substring($url, $pos+2)"/>
Packit Service 76cb02
      <xsl:with-param name="chars" select="$chars"/>
Packit Service 76cb02
      <xsl:with-param name="command" select="$command"/>
Packit Service 76cb02
    </xsl:call-template>
Packit Service 76cb02
  </xsl:otherwise>
Packit Service 76cb02
  </xsl:choose>
Packit Service 76cb02
</xsl:template>
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
Packit Service 76cb02
     <u>
Packit Service 76cb02
       <nolinkurl>ab%cde%#%fg</nolinkurl>
Packit Service 76cb02
       <nolinkurl>#ab%cde%#%fg###</nolinkurl>
Packit Service 76cb02
       <nolinkurl>nothing special</nolinkurl>
Packit Service 76cb02
       <nolinkurl>nothing\special\</nolinkurl>
Packit Service 76cb02
       <nolinkurl>nothing\special\\</nolinkurl>
Packit Service 76cb02
       <entry>
Packit Service 76cb02
         <nolinkurl>ab%cde%#%fg</nolinkurl>
Packit Service 76cb02
         <nolinkurl>#%#ab%cde%#%fg###</nolinkurl>
Packit Service 76cb02
         <nolinkurl>nothing special</nolinkurl>
Packit Service 76cb02
         <nolinkurl>#########</nolinkurl>
Packit Service 76cb02
         <nolinkurl>%%%%%%%%%</nolinkurl>
Packit Service 76cb02
         <nolinkurl>#%#%%#%##</nolinkurl>
Packit Service 76cb02
       </entry>
Packit Service 76cb02
     </u>
Packit Service 76cb02
Packit Service 76cb02
     Expected:
Packit Service 76cb02
     \nolinkurl{ab%cde%#%fg}
Packit Service 76cb02
     \nolinkurl{#ab%cde%#%fg###}
Packit Service 76cb02
     \nolinkurl{nothing}\texttt{\ }\nolinkurl{special}
Packit Service 76cb02
     \nolinkurl{nothing\special\ }
Packit Service 76cb02
     \nolinkurl{nothing\special\\}
Packit Service 76cb02
     <entry>
Packit Service 76cb02
       \nolinkurl{ab}\texttt{\%}\nolinkurl{cde}\texttt{\%\#\%}\nolinkurl{fg}
Packit Service 76cb02
       \texttt{\#\%\#}\nolinkurl{ab}\texttt{\%}\nolinkurl{cde}\texttt{\%\#\%}\nolinkurl{fg}\texttt{\#\#\#}
Packit Service 76cb02
       \nolinkurl{nothing}\texttt{\ }\nolinkurl{special}
Packit Service 76cb02
       \texttt{\#\#\#\#\#\#\#\#\#}
Packit Service 76cb02
       \texttt{\%\%\%\%\%\%\%\%\%}
Packit Service 76cb02
       \texttt{\#\%\#\%\%\#\%\#\#}
Packit Service 76cb02
     </entry>
Packit Service 76cb02
Packit Service 76cb02
-->
Packit Service 76cb02
<xsl:template match="nolinkurl">
Packit Service 76cb02
  <xsl:call-template name="nolinkurl-output">
Packit Service 76cb02
    <xsl:with-param name="url" select="."/>
Packit Service 76cb02
  </xsl:call-template>
Packit Service 76cb02
</xsl:template>
Packit Service 76cb02
Packit Service 76cb02
</xsl:stylesheet>