lyx_mirror/lib/docbook/common/autoidx-kosek.xsl
2021-02-05 16:07:42 +01:00

154 lines
4.9 KiB
XML

<?xml version="1.0"?>
<!DOCTYPE xsl:stylesheet [
<!ENTITY % common.entities SYSTEM "entities.ent">
%common.entities;
]>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:d="http://docbook.org/ns/docbook"
version="1.0"
xmlns:func="http://exslt.org/functions"
xmlns:exslt="http://exslt.org/common"
xmlns:l="http://docbook.sourceforge.net/xmlns/l10n/1.0"
xmlns:fo="http://www.w3.org/1999/XSL/Format"
extension-element-prefixes="func exslt"
exclude-result-prefixes="func exslt i l d"
xmlns:i="urn:cz-kosek:functions:index">
<!-- ********************************************************************
This file is part of the DocBook XSL Stylesheet distribution.
See ../README or http://cdn.docbook.org/ for copyright
copyright and other information.
******************************************************************** -->
<xsl:param name="kosek.imported">
<xsl:variable name="vendor" select="system-property('xsl:vendor')"/>
<xsl:choose>
<xsl:when test="contains($vendor, 'libxslt')">
<xsl:message terminate="yes">
<xsl:text>ERROR: the 'kosek' index method does not </xsl:text>
<xsl:text>work with the xsltproc XSLT processor.</xsl:text>
</xsl:message>
</xsl:when>
<xsl:otherwise>1</xsl:otherwise>
</xsl:choose>
</xsl:param>
<!-- Returns index group code for given term -->
<func:function name="i:group-index">
<xsl:param name="term"/>
<xsl:variable name="letters-rtf">
<xsl:variable name="lang">
<xsl:call-template name="l10n.language"/>
</xsl:variable>
<xsl:variable name="local.l10n.letters"
select="($local.l10n.xml//l:i18n/l:l10n[@language=$lang]/l:letters)[1]"/>
<xsl:for-each select="$l10n.xml">
<xsl:variable name="l10n.letters"
select="document(key('l10n-lang', $lang)/@href)/l:l10n/l:letters[1]"/>
<xsl:choose>
<xsl:when test="count($local.l10n.letters) &gt; 0">
<xsl:copy-of select="$local.l10n.letters"/>
</xsl:when>
<xsl:when test="count($l10n.letters) &gt; 0">
<xsl:copy-of select="$l10n.letters"/>
</xsl:when>
<xsl:otherwise>
<xsl:message>
<xsl:text>No "</xsl:text>
<xsl:value-of select="$lang"/>
<xsl:text>" localization of index grouping letters exists</xsl:text>
<xsl:choose>
<xsl:when test="$lang = 'en'">
<xsl:text>.</xsl:text>
</xsl:when>
<xsl:otherwise>
<xsl:text>; using "en".</xsl:text>
</xsl:otherwise>
</xsl:choose>
</xsl:message>
<xsl:copy-of select="document(key('l10n-lang', 'en'))/l:l10n/l:letters[1]"/>
</xsl:otherwise>
</xsl:choose>
</xsl:for-each>
</xsl:variable>
<xsl:variable name="letters" select="exslt:node-set($letters-rtf)/*"/>
<xsl:variable name="long-letter-index" select="$letters/l:l[. = substring($term,1,2)]/@i"/>
<xsl:variable name="short-letter-index" select="$letters/l:l[. = substring($term,1,1)]/@i"/>
<xsl:variable name="letter-index">
<xsl:choose>
<xsl:when test="$long-letter-index">
<xsl:value-of select="$long-letter-index"/>
</xsl:when>
<xsl:when test="$short-letter-index">
<xsl:value-of select="$short-letter-index"/>
</xsl:when>
<xsl:otherwise>0</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<func:result select="number($letter-index)"/>
</func:function>
<!-- Return index group letter for given group code -->
<func:function name="i:group-letter">
<xsl:param name="index"/>
<xsl:variable name="letters-rtf">
<xsl:variable name="lang">
<xsl:call-template name="l10n.language"/>
</xsl:variable>
<xsl:variable name="local.l10n.letters"
select="($local.l10n.xml//l:i18n/l:l10n[@language=$lang]/l:letters)[1]"/>
<xsl:for-each select="$l10n.xml">
<xsl:variable name="l10n.letters"
select="document(key('l10n-lang', $lang)/@href)/l:l10n/l:letters[1]"/>
<xsl:choose>
<xsl:when test="count($local.l10n.letters) &gt; 0">
<xsl:copy-of select="$local.l10n.letters"/>
</xsl:when>
<xsl:when test="count($l10n.letters) &gt; 0">
<xsl:copy-of select="$l10n.letters"/>
</xsl:when>
<xsl:otherwise>
<xsl:message>
<xsl:text>No "</xsl:text>
<xsl:value-of select="$lang"/>
<xsl:text>" localization of index grouping letters exists</xsl:text>
<xsl:choose>
<xsl:when test="$lang = 'en'">
<xsl:text>.</xsl:text>
</xsl:when>
<xsl:otherwise>
<xsl:text>; using "en".</xsl:text>
</xsl:otherwise>
</xsl:choose>
</xsl:message>
<xsl:copy-of select="document(key('l10n-lang', 'en')/@href)/l:l10n/l:letters[1]"/>
</xsl:otherwise>
</xsl:choose>
</xsl:for-each>
</xsl:variable>
<xsl:variable name="letters" select="exslt:node-set($letters-rtf)/*"/>
<func:result select="$letters/l:l[@i=$index][1]"/>
</func:function>
<xsl:key name="group-code"
match="d:indexterm"
use="i:group-index(&primary;)"/>
</xsl:stylesheet>