<?
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // Title                     : class_schematron.php
  // Version                   : 1.0
  // Author                    : Luis Argerich (lrargerich@yahoo.com)
  // Last modification date    : 05-15-2002
  // Description               : This class allows you to perform Schematron XML
  //                             validations from PHP, it is based on the XSLT
  //                             Schematron implementation so you need PHP configured
  //                             with XSLT. 
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // History: 
  // 05-15-2002     First release of this class
  // 05-12-2002     Embedded the xslt file and the schematron 1.5 xslt into this class
  //                so you only need to include this file in order to use schematron.
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // To-Dos:
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // How to use it:
  // You can have an XML file to be validated in memory or in a file
  // and you need a schematron validation script in XML in memory or in a file.
  // You can compile schematron_scripts to xslt files using the compile_from_mem
  // or compile_from_file methods.
  // Then you can validate with several flavours depeding on the XML source,
  // the schematron source or if the schematron is compiled or not.
  // VERY SIMPLE EXAMPLE:
  // $s=new\; Schematron();$
  // result=$s->schematron\_validate\_file\_using\_file("sample1.xml","validation\_sample1.xml");$
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  
  // CHECK FOR DOUBLE DEFINITION
  if(defined("_class_schematron_is_included")) {
    // do nothing since the class is already included  
  } else {
    define("_class_schematron_is_included",1);
  
  class Schematron {
    var compiled;
    var $sk15;\; function\; Schematron()\; \{$this->sk15='<?xml version="1.0"?><xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:axsl="http://www.w3.org/1999/XSL/TransformAlias" xmlns:sch="http://www.ascc.net/xml/schematron" ><xsl:namespace-alias stylesheet-prefix="axsl" result-prefix="xsl"/><xsl:output method="xml" omit-xml-declaration="no" standalone="yes"  indent="yes"/><xsl:param name="block"></xsl:param><xsl:param name="phase"><xsl:choose><xsl:when test="//sch:schema/@defaultPhase"><xsl:value-of select="//sch:schema/@defaultPhase"/></xsl:when><xsl:otherwise>#ALL</xsl:otherwise></xsl:choose></xsl:param><xsl:param name="hiddenKey"> key </xsl:param><xsl:template match="sch:schema | schema"><axsl:stylesheet version="1.0">        <xsl:for-each select="sch:ns | ns">        <xsl:attribute name="{concat(@prefix,'."'".':dummy-for-xmlns'."'".')}" namespace="{@uri}"/></xsl:for-each>         <xsl:if test="count(sch:title/* | title/* )">        <xsl:message>                <xsl:text>Warning: </xsl:text>                <xsl:value-of select="name(.)"/>                <xsl:text> must not contain any child elements</xsl:text>        </xsl:message>        </xsl:if>         <xsl:call-template name="process-prolog"/><axsl:template match="*|@*" mode="schematron-get-full-path">        <axsl:apply-templates select="parent::*" mode="schematron-get-full-path"/><axsl:text>/</axsl:text><axsl:if test="count(. | ../@*) = count(../@*)">@</axsl:if>                        <axsl:value-of select="name()"/>                        <axsl:text>[</axsl:text>                          <axsl:value-of select="1+count(preceding-sibling::*[name()=name(current())])"/>                          <axsl:text>]</axsl:text></axsl:template><xsl:apply-templates mode="do-keys" select="sch:pattern/sch:rule/sch:key | pattern/rule/key | sch:key | key "/>                <axsl:template match="/">                        <xsl:call-template name="process-root"><xsl:with-param name="fpi" select="@fpi"/><xsl:with-param         xmlns:sch="http://www.ascc.net/xml/schematron"                                name="title" select="./sch:title | title"/><xsl:with-param name="id" select="@id"/><xsl:with-param name="icon" select="@icon"/><xsl:with-param name="lang" select="@xml:lang"/><xsl:with-param name="version" select="@version" /><xsl:with-param name="schemaVersion" select="@schemaVersion" /><xsl:with-param name="contents"><xsl:apply-templates mode="do-all-patterns"/></xsl:with-param>                        </xsl:call-template>                </axsl:template>                 <xsl:apply-templates/>                <axsl:template match="text()" priority="-1"></axsl:template>        </axsl:stylesheet></xsl:template>                <xsl:template match="sch:active | active"><xsl:if test="not(@pattern)"><xsl:message>Markup Error: no pattern attribute in &lt;active></xsl:message></xsl:if><xsl:if test="//sch:rule[@id= current()/@pattern]"><xsl:message>Reference Error: the pattern  "<xsl:value-of select="@pattern"/>" has been activated but is not declared</xsl:message></xsl:if></xsl:template><xsl:template match="sch:assert | assert"><xsl:if test="not(@test)"><xsl:message>Markup Error: no test attribute in &lt;assert></xsl:message></xsl:if><axsl:choose><axsl:when test="{@test}"/><axsl:otherwise><xsl:call-template name="process-assert"><xsl:with-param name="role" select="@role"/><xsl:with-param name="id" select="@id"/><xsl:with-param name="test" select="normalize-space(@test)" /><xsl:with-param name="icon" select="@icon"/><xsl:with-param name="subject" select="@subject"/><xsl:with-param name="diagnostics" select="@diagnostics"/></xsl:call-template></axsl:otherwise></axsl:choose></xsl:template><xsl:template match="sch:report | report"><xsl:if test="not(@test)"><xsl:message>Markup Error: no test attribute in &lt;report></xsl:message></xsl:if><axsl:if test="{@test}">                        <xsl:call-template name="process-report"><xsl:with-param name="role" select="@role"/><xsl:with-param name="test" select="normalize-space(@test)" /><xsl:with-param name="icon" select="@icon"/><xsl:with-param name="id" select="@id"/><xsl:with-param name="subject" select="@subject"/><xsl:with-param name="diagnostics" select="@diagnostics"/></xsl:call-template></axsl:if></xsl:template><xsl:template match="sch:diagnostic | diagnostic"><xsl:if test="not(@id)"><xsl:message>Markup Error: no id attribute in &lt;diagnostic></xsl:message></xsl:if><xsl:call-template name="process-diagnostic"><xsl:with-param name="id" select="@id" /></xsl:call-template></xsl:template><xsl:template match="sch:diagnostics | diagnostics"/><xsl:template match="sch:dir | dir"  mode="text"><xsl:call-template name="process-dir"><xsl:with-param name="value" select="@value"/></xsl:call-template></xsl:template><xsl:template match="sch:emph | emph"  mode="text"><xsl:call-template name="process-emph"/></xsl:template><xsl:template match="sch:extends | extends"><xsl:if test="not(@rule)"><xsl:message>Markup Error: no rule attribute in &lt;extends></xsl:message></xsl:if><xsl:if test="not(//sch:rule[@abstract='."'".'true'."'".'][@id= current()/@rule] ) and not(//rule[@abstract='."'".'true'."'".'][@id= current()/@rule])"><xsl:message>Reference Error: the abstract rule  "<xsl:value-of select="@rule"/>" has been referenced but is not declared</xsl:message></xsl:if><xsl:call-template name="IamEmpty" /><xsl:if test="//sch:rule[@id=current()/@rule]"><xsl:apply-templates select="//sch:rule[@id=current()/@rule]"        mode="extends"/></xsl:if></xsl:template><xsl:template  match="sch:key | key " mode="do-keys" ><xsl:if test="not(@name)"><xsl:message>Markup Error: no name attribute in &lt;key></xsl:message></xsl:if><xsl:if test="not(@match) and not(../sch:rule)"><xsl:message>Markup Error:  no match attribute on &lt;key> outside &lt;rule></xsl:message></xsl:if><xsl:if test="not(@path)"><xsl:message>Markup Error: no path attribute in &lt;key></xsl:message></xsl:if><xsl:call-template name="IamEmpty" /><xsl:choose><xsl:when test="@match"><axsl:key match="{@match}" name="{@name}" use="{@path}"/></xsl:when><xsl:otherwise><axsl:key name="{@name}" match="{parent::sch:rule/@context}" use="{@path}"/></xsl:otherwise></xsl:choose></xsl:template><xsl:template match="sch:key | key"  />                 <xsl:template match="sch:name | name" mode="text"><axsl:text xml:space="preserve"> </axsl:text><xsl:if test="@path"                                ><xsl:call-template name="process-name"><xsl:with-param name="name" select="concat('."'".'name('."'".',@path,'."'".')'."'".')"/></xsl:call-template></xsl:if><xsl:if test="not(@path)"                                ><xsl:call-template name="process-name"><xsl:with-param name="name" select="'."'".'name(.)'."'".'"/></xsl:call-template></xsl:if><xsl:call-template name="IamEmpty" /><axsl:text xml:space="preserve"> </axsl:text></xsl:template><xsl:template match="sch:ns | ns"  mode="do-all-patterns" ><xsl:if test="not(@uri)"><xsl:message>Markup Error: no uri attribute in &lt;ns></xsl:message></xsl:if><xsl:if test="not(@prefix)"><xsl:message>Markup Error: no prefix attribute in &lt;ns></xsl:message></xsl:if><xsl:call-template name="IamEmpty" /><xsl:call-template name="process-ns" ><xsl:with-param name="prefix" select="@prefix"/><xsl:with-param name="uri" select="@uri"/></xsl:call-template></xsl:template><xsl:template match="sch:ns | ns"  /><xsl:template match="sch:schema/sch:p | schema/p" mode="do-schema-p" ><xsl:call-template name="process-p"><xsl:with-param name="class" select="@class"/><xsl:with-param name="icon" select="@icon"/><xsl:with-param name="id" select="@id"/><xsl:with-param name="lang" select="@xml:lang"/></xsl:call-template></xsl:template><xsl:template match="sch:pattern/sch:p | pattern/p" mode="do-pattern-p" ><xsl:call-template name="process-p"><xsl:with-param name="class" select="@class"/><xsl:with-param name="icon" select="@icon"/><xsl:with-param name="id" select="@id"/><xsl:with-param name="lang" select="@xml:lang"/></xsl:call-template></xsl:template><xsl:template match="sch:phase/sch:p" /><xsl:template match="sch:p | p" /><xsl:template match="sch:pattern | pattern" mode="do-all-patterns"><xsl:if test="($phase\; =\; \text{'}."\text{'}".\text{'}\#ALL\text{'}."\text{'}".\text{'})\; or\; (../sch:phase[@id=\; ($phase)]/sch:active[@pattern= current()/@id])        or (../phase[@id= ($phase)]/active[@id=\; current()/@id])">$<xsl:call-template name="process-pattern"><xsl:with-param name="name" select="@name"/><xsl:with-param name="id" select="@id"/><xsl:with-param name="see" select="@see"/><xsl:with-param name="fpi" select="@fpi"/><xsl:with-param name="icon" select="@icon"/></xsl:call-template><axsl:apply-templates select="/" mode="M{count(preceding-sibling::*)}"/></xsl:if></xsl:template><xsl:template match="sch:pattern | pattern"><xsl:if test="(phase = '."'".'#ALL'."'".') or (../sch:phase[@id= ($phase)]/sch:active[@pattern=\; current()/@id])\; or\; (../phase[@id=\; ($phase)]/active[@id= current()/@id])"><xsl:apply-templates/><axsl:template match="text()" priority="-1" mode="M{count(preceding-sibling::*)}"></axsl:template></xsl:if></xsl:template><xsl:template match="sch:phase | phase" ><xsl:if test="not(@id)"><xsl:message>Markup Error: no id attribute in &lt;phase></xsl:message></xsl:if></xsl:template><xsl:template match="sch:rule[not(@abstract='."'".'true'."'".')] | rule[not(@abstract='."'".'true'."'".')]"><xsl:if test="not(@context)"><xsl:message>Markup Error: no context attribute in &lt;rule></xsl:message></xsl:if><axsl:template match="{@context}" priority="{4000 - count(preceding-sibling::*)}" mode="M{count(../preceding-sibling::*)}"><xsl:call-template name="process-rule"><xsl:with-param name="id" select="@id"/><xsl:with-param name="context" select="@context"/><xsl:with-param name="role" select="@role"/></xsl:call-template><xsl:apply-templates/><axsl:apply-templates mode="M{count(../preceding-sibling::*)}"/></axsl:template></xsl:template><xsl:template match="sch:rule[@abstract='."'".'true'."'".'] | rule[@abstract='."'".'true'."'".']" ><xsl:if test=" not(@id)"><xsl:message>Markup Error: no id attribute on abstract &lt;rule></xsl:message></xsl:if>        <xsl:if test="@context"><xsl:message>Markup Error: (2) context attribute on abstract &lt;rule></xsl:message></xsl:if></xsl:template><xsl:template match="sch:rule[@abstract='."'".'true'."'".'] | rule[@abstract='."'".'true'."'".']"                mode="extends" ><xsl:if test="@context"><xsl:message>Markup Error: context attribute on abstract &lt;rule></xsl:message></xsl:if><xsl:apply-templates/></xsl:template><xsl:template match="sch:span | span" mode="text"><xsl:call-template name="process-span"                        ><xsl:with-param name="class" select="@class"/></xsl:call-template></xsl:template><xsl:template match="sch:title | title" />        <xsl:template match="sch:value-of | value-of" mode="text" ><xsl:if test="not(@select)"><xsl:message>Markup Error: no select attribute in &lt;value-of></xsl:message></xsl:if><xsl:call-template name="IamEmpty" /><axsl:text xml:space="preserve"></axsl:text><xsl:choose><xsl:when test="@select"                                ><xsl:call-template name="process-value-of"><xsl:with-param name="select" select="@select"/></xsl:call-template></xsl:when><xsl:otherwise ><xsl:call-template name="process-value-of"><xsl:with-param name="select" select="'."'".'.'."'".'"/></xsl:call-template></xsl:otherwise></xsl:choose><axsl:text xml:space="preserve"></axsl:text></xsl:template><xsl:template match="text()" priority="-1" mode="do-keys"></xsl:template><xsl:template match="text()" priority="-1" mode="do-all-patterns"></xsl:template><xsl:template match="text()" priority="-1" mode="do-schema-p"></xsl:template><xsl:template match="text()" priority="-1" mode="do-pattern-p"></xsl:template><xsl:template match="text()" priority="-1"></xsl:template><xsl:template match="text()" mode="text"><xsl:value-of select="normalize-space(.)"/></xsl:template><xsl:template match="text()" mode="inline-text"><xsl:value-of select="."/></xsl:template><xsl:template name="IamEmpty"><xsl:if test="count( * )"><xsl:message><xsl:text>Warning: </xsl:text><xsl:value-of select="name(.)"/><xsl:text> must not contain any child elements</xsl:text></xsl:message></xsl:if></xsl:template><xsl:template name="diagnosticsSplit"><!-- Process at the current point the first of the <diagnostic> elements       referred to parameter str, and then recurse --><xsl:param name="str"/><xsl:variable name="start"><xsl:choose><xsl:when test="contains($str,\text{'}."\text{'}".\text{'}\; \text{'}."\text{'}".\text{'})">$<xsl:value-of  select="substring-before(str,'."'".' '."'".')"/></xsl:when><xsl:otherwise><xsl:value-of select="$str"/>$</xsl:otherwise></xsl:choose></xsl:variable><xsl:variable name="end"><xsl:if test="contains(str,'."'".' '."'".')"><xsl:value-of select="substring-after($str,\text{'}."\text{'}".\text{'}\; \text{'}."\text{'}".\text{'})"/>$</xsl:if></xsl:variable><xsl:if test="not(string-length(normalize-space(start)) = 0)        and not(//sch:diagnostic[@id = ($start)])\; and\; not(//diagnostic[@id\; =\; ($start)])"><xsl:message>Reference error: A diagnostic "<xsl:value-of select="string($start)"/>"\; has\; been\; referenced\; but\; is\; not\; declared$</xsl:message></xsl:if><xsl:if test="string-length(normalize-space(start)) > 0"><xsl:apply-templates         select="//sch:diagnostic[@id = ($start)\; ]\; |\; //diagnostic[@id=\; ($start) ]"/></xsl:if><xsl:if test="not($end=\text{'}."\text{'}".\text{'}\text{'}."\text{'}".\text{'})">$<xsl:call-template name="diagnosticsSplit"><xsl:with-param name="str" select="end"/></xsl:call-template></xsl:if></xsl:template><xsl:template match="*"><xsl:message><xsl:text>Warning: unrecognized element </xsl:text><xsl:value-of select="name(.)"/></xsl:message></xsl:template><xsl:template match="*" mode="text"><xsl:message><xsl:text>Warning: unrecognized element </xsl:text><xsl:value-of select="name(.)"/></xsl:message></xsl:template><xsl:template name="process-prolog"/><xsl:template name="process-root"><xsl:param name="contents"/><xsl:copy-of select="$contents"/>$</xsl:template><xsl:template name="process-assert"><xsl:param name="role"/><xsl:param name="test"/><xsl:call-template name="process-message"><xsl:with-param name="pattern" select="test"/><xsl:with-param name="role" select="$role"/>$</xsl:call-template></xsl:template><xsl:template name="process-report"><xsl:param name="role"/><xsl:param name="test"/><xsl:call-template name="process-message"><xsl:with-param name="pattern" select="test"/><xsl:with-param name="role" select="$role"/>$</xsl:call-template></xsl:template><xsl:template name="process-diagnostic"><xsl:apply-templates mode="text"/></xsl:template><xsl:template name="process-dir"        ><xsl:apply-templates mode="inline-text"/></xsl:template><xsl:template name="process-emph"        ><xsl:apply-templates mode="inline-text"/></xsl:template><xsl:template name="process-name"><xsl:param name="name"                /><axsl:value-of select="{name}"/></xsl:template><xsl:template name="process-ns" /><xsl:template name="process-p"/><xsl:template name="process-pattern"/><xsl:template name="process-rule"/><xsl:template name="process-span"        ><xsl:apply-templates mode="inline-test"/></xsl:template><xsl:template name="process-value-of"><xsl:param name="select"                /><axsl:value-of select="{$select\}"/>$</xsl:template><xsl:template name="process-message"><xsl:apply-templates mode="text"/></xsl:template></xsl:stylesheet>';
     }
    
    function compile_schematron_from_file(xml_filename) {
      global $xslt\_schematron;$xslt=new Xslt();
      $xslt->setXml($xml_filename);
      $xslt->setXslString($this->sk15);
      if($xslt->transform())\; \{$ret=$xslt->getOutput();$this->compiled[$xml\_filename]=$ret;
      } else {
         trigger_error("XSLT error compiling $xml\_filename".$xslt->getError(),E_USER_WARNING);
         return false;
      }
      return $ret;\; \}\; function\; compile\_schematron\_from\_mem($xml_string) {
      $xslt=new\; Xslt();$name=md5($xml\_string);$xslt->setXmlString($xml\_string);$xslt->setXslString($this->sk15);\; if($xslt->transform()) {
         $ret=$xslt->getOutput();
         $this->compiled[$name]=$ret;\; return$ret;
      } else {
         trigger_error("XSLT error compiling xml-string".$xslt->getError(),E\_USER\_WARNING);\; return\; false;\; \}$xslt->destroy;
    }
    
    function get_compiled($xml\_filename)\; \{\; if(isset($this->compiled[$xml\_filename]))\; \{\; return$this->compiled[$xml\_filename];\; \}\; else\; \{\; return\; false;\; \}\; \}\; function\; save\_compiled($xml_filename,$filename)\; \{\; if(isset($this->compiled[$xml\_filename]))\; \{$fp=fopen($filename,"w");\; if(!$fp) {
          trigger_error("Cannot save compiled schematron to $filename\; may\; be\; a\; permissions\; problem",E\_USER\_WARNING);\; \}\; fwrite($fp,$this->compiled[$xml_filename]);
        fclose($fp);\; return\; true;\; \}\; else\; \{\; trigger\_error("trying\; to\; save\; a\; schematron\; that\; was\; not\; compiled\; first",E\_USER\_WARNING);\; return\; false;\; \}\; \}$/* API FOR UNCOMPILED SCRIPTS */
    function schematron_validate_mem_using_mem(xml_string,$validation\_string)\; \{$name=md5($validation\_string);\; if(!isset($this->compiled[$name]))\; \{$this->compile_schematron_from_mem($validation\_string);\; \}$xslt=new Xslt();
      $xslt->setXmlString($xml_string);
      $xslt->setXslString($this->compiled[$name]);\; if($xslt->transform()) {
         $ret=$xslt->getOutput();
         return $ret;\; \}\; else\; \{\; trigger\_error("XSLT\; error\; running\; schematron".$xslt->getError(),E_USER_WARNING);
         return false;
      }
      $xslt->destroy();\; \}\; function\; schematron\_validate\_mem\_using\_file($xml_string,$validation\_filename)\; \{\; if(!isset($this->compiled[$validation\_filename]))\; \{$this->compile_schematron_from_file($validation\_filename);\; \}$xslt=new Xslt();
      $xslt->setXmlString($xml_string);
      $xslt->setXslString($this->compiled[$validation\_filename]);\; if($xslt->transform()) {
         $ret=$xslt->getOutput();
         return $ret;\; \}\; else\; \{\; trigger\_error("XSLT\; error\; running\; schematron".$xslt->getError(),E_USER_WARNING);
        return false;
      }
      $xslt->destroy();\; \}\; function\; schematron\_validate\_file\_using\_mem($xml_filename,$validation\_string)\; \{$name=md5($validation\_string);\; if(!isset($this->compiled[$nameing]))\; \{$this->compile_schematron_from_mem($validation\_string);\; \}$xslt=new Xslt();
      $xslt->setXml($xml_filename);
      $xslt->setXslString($this->compiled[$name]);\; if($xslt->transform()) {
         $ret=$xslt->getOutput();
         return $ret;\; \}\; else\; \{\; trigger\_error("XSLT\; error\; running\; schematron".$xslt->getError(),E_USER_WARNING);
         return false;
      }
      $xslt->destroy();\; \}\; function\; schematron\_validate\_file\_using\_file($xml_filename,$validation\_filename)\; \{\; if(!isset($this->compiled[$validation\_filename]))\; \{$this->compile_schematron_from_file($validation\_filename);\; \}$xslt=new Xslt();
      $xslt->setXml($xml_filename);
      $xslt->setXslString($this->compiled[$validation\_filename]);\; if($xslt->transform()) {
         $ret=$xslt->getOutput();
         return $ret;\; \}\; else\; \{\; trigger\_error("XSLT\; error\; running\; schematron".$xslt->getError(),E_USER_WARNING);
         return false;
      }
      $xslt->destroy();\; \}$/* API FOR COMPILED VALIDATION SCRIPTS */
    function schematron_validate_mem_using_compiled_mem(xml_string,$validation\_string)\; \{$xslt=new Xslt();
      $xslt->setXmlString($xml_string);
      $xslt->setXslString($validation_string);
      if($xslt->transform())\; \{$ret=$xslt->getOutput();\; return$ret;
      } else {
         trigger_error("XSLT error running schematron".$xslt->getError(),E\_USER\_WARNING);\; return\; false;\; \}$xslt->destroy();
    }
   
    function schematron_validate_mem_using_compiled_file($xml\_string,$validation_filename) {
      $xslt=new\; Xslt();$xslt->setXmlString($xml\_string);$xslt->setXsl($validation\_filename);\; if($xslt->transform()) {
         $ret=$xslt->getOutput();
         return $ret;\; \}\; else\; \{\; trigger\_error("XSLT\; error\; running\; schematron".$xslt->getError(),E_USER_WARNING);
        return false;
      }
      $xslt->destroy();\; \}\; function\; schematron\_validate\_file\_using\_compiled\_mem($xml_filename,$validation\_string)\; \{$xslt=new Xslt();
      $xslt->setXml($xml_filename);
      $xslt->setXslString($validation_string);
      if($xslt->transform())\; \{$ret=$xslt->getOutput();\; return$ret;
      } else {
         trigger_error("XSLT error running schematron".$xslt->getError(),E\_USER\_WARNING);\; return\; false;\; \}$xslt->destroy();
    }
    
    function schematron_validate_file_using_compiled_file($xml\_filename,$validation_filename) {
      $xslt=new\; Xslt();$xslt->setXml($xml\_filename);$xslt->setXsl($validation\_filename);\; if($xslt->transform()) {
         $ret=$xslt->getOutput();
         return $ret;\; \}\; else\; \{\; trigger\_error("XSLT\; error\; running\; schematron".$xslt->getError(),E_USER_WARNING);
         return false;
      }
      $xslt->destroy();\; \}\; \}\; \}\; ?>$<?php 
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // Title                     : class_xslt.php
  // Version                   : 1.1
  // Author                    : Luis Argerich (lrargerich@yahoo.com)
  // Last modification date    : 03-11-2002
  // Description               : An abstraction class for the XSLT extension
  //                             this one uses the Sablotron processor but we
  //                             may release classes based on other processors
  //                             later.
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // History: 
  // 03-11-2001    Class modified to work with the new XSLT extension
  // 11-11-2001    Class created
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // To-Dos:
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // How to use it:
  // include_once("class_xslt.php");
  // xslt=new Xslt();
  // $xslt->setXml("applications.xml");\; //\; or\; setXmlString($xml)
  // $xslt->setXsl("tr1.xsl");\; //\; or\; setXslString($xsl)
  // if($xslt->transform())\; \{\; //$ret=$xslt->getOutput();\; //\; echo$ret;
  // } else {
  //    print("Error:".$xslt->getError());\; //\; \}\; //$
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















     
  
  // CHECK FOR DOUBLE DEFINITION HERE
  if(defined("_class_xslt_is_included")) {
    // do nothing since the class is already included  
  } else {
    define("_class_xslt_is_included",1); 
  
  class Xslt { 
     var xsl, $xml,$output, $error\; ;$/* Constructor */ 
     function xslt() { 
        this->processor = xslt_create(); 
     } 
     
     /* Destructor */ 
     function destroy() { 
        xslt_free($this->processor);\; \}$/* output methods */ 
     function setOutput(string) { 
        $this->output\; =$string; 
     } 
     
     function getOutput() { 
        return $this->output;\; \}$/* set methods */
     function setXmlString(xml) {
        $this->xml=$xml;
        return true;
     }
  
     function setXslString($xsl)\; \{$this->xsl=$xsl;\; return\; true;\; \}\; function\; setXml($uri) {
        if($doc\; =\; new\; docReader($uri)) { 
           $this->xml\; =$doc->getString(); 
           return true; 
        } else { 
           $this->setError("Could\; not\; open$xml"); 
           return false; 
        } 
     } 
     
     function setXsl($uri)\; \{\; if($doc = new docReader($uri))\; \{$this->xsl = $doc->getString();\; return\; true;\; \}\; else\; \{$this->setError("Could not open $uri");\; return\; false;\; \}\; \}$/* transform method */ 
     function transform() {
        arguments = array(
             '/_xml' => $this->xml,\; \text{'}/\_xsl\text{'}\; =>$this->xsl
        );
        $ret\; =\; xslt\_process($this->processor, 'arg:/_xml', 'arg:/_xsl', NULL, $arguments);\; if(!$ret) {
          $this->setError(xslt\_error($this->processor));
          return false;
        } else {
          $this->setOutput($ret); 
          return true;
        }
     } 
  
     /* Error Handling */ 
     function setError($string)\; \{$this->error = $string;\; \}\; function\; getError()\; \{\; return$this->error; 
     } 
  } 
  
  /* docReader -- read a file or URL as a string */ 
  /* test */ 
  /* 
     $docUri\; =\; new\; docReader(\text{'}http://www.someurl.com/doc.html\text{'});echo$docUri->getString(); 
  */ 
  class docReader { 
     var $string;$// public string representation of file 
     var type; // private URI type: 'file','url' 
     var $bignum\; =\; 1000000;\; var$uri; 
     /* public constructor */ 
     function docReader($uri)\; \{$// returns integer      this->setUri($uri);$
        this->uri=$uri;$this->setType(); 
        $fp\; =\; fopen($this->getUri(),"r"); 
        if($fp)\; \{\; //\; get\; length\; if\; ($this->getType() == 'file') { 
              $length\; =\; filesize($this->getUri()); 
           } else { 
              $length\; =$this->bignum; 
           } 
        $this->setString(fread($fp,$length));\; return\; 1;\; \}\; else\; \{\; return\; 0;\; \}\; \}$/* determine if a URI is a filename or URL */ 
     function isFile(uri) { // returns boolean
        if (strstr($uri,\text{'}http://\text{'})==$uri) { 
           return false; 
        } else { 
           return true; 
        } 
     } 
     /* set and get methods */ 
     function setUri($string)\; \{$this->uri = $string;\; \}\; function\; getUri()\; \{\; return$this->uri; 
     } 
     function setString($string)\; \{$this->string = $string;\; \}\; function\; getString()\; \{\; return$this->string; 
     } 
     function setType() { 
        if ($this->isFile($this->uri)) { 
           $this->type\; =\; \text{'}file\text{'};\; \}\; else\; \{$this->type = 'url';
        } 
     } 
     function getType() { 
        return $this->type;\; \}\; \}\; \}$