From 266b408ee53b9bc7db2b1a5c92e62adfd2af6def Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Thu, 26 Jun 2014 20:26:32 +0200
Subject: 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

---
 test/transform/transformation.xsl | 56 +++++++++++++++++++++++++++++++++------
 1 file changed, 48 insertions(+), 8 deletions(-)

(limited to 'test')

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
@@ -11,24 +11,64 @@
 <xsl:import href="[testcase.xsl]"/>
 
 <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">
-- 
cgit v1.2.3