#!/bin/sh
#
# xmlprofile -- select portions of an XML document by attribute
#
# Trivial wrapper around Jirka Kosek's stylesheet-transform technique
# for profiling XML documents.  Uses xsltproc or saxon.
#
# Usage: xmlprofile param value file... 
#
# by Eric S. Raymond <esr@thyrsus.com> 18 September 2002

param=$1; shift
value=$1; shift
files="$*"

stylesheet=/usr/tmp/xmlprofile$$.xml
trap "rm -f $stylesheet" 0 1 2 15

# Generate a stylesheet that know about the attribute we're passing in
cat >$stylesheet <<EOF
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">

<!-- Generate DocBook instance with correct DOCTYPE -->
<xsl:output method="xml" 
            doctype-public="-//OASIS//DTD DocBook XML V4.1.2//EN"
            doctype-system="http://www.oasis-open.org/docbook/xml/4.0/docbookx.dtd"/>

<xsl:param name="${param}"/>

<!-- By default, copy all nodes in document -->
<xsl:template match="@*|*|text()|comment()|processing-instruction()">
  <xsl:copy>
    <xsl:apply-templates select="@*|node()"/>
  </xsl:copy>
</xsl:template>

<!-- Elements which have $param attribute set must be treated separately -->
<xsl:template match="*[@${param}]">
  <xsl:variable name="${param}.ok" select="not(@${param}) or
                contains(concat('|', @${param}, '|'), concat('|', \$${param}, '|')) or
                @${param} = ''"/>
  <xsl:if test="\$${param}.ok">
    <xsl:copy>
      <xsl:apply-templates select="@*|node()"/>
    </xsl:copy>
  </xsl:if>
</xsl:template>

</xsl:stylesheet>
EOF

# Apply the generated stylesheet using whatever XSLT engine is handy
if which xsltproc >/dev/null
then
    for file in $files
    do
	xsltproc --novalid --stringparam $param $value $stylesheet $file
    done
elif which saxon >/dev/null
then
    for file in $files
    do
	saxon $file $stylesheet "${param}=${value}"
    done
else
    echo "xmlprofile: couldn't find an XSLT engine!" 1>&2
    exit 1
fi

exit 0
# End