lab42_aop 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 26ab30b83d3cd0b4ee26f54c8357e4f12483bf79
+  data.tar.gz: ab75d29b075a3d694914046ac47fff0c38d24526
+SHA512:
+  metadata.gz: 0eccaa990ce26738605b05d6cfdbb8f0a5386b9c248807da9e07bc1ece2d999d55fd7a84544de08466564355ada03acc069c14e1034c07f2d6b7e6d6b03636b2
+  data.tar.gz: eeebc7bf7ccf0df1f0e9ae4b000e09167d7cb698594dd8a2cb2074d856bb95e2e53155c684a519a65b0dc02fdb17a4cdd80acbd1f3ae2afb64d681fe109d6fef

data/LICENSE

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2014 Robert Dober
+
+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.

data/README.md

@@ -0,0 +1,9 @@
+# Lab42 Programmer's Best Friend In Ruby2
+
+## AOP
+
+Aspect Oriented Programming
+
+
+Please see the [QED](http://rubyworks.github.io/qed/) demos [here](https://github.com/RobertDober/lab42_aop/blob/master/demo)
+for details.

data/lib/lab42/aop/after.rb

@@ -0,0 +1,41 @@
+module Lab42
+  module AOP
+    module After extend self
+      def with_block rcv, tgts, **kwds, &blk
+        concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+        concerns.each do | tgt_concern |
+          _define_block_after tgt_concern, blk
+        end
+      end
+
+      def with_methods rcv, tgts, aops, **kwds
+        Array( aops ).each do | aop |
+          concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+          concerns.each do | tgt_concern |
+            _define_method_after tgt_concern, aop
+          end
+        end
+      end
+
+      private
+      def _define_block_after tgt_concern, blk
+        unique_name = "__#{tgt_concern.name}_#{SecureRandom.uuid.gsub('-','_')}"
+        tgt_concern.cls.send :define_method, unique_name, &blk
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          tgt_concern.mthd.bind( self ).( *a, &b ).tap do
+            send unique_name, *a, &b
+          end
+        end
+        
+      end
+
+      def _define_method_after tgt_concern, aop
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          tgt_concern.mthd.bind( self ).( *a, &b ).tap do
+            send( aop, *a, &b )
+          end
+        end
+      end
+    end # module After
+  end # module AOP
+end # module Lab42

data/lib/lab42/aop/around.rb

@@ -0,0 +1,42 @@
+module Lab42
+  module AOP
+    module Around extend self
+      def with_block rcv, tgts, **kwds, &blk
+        concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+        concerns.each do | tgt_concern |
+          _define_block_around tgt_concern, blk
+        end
+      end
+
+      def with_methods rcv, tgts, aops, **kwds
+        Array( aops ).each do | aop |
+          concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+          concerns.each do | tgt_concern |
+            _define_method_around tgt_concern, aop
+          end
+        end
+      end
+
+      private
+      def _define_block_around tgt_concern, blk
+        unique_name = "__#{tgt_concern.name}_#{SecureRandom.uuid.gsub('-','_')}"
+        tgt_concern.cls.send :define_method, unique_name, &blk
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          result_wrapper = Tools.mk_result_wrapper tgt_concern.mthd.bind( self ), tgt_concern.name
+          send unique_name, result_wrapper, *a, &b
+          result_wrapper.result
+        end
+      end
+
+      def _define_method_around tgt_concern, aop
+        result = nil
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          result_wrapper = Tools.mk_result_wrapper tgt_concern.mthd.bind( self ), tgt_concern.name
+          send aop, result_wrapper, *a, &b
+          result_wrapper.result
+        end
+      end
+
+    end # module Around
+  end # module AOP
+end # module Lab42

data/lib/lab42/aop/auto_import.rb

@@ -0,0 +1,3 @@
+require_relative '../aop'
+
+AOP = Lab42::AOP

data/lib/lab42/aop/before.rb

@@ -0,0 +1,41 @@
+module Lab42
+  module AOP
+    module Before extend self
+      def with_block rcv, tgts, **kwds, &blk
+        concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+        concerns.each do | tgt_concern |
+          _define_block_before tgt_concern, blk
+        end
+      end
+
+      def with_methods rcv, tgts, aops, **kwds
+        # aops loop must be outer loop as _define_method_before will change
+        # the result of CrossConcern.get_methods rcv, ...
+        Array( aops ).each do | aop |
+          concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+          concerns.each do | tgt_concern |
+            _define_method_before tgt_concern, aop
+          end
+        end
+      end
+
+      private
+      def _define_block_before tgt_concern, blk
+        unique_name = "__#{tgt_concern.name}_#{SecureRandom.uuid.gsub('-','_')}"
+        tgt_concern.cls.send :define_method, unique_name, &blk
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          send unique_name, *a, &b
+          tgt_concern.mthd.bind( self ).( *a, &b )
+        end
+
+      end
+
+      def _define_method_before tgt_concern, aop
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          send( aop, *a, &b )
+          tgt_concern.mthd.bind( self ).( *a, &b )
+        end
+      end
+    end # module Before
+  end # module AOP
+end # module Lab42

data/lib/lab42/aop/concern_scope.rb

@@ -0,0 +1,8 @@
+# module Lab42
+#   module AOP extend self
+#     module ConcernScope
+#       def concern_scope &blk
+#       end
+#     end # module ConcernScope
+#   end
+# end # module Lab42

data/lib/lab42/aop/cross_concern.rb

@@ -0,0 +1,60 @@
+require 'ostruct'
+
+module Lab42
+  module AOP extend self
+    module CrossConcern extend self
+      def get_methods cls, mthd_specs, **kwds 
+        mthd_specs
+        .map{ |ms| _get_methods cls, ms, **kwds }
+        .flatten
+        .compact
+        .uniq
+      end
+
+      private
+      def _exclude_candidates candidates, exclude
+        case exclude
+        when Array
+          candidates - exclude
+        when Symbol
+          candidates - Array( exclude )
+        when Regexp
+          candidates - candidates.grep( exclude )
+        end
+      end
+      def _get_methods cls, mthd_spec, include_included: false, exclude: nil
+        candidates = _get_methods_candidates cls, mthd_spec, include_included: include_included
+        candidates = _exclude_candidates( candidates, exclude ) if exclude
+        _make_concerns( cls, candidates )
+      end
+
+      def _get_methods_candidates cls, mthd_spec, include_included: false
+        case mthd_spec
+        when Symbol
+          [ mthd_spec ]
+        when String
+          cls
+          .instance_methods( include_included )
+          .grep( %r{#{mthd_spec}} )
+        when Regexp
+          cls
+          .instance_methods( include_included )
+          .grep( mthd_spec )
+        when Module
+          mthd_spec
+          .instance_methods( include_included )
+        end
+      end
+
+      def _make_concerns cls, mss
+        mss.map{ |ms| _make_concern cls, ms }
+      end
+      def _make_concern cls, mthd_spec
+        OpenStruct.new cls: cls, name: mthd_spec, mthd: cls.instance_method( mthd_spec ) 
+      rescue
+        nil
+      end
+
+    end # module CrossConcern
+  end # module AOP
+end # module Lab42

data/lib/lab42/aop/meta.rb

@@ -0,0 +1,19 @@
+module Lab42
+  module AOP extend self
+    module Meta extend self
+      def add_singleton_method objct, name, &method
+        class << objct; self end.module_eval do
+          define_method name, &method
+        end
+        objct
+      end
+
+      def add_attribute objct, att_name
+        class << objct; self end.module_eval do
+          attr_accessor att_name
+        end
+        objct
+      end
+    end # module Meta
+  end # module AOP
+end # module Lab42

data/lib/lab42/aop/param_filter.rb

@@ -0,0 +1,36 @@
+module Lab42
+  module AOP
+    module ParamFilter extend self
+      def with_block rcv, tgts, **kwds, &blk
+        concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+        concerns.each do | tgt_concern |
+          _define_block_param_filter tgt_concern, blk
+        end
+      end
+
+      def with_methods rcv, tgts, aops, **kwds
+        Array( aops ).each do | aop |
+          concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+          concerns.each do | tgt_concern |
+            _define_method_param_filter tgt_concern, aop
+          end
+        end
+      end
+
+      private
+      def _define_block_param_filter tgt_concern, blk
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          new_params = blk.(*a)
+          tgt_concern.mthd.bind( self ).( *new_params, &b )
+        end
+      end
+
+      def _define_method_param_filter tgt_concern, aop
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          new_params = send( aop, *a )
+          tgt_concern.mthd.bind( self ).( *new_params, &b )
+        end
+      end
+    end # module ParamFilter
+  end # module AOP
+end # module Lab42

data/lib/lab42/aop/result_filter.rb

@@ -0,0 +1,40 @@
+module Lab42
+  module AOP
+    module ResultFilter extend self
+      def with_block rcv, tgts, **kwds, &blk
+        concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+        concerns.each do | tgt_concern |
+          _define_block_result_filter tgt_concern, blk
+        end
+      end
+
+      def with_methods rcv, tgts, aops, **kwds
+        Array( aops ).each do | aop |
+          concerns = CrossConcern.get_methods rcv, Array( tgts ), **kwds
+          concerns.each do | tgt_concern |
+            _define_method_result_filter tgt_concern, aop
+          end
+        end
+      end
+
+      private
+      def _define_block_result_filter tgt_concern, blk
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          blk.( tgt_concern.mthd.bind( self ).( *a, &b ), *a, &b )
+        end
+
+      end
+
+      def _define_method_result_filter tgt_concern, aop
+        tgt_concern.cls.send :define_method, tgt_concern.name do |*a, &b|
+          aop_method = method aop
+          if aop_method.arity < 0
+            aop_method.( tgt_concern.mthd.bind( self ).( *a, &b ), *a, &b )
+          else
+            aop_method.( tgt_concern.mthd.bind( self ).( *a, &b ), &b )
+          end
+        end
+      end
+    end # module ResultFilter
+  end # module AOP
+end # module Lab42

data/lib/lab42/aop/tools.rb

@@ -0,0 +1,15 @@
+module Lab42
+  module AOP extend self
+    module Tools extend self
+      def mk_result_wrapper bound_mthd, name
+        result = nil
+        wrapper = -> *a, &b do
+          wrapper.result = bound_mthd.( *a, &b )
+        end
+        Meta.add_singleton_method( wrapper, :name ){ name }
+        Meta.add_attribute( wrapper, :result )
+      end
+
+    end # module Tools
+  end # module AOP
+end # module Lab42

data/lib/lab42/aop/version.rb

@@ -0,0 +1,5 @@
+module Lab42
+  module AOP
+    VERSION='0.0.1'
+  end # module AOP
+end # module Lab42

data/lib/lab42/aop.rb

@@ -0,0 +1,63 @@
+require_relative 'aop/meta'
+require_relative 'aop/tools'
+
+require_relative 'aop/cross_concern'
+# require_relative 'aop/concern_scope'
+
+require_relative 'aop/after'
+require_relative 'aop/around'
+require_relative 'aop/before'
+require_relative 'aop/param_filter'
+require_relative 'aop/result_filter'
+
+
+module Lab42
+  module AOP
+    def after *args, **kwds, &blk
+      if blk
+        After.with_block( self, *args, **kwds, &blk )
+      else
+        After.with_methods( self, *args, **kwds )
+      end
+    end
+    def around *args, **kwds, &blk
+      if blk
+        Around.with_block( self, *args, **kwds, &blk )
+      else
+        Around.with_methods( self, *args, **kwds )
+      end
+    end
+    def before *args, **kwds, &blk
+      if blk
+        Before.with_block( self, *args, **kwds, &blk )
+      else
+        Before.with_methods( self, *args, **kwds )
+      end
+    end
+
+    # def concern_scope &blk
+    #   _scopes << Module.new(&blk) # Just to know the methods defined
+    #   module_eval &blk
+    # ensure
+    #   _scopes.pop
+    # end
+
+    def param_filter *args, **kwds, &blk
+      if blk
+        ParamFilter.with_block( self, *args, **kwds, &blk )
+      else
+        ParamFilter.with_methods( self, *args, **kwds )
+      end
+    end
+
+    def result_filter *args, **kwds, &blk
+      if blk
+        ResultFilter.with_block( self, *args, **kwds, &blk )
+      else
+        ResultFilter.with_methods( self, *args, **kwds, &blk )
+      end
+    end
+
+    def _scopes; @__scopes__ ||= [] end
+  end # module AOP
+end # module Lab42

metadata

@@ -0,0 +1,127 @@
+--- !ruby/object:Gem::Specification
+name: lab42_aop
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Robert Dober
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-09-16 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: pry
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.10'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.10'
+- !ruby/object:Gem::Dependency
+  name: pry-nav
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.2'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.2'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+- !ruby/object:Gem::Dependency
+  name: qed
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.9'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.9'
+- !ruby/object:Gem::Dependency
+  name: ae
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.8'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.8'
+description: Before, After and Around methods, either with blox or methods, à la ActiveSupport
+email: robert.dober@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- LICENSE
+- README.md
+- lib/lab42/aop.rb
+- lib/lab42/aop/after.rb
+- lib/lab42/aop/around.rb
+- lib/lab42/aop/auto_import.rb
+- lib/lab42/aop/before.rb
+- lib/lab42/aop/concern_scope.rb
+- lib/lab42/aop/cross_concern.rb
+- lib/lab42/aop/meta.rb
+- lib/lab42/aop/param_filter.rb
+- lib/lab42/aop/result_filter.rb
+- lib/lab42/aop/tools.rb
+- lib/lab42/aop/version.rb
+homepage: https://github.com/RobertDober/lab42_aop
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '2.1'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: Aspect Oriented Programming with your favorite dog
+test_files: []