1519 lines
52 KiB
XML
1519 lines
52 KiB
XML
<?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
|
|
-->
|
|
<!--
|
|
Open Source Initiative OSI - The MIT License:Licensing
|
|
[OSI Approved License]
|
|
|
|
This source code was previously available under the zlib/libpng license.
|
|
Attribution is polite.
|
|
|
|
The MIT License
|
|
|
|
Copyright (c) 2008-2010 Rick Jelliffe
|
|
|
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
of this software and associated documentation files (the "Software"), to deal
|
|
in the Software without restriction, including without limitation the rights
|
|
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
copies of the Software, and to permit persons to whom the Software is
|
|
furnished to do so, subject to the following conditions:
|
|
|
|
The above copyright notice and this permission notice shall be included in
|
|
all copies or substantial portions of the Software.
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
THE SOFTWARE.
|
|
-->
|
|
|
|
<!--
|
|
VERSION INFORMATION
|
|
2010-07-10
|
|
* Move to MIT license
|
|
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. [Note: this has been removed: use sch:extends with @href.]
|
|
|
|
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
|
|
-->
|
|
|
|
<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
|
|
4) if there is a predicate open immediately following a step separator
|
|
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> |