--- joko/Scripts/xupdate/xupdate.pl	2003/04/24 21:07:36	1.1
+++ joko/Scripts/xupdate/xupdate.pl	2003/05/01 19:47:09	1.4
@@ -1,9 +1,19 @@
 #!/usr/bin/perl
 
 ## -------------------------------------------------------------------------
-##  $Id: xupdate.pl,v 1.1 2003/04/24 21:07:36 joko Exp $
+##  $Id: xupdate.pl,v 1.4 2003/05/01 19:47:09 joko Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: xupdate.pl,v $
+##  Revision 1.4  2003/05/01 19:47:09  joko
+##  attempts to get things going
+##
+##  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 +41,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 +53,8 @@
   
   Q: Can we mimic/use the interface of the - already established - 'xupdate' program???
   
+  Q: Should we follow the CRUD path first?
+  
 
 =cut
 
@@ -64,7 +76,10 @@
 
 my $file = 'c:/home/amo/develop/top-scores.net/ts/backend/var/resources/control/import_select.xml';
 
-my $stylesheet = '<?xml version="1.0" encoding="ISO-8859-1"?>
+
+#my $stylesheet_xupdate = '
+
+my $stylesheet_xupdate = '<?xml version="1.0" encoding="ISO-8859-1"?>
 
 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 
@@ -100,53 +115,158 @@
      
 <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">CREATE</xsl:with-param>
+        <xsl:with-param name="mode">callback</xsl:with-param>
+        <xsl:with-param name="cbname">abc</xsl:with-param>
+      </xsl:call-template>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:call-template name="passthru_kay" />
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
 
-  <!-- manipulate node -->
-  <xsl:comment> node - begin </xsl:comment>
-  
-  <!-- <xsl:copy-of select="source" /> -->
-  <xsl:copy>
+
+<!-- 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" />
+    <xsl:param name="mode" />
+    <xsl:param name="cbname" />
+
+    <!--
+    action: <xsl:value-of select="$action" />
+    payload: <xsl:value-of select="$payload" />
+    -->
+
+    <!--
+    <xsl:if test="$action=5">
+    CRUD: CREATE - if
+    </xsl:if>
+    -->
+
+    <xsl:copy>
+
+        <xsl:copy-of select="@*" />
+        <xsl:apply-templates />
+        
+        <!-- crud action dispatcher -->
+        <xsl:choose>
+          
+            <!-- CREATE -->
+            <xsl:when test="{$action}=CREATE">
+                
+                <!-- thats a (compact) switch case in xsl lingo! -->
+                <xsl:choose>
     
-    <!-- Pass through children 1:1. -->
-    <xsl:apply-templates />
+                    <xsl:when test="$payload!=">
+                        <xsl:comment> Payload injected on {timestamp} </xsl:comment>
+                        <xsl:value-of select="$payload" />
+                    </xsl:when>
+            
+                    <xsl:when test="$mode=callback">
+                        <xsl:comment> Payload injected via callback <xsl:value-of select="{$cbname}" /> on {$timestamp} </xsl:comment>
+                        <xsl:call-template name="xupdate_element_create_embedded" />
+                    </xsl:when>
+
+                    <xsl:otherwise>
+                        <xsl:comment> Cloned last element as template on {timestamp} </xsl:comment>
+                        <xsl:call-template name="clone_last_element" />
+                    </xsl:otherwise>
     
-    <!-- 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:choose>
+                
+            </xsl:when>
+              
+            <xsl:otherwise>
+                <xsl:comment> 
+                    UNKOWN CRUD ACTION: "<xsl:value-of select="$action" />" on <xsl:value-of select="$now" />. 
+            </xsl:comment>
+        </xsl:otherwise>
+          
+        </xsl:choose>
+    
+    </xsl:copy>
+
 </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>
+
+<xsl:template name="xupdate_element_create_embedded">
+    <xsl:variable name="huhu" select="*[0]/@key">haha</xsl:variable>
+  <!-- <xsl:transform version="1.1" xmlns:xupdate="http://www.xmldb.org/xupdate"> -->
+   <!-- <xupdate:modifications version="1.0" xmlns:xupdate="http://www.xmldb.org/xupdate">  -->
+    <!-- <xsl:append select="/addresses" child="last()">  -->
+        <xsl:element name="address"> 
+            <town>San Francisco</town>
+        </xsl:element>
+        <xsl:value-of select="*[0]/@key" />
+        <xsl:value-of select="$huhu" />
+    <!-- </xupdate:modifications> -->
+    <!-- </xsl:append> -->
+    <!-- </xsl:transform> -->
 </xsl:template>
 
 
@@ -157,19 +277,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>
 
 
@@ -177,26 +310,88 @@
 
 ';
 
+
+
+
+# examples from http://www.xmldb.org/xupdate/xupdate-wd.html#N238f4
+
+my $xml_document = qq(<?xml version="1.0"?> 
+  <addresses version="1.0"> 
+    <address id="1"> 
+      <fullname>Andreas Laux</fullname> 
+      <born day='1' month='12' year='1978'/> 
+      <town>Leipzig</town> 
+      <country>Germany</country> 
+    </address> 
+  </addresses>
+);
+
+# a stripped example (the "xupdate payload")
+my $xml_xupdate_stripped = qq(
+  <xupdate:element name="address">
+    <xupdate:attribute name="id">2</xupdate:attribute>
+    <fullname>Lars Martin</fullname> 
+    <born day='2' month='12' year='1974'/> 
+    <town>Leizig</town> 
+    <country>Germany</country> 
+  </xupdate:element> 
+);
+
+# a full xupdate example (including the directive)
+my $xml_xupdate_full = qq(<?xml version="1.0"?> 
+  <xupdate:modifications version="1.0" xmlns:xupdate="http://www.xmldb.org/xupdate"> 
+  
+    <xupdate:insert-after select="/addresses/address[1]" > 
+    
+      <xupdate:element name="address">
+        <xupdate:attribute name="id">2</xupdate:attribute>
+        <fullname>Lars Martin</fullname> 
+        <born day='2' month='12' year='1974'/> 
+        <town>Leizig</town> 
+        <country>Germany</country> 
+      </xupdate:element> 
+    
+    </xupdate:insert-after> 
+
+  </xupdate:modifications> 
+);
+
+sub main_old {
+  #$xslt->open_xml( Source => f2s($file) );
+  #$xslt->open_xml( Source => $xml_xupdate_full );
+  #$xslt->xsl_ns('xupdate', 'xsl');
+
+  #$xslt->process();
+  #print $xslt->toString(), "\n";
+}
+
+
 sub main {
   
-  my $xslt = XML::XSLT->new( 
-    Source => $stylesheet, 
-    #debug => 1, 
+  use XML::XUpdate::XSLT;
+  my $xupdate = XML::XUpdate::XSLT->new( 
     warnings => 1 
   );
+
+  #print Dumper($xupdate);
+
+  $xupdate->open_document( $xml_document );
+  #exit;
   
-  #print f2s($file), "\n";
-  
-  $xslt->open_xml( Source => f2s($file) );
-  
-  $xslt->process();
-  print $xslt->toString(), "\n";
-  
+  $xupdate->open_xupdate( $xml_xupdate_full );
+
+  $xupdate->process();
+  my $result = $xupdate->toString();
+  if ($result) {
+    print $result, "\n";
+  } else {
+    print "No result.", "\n";
+  }
+
 }
 
 main();
 print "ready.", "\n";
 
-
 1;
 __END__