s2container 0.8.0

data/lib/seasar/aop/method-invocation.rb

@@ -0,0 +1,57 @@
+# -*- 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 Aop
+    # アスペクトされたインターセプターを管理・実行するクラスです。
+    # アスペクトされたメソッドが実行される度にインスタンス化されます。
+    class MethodInvocation
+      # MethodInvocationを構築します。
+      # - args
+      #   - none
+      def initialize
+        @index = 0
+        @method = nil
+        @interceptors = nil
+        @enhanced_class = nil
+        @component_class = nil
+        @args = nil
+        @this = nil
+      end
+      attr_accessor :method, :interceptors, :enhanced_class, :component_class, :args, :procedure, :this
+
+      # MethodInvocation自身および、保持しているインターセプタから呼び出されます。
+      # すべてのインターセプタが実行されたのちにターゲットメソッドが実行されます。
+      #
+      # - args
+      #   - none
+      # - return
+      #   - mixed
+      #
+      def proceed
+        if @index < @interceptors.length
+          @index += 1
+          return @interceptors[@index - 1].call(self)
+        else
+          return @method.call(*@args, &@procedure)
+        end
+      end
+    end
+  end
+end

data/lib/seasar/aop/pointcut.rb

@@ -0,0 +1,53 @@
+# -*- 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 Aop
+    class Pointcut
+
+      #
+      # - args
+      #   1. Regexp|Symbol|String <em>point</em>
+      #
+      def initialize(point)
+        @point = point
+        if @point.is_a?(Regexp)
+          @matcher = lambda {|method_name| @point.match(method_name.to_s)}
+        elsif @point.is_a?(Symbol)
+          @matcher = lambda {|method_name| @point.to_s == method_name.to_s}
+        elsif @point.is_a?(String)
+          @matcher = lambda {|method_name| @point == method_name.to_s}
+        else
+          raise ArgumentError.new("unsupported point class #{@point}")
+        end
+      end
+      attr_accessor :point
+
+      #
+      # - args
+      #   1. String <em>method_name</em>
+      # - return
+      #   - Boolean
+      #
+      def applicable?(method_name)
+        return @matcher.call(method_name)
+      end
+    end
+  end
+end

data/lib/seasar/aop/s2aop-factory.rb

@@ -0,0 +1,125 @@
+# -*- 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.             |
+# +----------------------------------------------------------------------+
+#++
+require "thread"
+module Seasar
+  module Aop
+
+    # アスペクトを適用したクラスを生成するファクトリクラスです。
+    class S2AopFactory
+      @@index = 0
+      @@mutex = ::Mutex.new
+
+      class << self
+
+        #クラスにアスペクトを適用します。
+        #
+        # - args
+        #   1. Class <em>component_class</em>
+        #   2. Array <em>aspects</em>
+        # - return
+        #   - Class
+        #
+        def create(component_class, aspects)
+          enhanced_class = S2AopFactory.generate_enhanced_class(component_class)
+          method_interceptors_map = S2AopFactory.creat_method_interceptors_map(component_class, aspects)
+          method_interceptors_map.each {|method_name, interceptors|
+            S2AopFactory.weave_aspect(component_class, enhanced_class, method_name, interceptors)
+          }
+          return enhanced_class
+        end
+  
+        # 元のクラスを継承した新規クラスを返します。
+        # 新規クラスの名前には、「_EnhancedByS2Aop_###」が付加されます。
+        #
+        # - args
+        #   1. Class <em>component_class</em>
+        # - return
+        #   - Class
+        #
+        def generate_enhanced_class(component_class)
+          #return Class.new(component_class)
+          consts = component_class.name.split(/::/)
+          enhanced_class_name = nil
+          @@mutex.synchronize {
+            enhanced_class_name = consts.pop + '_EnhancedByS2Aop_' + @@index.to_s
+            @@index += 1
+          }
+          if consts.size == 0
+            namespace = Object
+          else
+            namespace = eval(consts.join('::'))
+          end
+          clazz = Class.new(component_class)
+          # TODO: should throw exception? if contant has already defined in the namespace(module)
+          namespace.const_set(enhanced_class_name, clazz) unless namespace.const_defined?(enhanced_class_name)
+          return clazz
+        end
+  
+        # クラスの各メソッドに適用するアスペクトを分類します。
+        #
+        # - args
+        #   1. Class <em>component_class</em>
+        #   2. Array <em>aspects</em>
+        # - return
+        #   - Hash
+        #
+        def creat_method_interceptors_map(component_class, aspects)
+          methods = Seasar::Util::ClassUtil.get_aspectable_methods(component_class)
+          method_interceptors_map = {}
+          methods.each {|method_name|
+            interceptors = []
+            aspects.each {|aspect| 
+              if aspect.pointcut.applicable?(method_name)
+                interceptors << aspect.interceptor
+              end
+            }
+            if 0 < interceptors.length
+              method_interceptors_map[method_name] = interceptors
+            end
+          }
+          return method_interceptors_map
+        end
+  
+        # メソッドにアスペクトを織り込みます。(メソッドをinvokeクロージャで置き換えます)
+        #
+        # - args
+        #   1. Class <em>component_class</em>
+        #   2. Class <em>enhanced_class</em>
+        #   3. String|Symbol <em>method_name</em>
+        #   4. Array <em>interceptors</em>
+        # - return
+        #   - none
+        #
+        def weave_aspect(component_class, enhanced_class, method_name, interceptors)
+          enhanced_class.__send__(:define_method, method_name) {|*args, &procedure|
+            invoker = MethodInvocation.new
+            invoker.method = component_class.instance_method(method_name).bind(self)
+            invoker.interceptors = interceptors
+            invoker.enhanced_class = enhanced_class
+            invoker.component_class = component_class
+            invoker.args = args
+            invoker.procedure = procedure
+            invoker.this = self
+            return invoker.proceed
+          }
+        end
+      end
+    end
+  end
+end

data/lib/seasar/aop.rb

@@ -0,0 +1,29 @@
+# -*- 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.             |
+# +----------------------------------------------------------------------+
+#++
+
+require 'seasar/aop/interceptor/trace-interceptor'
+module Seasar
+  module Aop
+    autoload :Aspect, 'seasar/aop/aspect'
+    autoload :MethodInvocation, 'seasar/aop/method-invocation'
+    autoload :Pointcut, 'seasar/aop/pointcut'
+    autoload :S2AopFactory, 'seasar/aop/s2aop-factory'
+  end
+end
+

data/lib/seasar/beans/abstract-property-desc.rb

@@ -0,0 +1,59 @@
+# -*- 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 Beans
+
+    # プロパティの定義を行う抽象クラスです。
+    class AbstractPropertyDesc
+
+      # プロパティ値をセットするメソッド定義です。
+      #
+      # - args
+      #   1. Object <em>instance</em>
+      #   2. mixed <em>value</em>
+      # - return
+      #   - nil
+      #
+      def set_value(instance, value)
+      end
+
+      # プロパティ値を返します。
+      #
+      # - args
+      #   1. Object <em>instance</em>
+      # - return
+      #   - mixed
+      #
+      def get_value(instance)
+      end
+
+      # PropertyDescを構築します。
+      #
+      # - args
+      #   1. Symbol <em>prop_name</em>
+      def initialize(prop_name)
+        @property_name = prop_name
+        @typehint = nil
+        @array_acceptable = false
+      end
+      attr_accessor :property_name, :typehint, :array_acceptable
+    end
+  end
+end

data/lib/seasar/beans/attribute-accessor-desc.rb

@@ -0,0 +1,60 @@
+# -*- 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 Beans
+    class AttributeAccessorDesc < AbstractPropertyDesc
+
+      # AttributeAccessorDescを構築します。
+      #
+      # - args
+      #   1. Symbol <em>prop_name</em>
+      #
+      def initialize(prop_name)
+        super
+        name = prop_name.to_s
+        @getter_name = name[1..name.length]
+        @setter_name = @getter_name + '='
+      end
+
+      # プロパティ値をセットするメソッドです。
+      #
+      # - args
+      #   1. Object <em>instance</em>
+      #   2. mixed <em>value</em>
+      # - return
+      #   - nil
+      #
+      def set_value(instance, value)
+        instance.method(@setter_name).call(value)
+      end
+
+      # プロパティ値を返します。
+      #
+      # - args
+      #   1. Object <em>instance</em>
+      # - return
+      #   - mixed
+      #
+      def get_value(instance)
+        return instance.method(@getter_name).call
+      end
+    end
+  end
+end

data/lib/seasar/beans/bean-desc-factory.rb

@@ -0,0 +1,68 @@
+# -*- 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 Beans
+
+      # BeanDescを生成するファクトリクラスです。
+      # @attribute @@spool private
+      class BeanDescFactory
+
+        @@spool = {}
+
+        # シングルトンのBeanDescを返します。
+        #
+        # - args
+        #   1. Object <em>component</em>
+        # - return
+        #   - Seasar::Beans::BeanDesc
+        #
+        def BeanDescFactory.get_bean_desc(component)
+          if not @@spool.key?(component.class)
+            @@spool[component.class] = BeanDesc.new(component)
+          end
+          return @@spool[component.class]
+        end
+
+        # シングルトンのBeanDescを削除します。Outer Injection時に使用されます。
+        #
+        # - args
+        #   1. Object <em>component</em>
+        # - return
+        #   - none
+        #
+        def BeanDescFactory.remove_bean_desc(component)
+          if @@spool.key?(component.class)
+            @@spool.delete(component.class)
+          end
+        end
+
+        #
+        # - args
+        #   - none
+        # - return
+        #   - none
+        #
+        def BeanDescFactory.init
+          @@spool = {}
+        end
+      end
+    end
+end
+

data/lib/seasar/beans/bean-desc.rb

@@ -0,0 +1,232 @@
+# -*- 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 Beans
+      # Bean定義を表すクラスです。
+      # publicな属性を管理します。
+      # publicでタイプヒントされた属性を管理します。
+      # セッターメソッドを管理します。
+      # タイプヒントされたセッターメソッドを管理します。
+      class BeanDesc
+
+        DI_SYMBOL = [:di, :DI, :Di, :dI]
+        DI_REGEXP = /^di (.*)$/i
+
+        # BeanDescを構築します。
+        #
+        # - args
+        #   1. Object <em>component</em>
+        #
+        def initialize(component)
+          @bean_class = component.class
+          @property_descs = {}
+          @typehint_property_descs = {}
+          self.setup_instance_variable_descs(component)
+          self.setup_attribute_accessor_descs(component)
+        end
+        attr_accessor :property_descs, :typehint_property_descs
+
+        # 渡された属性名の属性が存在するかどうかを返します。
+        #
+        # - args
+        #   1. Symbol <em>name</em>
+        # - return
+        #   - Boolean
+        #
+        def has_property_desc(name)
+          return @property_descs.key?(name)
+        end
+
+        # 渡された属性名の属性定義を返します。
+        #
+        # - args
+        #   1. Symbol <em>name</em>
+        # - return
+        #   - Seasar::Beans::AbstractPropertyDesc
+        #
+        def get_property_desc(name)
+          if self.has_property_desc(name)
+            return @property_descs[name]
+          end
+          raise Seasar::Exception::PropertyNotFoundRuntimeException.new(@bean_class, name)
+        end
+
+        # 渡された属性名のタイプヒント付き属性定義が存在するかどうかを返します。
+        #
+        # - args
+        #   1. Symbol <em>name</em>
+        # - return
+        #   - Boolean
+        #
+        def has_typehint_property_desc(name)
+          return @typehint_property_descs.key?(name)
+        end
+
+        # 渡された属性名のタイプヒント付き属性定義を返します。
+        #
+        # - args
+        #   1. Symbol <em>name</em>
+        # - return
+        #   - Seasar::Beans::AbstractPropertyDesc
+        #
+        def get_typehint_property_desc(name)
+          if self.has_typehint_property_desc(name)
+            return @typehint_property_descs[name]
+          end
+          raise Seasar::Exception::PropertyNotFoundRuntimeException.new(@bean_class, name)
+        end
+
+        #
+        # - args
+        #   1. Object <em>component</em>
+        # - return
+        #   - nil
+        #
+        def setup_attribute_accessor_descs(component)
+          Seasar::Util::ClassUtil.get_accessor_attributes(component).each {|name|
+            next if has_property_desc(name)
+            property_desc = Seasar::Beans::AttributeAccessorDesc.new(name)
+            no_at_name = name.to_s
+            no_at_name = no_at_name[1..no_at_name.length].to_sym
+            @property_descs[name] = property_desc
+            setup_property_desc_nil(property_desc, name, no_at_name)
+          }
+        end
+
+        # 属性定義を生成します
+        # 属性名が「_」ではじまる場合は無視されます。
+        # 属性値が文字列で「DI:」ではじまる場合に属性定義が作成されます。
+        # 属性値が文字列で「DI:」の後ろの文字列がコンポーネントキーになります。空文字列の場合は、
+        # 属性名がコンポーネントキーとして扱われます。
+        # 属性値が文字列で「[]」で終わる場合は、複数のコンポーネントを配列で受けることができます。
+        #
+        # - args
+        #   1. Object <em>component</em>
+        # - return
+        #   - nil
+        #
+        def setup_instance_variable_descs(component)
+          attributes = Seasar::Util::ClassUtil.get_instance_attributes(component)
+          attributes.each {|name, value|
+            no_at_name = name.to_s
+            no_at_name = no_at_name[1..no_at_name.length].to_sym
+            property_desc = Seasar::Beans::InstanceVariableDesc.new(name)
+            @property_descs[name] = property_desc
+            if value.nil?
+              setup_property_desc_nil(property_desc, name, no_at_name)
+            elsif value.is_a?(Class)
+              setup_property_desc_class(property_desc, name, value)
+            elsif value.is_a?(Symbol)
+              setup_property_desc_symbol(property_desc, name, value)
+            elsif value.is_a?(String) and DI_REGEXP.match(value)
+              setup_property_desc_string(property_desc, name, no_at_name, $1)
+            elsif value.is_a?(Array) and value.size == 2
+              setup_property_desc_array(property_desc, name, no_at_name, value[0], value[1])
+            elsif value.is_a?(Hash) and value.size == 1
+              key = value.keys[0]
+              setup_property_desc_hash(property_desc, name, no_at_name, key, value[key])
+            end
+          }
+        end
+
+        #
+        # - args
+        #   1. Seasar::Beans::AbstractPropertyDesc <em>property_desc</em>
+        #   2. Symbol <em>name</em>
+        #   3. Symbol <em>value</em>
+        # - return
+        #   - nil
+        #
+        def setup_property_desc_symbol(property_desc, name, value)
+           @typehint_property_descs[name] = property_desc
+           property_desc.typehint = value
+           property_desc.array_acceptable = false
+        end
+        alias setup_property_desc_class setup_property_desc_symbol
+
+        #
+        # - args
+        #   1. Seasar::Beans::AbstractPropertyDesc <em>property_desc</em>
+        #   2. Symbol <em>name</em>
+        #   3. Symbol <em>no_at_name</em>
+        # - return
+        #   - nil
+        #
+        def setup_property_desc_nil(property_desc, name, no_at_name)
+          @typehint_property_descs[name] = property_desc
+          property_desc.typehint = no_at_name
+          property_desc.array_acceptable = false
+        end
+
+        #
+        # - args
+        #   1. Seasar::Beans::AbstractPropertyDesc <em>property_desc</em>
+        #   2. Symbol <em>name</em>
+        #   3. Symbol <em>no_at_name</em>
+        #   4. String <em>value</em>
+        # - return
+        #   - nil
+        #
+        def setup_property_desc_string(property_desc, name, no_at_name, value)
+          @typehint_property_descs[name] = property_desc
+          typehint = value.strip
+          typehint = no_at_name if typehint == ''
+          if /^(.*?)\[\]$/i =~ typehint
+            property_desc.array_acceptable = true
+            typehint = $1.strip
+            typehint = no_at_name if typehint == ''
+          else
+            property_desc.array_acceptable = false
+          end
+          property_desc.typehint = typehint
+        end
+
+        #
+        # - args
+        #   1. Seasar::Beans::AbstractPropertyDesc <em>property_desc</em>
+        #   2. Symbol <em>name</em>
+        #   3. Symbol <em>no_at_name</em>
+        #   4. String <em>key</em>
+        #   5. miced <em>value</em>
+        # - return
+        #   - nil
+        #
+        def setup_property_desc_array(property_desc, name, no_at_name, key, value)
+          if DI_SYMBOL.member?(key) or key.downcase == "di"
+            @typehint_property_descs[name] = property_desc
+            if value.nil?
+              setup_property_desc_nil(property_desc, name, no_at_name, value)
+            elsif value.is_a?(Class)
+              setup_property_desc_class(property_desc, name, value)
+            elsif value.is_a?(Symbol)
+              setup_property_desc_symbol(property_desc, name, value)
+            elsif value.is_a?(String)
+              setup_property_desc_string(property_desc, name, no_at_name, value)
+            else
+              raise ArgumentError.new("invalid value #{value.inspect} for :DI. property [#{name}] of class [#{@bean_class.name}].")
+            end
+          end
+        end
+        alias setup_property_desc_hash setup_property_desc_array
+
+      end
+    end
+end
+