<?xml version='1.0'?>
xmlns:xverb="com.nwalsh.xalan.Verbatim"
exclude-result-prefixes="sverb xverb lxslt"
version='1.0'>
<!-- ********************************************************************
$Id: callout.xsl,v 1.2 2001/06/23 17:06:33 veillard Exp $
********************************************************************
This file is part of the XSL DocBook Stylesheet distribution.
and other information.
******************************************************************** -->
<lxslt:component prefix="xverb"
functions="insertCallouts"/>
<xsl:template match="programlistingco|screenco">
<xsl:variable name="verbatim" select="programlisting|screen"/>
<xsl:variable name="vendor" select="system-property('xsl:vendor')"/>
<xsl:choose>
<xsl:when test="$use.extensions != '0'
and $callouts.extension != '0'">
<xsl:variable name="rtf">
<xsl:apply-templates select="$verbatim">
<xsl:with-param name="suppress-numbers" select="'1'"/>
</xsl:apply-templates>
</xsl:variable>
<xsl:variable name="rtf-with-callouts">
<xsl:choose>
<xsl:when test="contains($vendor, 'SAXON ')">
<xsl:copy-of select="sverb:insertCallouts(areaspec,$rtf)"/>
</xsl:when>
<xsl:when test="contains($vendor, 'Apache Software Foundation')">
<xsl:copy-of select="xverb:insertCallouts(areaspec,$rtf)"/>
</xsl:when>
<xsl:otherwise>
<xsl:message terminate="yes">
<xsl:text>Don't know how to do callouts with </xsl:text>
<xsl:value-of select="$vendor"/>
</xsl:message>
</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:choose>
<xsl:when test="$verbatim/@linenumbering = 'numbered'
and $linenumbering.extension != '0'">
<xsl:call-template name="number.rtf.lines">
<xsl:with-param name="rtf" select="$rtf-with-callouts"/>
<xsl:with-param name="pi.context"
select="programlisting|screen"/>
</xsl:call-template>
<xsl:apply-templates select="calloutlist"/>
</xsl:when>
<xsl:otherwise>
<xsl:copy-of select="$rtf-with-callouts"/>
<xsl:apply-templates select="calloutlist"/>
</xsl:otherwise>
</xsl:choose>
</xsl:when>
<xsl:otherwise>
<xsl:apply-templates/>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template match="areaspec|areaset|area">
</xsl:template>
<xsl:template match="areaset" mode="conumber">
<xsl:number count="area|areaset" format="1"/>
</xsl:template>
<xsl:template match="area" mode="conumber">
<xsl:number count="area|areaset" format="1"/>
</xsl:template>
<xsl:template match="co">
<fo:inline id="{@id}">
<xsl:apply-templates select="." mode="callout-bug"/>
</fo:inline>
</xsl:template>
<xsl:template match="co" mode="callout-bug">
<xsl:call-template name="callout-bug">
<xsl:with-param name="conum">
<xsl:number count="co" format="1"/>
</xsl:with-param>
</xsl:call-template>
</xsl:template>
<xsl:template name="callout-bug">
<xsl:param name="conum" select='1'/>
<xsl:choose>
<!-- Draw callouts as images -->
<xsl:when test="$callout.graphics != '0'
and $conum <= $callout.graphics.number.limit">
<fo:external-graphic
src="{$callout.graphics.path}{$conum}{$callout.graphics.extension}"/>
</xsl:when>
<xsl:when test="$callout.unicode != 0
and $conum <= $callout.unicode.number.limit">
<xsl:choose>
<xsl:when test="$callout.unicode.start.character = 10102">
<xsl:choose>
<xsl:when test="$conum = 1">❶</xsl:when>
<xsl:when test="$conum = 2">❷</xsl:when>
<xsl:when test="$conum = 3">❸</xsl:when>
<xsl:when test="$conum = 4">❹</xsl:when>
<xsl:when test="$conum = 5">❺</xsl:when>
<xsl:when test="$conum = 6">❻</xsl:when>
<xsl:when test="$conum = 7">❼</xsl:when>
<xsl:when test="$conum = 8">❽</xsl:when>
<xsl:when test="$conum = 9">❾</xsl:when>
<xsl:when test="$conum = 10">❿</xsl:when>
</xsl:choose>
</xsl:when>
<xsl:otherwise>
<xsl:message>
<xsl:text>Don't know how to generate Unicode callouts </xsl:text>
<xsl:text>when $callout.unicode.start.character is </xsl:text>
<xsl:value-of select="$callout.unicode.start.character"/>
</xsl:message>
<fo:inline background-color="#404040"
color="white"
padding-top="0.1em"
padding-bottom="0.1em"
padding-start="0.2em"
padding-end="0.2em"
baseline-shift="0.1em"
font-family="{$body.font.family}"
font-weight="bold"
font-size="75%">
<xsl:value-of select="$conum"/>
</fo:inline>
</xsl:otherwise>
</xsl:choose>
</xsl:when>
<!-- Pick callouts from Zapf Dingbats - max 10 -->
<xsl:when test="$callout.dingbats != '0' and $conum <= 10">
<fo:inline font-family="ZapfDingbats">
<xsl:choose>
<xsl:when test="$conum=1">❶</xsl:when>
<xsl:when test="$conum=2">❷</xsl:when>
<xsl:when test="$conum=3">❸</xsl:when>
<xsl:when test="$conum=4">❹</xsl:when>
<xsl:when test="$conum=5">❺</xsl:when>
<xsl:when test="$conum=6">❻</xsl:when>
<xsl:when test="$conum=7">❼</xsl:when>
<xsl:when test="$conum=8">❽</xsl:when>
<xsl:when test="$conum=9">❾</xsl:when>
<xsl:when test="$conum=10">❿</xsl:when>
<xsl:otherwise><!-- overflow -->
<xsl:attribute name="color">red</xsl:attribute>
<xsl:text>●</xsl:text>
<xsl:message>
<xsl:text>A callout list contains more than 10 callouts;</xsl:text>
<xsl:text> callout numbering truncated.</xsl:text>
</xsl:message>
</xsl:otherwise>
</xsl:choose>
</fo:inline>
</xsl:when>
<!-- Most safe: draw a dark gray square with a white number inside -->
<xsl:otherwise>
<fo:inline background-color="#404040"
color="white"
padding-top="0.1em"
padding-bottom="0.1em"
padding-start="0.2em"
padding-end="0.2em"
baseline-shift="0.1em"
font-family="{$body.font.family}"
font-weight="bold"
font-size="75%"><xsl:value-of select="$conum"/></fo:inline>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>