ruote-maestrodev 2.2.1

data/lib/ruote/util/ometa.rb

@@ -0,0 +1,71 @@
+#--
+# Copyright (c) 2005-2011, John Mettraux, jmettraux@gmail.com
+#
+# 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:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# 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.
+#
+# Made in Japan.
+#++
+
+#--
+# note, it's ometa, not omerta.
+#++
+
+
+module Ruote
+
+  # meta a la lucky stiff
+  #
+  module WithMeta
+
+    def self.included(target)
+
+      def target.metaclass
+        class << self
+          self
+        end
+      end
+      def target.meta_eval(&block)
+        metaclass.instance_eval(&block)
+      end
+      def target.meta_def(method_name, &block)
+        meta_eval { define_method method_name, &block }
+      end
+      def class_def(method_name, &block)
+        class_eval { define_method name, &block }
+      end
+    end
+  end
+
+  # A blank slate of a class
+  #
+  class BlankSlate
+
+    instance_methods.each do |m|
+
+      next if %w[
+        method_missing respond_to? instance_eval object_id
+      ].include?(m.to_s)
+
+      next if m.to_s.match(/^__/)
+
+      undef_method(m)
+    end
+  end
+end
+

data/lib/ruote/util/serializer.rb

@@ -0,0 +1,103 @@
+#--
+# Copyright (c) 2005-2011, John Mettraux, jmettraux@gmail.com
+#
+# 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:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# 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.
+#
+# Made in Japan.
+#++
+
+
+module Ruote
+
+  #
+  # To get a YAML serializer :
+  #
+  #   serializer = Serializer.new(:yaml)
+  #
+  # A marshal + base64 one :
+  #
+  #   serializer = Serializer.new(:marshal64)
+  #
+  # A marshal only one :
+  #
+  #   serializer = Serializer.new(:marshal)
+  #
+  # For the rest, it's the classical :
+  #
+  #   data = serializer.encode(object)
+  #
+  #   object = serializer.decode(data)
+  #
+  class Serializer
+
+    #--
+    # prepare / encode / decode lambda pairs
+    #++
+
+    # plain marshal serialization
+    #
+    MARSHAL = [
+      lambda { },
+      lambda { |o| Marshal.dump(o) },
+      lambda { |s| Marshal.load(s) }
+    ]
+
+    # marshal serialization with base64 encoding
+    #
+    MARSHAL64 = [
+      lambda { require 'base64' },
+      lambda { |o| Base64.encode64(Marshal.dump(o)) },
+      lambda { |s| Marshal.load(Base64.decode64(s)) }
+    ]
+
+    # YAML serialization
+    #
+    YAML = [
+      lambda { require 'yaml' },
+      lambda { |o| ::YAML.dump(o) },
+      lambda { |s| ::YAML.load(s) }
+    ]
+
+    #JASH = ...
+
+    # The flavour map
+    #
+    FLAVOURS = {
+      :marshal => MARSHAL, :marshal64 => MARSHAL64, :yaml => YAML
+    }
+
+    def initialize(flavour)
+
+      @flavour = FLAVOURS[flavour] || MARSHAL64
+
+      @flavour[0].call # initializes the flavour
+    end
+
+    def encode(o)
+
+      @flavour[1].call(o)
+    end
+
+    def decode(s)
+
+      @flavour[2].call(s)
+    end
+  end
+end
+

data/lib/ruote/util/subprocess.rb

@@ -0,0 +1,88 @@
+#--
+# Copyright (c) 2005-2011, John Mettraux, jmettraux@gmail.com
+#
+# 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:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# 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.
+#
+# Made in Japan.
+#++
+
+
+module Ruote
+
+  #--
+  # a few helper methods about subprocesses
+  #++
+
+  # This method is used by the 'subprocess' expression and by the
+  # EngineParticipant.
+  #
+  def self.lookup_subprocess(fexp, ref)
+
+    val = fexp.lookup_variable(ref)
+
+    # a classical subprocess stored in a variable ?
+
+    return [ '0', val ] if is_tree?(val)
+    return val if is_pos_tree?(val)
+
+    # maybe subprocess :ref => 'uri'
+
+    subtree = fexp.context.reader.read(ref) rescue nil
+
+    if subtree && is_definition_tree?(subtree)
+      _, subtree = Ruote::Exp::DefineExpression.reorganize(subtree)
+    end
+
+    return [ '0', subtree ] if is_tree?(subtree)
+
+    # no luck ...
+
+    raise "no subprocess named '#{ref}' found"
+  end
+
+  # Returns true if the argument is a process definition tree (whose root
+  # is 'define', 'process_definition' or 'workflow_definition'.
+  #
+  def self.is_definition_tree?(arg)
+
+    Ruote::Exp::DefineExpression.is_definition?(arg) && is_tree?(arg)
+  end
+
+  # Returns true if the given argument is a process definition tree
+  # (its root doesn't need to be 'define' or 'process_definition' though).
+  #
+  def self.is_tree?(arg)
+
+    arg.is_a?(Array) && arg.size == 3 &&
+    arg[0].is_a?(String) && arg[1].is_a?(Hash) && arg[2].is_a?(Array) &&
+    (arg.last.empty? || arg.last.find { |e| ! is_tree?(e) }.nil?)
+  end
+
+  # Mainly used by Ruote.lookup_subprocess, returns true if the argument is
+  # is an array [ position, tree ].
+  #
+  def self.is_pos_tree?(arg)
+
+    arg.is_a?(Array) &&
+    arg.size == 2 &&
+    arg[0].is_a?(String) &&
+    is_tree?(arg[1])
+  end
+end
+

data/lib/ruote/util/time.rb

@@ -0,0 +1,100 @@
+#--
+# Copyright (c) 2005-2011, John Mettraux, jmettraux@gmail.com
+#
+# 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:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# 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.
+#
+# Made in Japan.
+#++
+
+require 'rufus/scheduler'
+
+
+unless DateTime.instance_methods.include?(:to_time)
+  #
+  # Ruby 1.9.1 has it, but not 1.8.x, so adding it...
+  #
+  class DateTime
+    def to_time
+      new_offset(0).instance_eval {
+        Time.utc(year, mon, mday, hour, min, sec + sec_fraction)
+      }.getlocal
+    end
+  end
+end
+
+
+module Ruote
+
+  # Produces the UTC string representation of a Time
+  #
+  # like "2009/11/23 11:11:50.947109 UTC"
+  #
+  def self.time_to_utc_s(t)
+
+    "#{t.utc.strftime('%Y-%m-%d %H:%M:%S')}.#{sprintf('%06d', t.usec)} UTC"
+  end
+
+  # Returns a parsable representation of the UTC time now.
+  #
+  # like "2009/11/23 11:11:50.947109 UTC"
+  #
+  def self.now_to_utc_s
+
+    time_to_utc_s(Time.now)
+  end
+
+  # Turns a date or a duration to a Time object pointing AT a point in time...
+  #
+  # (my prose is weak)
+  #
+  def self.s_to_at(s)
+
+    at = if s.index(' ')
+      #
+      # date
+
+      Rufus.to_ruby_time(s)# rescue nil
+
+    else
+      #
+      # duration
+
+      Time.now.utc.to_f + Rufus.parse_time_string(s)
+    end
+
+    case at
+      when DateTime then at.to_time.utc
+      when Float then Time.at(at).utc
+      else at
+    end
+  end
+
+  # Waiting for a better implementation of it in rufus-scheduler 2.0.4
+  #
+  def self.is_cron_string(s)
+
+    ss = s.split(' ')
+
+    return false if ss.size < 5 || ss.size > 6
+    return false if s.match(/\d{4}/)
+
+    true
+  end
+end
+

data/lib/ruote/util/tree.rb

@@ -0,0 +1,58 @@
+#--
+# Copyright (c) 2005-2011, John Mettraux, jmettraux@gmail.com
+#
+# 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:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# 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.
+#
+# Made in Japan.
+#++
+
+
+module Ruote
+
+  # Turning a tree into a numbered string view
+  #
+  #   require 'ruote/util/tree'
+  #   require 'ruote/reader/ruby_dsl'
+  #
+  #   pdef = Ruote.process_definition :name => 'def0' do
+  #     sequence do
+  #       alpha
+  #       bravo
+  #     end
+  #   end
+  #
+  #   p pdef
+  #     # => ["define", {"name"=>"def0"}, [["sequence", {}, [["alpha", {}, []], ["bravo", {}, []]]]]]
+  #
+  #   puts Ruote.tree_to_s(pdef)
+  #     # =>
+  #     #    0  define {"name"=>"def0"}
+  #     #      0_0  sequence {}
+  #     #        0_0_0  alpha {}
+  #     #        0_0_1  bravo {}
+  #
+  def Ruote.tree_to_s(tree, expid='0')
+
+    d = expid.split('_').size - 1
+    s = "#{' ' * d * 2}#{expid}  #{tree[0]} #{tree[1].inspect}\n"
+    tree[2].each_with_index { |t, i| s << tree_to_s(t, "#{expid}_#{i}") }
+    s
+  end
+end
+

data/lib/ruote/version.rb

@@ -0,0 +1,29 @@
+#--
+# Copyright (c) 2005-2011, John Mettraux, jmettraux@gmail.com
+#
+# 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:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# 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.
+#
+# Made in Japan.
+#++
+
+module Ruote
+
+  VERSION = '2.2.1'
+end
+