--- joko/Scripts/xupdate/xupdate.pl	2003/04/24 21:07:36	1.1
+++ joko/Scripts/xupdate/xupdate.pl	2003/04/25 12:35:23	1.2
@@ -1,9 +1,13 @@
 #!/usr/bin/perl
 
 ## -------------------------------------------------------------------------
-##  $Id: xupdate.pl,v 1.1 2003/04/24 21:07:36 joko Exp $
+##  $Id: xupdate.pl,v 1.2 2003/04/25 12:35:23 joko Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: xupdate.pl,v $
+##  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 +35,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 +47,8 @@
   
   Q: Can we mimic/use the interface of the - already established - 'xupdate' program???
   
+  Q: Should we follow the CRUD path first?
+  
 
 =cut
 
@@ -101,39 +107,61 @@
 <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> -->
+<xsl:template match="*"><xsl:call-template name="passthru" /></xsl:template>
+<xsl:template match="source"><xsl:call-template name="lock_context" /></xsl:template>
 
 <!-- 1. This is the passthru logic (copy all). -->
-<xsl:template name="passthru"><xsl:copy><xsl:apply-templates/></xsl:copy></xsl:template>
+<xsl:template name="passthru"><xsl:copy><xsl:apply-templates /></xsl:copy></xsl:template>
 
-<!-- 2. This is the manipulation logic: insertChildNode -->
 
-<!-- 2.a. The "API" method. -->
-<xsl:template name="insertChildNode">
+<!-- 2. This is the crud API. -->
 
-  <!-- manipulate node -->
-  <xsl:comment> node - begin </xsl:comment>
-  
-  <!-- <xsl:copy-of select="source" /> -->
-  <xsl:copy>
+<!-- 2.a. The context finder. -->
+
+<xsl:template name="lock_context">
+  <xsl:choose>
     
-    <!-- Pass through children 1:1. -->
-    <xsl:apply-templates />
+    <xsl:when test="@key=expekt">
+      <xsl:call-template name="inject_kay_motl" />
+    </xsl:when>
     
-    <!-- Call one of the manipulators - this implements injection behavior. -->
-    <xsl:call-template name="clone_last_element" />
-    <xsl:call-template name="inject_template" />
-  
-  </xsl:copy>
-  <xsl:comment> node - end </xsl:comment>
-  
+    <xsl:otherwise>
+      <xsl:call-template name="passthru_kay" />
+    </xsl:otherwise>
+    
+  </xsl:choose>
 </xsl:template>
 
 
-<!-- 2.b. The context finder. -->
+<!-- 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: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>
+
 
-<!-- 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">
@@ -141,7 +169,8 @@
 </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 -->
@@ -157,19 +186,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>