Weave

Part of Literate Programming in XML

Norman Walsh

$Id: weave.xweb,v 1.5 2002/03/15 18:12:01 nwalsh Exp $

05 Oct 2001


Table of Contents

1. The Stylesheet
1.1. Initialization
1.1.1. Default Exclude Result Prefixes
1.2. Named Templates
2. Root Template
3. Fragments
3.1. Copying Content
3.1.1. Convenience Variables
3.1.2. Handle First Node
3.1.2.1. Handle A Fragment that Contains a Single Node
3.1.2.1.1. More Convenience Variables
3.1.2.1.2. Handle a Single Node With Leading and Trailing Newlines
3.1.2.1.3. Handle a Single Node With Only Leading Newlines
3.1.2.1.4. Handle a Single Node with Only Trailing Newlines
3.1.2.1.5. Handle a Single Node with No Newlines
3.1.2.2. Handle a First Node with a Leading Newline
3.1.2.3. Handle a First Node without a Leading Newline
3.1.3. Handle Last Node
3.1.4. Handle the Middle Nodes
4. Fragment References
4.1. Copying Elements
4.1.1. Copying src:passthrough
4.1.2. Copying src:fragref
4.1.3. Copying Everything Else
4.1.3.1. Calculate Excluded Prefixes
4.1.3.2. Output Attributes
4.2. Count Applicable Namespaces
4.3. Output Applicable Attributes and Pseudo-Attributes
4.3.1. Output Applicable Namespaces
4.3.1.1. Indent Attribute
4.3.2. Output Applicable Attributes
5. Other Content
5.1. Elements
5.1.1. Copy Namespaces
5.2. Processing Instructions
5.3. Comments
6. Weaving DocBook

The weave.xsl stylesheet transforms an XWEB document into a “documentation” document. This is accomplished by “weaving” the documentation from the XWEB file with a pretty-printed version of the source code.

The resulting document is ready to be processed by whatever down-stream publishing tools are appropriate.

1. The Stylesheet

The stylesheet performs some initialization, begins processing at the root of the XWEB document, and processes fragments and elements. This stylesheet also requires some recursive templates that are stored at the end of the stylesheet.

§1.1

  1| <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   |                 exclude-result-prefixes="xsl src xml"
   |                 version="1.0">
   |   §1.1.1. Initialization
  5|   §2.1. Root Template
   |   §5.1. Other Content
   |   §3.1. Fragments
   |   §4.1.1. Copying Elements
   |   §1.2.1. Named Templates
 10| </xsl:stylesheet>

1.1. Initialization

The stylesheet initializes the processor by loading its version information (stored in a separate file because it is shared by several stylesheets), telling the processor to preserve whitespace on all input elements, setting the output method, and initializing the excluded result prefixes.

The stylesheet also constructs a key for the ID values used on fragments. Because XWEB documents do not have to be valid according to any particular DTD or Schema, the stylesheet cannot rely on having the IDs identified as type ID in the source document.

§1.1.1: §1.1

  1|   <xsl:include href="VERSION"/>
   |   <xsl:preserve-space elements="*"/>
   |   <xsl:output method="xml"/>
   |   §1.1.1.1. Default Exclude Result Prefixes
  5| 
   |   <xsl:key name="fragment"
   |            match="src:fragment"
   |            use="@id"/>
   | 
 10|   <xsl:param name="top"
   |              select="'top'"/>

1.1.1. Default Exclude Result Prefixes

Generally, the namespace declarations for namespaces used by the source code portion of the XWEB file are not needed in the “woven” documentation. To reduce the size of the documentation file, and to reduce the clutter of unnecessary declarations, you can specify prefixes that should be excluded.

This is done as a parameter so that it can be adjusted dynamically, though it rarely needs to be. The initial value comes from the mundane-result-prefixes attribute on the XWEB file's top src:fragment.

§1.1.1.1: §1.1.1

  1| <xsl:param name="mundane-result-prefixes"
  2|            select="key('fragment',$top)/@mundane-result-prefixes"/>

1.2. Named Templates

Correctly copying elements requires the ability to calculate applicable namespaces and output the appropriate namespace psuedo-attributes and attributes. These templates accomplish those tasks.

2. Root Template

The root template begins processing at the root of the XWEB document. It outputs a couple of informative comments and then processes the document.

Source code fragments in the XWEB document are not required to be sequential, we assume that they appear in the order in which they should be documented.

§2.1: §1.1

  1| <xsl:template match="/">
   |   <xsl:text>
   | </xsl:text>
   |   <xsl:comment>
  5|     <xsl:text> This file was generated by weave.xsl version </xsl:text>
   |     <xsl:value-of select="$VERSION"/>
   |     <xsl:text>. Do not edit! </xsl:text>
   |   </xsl:comment>
   |   <xsl:text>
 10| </xsl:text>
   |   <xsl:comment> See http://sourceforge.net/projects/docbook/ </xsl:comment>
   |   <xsl:apply-templates/>
   | </xsl:template>

3. Fragments

The goal when copying the source code fragments is to preserve the src:fragment elements in the documentation file (so that they can be formatted appropriately) but to escape all of the fragment content so that it appears simply as “text” in the documentation.

For example, if the following fragment appears in the XWEB file:

<src:fragment id="foo">
  <emphasis>some code</emphasis>
</src:fragment>

the documentation must contain:

<src:fragment id="foo">
  &lt;emphasis&gt;some code&lt;/emphasis&gt;
</src:fragment>

The significance of this escaping is less obvious when the fragment contains non-XML code, but it is in fact still relevant.

This task is accomplished by constructing a literal src:fragment element and then copying the content of the source document's src:fragment element in a mode that escapes all markup characters.

§3.1: §1.1

  1| <xsl:template match="src:fragment">
   |   <src:fragment id="{@id}">
   |     <xsl:call-template name="copy-content"/>
   |   </src:fragment>
  5| </xsl:template>
   | 
   | §3.1.1. Copying Content
   | 

3.1. Copying Content

The “copy-content” template could be as simple as:

<xsl:apply-templates mode="copy"/>

but we play one more trick for the convenience of XWEB authors.

It's convenient for authors to use newlines at the beginning and end of each program fragment, producing fragments that look like the one shown above. The problem is that white space is significant inside fragments, so the resulting documenation will contain a listing like this:

  1 |
  2 |   <emphasis>some code</emphasis>
  3 |

The leading and trailing blank lines in this listing are distracting and almost certainly insignificant. Authors can avoid this problem by removing the offending newlines:

<src:fragment id="foo"><emphasis>some code</emphasis></src:fragment>

but this makes the source document more difficult to read and introduces tedious cut-and-paste problems. To avoid this problem, the “copy-content” template takes special pains to trim off one optional leading newline and one optional trailing newline. It does this by dealing with the first, last, and middle nodes of the src:fragment elements separately:

§3.1.1: §3.1

  1| <xsl:template name="copy-content">
   |   §3.1.1.1. Convenience Variables
   |   §3.1.2.1. Handle First Node
   |   §3.1.4.1. Handle the Middle Nodes
  5|   §3.1.3.1. Handle Last Node
   | </xsl:template>

3.1.1. Convenience Variables

For convenience, we store subexpressions containing the first, last, and all the middle nodes in variables.

§3.1.1.1: §3.1.1

  1|   <xsl:variable name="first-node"
   |                 select="node()[1]"/>
   |   <xsl:variable name="middle-nodes"
   |                 select="node()[position() > 1 and position() < last()]"/>
  5|   <xsl:variable name="last-node"
   |                 select="node()[position() > 1 and position() = last()]"/>

3.1.2. Handle First Node

Handling the leading newline is conceptually a simple matter of looking at the first character on the line and skipping it if it is a newline. A slight complexity is introduced by the fact that if the fragment contains only a single text node, the first node is also the last node and we have to possibly trim off a trialing newline as well. We separate that out as a special case.

3.1.2.1. Handle A Fragment that Contains a Single Node

If the $first-node is a text node and the fragment contains only a single child, then it is also the last node.

In order to deal with a single text node child, we must address four cases: the node has both leading and trailing newlines, the node has only leading newlines, only trailing newlines, or no newlines at all.

3.1.2.1.1. More Convenience Variables

For convenience, we calculate whether or not the node in question has leading and/or trailing newlines and store those results in variables.

§3.1.2.1.1.1: §3.1.2.1.1

  1|         <xsl:variable name="leading-nl"
   |                       select="substring($first-node, 1, 1) = '
   | '"/>
   |         <xsl:variable name="trailing-nl"
  5|                       select="substring($first-node, string-length($first-node), 1) = '
   | '"/>
3.1.2.1.2. Handle a Single Node With Leading and Trailing Newlines

If the node has both leading and trailing newlines, trim a character off each end.

§3.1.2.1.2.1: §3.1.2.1.1

  1|           <xsl:when test="$leading-nl and $trailing-nl">
  2|             <xsl:value-of select="substring($first-node, 2, string-length($first-node)-2)"/>
  3|           </xsl:when>
3.1.2.1.3. Handle a Single Node With Only Leading Newlines

If the node has only leading newlines, trim off the first character.

§3.1.2.1.3.1: §3.1.2.1.1

  1|           <xsl:when test="$leading-nl">
  2|             <xsl:value-of select="substring($first-node, 2)"/>
  3|           </xsl:when>
3.1.2.1.4. Handle a Single Node with Only Trailing Newlines

If the node has only trailing newlines, trim off the last character.

§3.1.2.1.4.1: §3.1.2.1.1

  1|           <xsl:when test="$trailing-nl">
  2|             <xsl:value-of select="substring($first-node, 1, string-length($first-node)-1)"/>
  3|           </xsl:when>
3.1.2.1.5. Handle a Single Node with No Newlines

Otherwise, the node has no newlines and it is simply printed.

§3.1.2.1.5.1: §3.1.2.1.1

  1|           <xsl:otherwise>
  2|             <xsl:value-of select="$first-node"/>
  3|           </xsl:otherwise>
3.1.2.2. Handle a First Node with a Leading Newline

If the first node is a text node and begins with a newline, trim off the first character.

§3.1.2.2.1: §3.1.2.1

  1|       <xsl:when test="$first-node = text() and substring($first-node, 1, 1) = '
  2| '">
  3|         <xsl:value-of select="substring($first-node, 2)"/>
  4|       </xsl:when>
3.1.2.3. Handle a First Node without a Leading Newline

Otherwise, the first node is not a text node or does not begin with a newline, so use the “copy” mode to copy it to the result tree.

§3.1.2.3.1: §3.1.2.1

  1|       <xsl:otherwise>
  2|         <xsl:apply-templates select="$first-node"
  3|                              mode="copy"/>
  4|       </xsl:otherwise>

3.1.3. Handle Last Node

Handling the last node is roughly analagous to handling the first node, except that we know this code is only evaluated if the last node is not also the first node.

If the last node is a text node and ends with a newline, strip it off. Otherwise, just copy the content of the last node using the “copy” mode.

§3.1.3.1: §3.1.1

  1|     <xsl:choose>
   |       <xsl:when test="$last-node = text() and substring($last-node, string-length($last-node), 1) = '
   | '">
   |         <xsl:value-of select="substring($last-node, 1, string-length($last-node)-1)"/>
  5|       </xsl:when>
   |       <xsl:otherwise>
   |         <xsl:apply-templates select="$last-node"
   |                              mode="copy"/>
   |       </xsl:otherwise>
 10|     </xsl:choose>

3.1.4. Handle the Middle Nodes

The middle nodes are easy, just copy them using the “copy” mode.

§3.1.4.1: §3.1.1

  1|     <xsl:apply-templates select="$middle-nodes"
  2|                          mode="copy"/>

4. Fragment References

Fragment references, like fragments, are simply copied to the documentation file. The use of disable-output-escaping is unique to this template (it instructs the “tangle” stylesheet to make a literal copy of the src:fragref, rather than expanding it, as it usually would).

§4.1

  1| <xsl:template match="src:fragref">
   |   <src:fragref linkend="{@linkend}"/>
   |     <xsl:apply-templates/>
   |   </src:fragref>
  5| </xsl:template>

4.1. Copying Elements

Copying elements to the result tree can be divided into four cases: copying passthrough elements, copying fragment references and copying everything else.

4.1.1. Copying src:passthrough

Passthrough elements contain text that is intended to appear literally in the result tree. We simply copy it through.

§4.1.1.1: §4.1.1

  1| <xsl:template match="src:passthrough"
   |               mode="copy"
   |               priority="3">
   |   <xsl:apply-templates select="node()|@*"
  5|                        mode="copy"/>
   | </xsl:template>

4.1.2. Copying src:fragref

Because tangle and weave are XSLT stylesheets that process XSLT stylesheets, processing src:fragref poses a unique challenge.

In ordinary tangle processing, they are expanded and replaced with the content of the fragment that they point to. But when weave.xweb is tangled, they must be copied through literally. The disable-output-escaping attribute provides the hook that allows this.

When we're weaving, if the disable-output-escaping attribute is “yes”, the src:fragref is treated literally. When it isn't, the element is copied through literally.

§4.1.2.1: §4.1.1

  1| <xsl:template match="src:fragref"
   |               mode="copy"
   |               priority="3">
   |   <xsl:choose>
  5|     <xsl:when test="@disable-output-escaping='yes'">
   |       <xsl:text><src:fragref linkend="</xsl:text>
   |       <xsl:value-of select="@linkend"/>
   |       <xsl:text>"/></xsl:text>
   |       <xsl:apply-templates mode="copy"/>
 10|       <xsl:text></src:fragref></xsl:text>
   |     </xsl:when>
   |     <xsl:otherwise>
   |       <src:fragref linkend="{@linkend}"/></src:fragref>
   |     </xsl:otherwise>
 15|   </xsl:choose>
   | </xsl:template>

4.1.3. Copying Everything Else

There are two kinds of everything else: elements and other nodes.

This element template is quite complex, but it's goal is simple: to translate bona-fide elements in the source document into text in the result document. In other words, where the element “<foo>” occurs in the source document, the result document should contain “&lt;foo&gt;”.

Three things make this tricky:

  1. Elements in the source documents may have namespace nodes associated with them that are not explicitly declared on them. To the best of our ability, we must avoid copying these namespace nodes to the result tree.

  2. Attributes must be copied and formatted in some reasonable way in order to avoid excessively long lines in the documentation.

  3. Empty elements must be printed using the appropriate empty-element syntax. (It is simply impossible to determine what syntax was used in the source document, the best we can do is always use the empty-element syntax in the result as it is likely to be more common in the soruce.)

The plan of attack is:

  • Calculate what namespaces should be excluded (by prefix).

  • Calculate the applicable namespaces.

  • Output the leading “<” and the element name.

  • Output the applicable namespaces.

  • Output the attributes.

  • If the element is not empty, finish the start tag, copy the element contents, and output and end tag. If the element is empty, finish the start tag with the empty-element syntax.

§4.1.3.2: §4.1.3.1

  1| <xsl:template match="processing-instruction()"
   |               mode="copy"
   |               priority="2">
   |   <xsl:text><?</xsl:text>
  5|   <xsl:value-of select="name(.)"/>
   |   <xsl:value-of select="."/>
   |   <xsl:text>?></xsl:text>
   | </xsl:template>
   | 
 10| <xsl:template match="comment()"
   |               mode="copy"
   |               priority="2">
   |   <xsl:text><!--</xsl:text>
   |   <xsl:value-of select="."/>
 15|   <xsl:text>--></xsl:text>
   | </xsl:template>
   | 
   | <xsl:template match="*"
   |               mode="copy"
 20|               priority="2">
   |   <xsl:variable name="exclude">
   |     §4.1.3.1.1. Calculate Excluded Prefixes
   |   </xsl:variable>
   | 
 25|   <xsl:variable name="applicable.namespaces">
   |     <xsl:call-template name="count.applicable.namespaces">
   |       <xsl:with-param name="namespaces"
   |                       select="namespace::*"/>
   |       <xsl:with-param name="exclude-prefixes"
 30|                       select="$exclude"/>
   |       <xsl:with-param name="exclude-uri"
   |                       select="'http://nwalsh.com/xmlns/litprog/fragment'"/>
   |     </xsl:call-template>
   |   </xsl:variable>
 35| 
   |   <xsl:text><</xsl:text>
   |   <xsl:value-of select="name(.)"/>
   | 
   |   <xsl:if test="$applicable.namespaces > 0">
 40|     <xsl:call-template name="output.applicable.namespaces">
   |       <xsl:with-param name="namespaces"
   |                       select="namespace::*"/>
   |       <xsl:with-param name="exclude-prefixes"
   |                       select="$exclude"/>
 45|       <xsl:with-param name="exclude-uri"
   |                       select="'http://nwalsh.com/xmlns/litprog/fragment'"/>
   |     </xsl:call-template>
   |   </xsl:if>
   | 
 50|   §4.1.3.2.1. Output Attributes
   | 
   |   <xsl:choose>
   |     <xsl:when test="node()">
   |       <xsl:text>></xsl:text>
 55|       <xsl:apply-templates select="node()"
   |                            mode="copy"/>
   |       <xsl:text></</xsl:text>
   |       <xsl:value-of select="name(.)"/>
   |       <xsl:text>></xsl:text>
 60|     </xsl:when>
   |     <xsl:otherwise>
   |       <xsl:text>/></xsl:text>
   |     </xsl:otherwise>
   |   </xsl:choose>
 65| </xsl:template>

The preceding template handles elements. Everything else is simply copied.

§4.1.3.3: §4.1.3.1

  1| <xsl:template match="node()|@*"
   |               mode="copy">
   |   <xsl:copy>
   |     <xsl:apply-templates select="@*|node()"
  5|                          mode="copy"/>
   |   </xsl:copy>
   | </xsl:template>
4.1.3.1. Calculate Excluded Prefixes

Calculating the excluded prefixes requires evaluating the following conditions:

  1. If the element we are copying is inside a src:fragment element that specifies a set of mundane-result-prefixes, use those prefixes.

  2. Otherwise, use the $mundane-result-prefixes we calculated earlier.

Note that in every case we exclude the namespace associated with “xml”.

§4.1.3.1.1: §4.1.3.2

  1|     <xsl:choose>
   |       <xsl:when test="ancestor::src:fragment/@mundane-result-prefixes">
   |         <xsl:value-of select="concat(' xml ',                               ancestor::src:fragment/@exclude-result-prefixes,                               ' ')"/>
   |       </xsl:when>
  5|       <xsl:otherwise>
   |         <xsl:value-of select="concat(' xml ',                               $mundane-result-prefixes,                               ' ')"/>
   |       </xsl:otherwise>
   |     </xsl:choose>
4.1.3.2. Output Attributes

The mechanics of outputting the applicable attributes is described in Section 4.3. The only wrinkle here is that if we have already output “xmlns” declarations for namespaces, the first real attribute is not really the first thing that looks like an attribute in the result.

§4.1.3.2.1: §4.1.3.2

  1|   <xsl:choose>
   |     <xsl:when test="$applicable.namespaces > 0">
   |       <xsl:call-template name="output.applicable.attributes">
   |         <xsl:with-param name="attributes"
  5|                         select="attribute::*"/>
   |         <xsl:with-param name="first"
   |                         select="'0'"/>
   |       </xsl:call-template>
   |     </xsl:when>
 10|     <xsl:otherwise>
   |       <xsl:call-template name="output.applicable.attributes">
   |         <xsl:with-param name="attributes"
   |                         select="attribute::*"/>
   |       </xsl:call-template>
 15|     </xsl:otherwise>
   |   </xsl:choose>

4.2. Count Applicable Namespaces

The applicable namespaces are determined by walking recursively over the list of namespace nodes associated with an element.

For each namespace node, if it has a prefix that is in the list of excluded prefixes or if it is the Literate Programming namespace, it is not counted (because it will not be output). Otherwise, it is counted.

The recursion bottoms out when the list of namespace nodes has been exhausted. The total number of counted namespaces is then returned.

§4.2.1: §1.2.1

  1| <xsl:template name="count.applicable.namespaces">
   |   <xsl:param name="namespaces"
   |              select="namespace::*"/>
   |   <xsl:param name="exclude-prefixes"
  5|              select="''"/>
   |   <xsl:param name="exclude-uri"
   |              select="'http://nwalsh.com/xmlns/litprog/fragment'"/>
   |   <xsl:param name="count"
   |              select="'0'"/>
 10| 
   |   <xsl:choose>
   |     <xsl:when test="count($namespaces) = 0">
   |       <xsl:value-of select="$count"/>
   |     </xsl:when>
 15| 
   |     <xsl:when test="not(contains($exclude-prefixes, name($namespaces[1]))                         or ($namespaces[1] = $exclude-uri))">
   |       <xsl:call-template name="count.applicable.namespaces">
   |         <xsl:with-param name="namespaces"
   |                         select="$namespaces[position()>1]"/>
 20|         <xsl:with-param name="exclude-prefixes"
   |                         select="$exclude-prefixes"/>
   |         <xsl:with-param name="exclude-uri"
   |                         select="$exclude-uri"/>
   |         <xsl:with-param name="count"
 25|                         select="$count + 1"/>
   |       </xsl:call-template>
   |     </xsl:when>
   | 
   |     <xsl:otherwise>
 30|       <xsl:call-template name="count.applicable.namespaces">
   |         <xsl:with-param name="namespaces"
   |                         select="$namespaces[position()>1]"/>
   |         <xsl:with-param name="exclude-prefixes"
   |                         select="$exclude-prefixes"/>
 35|         <xsl:with-param name="exclude-uri"
   |                         select="$exclude-uri"/>
   |         <xsl:with-param name="count"
   |                         select="$count"/>
   |       </xsl:call-template>
 40|     </xsl:otherwise>
   |   </xsl:choose>
   | </xsl:template>

4.3. Output Applicable Attributes and Pseudo-Attributes

Outputing the attributes (or namespace psuedo-attributes) is straightforward, the only tricky part is pretty-printing the resulting document.

Pretty-printing has three cases:

  1. Before outputting the very first attribute or psuedo-attribute, we want to output only a single space, to separate the result from the preceding element name.

  2. Before outputting any additional attribute or psuedo-attribute, we want to output a line-feed and then indent the result appropriately. This prevents the attributes and psuedo-attributes from appearing as one huge, long line in the result.

  3. If the element has no attributes or psuedo attributes, we don't want to output anything; we want the closing tag delimiter to appear immediately after the element name.

4.3.1. Output Applicable Namespaces

The applicable namespaces are determined by walking recursively over the list of namespace nodes associated with an element.

For each namespace node, if it has a prefix that is in the list of excluded prefixes or if it is the Literate Programming namespace, it is not output, otherwise, it is.

The recursion bottoms out when the list of namespace nodes has been exhausted.

§4.3.1.1: §1.2.1

  1| <xsl:template name="output.applicable.namespaces">
   |   <xsl:param name="namespaces"
   |              select="namespace::*"/>
   |   <xsl:param name="exclude-prefixes"
  5|              select="''"/>
   |   <xsl:param name="exclude-uri"
   |              select="'http://nwalsh.com/xmlns/litprog/fragment'"/>
   |   <xsl:param name="first"
   |              select="'1'"/>
 10| 
   |   <xsl:choose>
   |     <xsl:when test="count($namespaces) = 0">
   |       <!-- do nothing -->
   |     </xsl:when>
 15|     <xsl:when test="not(contains($exclude-prefixes, name($namespaces[1]))                         or ($namespaces[1] = $exclude-uri))">
   |       §4.3.1.1.1. Indent Attribute
   |       <xsl:text>xmlns</xsl:text>
   |       <xsl:if test="name($namespaces[1]) != ''">:</xsl:if>
   |       <xsl:value-of select="name($namespaces[1])"/>
 20|       <xsl:text>="</xsl:text>
   |       <xsl:value-of select="$namespaces[1]"/>
   |       <xsl:text>"</xsl:text>
   |       <xsl:call-template name="output.applicable.namespaces">
   |         <xsl:with-param name="namespaces"
 25|                         select="$namespaces[position()>1]"/>
   |         <xsl:with-param name="exclude-prefixes"
   |                         select="$exclude-prefixes"/>
   |         <xsl:with-param name="exclude-uri"
   |                         select="$exclude-uri"/>
 30|         <xsl:with-param name="first"
   |                         select="0"/>
   |       </xsl:call-template>
   |     </xsl:when>
   |     <xsl:otherwise>
 35|       <xsl:call-template name="output.applicable.namespaces">
   |         <xsl:with-param name="namespaces"
   |                         select="$namespaces[position()>1]"/>
   |         <xsl:with-param name="exclude-prefixes"
   |                         select="$exclude-prefixes"/>
 40|         <xsl:with-param name="exclude-uri"
   |                         select="$exclude-uri"/>
   |         <xsl:with-param name="count"
   |                         select="$first"/>
   |       </xsl:call-template>
 45|     </xsl:otherwise>
   |   </xsl:choose>
   | </xsl:template>
4.3.1.1. Indent Attribute

If this is not the first attribute or pseudo-attribute, output a newline and then indent an appropriate amount. Otherwise, simply output a space.

§4.3.1.1.1: §4.3.1.1, §4.3.2.1

  1|       <xsl:choose>
   |         <xsl:when test="$first = 0">
   |           <xsl:text>
   | </xsl:text>
  5|           <xsl:call-template name="indent"/>
   |         </xsl:when>
   |         <xsl:otherwise>
   |           <xsl:text> </xsl:text>
   |         </xsl:otherwise>
 10|       </xsl:choose>

Indenting is accomplished by outputting a series of spaces. The number of spaces is determined by the length of the name of the current element plus two (one for the leading “<” and one for the space that separates the name from the first attribute).

§4.3.1.1.2: §1.2.1

  1| <xsl:template name="indent">
   |   <xsl:param name="name"
   |              select="name(.)"/>
   | 
  5|   <xsl:variable name="indent-spaces">
   |     <xsl:call-template name="trailing-space-chars">
   |       <xsl:with-param name="string"
   |                       select="preceding-sibling::text()"/>
   |     </xsl:call-template>
 10|   </xsl:variable>
   | 
   |   <!-- +2 for the leading &lt; and the space after the name -->
   |   <xsl:variable name="indentlen"
   |                 select="string-length($name) + $indent-spaces + 2"/>
 15| 
   |   <xsl:call-template name="spaces">
   |     <xsl:with-param name="count"
   |                     select="$indentlen"/>
   |   </xsl:call-template>
 20| </xsl:template>

Spaces is a recursive template that outputs a specified number of spaces.

§4.3.1.1.3: §1.2.1

  1| <xsl:template name="spaces">
   |   <xsl:param name="count"
   |              select="'0'"/>
   |   <xsl:if test="$count > 0">
  5|     <xsl:text> </xsl:text>
   |     <xsl:call-template name="spaces">
   |       <xsl:with-param name="count"
   |                       select="$count - 1"/>
   |     </xsl:call-template>
 10|   </xsl:if>
   | </xsl:template>

Given a string, this template walks it recursively counting and returning the number of trailing spaces.

§4.3.1.1.4: §1.2.1

  1| <xsl:template name="trailing-space-chars">
   |   <xsl:param name="string"
   |              select="''"/>
   |   <xsl:param name="count"
  5|              select="0"/>
   | 
   |   <xsl:choose>
   |     <xsl:when test="$string = ''                     or substring($string,string-length($string),1) != ' '">
   |       <xsl:value-of select="$count"/>
 10|     </xsl:when>
   |     <xsl:otherwise>
   |       <xsl:call-template name="trailing-space-chars">
   |         <xsl:with-param name="string"
   |                         select="substring($string,1,string-length($string)-1)"/>
 15|         <xsl:with-param name="count"
   |                         select="$count + 1"/>
   |       </xsl:call-template>
   |     </xsl:otherwise>
   |   </xsl:choose>
 20| </xsl:template>

4.3.2. Output Applicable Attributes

This template walks recursively over the attributes associated with a node and outputs each one of them in turn. (All attributes are applicable.)

§4.3.2.1: §1.2.1

  1| <xsl:template name="output.applicable.attributes">
   |   <xsl:param name="attributes"
   |              select="attribute::*"/>
   |   <xsl:param name="first"
  5|              select="'1'"/>
   | 
   |   <xsl:choose>
   |     <xsl:when test="count($attributes) = 0">
   |       <!-- do nothing -->
 10|     </xsl:when>
   |     <xsl:otherwise>
   |       §4.3.1.1.1. Indent Attribute
   |       <xsl:value-of select="name($attributes[1])"/>
   |       <xsl:text>="</xsl:text>
 15|       <xsl:value-of select="$attributes[1]"/>
   |       <xsl:text>"</xsl:text>
   |       <xsl:call-template name="output.applicable.attributes">
   |         <xsl:with-param name="attributes"
   |                         select="$attributes[position()>1]"/>
 20|         <xsl:with-param name="first"
   |                         select="'0'"/>
   |       </xsl:call-template>
   |     </xsl:otherwise>
   |   </xsl:choose>
 25| </xsl:template>

5. Other Content

The remaining elements, processing instructions, and comments are part of the documentation and must simply be copied to the result:

5.1. Elements

The default template handles copying elements. It is a five step process:

  1. Save a copy of the context node in $node so that we can refer to it later from inside an xsl:for-each.

  2. Construct a new node in the result tree with the same qualified name and namespace as the context node.

  3. Copy the namespace nodes on the context node to the new node in the result tree. We must do this manually because the XWEB file may have broken the content of this element into several separate fragments. Breaking things into separate fragments makes it impossible for the XSLT processor to always construct the right namespace nodes automatically.

  4. Copy the attributes.

  5. Copy the children.

§5.1.1: §5.1

  1| <xsl:template match="*">
   |   <xsl:variable name="node"
   |                 select="."/>
   |   <xsl:element name="{name(.)}"
  5|                namespace="{namespace-uri(.)}">
   |     §5.1.1.1. Copy Namespaces
   |     <xsl:copy-of select="@*"/>
   |     <xsl:apply-templates/>
   |   </xsl:element>
 10| </xsl:template>

5.1.1. Copy Namespaces

Copying the namespaces is a simple loop over the elements on the namespace axis, with one wrinkle.

It is an error to copy a namespace node onto an element if a namespace node is already present for that namespace. The fact that we're running this loop in a context where we've constructed the result node explicitly in the correct namespace means that attempting to copy that namespace node again will produce an error. We work around this problem by explicitly testing for that namespace and not copying it.

§5.1.1.1: §5.1.1

  1|         <xsl:for-each select="namespace::*">
   |           <xsl:if test="string(.) != namespace-uri($node)">
   |             <xsl:copy/>
   |           </xsl:if>
  5|         </xsl:for-each>

5.2. Processing Instructions

Processing instructions are simply copied through.

§5.2.1: §5.1

  1| <xsl:template match="processing-instruction()">
   |   <xsl:processing-instruction name="{name(.)}">
   |     <xsl:value-of select="."/>
   |   </xsl:processing-instruction>
  5| </xsl:template>

5.3. Comments

Comments are simply copied through. Note, however, that many processors do not preserve comments in the source document, so this template may never be matched.

§5.3.1: §5.1

  1| <xsl:template match="comment()">
   |   <xsl:comment>
   |     <xsl:value-of select="."/>
   |   </xsl:comment>
  5| </xsl:template>

6. Weaving DocBook

It's no secret (and probably no surprise) that I use DocBook for most of my document authoring. Web files are no exception, and I have DocBook customization layer that validates woven XWEB documentation files.

In order to validate my woven documentation, I need to make sure that the appropriate document type declaration is associated with the documents. This is a simple change to the xsl:output instruction.

This stylesheet imports weave.xsl for the weaving functionality and simply sets the public and system identifiers.

§6.1

  1| <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   |                 exclude-result-prefixes="xsl src xml"
   |                 version="1.0">
   | 
  5|   <xsl:import xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   |               href="weave.xsl"/>
   |   <xsl:output xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   |               method="xml"
   |               doctype-public="-//DocBook Open Repository//DTD DocBook Literate Programming V0.0//EN"
 10|               doctype-system="http://docbook.sourceforge.net/release/litprog/current/dtd/ldocbook.dtd"/>
   | </xsl:stylesheet>