--- nfo/perl/libs/XML/XUpdate/xupdate2xsl.xml	2003/05/06 14:33:31	1.3
+++ nfo/perl/libs/XML/XUpdate/xupdate2xsl.xml	2003/05/07 03:40:30	1.4
@@ -4,17 +4,26 @@
   
       <!--
       
-      xupdate2xsl: Translate XML document from namespace 'xupdate' to 'xsl'.
-      
-      Purpose of this XML Stylesheet is to implement a set of templates 
-      to translate XUpdate lingo into an intermediate xslt stylesheet 
-      which actually performs the update to the original xml document
-      in a second step.
-      
-      The required glue code - written in Perl - is available in module 
-      XML::XUpdate::XSLT. Please have a look at this in order to use 
-      this stylesheet from other bindings.
-      
+        xupdate2xsl: Translate XML document from namespace 'xupdate' to 'xsl'.
+        
+        Purpose of this XML Stylesheet is to implement a set of templates 
+        to translate XUpdate lingo into an intermediate xslt stylesheet 
+        which actually performs the update to the original xml document
+        in a second step.
+        
+        The required glue code - written in Perl - is available in module 
+        XML::XUpdate::XSLT. Please have a look at this in order to write
+        code to use this stylesheet from other language bindings.
+
+        Please have a look at the XUpdate specs and associated resources:
+          Requirements: http://www.xmldb.org/xupdate/xupdate-req.html
+          Working Draft: http://www.xmldb.org/xupdate/xupdate-wd.html
+
+        ChangeLog:
+          2003-04-30: first alpha
+          2003-05-01: works: xupdate:insert-after (elements/attributes)
+          2003-05-06: works: xupdate:insert-before (elements/attributes)
+
       -->
       
       <xsl:output method="xml" />
@@ -51,21 +60,18 @@
         </xsl:element>
         <!-- </xsl:template> -->
 
-          <!-- 1. This is the passthru logic (copy all untouched nodes). -->
-          <!-- in fact this is the xsl from above translated to be able to be generated by xsl itself! -->
-              <xsl:comment> 1. passthru logic </xsl:comment>
-              <xsl:element name="xsl:template">
-                  <xsl:attribute name="name">passthru</xsl:attribute>
-                  <xsl:element name="xsl:copy"><xsl:element name="xsl:apply-templates" /></xsl:element>
-              </xsl:element>
-              <xsl:element name="xsl:template">
-                  <!-- <xsl:attribute name="match">*</xsl:attribute> -->
-                  <xsl:attribute name="match">*ab</xsl:attribute>
-                  <xsl:element name="xsl:call-template"><xsl:attribute name="name">passthru</xsl:attribute></xsl:element>
-              </xsl:element>
-              <xsl:element name="xsl:template">
-                  <xsl:attribute name="match">comment()</xsl:attribute>
-                  <xsl:element name="xsl:call-template"><xsl:attribute name="name">passthru</xsl:attribute></xsl:element>
+              <!-- 
+                  1. Note: Former custom passthru logic (copy all untouched nodes)
+                      now completely replaced by Mike Kay's "identity template rule". 
+                  What is left here is just the required overriding of some builtin rules
+                  to (e.g.) not to loose comments.
+              -->
+              <xsl:comment> 1. override built-in rules </xsl:comment>
+              <!-- override some builtin rules: see http://www.w3.org/TR/xslt#built-in-rule -->
+              <xsl:element name="xsl:template"><xsl:attribute name="match">comment()</xsl:attribute>
+                  <xsl:element name="xsl:call-template">
+                    <xsl:attribute name="name">identity_template_rule</xsl:attribute>
+                  </xsl:element>
               </xsl:element>
   
           <!-- continue with all inline nodes -->
@@ -79,40 +85,193 @@
 
       <!-- code -->
       <!-- This node "encapsulates" infrastructure for handling the directives. -->
-      <!-- FIXME: handle the other ones: append, remove, etc. -->
+
+      <!-- Dispatch all "XUpdate Services" here. -->
+      <!-- FIXME: Actually implement action = "CREATE|RETRIEVE|UPDATE|DELETE"!!! -->
       <xsl:template match="xupdate:insert-after">
-          <xsl:comment> 2. context finder </xsl:comment>
           <!-- <xsl:variable name="select" select="@select">Hello World!</xsl:variable> -->
-          
+          <xsl:call-template name="findcontext">
+            <xsl:with-param name="service">Insert</xsl:with-param>
+            <xsl:with-param name="position">after</xsl:with-param>
+          </xsl:call-template>
+      </xsl:template>
+
+      <xsl:template match="xupdate:insert-before">
+          <xsl:call-template name="findcontext">
+            <xsl:with-param name="service">Insert</xsl:with-param>
+            <xsl:with-param name="position">before</xsl:with-param>
+          </xsl:call-template>
+      </xsl:template>
+
+      <xsl:template match="xupdate:append">
+          <xsl:call-template name="findcontext">
+            <xsl:with-param name="service">Append</xsl:with-param>
+            <!-- <xsl:with-param name="position">inline</xsl:with-param> -->
+            <xsl:with-param name="test">.</xsl:with-param>
+          </xsl:call-template>
+      </xsl:template>
+
+      <xsl:template match="xupdate:update">
+          <xsl:call-template name="findcontext">
+            <xsl:with-param name="service">Update</xsl:with-param>
+            <!-- <xsl:with-param name="position">after</xsl:with-param> -->
+            <xsl:with-param name="test">.</xsl:with-param>
+          </xsl:call-template>
+      </xsl:template>
+
+      <xsl:template match="xupdate:remove">
+          <xsl:call-template name="findcontext">
+            <xsl:with-param name="service">Remove</xsl:with-param>
+            <!-- <xsl:with-param name="position">after</xsl:with-param> -->
+            <xsl:with-param name="test">.</xsl:with-param>
+          </xsl:call-template>
+      </xsl:template>
+
+      <xsl:template match="xupdate:rename">
+          <xsl:call-template name="findcontext">
+            <xsl:with-param name="service">Rename</xsl:with-param>
+            <!-- <xsl:with-param name="position">after</xsl:with-param> -->
+            <xsl:with-param name="test">.</xsl:with-param>
+          </xsl:call-template>
+      </xsl:template>
+
+
+
+      <xsl:template name="findcontext">
+
+        <xsl:comment> 2. context finder </xsl:comment>
+
+        <!-- new of 2003-05-06: introducing parameters here to handle all cases -->
+        <xsl:param name="service" />
+        <xsl:param name="position" />
+        <!-- new of 2003-05-07: replacement for test if undef -->
+        <xsl:param name="test" />
+        <xsl:param name="town" />
+        
+        <xsl:variable name="town" select="huhu">haha</xsl:variable>
+        
+        <!--
+        <xsl:comment>
+          service: <xsl:value-of select="$service" />
+          position: <xsl:value-of select="$position" />
+          test: <xsl:value-of select="$test" />
+        </xsl:comment>
+        -->
+
           <!-- this resembles some parts of the CRUD API - retranslated to self-hosting xsl -->
 
           <!-- V1 -->
           <!-- <xsl:element name="xsl:template"> -->
               <!-- <xsl:attribute name="match"><xsl:value-of select="@select" /></xsl:attribute> -->
+          
+          <!-- fallback -->
+          <xsl:element name="xsl:template">
+              <xsl:attribute name="match">*</xsl:attribute>
+              <xsl:element name="xsl:call-template">
+                <xsl:attribute name="name">identity_template_rule</xsl:attribute>
+                <!-- <xsl:attribute name="name">passthru</xsl:attribute> -->
+              </xsl:element>
+          </xsl:element>
 
           <!-- V2 -->
           <xsl:element name="xsl:template">
-              <xsl:attribute name="match">*</xsl:attribute>
               <!-- <xsl:attribute name="match">/addresses/address</xsl:attribute> -->
-              <!-- <xsl:attribute name="match"><xsl:value-of select="@select" /></xsl:attribute> -->
+              <!-- <xsl:attribute name="match">*</xsl:attribute> -->
+              <xsl:attribute name="match"><xsl:value-of select="@select" /></xsl:attribute>
 
           <xsl:element name="xsl:choose">
               <!-- <xsl:attribute name="match"><xsl:value-of select="@select" /></xsl:attribute> -->
             <xsl:element name="xsl:when">
-              <!-- <xsl:attribute name="test"><xsl:value-of select="@test" /></xsl:attribute> -->
-              <xsl:attribute name="test"><xsl:value-of select="@select" /></xsl:attribute>
+              <!-- <xsl:attribute name="test"><xsl:value-of select="@select" /></xsl:attribute> -->
+              <xsl:attribute name="test"><xsl:value-of select="@test" /><xsl:value-of select="$test" /></xsl:attribute>
 
-              <!-- FIXME: case "insert-before"!!! -->
-              <!-- <xsl:apply-templates /> -->
+              <xsl:choose>
+                <xsl:when test="{$service}=Insert">
 
-              <!-- call the "identity template rule" to passthru all childnodes -->
-              <xsl:element name="xsl:call-template">
-                <xsl:attribute name="name">identity_template_rule</xsl:attribute>
-                <!-- <xsl:attribute name="name">passthru</xsl:attribute> -->
-              </xsl:element>
+                <xsl:comment> 2.a. Insert </xsl:comment>
 
-              <!-- FIXME: case "insert-after"!!! -->
-              <xsl:apply-templates />
+                <!-- Implementation of "xupdate:insert-before" -->
+                <xsl:choose>
+                  <xsl:when test="{$position}=before">
+                    <xsl:apply-templates />
+                  </xsl:when>
+                </xsl:choose>
+  
+                <!-- call the "identity template rule" to passthru all childnodes -->
+                <xsl:element name="xsl:call-template">
+                  <xsl:attribute name="name">identity_template_rule</xsl:attribute>
+                  <!-- <xsl:attribute name="name">passthru</xsl:attribute> -->
+                </xsl:element>
+  
+                <!-- Implementation of "xupdate:insert-after" -->
+                <xsl:choose>
+                  <xsl:when test="{$position}=after">
+                    <xsl:apply-templates />
+                  </xsl:when>
+                </xsl:choose>
+
+                </xsl:when>
+                
+                <!-- Implementation of "xupdate:append" -->
+                <xsl:when test="{$service}=Append">
+                <xsl:comment> 2.b. Append </xsl:comment>
+                  <!-- V1 -->
+                  <!-- <xsl:apply-templates /> -->
+                  <!-- V2 -->
+                  <xsl:element name="xsl:copy">
+                    <!--
+                    <xsl:element name="xsl:copy-of">
+                      <xsl:attribute name="select">@*</xsl:attribute>
+                    </xsl:element>
+                    -->
+                    <!-- Keep content ... -->
+                    <xsl:element name="xsl:apply-templates" />
+                    <!-- Append this: -->
+                    <xsl:apply-templates />
+                  </xsl:element>
+                </xsl:when>
+                
+                <!-- Implementation of "xupdate:update" -->
+                <xsl:when test="{$service}=Update">
+                <xsl:comment> 2.c. Update </xsl:comment>
+                  <!-- V1 -->
+                  <!-- <xsl:apply-templates /> -->
+                  <!-- V2 -->
+                  <xsl:element name="xsl:copy">
+                    <!--
+                    <xsl:element name="xsl:copy-of">
+                      <xsl:attribute name="select">@*</xsl:attribute>
+                    </xsl:element>
+                    -->
+                    <!-- Keep content ... -->
+                    <!-- <xsl:element name="xsl:apply-templates" /> -->
+                    <!-- Add (replace through) this: -->
+                    <xsl:apply-templates />
+                  </xsl:element>
+                </xsl:when>
+
+                <!-- Implementation of "xupdate:remove" -->
+                <xsl:when test="{$service}=Remove">
+                  <xsl:comment> 2.d. Remove </xsl:comment>
+                </xsl:when>
+
+                <!-- Implementation of "xupdate:rename" -->
+                <xsl:when test="{$service}=Rename">
+                  <xsl:comment> 2.e. Rename (Remove context and Append modified identity template) </xsl:comment>
+                  
+                  <xsl:comment> [5.a.] modify node name </xsl:comment>
+                  <xsl:element name="xsl:element">
+                    <!-- this renames the node (change the "name"-attribute) -->
+                    <xsl:attribute name="name">
+                      <xsl:apply-templates />
+                    </xsl:attribute>
+                    <!-- this propagates the original content -->
+                    <xsl:element name="xsl:apply-templates" />
+                  </xsl:element>
+
+                </xsl:when>
+
+              </xsl:choose>
 
             </xsl:element>
             <xsl:element name="xsl:otherwise">
@@ -124,33 +283,93 @@
               </xsl:element>
 
               <!-- <xsl:apply-templates /> -->
-
             </xsl:element>
 
           </xsl:element>
           </xsl:element>
-          
+
           <!-- <xsl:apply-templates /> -->
           
       </xsl:template>
   
-      <!-- This node passes through all attributes and childnodes rewriting the tagname only. -->
+  
+      <!-- 
+        Rewrite XUpdate elements to XSLT elements.
+        These templates pass through all attributes 
+        and childnodes rewriting the tagname only. 
+        FIXME: The redundant encoding for each XUpdate
+        element type seems dummy. Could this be stripped
+        shorter somehow sometimes?
+      -->
+      
       <xsl:template match="xupdate:element">
-          <xsl:comment> 3.a. vivify elements </xsl:comment>
+          <xsl:comment> 3.a. vivify generic node </xsl:comment>
           <xsl:element name="xsl:element">
               <xsl:copy-of select="@*"/>
               <xsl:apply-templates />
           </xsl:element>
       </xsl:template>
   
-      <!-- This node passes through all attributes and childnodes rewriting the tagname only. -->
       <xsl:template match="xupdate:attribute">
-          <xsl:comment> 3.b. vivify attributes </xsl:comment>
+          <xsl:comment> 3.b. vivify node attributes </xsl:comment>
           <xsl:element name="xsl:attribute">
               <xsl:copy-of select="@*"/>
               <xsl:apply-templates />
           </xsl:element>
       </xsl:template>
   
-  </xsl:stylesheet>
+      <xsl:template match="xupdate:text">
+          <xsl:comment> 4.a. vivify text node </xsl:comment>
+          <xsl:element name="xsl:text">
+              <xsl:copy-of select="@*"/>
+              <xsl:apply-templates />
+          </xsl:element>
+      </xsl:template>
+
+      <xsl:template match="xupdate:processing-instruction">
+          <xsl:comment> 4.b. vivify PI node </xsl:comment>
+          <xsl:element name="xsl:processing-instruction">
+              <xsl:copy-of select="@*"/>
+              <xsl:apply-templates />
+          </xsl:element>
+      </xsl:template>
+
+      <xsl:template match="xupdate:comment">
+          <xsl:comment> 4.c. vivify comment node </xsl:comment>
+          <xsl:element name="xsl:comment">
+              <xsl:copy-of select="@*"/>
+              <xsl:apply-templates />
+          </xsl:element>
+      </xsl:template>
+
+      <!-- xsl for [2.9 Variables and Values of Variables] -->
+      <xsl:template match="xupdate:variable">
+          <xsl:comment> 5.a. vivify xsl-element "variable" </xsl:comment>
+          <xsl:element name="xsl:variable">
+              <xsl:copy-of select="@*"/>
+              <!--
+              <xsl:apply-templates />
+              -->
+            <!-- <xsl:element name="xsl:apply-templates" > -->
+              <xsl:attribute name="select">
+                <!-- <xsl:apply-templates /> -->
+                /addresses[2]/address[4]/town
+              </xsl:attribute>
+            <!-- </xsl:element> -->
+              hui
+          </xsl:element>
+          
+      </xsl:template>
+
+      <xsl:template match="xupdate:value-of">
+          <xsl:comment> 5.b. vivify xsl-element "value-of" </xsl:comment>
+          <xsl:element name="xsl:value-of">
+              <xsl:copy-of select="@*"/>
+              <xsl:apply-templates />
+          </xsl:element>
+          <xsl:text>abs</xsl:text>
+      </xsl:template>
+
+
+</xsl:stylesheet>
   
\ No newline at end of file