#!/usr/bin/perl -w

# $Id: abs2dom,v 1.2 2007-12-17 12:28:50 sondberg Exp $
# ----------------------------------------------------------------------------
# Generate a dom-filter indexing stylesheet based upon an .abs file

use strict;

print <<END_OF_XSLT;
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                    xmlns:z="http://indexdata.com/zebra-2.0"
                    version="1.0">

  <xsl:output indent="yes"
        method="xml"
        version="1.0"
        encoding="UTF-8"/>

  <xsl:template match="/">
    <z:record>
      <xsl:apply-templates/>
    </z:record>
  </xsl:template>

END_OF_XSLT


while (<>) {
    chomp;
    s/^\s+//;
    s/\s+$//;
    next unless s/^xelm\s+//;
    my ($index) = (/(\S+)$/);
    s/\s+\Q$index\E$//;
    my $xpath = $_;
    my @indexes = split /,/, $index;

    print "  <xsl:template match=\"$xpath\">\n";
    print "    <z:index name=\"", join(" ", @indexes), "\">\n";
    print "      <xsl:value-of select=\".\"/>\n";
    print "    </z:index>\n";
    print "  </xsl:template>\n\n";
}


print "</xsl:stylesheet>\n";