Implemented basic external "write-file" function

* accepts a path parameter and the content to be written
* removed target parameter form FunctionTransform
** transformation result is now returned as a string
*** nodeset return value is planned
** e.g. writing the result to the fs is optional and has to be achieved using FunctionWriteFile
* changed "transform" test case accordingly
* this marks a paradigm shift and is the continuation of the changes described in 741a70f
** InputXSLT now also implements a output function
* added basic io error handling to FunctionReadFile

1 files changed, 48 insertions, 8 deletions

diff --git a/test/transform/transformation.xsl b/test/transform/transformation.xsl
index 1cd424b..99933ba 100644
--- a/test/transform/transformation.xsl
+++ b/test/transform/transformation.xsl
@@ -12,23 +12,63 @@
 
 <xsl:template name="transformer">
 	<xsl:param name="transformation"/>
+	<xsl:param name="parameters"/>
+
+	<xsl:variable name="stylesheet" select="
+		InputXSLT:read-file(string($transformation))
+	"/>
+
+	<xsl:choose>
+		<xsl:when test="$stylesheet/self::file/@result = 'success'">
+			<transformation result="success">
+				<xsl:copy-of select="
+					InputXSLT:transform(
+						$stylesheet/self::file/*,
+						xalan:nodeset($parameters)
+					)/self::transformation/text()
+				"/>
+			</transformation>
+		</xsl:when>
+		<xsl:otherwise>
+			<transformation result="error">
+				<xsl:copy-of select="$stylesheet/self::file/*"/>
+			</transformation>
+		</xsl:otherwise>
+	</xsl:choose>
+</xsl:template>
+
+<xsl:template name="generator">
+	<xsl:param name="transformation"/>
 	<xsl:param name="target"/>
 	<xsl:param name="parameters"/>
 
-	<xsl:variable name="command">
-		InputXSLT:transform(
-			string($transformation),
-			string($target),
-			xalan:nodeset($parameters)
-		)
+	<xsl:variable name="result">
+		<xsl:call-template name="transformer">
+			<xsl:with-param name="transformation" select="$transformation"/>
+			<xsl:with-param name="parameters" select="$parameters"/>
+		</xsl:call-template>
 	</xsl:variable>
 
-	<xsl:copy-of select="dyn:evaluate($command)"/>
+	<xsl:choose>
+		<xsl:when test="xalan:nodeset($result)/transformation/@result = 'success'">
+			<xsl:variable name="writeResult" select="
+				InputXSLT:write-file(
+					string($target),
+					xalan:nodeset($result)/transformation/text()
+				)
+			"/>
+
+			<transformation result="success" target="{$target}"/>
+		</xsl:when>
+		<xsl:otherwise>
+			<transformation result="error" target="{$target}"/>
+		</xsl:otherwise>
+	</xsl:choose>
 </xsl:template>
 
 <xsl:template name="implementation">
 	<xsl:variable name="result">
-		<xsl:call-template name="transformer">
+		<xsl:call-template name="generator">
 			<xsl:with-param name="transformation">test.xsl</xsl:with-param>
 			<xsl:with-param name="target">test_actual.xml</xsl:with-param>
 			<xsl:with-param name="parameters">