openwferu 0.9.1 → 0.9.2

data/lib/ru/expressionstorage.rb

@@ -1,99 +0,0 @@
-#
-#--
-# Copyright (c) 2006, John Mettraux, OpenWFE.org
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.  
-# 
-# . 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.
-# 
-# . 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.
-#++
-#
-# $Id: definitions.rb 2725 2006-06-02 13:26:32Z jmettraux $
-#
-
-#
-# "made in Japan"
-#
-# John Mettraux at openwfe.org
-#
-
-
-require 'ru/service'
-
-
-module OpenWFEru
-
-    #
-    # In OpenWFEja, an ExpressionStorage is called an ExpressionStore
-    # I prefer the 'storage' concept.
-    #
-    class InMemoryExpressionStorage < Hash
-        include ServiceMixin
-
-        def initialize (service_name, application_context)
-            super()
-            @service_name = service_name
-            @application_context = application_context
-        end
-
-        #def []= (k, v)
-        #    super(k.to_s, v)
-        #end
-        #def delete (k)
-        #    super(k.to_s)
-        #end
-        #def [] (k)
-        #    result = super(k)
-        #    return result if result
-        #    ldebug do
-        #        result = ""
-        #        self.each do |kk, vv|
-        #            result << "\n#{k} ?= #{kk}  : #{k == kk}"
-        #        end
-        #        result
-        #    end
-        #    return nil
-        #end
-
-        def to_s
-            s = "\n\n==== #{self.class} ===="
-            each do |k, v|
-                s << "\n"
-                if v.kind_of?(RawExpression)
-                    s << "*raw" 
-                else
-                    s << "  "
-                end
-                s << v.to_s
-                s << "    key/value mismatch !" if k != v.fei
-            end
-            s << "\n==== . ====\n"
-            return s
-        end
-
-    end
-
-end
-

data/lib/ru/flowexpression.rb

@@ -1,272 +0,0 @@
-#
-#--
-# Copyright (c) 2006, John Mettraux, OpenWFE.org
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.  
-# 
-# . 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.
-# 
-# . 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.
-#++
-#
-#  $Id: definitions.rb 2725 2006-06-02 13:26:32Z jmettraux $
-#
-
-#
-# "made in Japan"
-#
-# John Mettraux at openwfe.org
-#
-
-require 'ru/rudefinitions'
-require 'ru/contextual'
-require 'ru/dollar'
-require 'ru/logging'
-
-
-module OpenWFEru
-
-    #
-    # FlowExpression
-    #
-
-    class FlowExpression
-        include Contextual, Logging
-
-        attr_accessor \
-            :fei, \
-            :parent_id, \
-            :environment_id, \
-            :attributes, \
-            :children, \
-            :apply_time 
-
-        def initialize (fei, parent_id, env_id, app_context, attributes)
-
-            @fei = fei
-            @parent_id = parent_id
-            @environment_id = env_id
-            @application_context = app_context
-            @attributes = attributes
-
-            @apply_time = nil
-
-            #ldebug do
-            #    "initialize()\n"+
-            #    "self   : #{@fei}\n"+
-            #    "parent : #{@parent_id}"
-            #end
-        end
-
-        #
-        # the two most important methods for flow expressions
-
-        #
-        # this default implementation immediately replies to the
-        # parent expression
-        #
-        def apply (workitem)
-            get_parent().reply(workitem) if @parent_id
-        end
-
-        #
-        # this default implementation immediately replies to the
-        # parent expression
-        #
-        def reply (workitem)
-            reply_to_parent(workitem)
-        end
-
-        def reply_to_parent (workitem)
-            get_expression_pool.reply_to_parent(self, workitem)
-        end
-
-        #
-        # a default implementation for cancel :
-        # cancels all the children
-        # Attempts to return an InFlowWorkItem
-        #
-        def cancel ()
-            return nil if not @children
-            inflowitem = nil
-            @children.each do |child|
-                i = get_expression_pool().cancel(child)
-                inflowitem = i if not inflowitem
-            end
-            return inflowitem
-        end
-
-        #
-        # some convenience methods
-
-        def get_parent ()
-            get_expression_pool().fetch(@parent_id)
-        end
-
-        def get_expression_pool ()
-            @application_context[S_EXPRESSION_POOL]
-        end
-
-        def get_expression_map ()
-            @application_context[S_EXPRESSION_MAP]
-        end
-
-        def store_itself ()
-            get_expression_pool().update(self)
-        end
-
-        def get_environment ()
-            return nil if not @environment_id
-            return get_expression_pool().fetch(@environment_id)
-        end
-
-        #
-        # Returns true if the expression's environment was generated
-        # for itself (usually DefineExpression do have such envs)
-        #
-        def owns_its_environment? ()
-
-            #ldebug { "owns_its_environment?()  #{@fei.to_debug_s}" }
-
-            return false if not @environment_id
-
-            ei = @fei.dup()
-            vi = @environment_id.dup()
-
-            ei.expressionName = "neutral"
-            vi.expressionName = "neutral"
-
-            #ldebug do
-            #    "owns_its_environment?()\n"+
-            #    "   exp  #{ei.to_debug_s}\n"+
-            #    "   env  #{vi.to_debug_s}"
-            #end
-
-            return ei == vi
-        end
-
-        def set_variable (varname, value)
-            get_environment()[varname] = value
-        end
-
-        def lookup_variable (varname)
-            return get_environment()[varname]
-        end
-
-        def delete_variable (varname)
-            get_environment().delete(varname)
-        end
-
-        def lookup_attribute (attname, workitem)
-            text = @attributes[attname]
-            return nil if not text
-            return OpenWFEru::dosub(text, self, workitem)
-        end
-
-        def lookup_boolean_attribute (attname, workitem, default=false)
-            value = lookup_attribute(attname, workitem)
-            return default if not value
-            return value.downcase == 'true'
-        end
-
-        def lookup_attributes (attributes, workitem)
-            result = {}
-            attributes.each do |k, v|
-                result[k] = OpenWFEru::dosub(v, self, workitem)
-            end
-            return result
-        end
-
-        def list_attributes (workitem)
-            result = {}
-            @attributes.each do |k, v|
-                result[k] = OpenWFEru::dosub(v, self, workitem)
-                ldebug { "list_attributes()    added '#{k}' -> '#{result[k]}'" }
-            end
-            return result
-        end
-
-        #
-        # creates a new environment just for this expression
-        #
-        def new_environment ()
-
-            ldebug { "new_environment() for #{@fei.to_debug_s}" }
-
-            @environment_id = @fei.dup
-            @environment_id.expressionName = EN_ENVIRONMENT
-
-            parent_fei = nil
-            parent = nil
-            parent = get_expression_pool().fetch(@parent_id) if @parent_id
-            parent_fei = parent.environment_id if parent
-
-            env = Environment\
-                .new(@environment_id, parent_fei, nil, @application_context, nil)
-
-            ldebug { "new_environment() is #{env.fei.to_debug_s}" }
-
-            env.store_itself()
-        end
-
-        #
-        # takes care of removing all the children
-        #
-        def clean_children
-            @children.each do |children_fei|
-                get_expression_pool.remove(children_fei)
-            end
-        end
-
-        #
-        # some eye candy
-        #
-        def to_s
-            s = "* #{@fei.to_debug_s}"
-
-            if @parent_id
-                s << "\n   `--p--> #{@parent_id.to_debug_s}"
-            end
-
-            if @environment_id
-                s << "\n   `--e--> #{@environment_id.to_debug_s}"
-            end
-
-            if @children
-                @children.each do |c|
-                    sc = if c.kind_of?(OpenWFE::FlowExpressionId)
-                        c.to_debug_s
-                    else
-                        ">#{c.to_s}<"
-                    end
-                    s << "\n   `--c--> #{sc}"
-                end
-            end
-
-            return s
-        end
-    end
-
-end
-

data/lib/ru/ruutils.rb

@@ -1,70 +0,0 @@
-#
-#<tt>
-# Copyright (c) 2006, John Mettraux, OpenWFE.org
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.  
-# 
-# . 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.
-# 
-# . 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.
-#</tt>
-#
-#  $Id: definitions.rb 2725 2006-06-02 13:26:32Z jmettraux $
-#
-
-#
-# made somewhere over Japan
-#
-# John Mettraux at openwfe.org
-#
-
-
-module OpenWFEru
-
-    #
-    # Returns true if the given string starts with the 'start' string.
-    #
-    def OpenWFEru.starts_with (string, start)
-        #
-        # my favourite way of doing that would be by adding this 
-        # method to the String class, but that could be intrusive
-        # (as OpenWFEru is meant at first as an embeddable workflow engine).
-        #
-        return false if not string
-        return false if string.length < start.length
-        return string[0, start.length] == start
-    end
-
-    #
-    # Attempts at displaying a nice stack trace
-    #
-    def OpenWFEru.exception_to_s (exception)
-        s = ""
-        s << "#{exception}\n"
-        s << exception.backtrace.join("\n")
-        return s
-    end
-
-end
-

data/lib/test.rb

@@ -1,222 +0,0 @@
-#
-#<tt>
-# Copyright (c) 2005-2006, John Mettraux, OpenWFE.org
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.  
-# 
-# . 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.
-# 
-# . 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.
-#</tt>
-#
-# $Id: test.rb 3454 2006-10-08 16:51:00Z jmettraux $
-#
-
-#
-# "hecho en Costa Rica"
-#
-
-require 'optparse'
-
-require 'worklistclient'
-require 'controlclient'
-
-
-#
-# PARSING OPTS
-#
-
-@has_options = false
-@test_worklist = true
-@test_control = true
-
-def flush_options ()
-    if not @has_options
-        @test_worklist = false
-        @test_control = false
-    end
-    @has_options = true
-end
-
-opts = OptionParser.new()
-
-opts.banner = "Usage: test.sh [options]"
-opts.separator("")
-opts.separator("options:")
-
-opts.on("-w", "--worklist", "tests the ruby lib to the worklist iface") do
-    flush_options()
-    @test_worklist = true
-end
-
-opts.on("-c", "--control", "tests the ruby lib to the control iface") do
-    flush_options()
-    @test_control = true
-end
-
-opts.on("-h", "--help", "displays this help/usage message") do
-    puts
-    puts opts.to_s()
-    puts
-    exit 0
-end
-
-#opts_rest = opts.parse(ARGV)
-#questions = Integer(opts_rest[0]) if opts_rest.length > 0
-
-opts.parse(ARGV)
-
-
-puts
-puts "  testing worklist : #{@test_worklist}"
-puts "  testing control  : #{@test_control}"
-puts
-
-
-#
-# TESTING THE WORKLIST IFACE
-#
-
-if @test_worklist
-
-    client = OpenWFE::WorklistClient\
-       .new("http://127.0.0.1:5080/worklist", "alice", "alice")
-
-    puts "sessionId : #{client.sessionId}"
-
-    #puts client.get('getstorenames', nil, nil)
-
-    puts "Stores :"
-    l = client.listStores()
-    l.each do |s|
-        puts " - store  name : '#{s.name}'  wi count : #{s.workitemCount}  permissions : #{s.permissions}"
-    end
-
-    puts
-
-    puts "launching a flow"
-    li = OpenWFE::LaunchItem.new()
-    li.workflowDefinitionUrl = "http://localhost:7079/flow__1.0.xml"
-    li.attributes["__subject__"] = "openwfe-ruby"
-
-    fei = client.launchFlow("mainEngine", li)
-    puts fei
-
-    puts
-
-    feiToFetch = nil
-
-    puts "Store.alpha's headers :"
-    l = client.getHeaders("Store.alpha")
-    l.each do |h|
-        puts " - header  lastModified : #{h.lastModified}  locked : #{h.locked}  ac : #{h.attributes.length}"
-        puts "           fei : #{h.flowExpressionId}"
-
-        feiToFetch = h.flowExpressionId
-    end
-
-    puts "Fetching the first workitem :"
-    wi = client.getWorkitem("Store.alpha", feiToFetch)
-
-    #puts wi.inspect()
-    puts
-
-    puts "Fetching (and locking) the first workitem :"
-    wi = client.getAndLockWorkitem("Store.alpha", feiToFetch)
-
-    puts wi.inspect()
-
-    puts
-
-    puts "Releasing the workitem :"
-    puts "ok" if client.releaseWorkitem(wi)
-
-    puts
-
-    puts "Listing launchables :"
-    client.listLaunchables().each do |l|
-        puts " - launchable  #{l.engineId} :: #{l.url}"
-    end
-
-    puts
-
-    puts "Closing worklist worksession"
-    puts client.close()
-
-end
-
-
-#
-# TESTING THE CONTROL IFACE
-#
-
-if @test_control
-
-    def display_expressions (exps)
-        i = 0
-        exps.each do |exp|
-            print " - exp #{i} : #{exp.id}"
-            print " / #{exp.applyTime}" if exp.applyTime
-            print "\n"
-            i = i+1
-        end
-    end
-
-    puts "Testing the control interface..."
-
-    #
-    # launching a test flow
-
-    #TEST_NAME = '-- testing ruby control (0) --'
-
-    #client = OpenWFE::WorklistClient\
-    #   .new("http://127.0.0.1:5080/worklist", "alice", "alice")
-
-    #li = OpenWFE::LaunchItem.new()
-    #li.workflowDefinitionUrl = "http://localhost:7079/flow__1.0.xml"
-    #li.attributes["__subject__"] = TEST_NAME
-
-    #fei = client.launchFlow("mainEngine", li)
-    #puts "launched :  #{fei}"
-
-    #client.close()
-
-    #
-    # controlling the test flow
-
-    client = OpenWFE::ControlClient\
-       .new("http://127.0.0.1:6080/engine", "admin", "admin")
-
-    puts "sessionId : #{client.sessionId}"
-
-    puts
-
-    puts "listing expressions :"
-    exps = client.listExpressions()
-    display_expressions(exps)
-
-    client.close()
-
-end
-