--- joko/Scripts/xupdate/xupdate.pl	2003/04/24 21:07:36	1.1
+++ joko/Scripts/xupdate/xupdate.pl	2003/04/26 01:42:39	1.3
@@ -1,9 +1,16 @@
 #!/usr/bin/perl
 
 ## -------------------------------------------------------------------------
-##  $Id: xupdate.pl,v 1.1 2003/04/24 21:07:36 joko Exp $
+##  $Id: xupdate.pl,v 1.3 2003/04/26 01:42:39 joko Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: xupdate.pl,v $
+##  Revision 1.3  2003/04/26 01:42:39  joko
+##  first attempt to make up a crud template
+##
+##  Revision 1.2  2003/04/25 12:35:23  joko
+##  added some pod
+##  revamped xsl
+##
 ##  Revision 1.1  2003/04/24 21:07:36  joko
 ##  initial commit
 ##
@@ -31,11 +38,11 @@
     access to the XPath API in libxml2. 
 
 
-=head3 In short:
+=head3 Yet another xupdate - facts in short:
 
-  S: It would be nice to have a pure perl thingy which does the same stuff....
+  S: It would be nice to have a pure perl thingy which does (almost) the same stuff....
   
-  Q: Can we achieve compliance with its API? (just a subset ....)
+  Q: Can we achieve compliance with its (XML::XUpdate::LibXML) API? (just a subset ....)
   
   Q: Can we achieve the processing declared as a XSL document processed using CPAN's XML::XSLT?
   
@@ -43,6 +50,8 @@
   
   Q: Can we mimic/use the interface of the - already established - 'xupdate' program???
   
+  Q: Should we follow the CRUD path first?
+  
 
 =cut
 
@@ -100,53 +109,109 @@
      
 <xsl:output method="raw"/>
 
-<!-- 0. The root node dispatcher. -->
-<xsl:template match="*"><xsl:call-template name="passthru"/></xsl:template>
-<!-- <xsl:template match="source"><xsl:call-template name="insertChildNode"/></xsl:template> -->
+<!-- 1. This is the passthru logic (copy all untouched nodes). -->
+<xsl:template name="passthru"><xsl:copy><xsl:apply-templates /></xsl:copy></xsl:template>
+<!-- activate this -->
+<xsl:template match="*"><xsl:call-template name="passthru" /></xsl:template>
+<!-- override some builtin rules: see http://www.w3.org/TR/xslt#built-in-rule -->
+<!-- <xsl:template match="comment()"><xsl:call-template name="passthru" /></xsl:template> -->
 
-<!-- 1. This is the passthru logic (copy all). -->
-<xsl:template name="passthru"><xsl:copy><xsl:apply-templates/></xsl:copy></xsl:template>
+<!-- 2. This is the crud API. -->
 
-<!-- 2. This is the manipulation logic: insertChildNode -->
+<!-- 2.a. The context finder. -->
 
-<!-- 2.a. The "API" method. -->
-<xsl:template name="insertChildNode">
+<!-- query part one: the node name -->
+<xsl:template match="source">
+  <xsl:choose>
+    <!-- query part two: the attrib key and value -->
+    <xsl:when test="@key=expekt">
+      <xsl:call-template name="crud" >
+        <xsl:with-param name="action">5</xsl:with-param>
+        <xsl:with-param name="payload">-------  payload -------</xsl:with-param>
+      </xsl:call-template>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:call-template name="passthru_kay" />
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
+
+<!-- 2.b. The node manipulators: They translate the current context. -->
+
+<!-- by Mike Kay, Software AG [http://p2p.wrox.com/archive/xslt/2001-06/98.asp] -->
+<!-- enhancements & comments: Andreas Motl, rotamente.de -->
+<!-- <xsl:template match="source"> -->
+<xsl:template name="passthru_kay">
+      <xsl:copy>
+        <xsl:copy-of select="@*" />
+        <xsl:apply-templates />
+      </xsl:copy>  
+</xsl:template>
+
+<xsl:template name="inject_kay_motl">
+      <xsl:param name="payload" />
+      <xsl:value-of select="$payload" />
+      <xsl:copy>
+        <xsl:copy-of select="@*" />
+        <xsl:apply-templates />
+        <!-- <xsl:apply-templates select="*[3]" /> -->
+        <!-- <xsl:value-of select="text()" /> -->
+        <!-- Multiple handlers here now: a) create fressshhhh element, b) clone s.th. -->
+        <!-- TODO: Do switch/case or couple of if/then statements here to be able to handle that "at runtime". -->
+        <xsl:call-template name="create_fresh_element" />
+        <xsl:call-template name="clone_last_element" />
+        <xsl:call-template name="clone_element_nr" />
+      </xsl:copy>  
+</xsl:template>
+
+<xsl:template name="crud">
+  <xsl:param name="action" />
+  <xsl:param name="payload" />
+  action: <xsl:value-of select="$action" />
+  payload: <xsl:value-of select="$payload" />
+
+  <xsl:if test="$action=5">
+    CRUD: CREATE
+  </xsl:if>
 
-  <!-- manipulate node -->
-  <xsl:comment> node - begin </xsl:comment>
-  
-  <!-- <xsl:copy-of select="source" /> -->
   <xsl:copy>
-    
-    <!-- Pass through children 1:1. -->
+    <xsl:copy-of select="@*" />
     <xsl:apply-templates />
-    
-    <!-- Call one of the manipulators - this implements injection behavior. -->
-    <xsl:call-template name="clone_last_element" />
-    <xsl:call-template name="inject_template" />
-  
+
+    <!-- crud action dispatcher -->
+    <xsl:choose>
+      <xsl:when test="{$action}=5">
+      <!-- <xsl:when test="blah=\'blub\'"> -->
+        CRUD: CREATE
+        <xsl:call-template name="clone_last_element" />
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:comment> UNKOWN CRUD ACTION! </xsl:comment>
+      </xsl:otherwise>
+    </xsl:choose>
+
   </xsl:copy>
-  <xsl:comment> node - end </xsl:comment>
-  
+
 </xsl:template>
 
 
-<!-- 2.b. The context finder. -->
 
-<!-- 2.c. The node manipulators: They mungle the current context. -->
+<!-- 2.c. The element manipulators: They mungle a specific element inside the current context. -->
 
 <!-- copy over node 1:1 (use last element as a template) -->
 <xsl:template name="clone_last_element">
-  <xsl:copy-of select="*[last()]" />
+        <xsl:copy-of select="*[last()]" />
 </xsl:template>
 
 <xsl:template name="clone_element_nr">
-  <xsl:copy-of select="*[last()]" />
+        <!-- TODO: let idx be passed in via "with-param" or s.th.l.th. -->
+        <xsl:copy-of select="*[2]" />
 </xsl:template>
 
 <!-- creates instance of new element -->
 <xsl:template name="create_fresh_element">
-  <xsl:element name="new">content</xsl:element>
+        <xsl:element name="new">content</xsl:element>
 </xsl:template>
 
 
@@ -157,19 +222,32 @@
 </xsl:template>
 
 
-<!-- Fine stuff from others. -->
 
-<!-- by Mike Kay, Software AG [http://p2p.wrox.com/archive/xslt/2001-06/98.asp] -->
-<!-- enhancements & comments: Andreas Motl, rotamente.de -->
-<xsl:template match="source">
+
+<!-- 0. The root node dispatcher. -->
+<!-- <xsl:template match="source"><xsl:call-template name="insertChildNode"/></xsl:template> -->
+
+<!-- 2. This is the manipulation logic: insertChildNode -->
+
+<!-- 2.a. The "API" method. - now deprecated -->
+<xsl:template name="insertChildNode">
+
+  <!-- manipulate node -->
+  <xsl:comment> node - begin </xsl:comment>
+  
+  <!-- <xsl:copy-of select="source" /> -->
   <xsl:copy>
-    <xsl:copy-of select="@*" />
+    
+    <!-- Pass through children 1:1. -->
     <xsl:apply-templates />
-    <!-- multiple handlers here now: a) create fressshhhh element, b) clone s.th. -->
-    <!-- TODO: Do switch/case or couple of if/then statements here to be able to handle that "at runtime". -->
-    <xsl:call-template name="create_fresh_element" />
+    
+    <!-- Call one of the manipulators - this implements injection behavior. -->
     <xsl:call-template name="clone_last_element" />
-  </xsl:copy>  
+    <xsl:call-template name="inject_template" />
+  
+  </xsl:copy>
+  <xsl:comment> node - end </xsl:comment>
+  
 </xsl:template>