s2container 0.8.0

data/lib/seasar/container/s2container.rb

@@ -0,0 +1,308 @@
+# -*- coding: utf-8 -*-
+#--
+# +----------------------------------------------------------------------+
+# | Copyright 2005-2008 the Seasar Foundation and the Others.            |
+# +----------------------------------------------------------------------+
+# | Licensed under the Apache License, Version 2.0 (the "License");      |
+# | you may not use this file except in compliance with the License.     |
+# | You may obtain a copy of the License at                              |
+# |                                                                      |
+# |     http://www.apache.org/licenses/LICENSE-2.0                       |
+# |                                                                      |
+# | Unless required by applicable law or agreed to in writing, software  |
+# | distributed under the License is distributed on an "AS IS" BASIS,    |
+# | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,                        |
+# | either express or implied. See the License for the specific language |
+# | governing permissions and limitations under the License.             |
+# +----------------------------------------------------------------------+
+#++
+module Seasar
+  module Container
+    class S2Container
+
+      # - args
+      #   - none
+      def initialize
+        @component_def_list  = []
+        @component_def_map  = {}
+        @outer_component_def = Seasar::Container::OuterComponentDef.new(self)
+        component_def = SimpleComponentDef.new(self, 's2container')
+        @component_def_map['container'] = component_def
+        @component_def_map[:container] = component_def
+        @component_def_map[self.class] = component_def
+        @root = self
+        @parents  = []
+        @children = []
+        @namespace = nil
+      end
+      attr_accessor :root, :parents, :namespace
+
+      #
+      # - args
+      #   1. Object|Seasar::Container::ComponentDef <em>item</em>
+      #   2. String|Symbol <em>name</em>
+      # - return
+      #   - none
+      #
+      def register(item, name = nil)
+        if item.is_a?(ComponentDef)
+          component_def = item
+        elsif item.class == Class
+          return self.register(ComponentDef.new(item, name))
+        else
+          component_def = SimpleComponentDef.new(item)
+        end
+
+        component_def.container = self if component_def.container.nil?
+        @component_def_list << component_def
+        self.register_by_name(component_def)
+        self.register_by_class(component_def)
+      end
+
+      #
+      # - args
+      #   1. Seasar::Container::ComponentDef <em>component_def</em>
+      # - return
+      #   - none
+      #
+      def register_by_class(component_def)
+        component_def.component_class.ancestors.each {|base|
+          next if (base == Object or base == Kernel)
+          self.register_map(base, component_def)
+        }
+      end
+
+      #
+      # - args
+      #   1. Seasar::Container::ComponentDef <em>component_def</em>
+      # - return
+      #   - none
+      #
+      def register_by_name(component_def)
+        if not component_def.component_name.nil?
+          self.register_map(component_def.component_name, component_def)
+        end
+      end
+
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      #   2. Seasar::Container::ComponentDef <em>component_def</em>
+      # - return
+      #   - none
+      #
+      def register_map(key, component_def)
+        if @component_def_map.key?(key)
+          self.process_toomany_registration(key, component_def)
+        else
+          @component_def_map[key] = component_def
+        end
+      end
+
+      #
+      # - args
+      #   - none
+      # - return
+      #   - Integer
+      #
+      def get_component_def_size
+        return @component_def_list.length
+      end
+
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      #   2. Proc <em>procedure</em>
+      # - return
+      #   - Object
+      #
+      def get_component(key, &procedure)
+        cd = self.get_component_def(key)
+        cd.onetime_proc = procedure
+        return cd.get_component
+      end
+      alias component get_component
+      alias get get_component
+      alias [] get_component
+
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      # - return
+      #   - Seasar::Container::ComponentDef
+      #
+      def get_component_def(key)
+        component_def = self.get_component_def_internal(key);
+        if component_def.nil?
+          raise Seasar::Container::Exception::ComponentNotFoundRuntimeException.new(key)
+        end
+        return component_def
+      end
+      alias component_def get_component_def
+
+      #  ComponentDefをkeyで検索して返します。見つからなければnilが返ります。
+      #  keyがclassの場合は、自分自身が保持しているかを検索して、すべての子のコンテナ
+      #  に問い合わせます。keyが文字列の場合は、「.」区切りになっている場合は、namespace
+      #  で指定されたコンテナ以下のすべての子コンテナ内でComponentDefを検索します。
+      #  その後、見つからない場合は、自分自身が保持しているすべての子コンテナを検索します。
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      # - return
+      #   - Seasar::Container::ComponentDef
+      #
+      def get_component_def_internal(key, search_parent = true, ignore_children = [])
+        if @component_def_map.key?(key)
+          return @component_def_map[key]
+        elsif key.is_a?(String) && key.match(/\./)
+          component_def = self.get_component_def_with_namespace(key)
+          return component_def unless component_def.nil?
+        else
+          component_def = self.get_component_def_from_children(key, ignore_children)
+          return component_def unless component_def.nil?
+        end
+        return nil unless search_parent
+
+        ignore_children << self
+        return nil if @parents.size == 0
+        @parents.each {|parent|
+          next if parent.parents.size == 0 && ignore_children.member?(parent)
+          component_def = parent.get_component_def_internal(key, true, ignore_children)
+          return component_def unless component_def.nil?
+        }
+        return nil
+      end
+
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      # - return
+      #   - Seasar::Container::ComponentDef
+      #
+      def get_component_def_with_namespace(key)
+        if /^(.+?)\.(.+)$/ =~ key
+          component_def = self.get_component_def_internal($1, false)
+          unless component_def.nil?
+            child_container = component_def.get_component()
+            component_def = child_container.get_component_def_internal($2, false)
+            return component_def unless component_def.nil?
+          end
+        end
+        return nil
+      end
+
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      # - return
+      #   - Seasar::Container::ComponentDef
+      #
+      def get_component_def_from_children(key, ignore_children = [])
+        @children.each {|child_container|
+          next if ignore_children.member?(child_container)
+          component_def = child_container.get_component_def_internal(key, false)
+          return component_def unless component_def.nil?
+        }
+        return nil
+      end
+
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      # - return
+      #   - Boolean
+      #
+      def has_component_def(key)
+        return self.get_component_def_internal(key).nil? == false
+      end
+      alias component_def? has_component_def
+
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      # - return
+      #   - Array
+      #
+      def find_components(key)
+        component_defs = self.find_component_defs(key)
+        components = []
+        for component_def in component_defs
+          components << component_def.component
+        end
+        return components
+      end
+
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      # - return
+      #   - Array
+      #
+      def find_component_defs(key)
+        component_def = self.get_component_def(key)
+        if component_def.instance_of?(Seasar::Container::TooManyRegistrationComponentDef)
+          return component_def.component_defs
+        else
+          return [component_def]
+        end
+      end
+
+      #
+      # - args
+      #   1. Seasar::Container::S2Container <em>child_container</em>
+      # - return
+      #   - none
+      #
+      def include(child_container)
+        child_container.root = @root
+        child_container.parents << self
+        @children << child_container
+        namespace = child_container.namespace
+        if not namespace.nil?
+          self.register_map(namespace, S2ContainerComponentDef.new(child_container, namespace))
+        end
+      end
+
+      #
+      # - args
+      #   1. Strig
+      # - return
+      #   - none
+      #
+      def namespace=(namespace)
+        @namespace = namespace
+        @component_def_map[@namespace] = SimpleComponentDef.new(self, @namespace)
+      end
+
+      #
+      # - args
+      #   1. Object <em>instance</em>
+      # - return
+      #   - Seasar::Container::Assembler::AbstractAssembler
+      #
+      def inject(instance)
+        @outer_component_def.instance = instance
+        return @outer_component_def.component
+      end
+
+      #
+      # - args
+      #   1. String|Symbol <em>key</em>
+      #   2. Seasar::Container::ComponentDef <em>component_def</em>
+      # - return
+      #   - none
+      #
+      def process_toomany_registration(key, new_component_def)
+        component_def = @component_def_map[key]
+        if component_def.instance_of?(Seasar::Container::TooManyRegistrationComponentDef)
+          component_def.add_component_def(new_component_def)
+        else
+          tmrcf = Seasar::Container::TooManyRegistrationComponentDef.new(key)
+          tmrcf.add_component_def(component_def)
+          tmrcf.add_component_def(new_component_def)
+          @component_def_map[key] = tmrcf
+        end
+      end
+    end
+  end
+end

data/lib/seasar/container/simple-component-def.rb

@@ -0,0 +1,45 @@
+# -*- coding: utf-8 -*-
+#--
+# +----------------------------------------------------------------------+
+# | Copyright 2005-2008 the Seasar Foundation and the Others.            |
+# +----------------------------------------------------------------------+
+# | Licensed under the Apache License, Version 2.0 (the "License");      |
+# | you may not use this file except in compliance with the License.     |
+# | You may obtain a copy of the License at                              |
+# |                                                                      |
+# |     http://www.apache.org/licenses/LICENSE-2.0                       |
+# |                                                                      |
+# | Unless required by applicable law or agreed to in writing, software  |
+# | distributed under the License is distributed on an "AS IS" BASIS,    |
+# | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,                        |
+# | either express or implied. See the License for the specific language |
+# | governing permissions and limitations under the License.             |
+# +----------------------------------------------------------------------+
+#++
+module Seasar
+  module Container
+    class SimpleComponentDef < ComponentDef
+
+      # - args
+      #   1. Object <em>component</em>
+      #   2. Symbol|String <em>name</em>
+      def initialize(component, component_name = nil)
+        super(component.class, component_name)
+        @component = component
+      end
+
+      #
+      # - args
+      #   - none
+      # - return
+      #   - Object
+      #
+      def get_component
+        return @component
+      end
+      alias get get_component
+      alias component get_component
+      alias [] get_component
+    end
+  end
+end

data/lib/seasar/container/toomany-registration-component-def.rb

@@ -0,0 +1,69 @@
+# -*- coding: utf-8 -*-
+#--
+# +----------------------------------------------------------------------+
+# | Copyright 2005-2008 the Seasar Foundation and the Others.            |
+# +----------------------------------------------------------------------+
+# | Licensed under the Apache License, Version 2.0 (the "License");      |
+# | you may not use this file except in compliance with the License.     |
+# | You may obtain a copy of the License at                              |
+# |                                                                      |
+# |     http://www.apache.org/licenses/LICENSE-2.0                       |
+# |                                                                      |
+# | Unless required by applicable law or agreed to in writing, software  |
+# | distributed under the License is distributed on an "AS IS" BASIS,    |
+# | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,                        |
+# | either express or implied. See the License for the specific language |
+# | governing permissions and limitations under the License.             |
+# +----------------------------------------------------------------------+
+#++
+module Seasar
+  module Container
+    class TooManyRegistrationComponentDef < SimpleComponentDef
+
+      # - args
+      #   1. String|Symbol <em>key</em>
+      def initialize(key)
+        @key = key
+        @component_defs = []
+      end
+      attr_accessor :component_defs
+
+      #
+      # - args
+      #   1. Seasar::Container::ComponentDef <em>component_def</em>
+      # - return
+      #   - none
+      #
+      def add_component_def(component_def)
+        @component_defs << component_def
+      end
+
+      #
+      # - args
+      #   - none
+      # - return
+      #   - Object
+      #
+      def get_component
+        raise Seasar::Container::Exception::TooManyRegistrationRuntimeException.new(@key, self.get_component_classes)
+      end
+      alias get get_component
+      alias component get_component
+      alias [] get_component
+
+      #
+      # - args
+      #   - none
+      # - return
+      #   - Array
+      #
+      def get_component_classes
+        component_classes = []
+        @component_defs.each {|component_def|
+          component_classes << component_def.component_class
+        }
+        return component_classes
+      end
+    end
+  end
+end

data/lib/seasar/container.rb

@@ -0,0 +1,143 @@
+# -*- coding: utf-8 -*-
+#--
+# +----------------------------------------------------------------------+
+# | Copyright 2005-2008 the Seasar Foundation and the Others.            |
+# +----------------------------------------------------------------------+
+# | Licensed under the Apache License, Version 2.0 (the "License");      |
+# | you may not use this file except in compliance with the License.     |
+# | You may obtain a copy of the License at                              |
+# |                                                                      |
+# |     http://www.apache.org/licenses/LICENSE-2.0                       |
+# |                                                                      |
+# | Unless required by applicable law or agreed to in writing, software  |
+# | distributed under the License is distributed on an "AS IS" BASIS,    |
+# | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,                        |
+# | either express or implied. See the License for the specific language |
+# | governing permissions and limitations under the License.             |
+# +----------------------------------------------------------------------+
+#++
+
+
+#
+# - args
+#   - none
+# - return
+#   - Seasar::Container::S2ApplicationContext
+#
+def s2app
+  return Seasar::Container::S2ApplicationContext.instance
+end
+
+#
+# - args
+#   1. Hash _option_
+#      - :name
+#      - :class
+#      - :instance
+#      - :autobinding
+#      - :namespace
+#      - :static
+#   2. Proc _option_ constructor block of component
+# - return
+#   - nil
+#
+def s2component(option = {}, &procedure)
+  if option[:class].nil?
+    if self.class == Class
+      option[:class] = self
+      option[:static] = true
+    else
+      raise TypeError.new("class not specified.")
+    end
+  end
+  s2app.register(option, &procedure)
+end
+alias s2comp s2component
+
+#
+# - args
+#   1. Hash _option_
+#      - :pattern
+#      - :pointcut
+#      - :interceptor
+#   2. Proc _option_ interceptor block
+# - return
+#   - nil
+#
+def s2aspect(option = {}, &procedure)
+  clazz = nil
+  if option[:class].nil?
+    if self.class == Class
+      clazz = self
+      option[:static] = true
+    end
+  else
+    clazz = option[:class]
+  end
+
+  if option[:pattern].nil?
+    if not clazz.nil?
+      option[:pattern] = self.name
+    end
+  end
+  s2app.aspect(option, &procedure)
+end
+
+#
+# - args
+#   - mixed _arg_
+# - return
+#   - nil
+#
+def s2di(arg = nil)
+ return :di => arg
+end
+
+module Seasar
+  module Container
+    autoload :ArgDef, 'seasar/container/arg-def'
+    autoload :AspectDef, 'seasar/container/aspect-def'
+    autoload :AspectInfoDef, 'seasar/container/aspect-info-def'
+    autoload :AutoBindingDef, 'seasar/container/autobinding-def'
+    autoload :ComponentDef, 'seasar/container/component-def'
+    autoload :ComponentInfoDef, 'seasar/container/component-info-def'
+    autoload :InstanceDef, 'seasar/container/instance-def'
+    autoload :OuterComponentDef, 'seasar/container/outer-component-def'
+    autoload :PropertyDef, 'seasar/container/property-def'
+    autoload :S2ApplicationContext, 'seasar/container/s2application-context'
+    autoload :S2ContainerComponentDef, 'seasar/container/s2container-component-def'
+    autoload :S2Container, 'seasar/container/s2container'
+    autoload :SimpleComponentDef, 'seasar/container/simple-component-def'
+    autoload :TooManyRegistrationComponentDef, 'seasar/container/toomany-registration-component-def'
+
+    module Assembler
+      autoload :AbstractAssembler, 'seasar/container/assembler/abstract-assembler'
+      autoload :AutoPropertyAssembler, 'seasar/container/assembler/auto-property-assembler'
+      autoload :AutoBindingAutoDef, 'seasar/container/assembler/autobinding-auto-def'
+      autoload :AutoBindingDefFactory, 'seasar/container/assembler/autobinding-def-factory'
+      autoload :AutoBindingNoneDef, 'seasar/container/assembler/autobinding-none-def'
+      autoload :ManualConstructorAssembler, 'seasar/container/assembler/manual-constructor-assembler'
+      autoload :ManualPropertyAssembler, 'seasar/container/assembler/manual-property-assembler'
+    end
+
+    module Deployer
+      autoload :AbstractComponentDeployer, 'seasar/container/deployer/abstract-component-deployer'
+      autoload :InstanceDefFactory, 'seasar/container/deployer/instance-def-factory'
+      autoload :InstanceOuterDef, 'seasar/container/deployer/instance-outer-def'
+      autoload :InstancePrototypeDef, 'seasar/container/deployer/instance-prototype-def'
+      autoload :InstanceSingletonDef, 'seasar/container/deployer/instance-singleton-def'
+      autoload :OuterComponentDeployer, 'seasar/container/deployer/outer-component-deployer'
+      autoload :PrototypeComponentDeployer, 'seasar/container/deployer/prototype-component-deployer'
+      autoload :SingletonComponentDeployer, 'seasar/container/deployer/singleton-component-deployer'
+    end
+
+    module Exception
+      autoload :ComponentNotFoundRuntimeException, 'seasar/container/exception/component-notfound-runtime-exception'
+      autoload :CyclicReferenceRuntimeException, 'seasar/container/exception/cyclic-reference-runtime-exception'
+      autoload :IllegalAutoBindingDefRuntimeException, 'seasar/container/exception/illegal-autobinding-def-runtime-exception'
+      autoload :IllegalInstanceDefRuntimeException, 'seasar/container/exception/illegal-instance-def-runtime-exception'
+      autoload :TooManyRegistrationRuntimeException, 'seasar/container/exception/toomany-registration-runtime-exception'
+    end
+  end
+end
+

data/lib/seasar/dbi/dbi-interceptor.rb

@@ -0,0 +1,97 @@
+# -*- coding: utf-8 -*-
+#--
+# +----------------------------------------------------------------------+
+# | Copyright 2005-2008 the Seasar Foundation and the Others.            |
+# +----------------------------------------------------------------------+
+# | Licensed under the Apache License, Version 2.0 (the "License");      |
+# | you may not use this file except in compliance with the License.     |
+# | You may obtain a copy of the License at                              |
+# |                                                                      |
+# |     http://www.apache.org/licenses/LICENSE-2.0                       |
+# |                                                                      |
+# | Unless required by applicable law or agreed to in writing, software  |
+# | distributed under the License is distributed on an "AS IS" BASIS,    |
+# | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,                        |
+# | either express or implied. See the License for the specific language |
+# | governing permissions and limitations under the License.             |
+# +----------------------------------------------------------------------+
+#++
+module Seasar
+  module DBI
+    class DBIInterceptor
+      s2comp :namespace => 'dbi', :name => 'interceptor', :default => true
+
+      # - args
+      #   - none
+      #
+      def initialize
+        @dbh = :di, ::DBI::DatabaseHandle
+        @statements = {}
+        @auto_finish = true
+      end
+      attr_accessor :auto_finish
+      #attr_accessor :auto_finish, :database_handle
+
+      #
+      # - args
+      #   1. Seasar::Aop::MethodInvocation <em>invocation</em>
+      # - return
+      #   - Object
+      #
+      def call(invocation)
+        sql, context = invocation.proceed
+        sql.strip!
+        context = invocation.args if context.nil?
+        if !context.is_a?(Array) && !context.is_a?(Hash)
+          context = [context]
+        end
+    
+        if not @statements.key?(sql) or @statements[sql].finished?
+          s2logger.debug(self.class.name){"#{sql} : (#{context.inspect})"}
+          @statements[sql] = @dbh.prepare(sql)
+        end
+        begin
+          if context.is_a?(Array)
+            @statements[sql].execute(*context)
+          else
+            @statements[sql].execute(context)
+          end
+        rescue => e
+          @statements[sql].finish
+          raise e
+        end
+
+        if @statements[sql].column_names.size == 0
+          result = @statements[sql].rows
+        else
+          result = []
+          @statements[sql].fetch_hash {|row| result << row}
+        end
+
+        @statements[sql].finish if @auto_finish
+        return result
+      end
+
+      #
+      # - args
+      #   - none
+      # - return
+      #   - none
+      #
+      def finish_all
+        @statements.each {|key, val| val.finish if not val.finished? }
+      end
+
+      class ConnectError < ::Exception
+        #
+        # - args
+        #   1. Error <em>cause</em>
+        #
+        def initialize(cause)
+          @cause = cause
+        end
+        attr_reader :cause
+      end
+    end
+  end
+end