lib/openwfe/engine/update_exp_methods.rb in ruote-0.9.19 vs lib/openwfe/engine/update_exp_methods.rb in ruote-0.9.20

@@ -1,43 +1,29 @@
-#
 #--
-# Copyright (c) 2007-2008, John Mettraux, OpenWFE.org
-# All rights reserved.
+# Copyright (c) 2007-2009, John Mettraux, [e-mail]
 #
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
 #
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
 #
-# . Redistributions in binary form must reproduce the above copyright notice,
-#   this list of conditions and the following disclaimer in the documentation
-#   and/or other materials provided with the distribution.
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
 #
-# . Neither the name of the "OpenWFE" nor the names of its contributors may be
-#   used to endorse or promote products derived from this software without
-#   specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
-# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-# POSSIBILITY OF SUCH DAMAGE.
+# Made in Japan.
 #++
-#
 
-#
-# "made in Japan"
-#
-# John Mettraux at openwfe.org
-#
 
 module OpenWFE
 
   #
   # The methods of the engine for updating live expressions
@@ -73,27 +59,48 @@
       get_expression_pool.update fexp
     end
 
     #
     # A variant of update_expression() that directly replaces
-    # the raw representation stored within a RawExpression.
+    # the raw representation stored within an expression
     #
     # Useful for modifying [not yet reached] segments of processes.
     #
-    def update_raw_expression (fei, representation)
+    # If the index argument is set, only the raw child pointed by the index
+    # will get updated.
+    #
+    def update_expression_tree (fei, representation, index=nil)
 
-      fexp = fetch_exp fei
+      fexp = fetch_exp(fei)
 
-      raise "cannot update already applied expression" \
-        unless fexp.is_a?(RawExpression)
+      #raise "cannot update already applied expression" \
+      #  unless fexp.is_a?(RawExpression)
 
-      fexp.raw_representation = representation
+      if index
+        #
+        # update just one child
+        #
+
+        fexp.raw_representation = fexp.raw_representation.dup
+        fexp.raw_representation[2] = fexp.raw_representation[2].dup
+          # those dups are for the InMemory case ...
+
+        fexp.raw_representation[2][index] = representation
+      else
+        #
+        # update whole tree
+        #
+        fexp.raw_representation = representation
+      end
+
       fexp.raw_rep_updated = true
 
-      get_expression_pool.update fexp
+      get_expression_pool.update(fexp)
     end
 
+    alias :update_raw_expression :update_expression_tree
+
     #
     # Replaces an expression in the pool with a newer version of it.
     #
     # (useful when fixing processes on the fly)
     #
@@ -101,10 +108,10 @@
 
       fexp.application_context = application_context
 
       fexp.raw_rep_updated = true
 
-      get_expression_pool.update fexp
+      get_expression_pool.update(fexp)
     end
 
   end
 
 end