http://git-wip-us.apache.org/repos/asf/camel/blob/c887bd36/components/camel-schematron/src/main/resources/iso-schematron-xslt2/iso_dsdl_include.xsl ---------------------------------------------------------------------- diff --git a/components/camel-schematron/src/main/resources/iso-schematron-xslt2/iso_dsdl_include.xsl b/components/camel-schematron/src/main/resources/iso-schematron-xslt2/iso_dsdl_include.xsl new file mode 100644 index 0000000..d58f191 --- /dev/null +++ b/components/camel-schematron/src/main/resources/iso-schematron-xslt2/iso_dsdl_include.xsl @@ -0,0 +1,1508 @@ +<?xml version="1.0" encoding="UTF-8"?><?xar XSLT?> + +<!-- + OVERVIEW : iso_dsdl_include.xsl + + This is an inclusion preprocessor for the non-smart text inclusions + of ISO DSDL. It handles + <relax:extRef> for ISO RELAX NG + <sch:include> for ISO Schematron and Schematron 1.n + <sch:extends> for 2009 draft ISO Schematron + <xi:xinclude> simple W3C XIncludes for ISO NVRL and DSRL + <crdl:ref> for draft ISO CRDL + <dtll:include> for draft ISO DTLL + <* @xlink:href> for simple W3C XLink 1.1 embedded links + + + This should be the first in any chain of processing. It only requires + XSLT 1. Each kind of inclusion can be turned off (or on) on the command line. + + Ids in fragment identifiers or xpointers will be sought in the following + order: + * @xml:id + * id() for typed schemas (e.g. from DTD) [NOTE: XInclude does not support this] + * untyped @id + + The proposed behaviour for the update to ISO Schematron has been implemented. If an + include points to an element with the same name as the parent, then that element's + contents will be included. This supports the merge style of inclusion. + + When an inclusion is made, it is preceded by a PI with target DSDL_INCLUDE_START + and the href and closed by a PI with target DSDL_INCLUDE_START and the href. This is + to allow better location of problems, though only to the file level. + + Limitations: + * No rebasing: relative paths will be interpreted based on the initial document's + path, not the including document. (Severe limitation!) + * No checking for circular references + * Not full xpointers: only ID matching + * <relax:include> not implemented + * XInclude handling of xml:base and xml:lang not implemented +--> +<!-- + VERSION INFORMATION + 2010-04-21 + * Add basic syntax checks on XPaths belonging to Schematron elements only + * Unlocalized messages are put out using xsl:message. The intent is to allow + * problems to be caught at compile time. + 2009-02-25 + * Update DSDL namespace to use schematron.com + * Tested with SAXON9, Xalan 2.7.1, IE7, + * IE does not like multiple variables in same template with same name: rename. + 2008-09-18 + * Remove new behaviour for include, because it conflicts with existing usage [KH] + * Add extends[@href] element with that merge functionality + * Generate PIs to notate source of inclusions for potential better diagnostics + + 2008-09-16 + * Fix for XSLT1 + + 2008-08-28 + * New behaviour for schematron includes: if the pointed to element is the same as the current, + include the children. + + 2008-08-20 + * Fix bug: in XSLT1 cannot do $document/id('x') but need to use for-each + + 2008-08-04 + * Add support for inclusions in old namespace + + 2008-08-03 + * Fix wrong param name include-relaxng & include-crdl (KH, PH) + * Allow inclusion of XSLT and XHTML (KH) + * Fix inclusion of fragments (KH) + + 2008-07-25 + * Add selectable input parameter + + 2008-07-24 + * RJ New +--> +<!-- + LEGAL INFORMATION + + Copyright (c) 2008 Rick Jelliffe + + This software is provided 'as-is', without any express or implied warranty. + In no event will the authors be held liable for any damages arising from + the use of this software. + + Permission is granted to anyone to use this software for any purpose, + including commercial applications, and to alter it and redistribute it freely, + subject to the following restrictions: + + 1. The origin of this software must not be misrepresented; you must not claim + that you wrote the original software. If you use this software in a product, + an acknowledgment in the product documentation would be appreciated but is + not required. + + 2. Altered source versions must be plainly marked as such, and must not be + misrepresented as being the original software. + + 3. This notice may not be removed or altered from any source distribution. +--> +<xslt:stylesheet version="1.0" + xmlns:xslt="http://www.w3.org/1999/XSL/Transform"; + xmlns:xsl="http://www.w3.org/1999/XSL/Transform"; + xmlns:iso="http://purl.oclc.org/dsdl/schematron"; + xmlns:nvdl="http://purl.oclc.org/dsdl/nvdl"; + xmlns:xhtml="http://www.w3.org/1999/xhtml"; + xmlns:schold="http://www.ascc.net/xml/schematron"; + xmlns:crdl="http://purl.oclc.org/dsdl/crepdl/ns/structure/1.0"; + xmlns:xi="http://www.w3.org/2001/XInclude"; + xmlns:dtll="http://www.jenitennison.com/datatypes"; + xmlns:dsdl="http://www.schematron.com/namespace/dsdl"; + xmlns:relax="http://relaxng.org/ns/structure/1.0"; + xmlns:xlink="http://www.w3.org/1999/xlink"; + + + xmlns:sch-check="http://www.schematron.com/namespace/sch-check"; + > + <!-- Note: The URL for the dsdl namespace is not official --> + + + <xsl:param name="include-schematron">true</xsl:param> + <xsl:param name="include-crdl">true</xsl:param> + <xsl:param name="include-xinclude">true</xsl:param> + <xsl:param name="include-dtll">true</xsl:param> + <xsl:param name="include-relaxng">true</xsl:param> + <xsl:param name="include-xlink">true</xsl:param> + + + <!-- ========================================================== --> + <!-- Output and process contents, check Schematron XPaths too --> + <!-- ========================================================== --> + + <xsl:template match="/"> + <xsl:apply-templates select="." mode="dsdl:go" /> + </xsl:template> + + <!-- output everything else unchanged. But check Xpaths here. --> + + <xslt:template match="iso:rule[@context]" mode="dsdl:go"> + <xsl:call-template name="sch-check:xpath-wf-message"> + <xsl:with-param name="string" select=" @context " /> + <xsl:with-param name="subject" select=" 'Bad rule: ' " /> + </xsl:call-template> + + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xslt:template> + + <xslt:template match="iso:assert[@test]" mode="dsdl:go"> + <xsl:call-template name="sch-check:xpath-wf-message"> + <xsl:with-param name="string" select=" @test " /> + <xsl:with-param name="subject" select=" 'Bad assert: ' " /> + </xsl:call-template> + + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xslt:template> + + <xslt:template match="iso:report[@test]" mode="dsdl:go"> + <xsl:call-template name="sch-check:xpath-wf-message"> + <xsl:with-param name="string" select=" @test " /> + <xsl:with-param name="subject" select=" 'Bad report: ' " /> + </xsl:call-template> + + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xslt:template> + + <xslt:template match="iso:let[@value]" mode="dsdl:go"> + <xsl:call-template name="sch-check:xpath-wf-message"> + <xsl:with-param name="string" select=" @value " /> + <xsl:with-param name="subject" select=" 'Bad let: ' " /> + </xsl:call-template> + + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xslt:template> + + + <xslt:template match="iso:value-of[@select]" mode="dsdl:go"> + <xsl:call-template name="sch-check:xpath-wf-message"> + <xsl:with-param name="string" select=" @select " /> + <xsl:with-param name="subject" select=" 'Bad value-of: ' " /> + </xsl:call-template> + + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xslt:template> + + <xslt:template match="iso:name[@path]" mode="dsdl:go"> + <xsl:call-template name="sch-check:xpath-wf-message"> + <xsl:with-param name="string" select=" @select " /> + <xsl:with-param name="subject" select=" 'Bad name element: ' " /> + </xsl:call-template> + + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xslt:template> + + <!-- output everything else unchanged --> + <xslt:template match="node()" priority="-1" mode="dsdl:go"> + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xslt:template> + + + + <!-- =========================================================== --> + <!-- ISO/IEC 19757 - DSDL Document Schema Definition Languages --> + <!-- Part 2 - Regular grammar-based validation - RELAX NG --> + <!-- This only implements relax:extRef not relax:include which --> + <!-- is complex. --> + <!-- =========================================================== --> + <xslt:template match="relax:extRef" mode="dsdl:go"> + + + <!-- Insert subschema --> + + <xsl:variable name="document-uri" + select="substring-before(concat(@href,'#'), '#')" /> + <xsl:variable name="fragment-id" + select="substring-after(@href, '#')" /> + + <xsl:processing-instruction name="DSDL_INCLUDE_START"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + <xsl:choose> + <xsl:when test="not( $include-relaxng = 'true' )"> + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xsl:when> + <xsl:otherwise> + + <xsl:choose> + + <xsl:when + test="string-length( $document-uri ) = 0 and string-length( $fragment-id ) = 0"> + <xsl:message> + Error: Impossible URL in RELAX NG extRef + include + </xsl:message> + </xsl:when> + + <!-- this case is when there is in embedded schema in the same document elsewhere --> + <xslt:when + test="string-length( $document-uri ) = 0"> + <xslt:apply-templates mode="dsdl:go" + select="//*[@xml:id= $fragment-id ] | id( $fragment-id) | //*[@id= $fragment-id ]" /> + </xslt:when> + + <xsl:when + test="string-length( $fragment-id ) > 0"> + <xsl:variable name="theDocument_1" + select="document( $document-uri,/ )" /> + + <xsl:if test="not($theDocument_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <!-- use a for-each so that the id() function works correctly on the external document --> + <xsl:for-each select="$theDocument_1"> + <xsl:variable name="theFragment_1" + select="$theDocument_1//*[@xml:id= $fragment-id ] + | id( $fragment-id) + | $theDocument_1//*[@id= $fragment-id ]" /> + <xsl:if test="not($theFragment_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <xsl:apply-templates + select=" $theFragment_1[1]" mode="dsdl:go" /> + </xsl:for-each> + </xsl:when> + + <xsl:otherwise> + <xsl:variable name="theDocument_2" + select="document( $document-uri,/ )" /> + <xsl:variable name="theFragment_2" + select="$theDocument_2/*" /> + <xsl:if test="not($theDocument_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + + <xsl:if test="not($theFragment_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <xsl:apply-templates select="$theFragment_2 " + mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + + </xsl:otherwise> + </xsl:choose> + + <xsl:processing-instruction name="DSDL_INCLUDE_END"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + </xslt:template> + + + + <!-- =========================================================== --> + <!-- ISO/IEC 19757 - DSDL Document Schema Definition Languages --> + <!-- Part 3 - Rule-based validation - Schematron --> + <!-- =========================================================== --> + + + <!-- Extend the URI syntax to allow # references --> + <!-- Add experimental support for simple containers like /xxx:xxx/iso:pattern to allow better includes --> + <xsl:template match="iso:include" mode="dsdl:go"> + + <xsl:variable name="document-uri" + select="substring-before(concat(@href,'#'), '#')" /> + <xsl:variable name="fragment-id" + select="substring-after(@href, '#')" /> + + + <xsl:processing-instruction name="DSDL_INCLUDE_START"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + + <xsl:choose> + <xsl:when test="not( $include-schematron = 'true' )"> + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xsl:when> + <xsl:otherwise> + + <xsl:choose> + + <xsl:when + test="string-length( $document-uri ) = 0 and string-length( $fragment-id ) = 0"> + <xsl:message> + Error: Impossible URL in Schematron include + </xsl:message> + </xsl:when> + + <!-- this case is when there is in embedded schema in the same document elsewhere --> + <xslt:when + test="string-length( $document-uri ) = 0"> + <xslt:apply-templates mode="dsdl:go" + select="//iso:*[@xml:id= $fragment-id ] + |id( $fragment-id) + | //iso:*[@id= $fragment-id ]" /> + </xslt:when> + + <!-- case where there is a fragment in another document (should be an iso: element) --> + <!-- There are three cases for includes with fragment: + 0) No href file or no matching id - error! + 1) REMOVED + + 2) The linked-to element is sch:schema however the parent of the include + is not a schema. In this case, it is an error. (Actually, it should + be an error for other kinds of containment problems, but we won't + check for them in this version.) + + 3) Otherwise, include the pointed-to element + --> + + <xsl:when + test="string-length( $fragment-id ) > 0"> + <xsl:variable name="theDocument_1" + select="document( $document-uri,/ )" /> + <xsl:variable name="originalParent" select=".." /> + + <!-- case 0 --> + <xsl:if test="not($theDocument_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <!-- use for-each to rebase id() to external document --> + <xsl:for-each select="$theDocument_1"> + <xsl:variable name="theFragment_1" + select=" $theDocument_1//iso:*[@xml:id= $fragment-id ] | + id($fragment-id) | + $theDocument_1//iso:*[@id= $fragment-id ]" /> + + + <xsl:choose> + <!-- case 0 --> + <xsl:when test="not($theFragment_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:when> + + + <!-- case 1 REMOVED --> + + <!-- case 2 --> + <xsl:when + test=" $theFragment_1/self::iso:schema "> + <xsl:message> + Schema error: Use include to + include fragments, not a whole + schema + </xsl:message> + </xsl:when> + + <!-- case 3 --> + <xsl:otherwise> + <xsl:apply-templates + select=" $theFragment_1[1]" mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + </xsl:for-each> + </xsl:when> + + <!-- Case where there is no ID so we include the whole document --> + <!-- Experimental addition: include fragments of children --> + <xsl:otherwise> + <xsl:variable name="theDocument_2" + select="document( $document-uri,/ )" /> + <xsl:variable name="theFragment_2" + select="$theDocument_2/iso:*" /> + <xsl:variable name="theContainedFragments" + select="$theDocument_2/*/iso:* | $theDocument_2/*/xsl:* | $theDocument_2/*/xhtml:*" /> + <xsl:if test="not($theDocument_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + + <!-- There are three cases for includes: + 0) No text specified- error! + + 1) REMOVED + + 2) The linked-to element is sch:schema however the parent of the include + is not a schema. In this case, it is an error. (Actually, it should + be an error for other kinds of containment problems, but we won't + check for them in this version.) + + 3) Otherwise, include the pointed-to element + --> + <xsl:choose> + <!-- case 0 --> + <xsl:when + test="not($theFragment_2) and not ($theContainedFragments)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:when> + + <!-- case 1 removed --> + + <!-- case 2 --> + <xsl:when + test=" $theFragment_2/self::iso:schema or $theContainedFragments/self::iso:schema"> + <xsl:message> + Schema error: Use include to include + fragments, not a whole schema + </xsl:message> + </xsl:when> + + <!-- If this were XLST 2, we could use + if ($theFragment) then $theFragment else $theContainedFragments + here (thanks to KN) + --> + <!-- case 3 --> + <xsl:otherwise> + <xsl:apply-templates + select="$theFragment_2 " mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + </xsl:otherwise> + </xsl:choose> + </xsl:otherwise> + </xsl:choose> + + <xsl:processing-instruction name="DSDL_INCLUDE_END"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + </xsl:template> + + + <!-- WARNING sch:extends[@href] is experimental and non standard --> + <!-- Basically, it adds the children of the selected element, not the element itself. --> + <xsl:template match="iso:extends[@href]" mode="dsdl:go"> + + <xsl:variable name="document-uri" + select="substring-before(concat(@href,'#'), '#')" /> + <xsl:variable name="fragment-id" + select="substring-after(@href, '#')" /> + + + <xsl:processing-instruction name="DSDL_INCLUDE_START"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + + <xsl:choose> + <xsl:when test="not( $include-schematron = 'true' )"> + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xsl:when> + <xsl:otherwise> + + <xsl:choose> + + <xsl:when + test="string-length( $document-uri ) = 0 and string-length( $fragment-id ) = 0"> + <xsl:message> + Error: Impossible URL in Schematron include + </xsl:message> + </xsl:when> + + <!-- this case is when there is in embedded schema in the same document elsewhere --> + <xslt:when + test="string-length( $document-uri ) = 0"> + <xslt:apply-templates mode="dsdl:go" + select="//iso:*[@xml:id= $fragment-id ]/* + |id( $fragment-id)/* + | //iso:*[@id= $fragment-id ]/*" /> + </xslt:when> + + <!-- case where there is a fragment in another document (should be an iso: element) --> + <!-- There are three cases for includes with fragment: + 0) No href file or no matching id - error! + 1) REMOVED + + 2) REMOVED + + 3) Otherwise, include the pointed-to element + --> + + <xsl:when + test="string-length( $fragment-id ) > 0"> + <xsl:variable name="theDocument_1" + select="document( $document-uri,/ )" /> + <xsl:variable name="originalParent" select=".." /> + + <!-- case 0 --> + <xsl:if test="not($theDocument_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <!-- use for-each to rebase id() to external document --> + <xsl:for-each select="$theDocument_1"> + <xsl:variable name="theFragment_1" + select=" $theDocument_1//iso:*[@xml:id= $fragment-id ] | + id($fragment-id) | + $theDocument_1//iso:*[@id= $fragment-id ]" /> + + + <xsl:choose> + <!-- case 0 --> + <xsl:when test="not($theFragment_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:when> + + + <!-- case 1 REMOVED --> + + <!-- case 2 REMOVED --> + + + <!-- case 3 --> + <xsl:otherwise> + + <xsl:apply-templates + select=" $theFragment_1[1]/*" mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + </xsl:for-each> + </xsl:when> + + <!-- Case where there is no ID so we include the whole document --> + <!-- Experimental addition: include fragments of children --> + <xsl:otherwise> + <xsl:variable name="theDocument_2" + select="document( $document-uri,/ )" /> + <xsl:variable name="theFragment_2" + select="$theDocument_2/iso:*" /> + <xsl:variable name="theContainedFragments" + select="$theDocument_2/*/iso:* | $theDocument_2/*/xsl:* | $theDocument_2/*/xhtml:*" /> + <xsl:if test="not($theDocument_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + + <!-- There are three cases for includes: + 0) No text specified- error! + + 1) REMOVED + + 2) REMOVED + + 3) Otherwise, include the pointed-to element + --> + <xsl:choose> + <!-- case 0 --> + <xsl:when + test="not($theFragment_2) and not ($theContainedFragments)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:when> + + <!-- case 1 removed --> + + <!-- case 2 removed --> + + <!-- If this were XLST 2, we could use + if ($theFragment) then $theFragment else $theContainedFragments + here (thanks to KN) + --> + <!-- case 3 --> + <xsl:otherwise> + <xsl:apply-templates + select="$theFragment_2/* " mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + </xsl:otherwise> + </xsl:choose> + </xsl:otherwise> + </xsl:choose> + + <xsl:processing-instruction name="DSDL_INCLUDE_END"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + </xsl:template> + + + + <!-- =========================================================== --> + <!-- Handle Schematron 1.6 inclusions: clone of ISO code above --> + <!-- =========================================================== --> + + + <!-- Extend the URI syntax to allow # references --> + <!-- Add experimental support for simple containers like /xxx:xxx/schold:pattern to allow better includes --> + <xsl:template match="schold:include" mode="dsdl:go"> + <xsl:variable name="document-uri" + select="substring-before(concat(@href,'#'), '#')" /> + <xsl:variable name="fragment-id" + select="substring-after(@href, '#')" /> + + <xsl:processing-instruction name="DSDL_INCLUDE_START"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + + <xsl:choose> + <xsl:when test="not( $include-schematron = 'true' )"> + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xsl:when> + <xsl:otherwise> + <xsl:choose> + + <xsl:when + test="string-length( $document-uri ) = 0 and string-length( $fragment-id ) = 0"> + <xsl:message> + Error: Impossible URL in Schematron include + </xsl:message> + </xsl:when> + + <!-- this case is when there is in embedded schema in the same document elsewhere --> + <xslt:when + test="string-length( $document-uri ) = 0"> + <xslt:apply-templates mode="dsdl:go" + select="//schold:*[@xml:id= $fragment-id ] + |id( $fragment-id) + | //schold:*[@id= $fragment-id ]" /> + </xslt:when> + + <!-- case where there is a fragment in another document (should be an iso: element) --> + <xsl:when + test="string-length( $fragment-id ) > 0"> + <xsl:variable name="theDocument_1" + select="document( $document-uri,/ )" /> + <xsl:if test="not($theDocument_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <!-- use for-each to rebase id() to $theDocument --> + <xsl:for-each select="$theDocument_1"> + <xsl:variable name="theFragment_1" + select=" $theDocument_1//schold:*[@xml:id= $fragment-id ] | + id($fragment-id) | + $theDocument_1//schold:*[@id= $fragment-id ]" /> + <xsl:if + test=" $theFragment_1/self::schold:schema "> + <xsl:message> + Schema error: Use include to include + fragments, not a whole schema + </xsl:message> + </xsl:if> + <xsl:if test="not($theFragment_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <xsl:apply-templates + select=" $theFragment_1[1]" mode="dsdl:go" /> + </xsl:for-each> + </xsl:when> + + <!-- Case where there is no ID so we include the whole document --> + <!-- Experimental addition: include fragments of children --> + <xsl:otherwise> + <xsl:variable name="theDocument_2" + select="document( $document-uri,/ )" /> + <xsl:variable name="theFragment_2" + select="$theDocument_2/iso:*" /> + <xsl:variable name="theContainedFragments" + select="$theDocument_2/*/schold:* | $theDocument_2/*/xsl:* | $theDocument_2/*/xhtml:*" /> + <xsl:if test="not($theDocument_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + + <xsl:if + test=" $theFragment_2/self::schold:schema or $theContainedFragments/self::schold:schema"> + <xsl:message> + Schema error: Use include to include + fragments, not a whole schema + </xsl:message> + </xsl:if> + <xsl:if + test="not($theFragment_2) and not ($theContainedFragments)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <!-- If this were XLST 2, we could use + if ($theFragment) then $theFragment else $theContainedFragments + here (thanks to KN) + --> + <xsl:choose> + <xsl:when test=" $theFragment_2 "> + <xsl:apply-templates + select="$theFragment_2 " mode="dsdl:go" /> + </xsl:when> + <xsl:otherwise> + <!-- WARNING! EXPERIMENTAL! Use at your own risk. This may be discontinued! --> + <xsl:apply-templates + select=" $theContainedFragments " mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + </xsl:otherwise> + </xsl:choose> + + </xsl:otherwise> + </xsl:choose> + + <xsl:processing-instruction name="DSDL_INCLUDE_END"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + </xsl:template> + <!-- =========================================================== --> + <!-- ISO/IEC 19757 - DSDL Document Schema Definition Languages --> + <!-- Part 5 - DataType Library Language - DTLL --> + <!-- Committee Draft Experimental support only --> + <!-- The <include> element may well be replaced by XInclude in --> + <!-- any final version. --> + <!-- =========================================================== --> + <xslt:template match="dtll:include" mode="dsdl:go"> + <!-- Insert subschema --> + + <xsl:variable name="document-uri" + select="substring-before(concat(@href,'#'), '#')" /> + <xsl:variable name="fragment-id" + select="substring-after(@href, '#')" /> + <xsl:processing-instruction name="DSDL_INCLUDE_START"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + <xsl:choose> + <xsl:when test="not( $include-dtll = 'true' )"> + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xsl:when> + <xsl:otherwise> + <xsl:choose> + + <xsl:when + test="string-length( $document-uri ) = 0 and string-length( $fragment-id ) = 0"> + <xsl:message> + Error: Impossible URL in DTLL include + </xsl:message> + </xsl:when> + + <!-- this case is when there is in embedded schema in the same document elsewhere --> + <xslt:when + test="string-length( $document-uri ) = 0"> + <xslt:apply-templates mode="dsdl:go" + select="//*[@xml:id= $fragment-id ] | id( $fragment-id) + | //*[@id= $fragment-id ]" /> + </xslt:when> + + <xsl:when + test="string-length( $fragment-id ) > 0"> + <xsl:variable name="theDocument_1" + select="document( $document-uri,/ )" /> + <xsl:if test="not($theDocument_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <!-- use for-each to rebase id() to $theDocument --> + <xsl:for-each select="$theDocument_1"> + <xsl:variable name="theFragment_1" + select="$theDocument_1//*[@xml:id= $fragment-id ] + | id( $fragment-id ) + | $theDocument_1//*[@id= $fragment-id ]" /> + <xsl:if test="not($theFragment_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <xsl:apply-templates + select=" $theFragment_1[1]" mode="dsdl:go" /> + </xsl:for-each> + </xsl:when> + + <xsl:otherwise> + <xsl:variable name="theDocument_2" + select="document( $document-uri,/ )" /> + <xsl:variable name="theFragment_2" + select="$theDocument_2/*" /> + + <xsl:if test="not($theDocument_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + + <xsl:if test="not($theFragment_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <xsl:apply-templates select="$theFragment_2 " + mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + + </xsl:otherwise> + </xsl:choose> + <xsl:processing-instruction name="DSDL_INCLUDE_END"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + </xslt:template> + + <!-- =========================================================== --> + <!-- ISO/IEC 19757 - DSDL Document Schema Definition Languages --> + <!-- Part 7 - Character Repertoire Description Language - CRDL --> + <!-- Final Committee Draft 2008-01-11 Experimental support only --> + <!-- =========================================================== --> + <xslt:template match="crdl:ref" mode="dsdl:go"> + <!-- Insert subschema --> + + <xsl:variable name="document-uri" + select="substring-before(concat(@href,'#'), '#')" /> + <xsl:variable name="fragment-id" + select="substring-after(@href, '#')" /> + <xsl:processing-instruction name="DSDL_INCLUDE_START"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + <xsl:choose> + <xsl:when test="not( $include-crdl = 'true' )"> + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xsl:when> + <xsl:otherwise> + <xsl:choose> + + <xsl:when + test="string-length( $document-uri ) = 0 and string-length( $fragment-id ) = 0"> + <xsl:message> + Error: Impossible URL in CRDL include + </xsl:message> + </xsl:when> + + <!-- this case is when there is in embedded schema in the same document elsewhere --> + <xslt:when + test="string-length( $document-uri ) = 0"> + + <xslt:apply-templates mode="dsdl:go" + select="//*[@xml:id= $fragment-id ] | id( $fragment-id) + | //*[@id= $fragment-id ]" /> + </xslt:when> + + <xsl:when + test="string-length( $fragment-id ) > 0"> + <xsl:variable name="theDocument_1" + select="document( $document-uri,/ )" /> + <xsl:if test="not($theDocument_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <!-- use for-each to rebase id() to $theDocument --> + <xsl:for-each select="$theDocument_1"> + <xsl:variable name="theFragment_1" + select="$theDocument_1//*[@xml:id= $fragment-id ] + | id( $fragment-id ) + | $theDocument_1//*[@id= $fragment-id ]" /> + + <xsl:if test="not($theFragment_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <xsl:apply-templates select=" $theFragment_1 " + mode="dsdl:go" /> + </xsl:for-each> + </xsl:when> + + <xsl:otherwise> + <xsl:variable name="theDocument_2" + select="document( $document-uri,/ )" /> + <xsl:variable name="theFragment_2" + select="$theDocument_2/*" /> + + <xsl:if test="not($theDocument_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + <xsl:if test="not($theFragment_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + + <xsl:apply-templates select="$theFragment_2" + mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + + </xsl:otherwise> + </xsl:choose> + <xsl:processing-instruction name="DSDL_INCLUDE_END"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + </xslt:template> + + + <!-- =========================================================== --> + <!-- ISO/IEC 19757 - DSDL Document Schema Definition Languages --> + <!-- Part 4 - Namespace-based Validation Dispatching Language - NVDL --> + <!-- Note: This does not include schemas referenced for --> + <!-- validation, it merely handles any simple XIncludes --> + <!-- =========================================================== --> + <!-- ISO/IEC 19757 - DSDL Document Schema Definition Languages --> + <!-- Part 8 - Document Schema Renaming Language - DSRL --> + <!-- Note: Final? Committee Draft Experimental support only --> + <!-- =========================================================== --> + <!-- XInclude support for id based references only, with 1 level --> + <!-- of fallback. --> + <!-- =========================================================== --> + + <xslt:template mode="dsdl:go" + match="xi:include[@href][not(@parseType) or @parseType ='xml']"> + <!-- Simple inclusions only here --> + <xsl:processing-instruction name="DSDL_INCLUDE_START"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + <xsl:choose> + <xsl:when test="not( $include-xinclude = 'true' )"> + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xsl:when> + <xsl:otherwise> + <xsl:choose> + + <xsl:when test="contains( @href, '#')"> + <xsl:message terminate="yes"> + Fatal error: Xinclude href contains fragment + identifier # + </xsl:message> + </xsl:when> + + + <xsl:when test="contains( @xpointer, '(')"> + <xsl:message terminate="yes"> + Fatal error: Sorry, this software only + supports simple ids in XInclude xpointers + </xsl:message> + </xsl:when> + + <xsl:when + test="string-length( @href ) = 0 and string-length( @xpointer ) = 0"> + + <xsl:message terminate="yes"> + Fatal Error: Impossible URL in XInclude + include + </xsl:message> + </xsl:when> + + <!-- this case is when there is in embedded schema in the same document elsewhere --> + <xslt:when test="string-length( @href ) = 0"> + + <xslt:apply-templates mode="dsdl:go" + select="//*[@xml:id= current()/@xpointer ] | id( @xpointer) + | //*[@id= current()/@xpointer ]" /> + </xslt:when> + + <xsl:when + test="string-length( @xpointer ) > 0"> + <xsl:variable name="theDocument_1" + select="document( @href,/ )" /> + <xsl:variable name="theFragment_1" + select="$theDocument_1//*[@xml:id= current()/@xpointer ] + + | $theDocument_1//*[@id= current()/@xpointer ]" /> + <!-- removed + | $theDocument_1/id( @xpointer) + because it requires rebasing in XSLT1 and that would mess up the use of current() + --> + + + <!-- Allow one level of fallback, to another XInclude --> + <xsl:if test="not($theDocument_1)"> + <xsl:choose> + <xsl:when test="xi:fallback"> + <xsl:variable name="theDocument_2" + select="document( xi:fallback[1]/xi:include[not(@parseType) + or @parseType='xml']/@href,/ )" /> + <xsl:variable name="theFragment_2" + select="$theDocument_2//*[@xml:id= current()/xi:fallback[1]/xi:include/@xpointer ] + | $theDocument_2//*[@id= current()/xi:fallback[1]/xi:include/@xpointer ]" /> + <!-- removed + | $theDocument_2/id( xi:fallback[1]/xi:include/@xpointer) + because it id() would need rebasing in XSLT1 and that would mess up use of current() + --> + + <xsl:if + test="not($theDocument_2)"> + + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file and fallback + file: </xsl:text> + <xsl:value-of + select="@href" /> + </xsl:message> + </xsl:if> + </xsl:when> + <xsl:otherwise> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:otherwise> + </xsl:choose> + </xsl:if> + <xsl:apply-templates select=" $theFragment_1" + mode="dsdl:go" /> + </xsl:when> + + <!-- Document but no fragment specified --> + <xsl:otherwise> + <xsl:variable name="theDocument_3" + select="document( @href,/ )" /> + <xsl:variable name="theFragment_3" + select="$theDocument_3/*" /> + + <xsl:if test="not($theDocument_3)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@href" /> + </xsl:message> + </xsl:if> + + <xsl:apply-templates select="$theFragment_3 " + mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + + </xsl:otherwise> + </xsl:choose> + <xsl:processing-instruction name="DSDL_INCLUDE_END"> + <xsl:value-of select="@href" /> + </xsl:processing-instruction> + </xslt:template> + + <!-- =========================================================== --> + <!-- W3C XLink 1.1 embedded simple links --> + <!-- =========================================================== --> + <xslt:template + match="*[@xlink:href][not(parent::*[@xlink:type='complex'])] + [not(@xlink:type) or (@xlink:type='simple')] + [@xlink:show='embed'] + [not(@xlink:actuate) or (@xlink:actuate='onLoad')]" + mode="dsdl:go" priority="1"> + + <xsl:variable name="document-uri" + select="substring-before(concat(@xlink:href,'#'), '#')" /> + <xsl:variable name="fragment-id" + select="substring-after(@xlink:href, '#')" /> + <xsl:processing-instruction name="DSDL_INCLUDE_START"> + <xsl:value-of select="@xlink:href" /> + </xsl:processing-instruction> + <xsl:choose> + <xsl:when test="not( $include-xlink = 'true' )"> + <xslt:copy> + <xslt:copy-of select="@*" /> + <xslt:apply-templates mode="dsdl:go" /> + </xslt:copy> + </xsl:when> + <xsl:otherwise> + <xsl:choose> + + <xsl:when + test="string-length( $document-uri ) = 0 and string-length( $fragment-id ) = 0"> + <xsl:message> + Error: Impossible URL in XLink embedding + link + </xsl:message> + </xsl:when> + + <!-- this case is when there is in embedded schema in the same document elsewhere --> + <xslt:when + test="string-length( $document-uri ) = 0"> + <xslt:apply-templates mode="dsdl:go" + select="//*[@xml:id= $fragment-id ] | id( $fragment-id) + | //*[@id= $fragment-id ]" /> + </xslt:when> + + <xsl:when + test="string-length( $fragment-id ) > 0"> + <xsl:variable name="theDocument_1" + select="document( $document-uri,/ )" /> + <xsl:if test="not($theDocument_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@xlink:href" /> + </xsl:message> + </xsl:if> + <!-- use for-each to rebase id() to $theDocument --> + <xsl:for-each select="$theDocument_1"> + <xsl:variable name="theFragment_1" + select="$theDocument_1//*[@xml:id= $fragment-id ] + | id( $fragment-id ) + | $theDocument_1//*[@id= $fragment-id ]" /> + <xsl:if test="not($theFragment_1)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@xlink:href" /> + </xsl:message> + </xsl:if> + <xsl:apply-templates + select=" $theFragment_1[1]" mode="dsdl:go" /> + </xsl:for-each> + </xsl:when> + + <xsl:otherwise> + <xsl:variable name="theDocument_2" + select="document( $document-uri,/ )" /> + <xsl:variable name="theFragment_2" + select="$theDocument_2/*" /> + + <xsl:if test="not($theDocument_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to open referenced included file: </xsl:text> + <xsl:value-of select="@xlink:href" /> + </xsl:message> + </xsl:if> + + <xsl:if test="not($theFragment_2)"> + <xsl:message terminate="no"> + <xsl:text>Unable to locate id attribute: </xsl:text> + <xsl:value-of select="@xlink:href" /> + </xsl:message> + </xsl:if> + <xsl:apply-templates select="$theFragment_2 " + mode="dsdl:go" /> + </xsl:otherwise> + </xsl:choose> + + </xsl:otherwise> + </xsl:choose> + + <xsl:processing-instruction name="DSDL_INCLUDE_END"> + <xsl:value-of select="@xlink:href" /> + </xsl:processing-instruction> + </xslt:template> + +<!-- ================================================================= --> +<!-- UTILITY TEMPLATES --> +<!-- ================================================================= --> + +<!-- MESSAGE WHEN XPATH NOT WELL FORMED --> + +<xsl:template name="sch-check:xpath-wf-message" > + <xsl:param name="string" /> + <xsl:param name="subject" /> + <xsl:variable name="xpath-wf-result"> + <xsl:call-template name="sch-check:xpath-wf"> + <xsl:with-param name="string" select=" $string " /> + </xsl:call-template> + </xsl:variable> + + <xsl:if test="string-length($xpath-wf-result) > 0"> + <xsl:message><xsl:value-of select="$subject"/><xsl:value-of select="$xpath-wf-result" /></xsl:message> + </xsl:if> + </xsl:template> + +<!-- XPATH WELL FORMED --> + +<xsl:template name="sch-check:xpath-wf" > + <xsl:param name="string" /> + <!-- This does some minimal checks to see if a string is well-formed XPath. + It checks + 1) String is not empty, + 2) equal number of open and close parens + 3) equal number of left and right square brackets + It does not check balancing. It does not check inside string literals in XPaths. + + If there is no error, empty content is returned. If there is an error, it is given + as an error message. This is not localized yet. + --> + + + <xsl:variable name="stripped-contents"> + <xsl:call-template name="sch-check:strip-strings" > + <xsl:with-param name="string" select=" $string " /> + <xsl:with-param name="mode" select=" 0" /> + </xsl:call-template> + </xsl:variable> + + + <xsl:variable name="paren-result"> + <xsl:call-template name="sch-check:test-paren" > + <xsl:with-param name="string" select="$stripped-contents" /> + <xsl:with-param name="count" select=" 0" /> + </xsl:call-template> + </xsl:variable> + + + <xsl:variable name="sqb-result"> + <xsl:call-template name="sch-check:test-sqb" > + <xsl:with-param name="string" select="$stripped-contents" /> + <xsl:with-param name="count" select=" 0" /> + </xsl:call-template> + </xsl:variable> + + + <xsl:choose> + <xsl:when test="string-length( normalize-space($string)) = 0" + >XPath error. No XPath.</xsl:when> + <xsl:when test="contains( $stripped-contents, '/[' )" + >XPath error. Missing location step. Suggestion: remove '/' before '['. + <xsl:value-of select=" normalize-space($string)"/></xsl:when> + <!-- not implemented yet + <xsl:when test=" count () mod 2 = 1" + >XPath syntax error. Odd number of apostrophe characters. Suggestion: check string termination and delimiting. + <xsl:value-of select=" normalize-space($string)"/></xsl:when> + <xsl:when test=" count ( ) mod 2 = 1" + >XPath syntax error. Odd number of quote characters. Suggestion: check string termination and delimiting. + <xsl:value-of select=" normalize-space($string)"/></xsl:when> + --> + <xsl:when test=" $paren-result > 0 " + >XPath syntax error. Unclosed parenthesis. Suggestion: add ')'. + <xsl:value-of select=" normalize-space($string)"/></xsl:when> + <xsl:when test=" $paren-result < 0 " + >XPath syntax error. Extra close parenthesis. Suggestion: remove ')'. + <xsl:value-of select=" normalize-space($string)"/></xsl:when> + + <xsl:when test=" $sqb-result > 0 " + >XPath syntax error. Unclosed left square bracket. Suggestion: add ']'. + <xsl:value-of select=" normalize-space($string)"/></xsl:when> + <xsl:when test=" $sqb-result < 0 " + >XPath syntax error. Extra right square bracket. Suggestion: remove ']'. + <xsl:value-of select=" normalize-space($string)"/></xsl:when> + + </xsl:choose> + + + +</xsl:template> + + +<!-- STRIP XPATH STRINGS --> +<xsl:template name="sch-check:strip-strings"> + <xsl:param name="string" /> + <xsl:param name="mode" /> + + <!-- + mode 0 = outside string + mode 1 = in double quote string + mode 2 = in single quote string + --> + <xsl:choose> + <xsl:when test=" string-length( $string) = 0" /> + <xsl:when test="$mode = 1 "> + <xsl:choose> + + + <xsl:when test="starts-with( $string, '""') " > + + <xsl:call-template name="sch-check:strip-strings"> + <xsl:with-param name="string" select=" substring ( $string, 3 )"/> + <xsl:with-param name="mode" select=" $mode" /> + </xsl:call-template> + </xsl:when> + <xsl:when test="starts-with( $string, '"') " > + <xsl:call-template name="sch-check:strip-strings"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="mode" select=" 0 " /> + </xsl:call-template> + </xsl:when> + + <xsl:otherwise> + <xsl:call-template name="sch-check:strip-strings"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="mode" select=" $mode " /> + </xsl:call-template> + </xsl:otherwise> + </xsl:choose> + </xsl:when> + + <xsl:when test="$mode = 2 "> + <xsl:choose> + + <!-- doubled double quote or double apos is an escape --> + <xsl:when test="starts-with( $string, "''") " > + <xsl:call-template name="sch-check:strip-strings"> + <xsl:with-param name="string" select=" substring ( $string, 3 )"/> + <xsl:with-param name="mode" select=" $mode" /> + </xsl:call-template> + </xsl:when> + <xsl:when test="starts-with( $string, "'" )" > + <xsl:call-template name="sch-check:strip-strings"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="mode" select=" 0 " /> + </xsl:call-template> + </xsl:when> + <xsl:otherwise> + <xsl:call-template name="sch-check:strip-strings"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="mode" select=" $mode " /> + </xsl:call-template> + </xsl:otherwise> + </xsl:choose> + </xsl:when> + + <xsl:otherwise> <!-- mode = 0 --> + <xsl:choose> + <xsl:when test="starts-with( $string, '"')" > + <xsl:call-template name="sch-check:strip-strings"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="mode" select=" 1 " /> + </xsl:call-template> + </xsl:when> + + <xsl:when test="starts-with( $string, "'" )" > + <xsl:call-template name="sch-check:strip-strings"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="mode" select=" 2 " /> + </xsl:call-template> + </xsl:when> + <xsl:otherwise> + <xsl:value-of select="substring( $string, 1, 1)" /> + <xsl:call-template name="sch-check:strip-strings"> + + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="mode" select=" $mode " /> + </xsl:call-template> + </xsl:otherwise> + </xsl:choose> + </xsl:otherwise> + </xsl:choose> + + +</xsl:template> + + <!-- COUNT THE NUMBER OF UNMATCHED PARENTHESES --> + <!-- Limitation: Does not check balancing. --> + +<xsl:template name="sch-check:test-paren"> + <xsl:param name="string" /> + <xsl:param name="count" /> + + <xsl:choose> + <xsl:when test=" string-length( $string) = 0"> + <xsl:value-of select=" $count " /> + </xsl:when> + <xsl:when test=" starts-with( $string, '(') "> + <xsl:call-template name="sch-check:test-paren"> + <xsl:with-param name="string" select=" substring ( $string, 2 )" /> + <xsl:with-param name="count" select=" $count + 1 " /> + </xsl:call-template> + </xsl:when> + <xsl:when test=" starts-with( $string, ')') "> + <xsl:call-template name="sch-check:test-paren"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="count" select="$count - 1 " /> + </xsl:call-template> + </xsl:when> + <xsl:otherwise> + <xsl:call-template name="sch-check:test-paren"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="count" select=" $count " /> + </xsl:call-template> + </xsl:otherwise> + </xsl:choose> + + +</xsl:template> + + + <!-- COUNT THE NUMBER OF SQUARE BRACKETS --> + <!-- Limitation: Does not check balancing. --> +<xsl:template name="sch-check:test-sqb"> + <xsl:param name="string" /> + <xsl:param name="count" /> + + <xsl:choose> + <xsl:when test=" string-length( $string) = 0"> + <xsl:value-of select=" $count " /> + </xsl:when> + <xsl:when test=" starts-with( $string, '[') "> + <xsl:call-template name="sch-check:test-sqb"> + <xsl:with-param name="string" select=" substring ( $string, 2 )" /> + <xsl:with-param name="count" select=" $count + 1 " /> + </xsl:call-template> + </xsl:when> + <xsl:when test=" starts-with( $string, ']') "> + <xsl:call-template name="sch-check:test-sqb"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="count" select="$count - 1 " /> + </xsl:call-template> + </xsl:when> + <xsl:otherwise> + <xsl:call-template name="sch-check:test-sqb"> + <xsl:with-param name="string" select=" substring ( $string, 2 )"/> + <xsl:with-param name="count" select=" $count " /> + </xsl:call-template> + </xsl:otherwise> + </xsl:choose> + + +</xsl:template> + + + + + +</xslt:stylesheet> \ No newline at end of file
http://git-wip-us.apache.org/repos/asf/camel/blob/c887bd36/components/camel-schematron/src/main/resources/iso-schematron-xslt2/iso_schematron_message_xslt2.xsl ---------------------------------------------------------------------- diff --git a/components/camel-schematron/src/main/resources/iso-schematron-xslt2/iso_schematron_message_xslt2.xsl b/components/camel-schematron/src/main/resources/iso-schematron-xslt2/iso_schematron_message_xslt2.xsl new file mode 100644 index 0000000..36082cc --- /dev/null +++ b/components/camel-schematron/src/main/resources/iso-schematron-xslt2/iso_schematron_message_xslt2.xsl @@ -0,0 +1,55 @@ +<?xml version="1.0" ?><?xar XSLT?> +<!-- Implmentation for the Schematron XML Schema Language. + http://www.ascc.net/xml/resource/schematron/schematron.html + + Copyright (c) 2000,2001 Rick Jelliffe and Academia Sinica Computing Center, Taiwan + + This software is provided 'as-is', without any express or implied warranty. + In no event will the authors be held liable for any damages arising from + the use of this software. + + Permission is granted to anyone to use this software for any purpose, + including commercial applications, and to alter it and redistribute it freely, + subject to the following restrictions: + + 1. The origin of this software must not be misrepresented; you must not claim + that you wrote the original software. If you use this software in a product, + an acknowledgment in the product documentation would be appreciated but is + not required. + + 2. Altered source versions must be plainly marked as such, and must not be + misrepresented as being the original software. + + 3. This notice may not be removed or altered from any source distribution. +--> + +<!-- Schematron message --> + +<xsl:stylesheet + version="2.0" + xmlns:xsl="http://www.w3.org/1999/XSL/Transform"; + xmlns:axsl="http://www.w3.org/1999/XSL/TransformAlias";> + +<xsl:import href="iso_schematron_skeleton_for_saxon.xsl"/> + +<xsl:template name="process-prolog"> + <axsl:output method="text" /> +</xsl:template> + +<!-- use default rule for process-root: copy contens / ignore title --> +<!-- use default rule for process-pattern: ignore name and see --> +<!-- use default rule for process-name: output name --> +<!-- use default rule for process-assert and process-report: + call process-message --> + +<xsl:template name="process-message"> + <xsl:param name="pattern" /> + <xsl:param name="role" /> + <axsl:message> + <xsl:apply-templates mode="text" + /> (<xsl:value-of select="$pattern" /> + <xsl:if test="$role"> / <xsl:value-of select="$role" /> + </xsl:if>)</axsl:message> +</xsl:template> + +</xsl:stylesheet> \ No newline at end of file
