#!/usr/bin/perl

# Gerador de stylesheets para teste de expressões XPATH
# por jcr
# Última revisão: 2001.10.22

use XML::DT ;
my $filename = shift;
my @ccvars = ();

my $modecounter = 0;
my $expcounter = 1;

%modehandler=(
     '-default' => sub{""},
     'query' => sub{++$modecounter; "";});

%handler=(
     '-outputenc' => 'ISO-8859-1',
     '-default'   => sub{"<$q>$c</$q>"},
     'query-set' => sub{"$c"},
     'query' => sub{ $mode = "exp$expcounter"; $expcounter++;
                   "\n<!--******** NEW EXPRESSION ********-->\n".
                   "<xsl:template mode=\"$mode\" match=\"$c\">\n".
                   "  <resultado id=\"$mode\">\n".
                   "    <xsl:copy-of select=\".\"/>\n".
                   "  </resultado>\n".
                   "</xsl:template>\n\n".
                   "<xsl:template match=\"text()\" priority=\"-1\" mode=\"$mode\"/>";
                  },
);

print <<'HEADER-END';
<?xml version="1.0" encoding="ISO-8859-1"?>
<!-- Preprocessor for the XML XPath Wrapper.
    http://www.di.uminho.pt/~jcr/PROJS/xpath-wrapper/
    Copyright (C) 2001 José Carlos Ramalho
    Permission to use granted under GPL or MPL.

    History: 
    2001-10-22 Created by jcr -->

<xsl:stylesheet version="1.0"
                xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
                
<xsl:output indent="yes" encoding="iso-8859-1"/>

<xsl:template match="/">
  <doc-resultados>
HEADER-END

dt($filename,%modehandler);
for($i=1; $i<=$modecounter; $i++)
  { print "    <xsl:apply-templates mode=\"exp$i\"/>\n";
  }

print "  </doc-resultados>\n</xsl:template>";

print dt($filename,%handler); 

print <<'FOOTER-END';
<xsl:template match="//text()" priority="-1">
</xsl:template>

</xsl:stylesheet>
FOOTER-END