--- joko/Scripts/xupdate/xupdate.pl	2003/04/26 01:42:39	1.3
+++ joko/Scripts/xupdate/xupdate.pl	2003/05/01 19:47:09	1.4
@@ -1,9 +1,12 @@
 #!/usr/bin/perl
 
 ## -------------------------------------------------------------------------
-##  $Id: xupdate.pl,v 1.3 2003/04/26 01:42:39 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
 ##
@@ -73,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">
 
@@ -114,7 +120,7 @@
 <!-- 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> -->
+<xsl:template match="comment()"><xsl:call-template name="passthru" /></xsl:template>
 
 <!-- 2. This is the crud API. -->
 
@@ -126,8 +132,9 @@
     <!-- 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: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>
@@ -166,32 +173,65 @@
 </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>
 
-  <xsl:copy>
-    <xsl:copy-of select="@*" />
-    <xsl:apply-templates />
+    <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>
+    -->
 
-    <!-- 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: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>
+    
+                    <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>
+    
+                </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>
 
@@ -214,6 +254,21 @@
         <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>
+
 
 <!-- inject other stuff -->
 <xsl:template name="inject_template">
@@ -255,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__