decorator 0.0.1

data/History.txt

@@ -0,0 +1,3 @@
+=== 2012/2/24
+
+* gem 化

data/Manifest.txt

@@ -0,0 +1,8 @@
+lib/decorator.rb
+lib/decorator/only.rb
+lib/decorator/decorator.rb
+lib/decorator/kwargsable.rb
+README.rdoc
+Rakefile
+History.txt
+Manifest.txt

data/README.rdoc

@@ -0,0 +1,50 @@
+== Decorator
+* http://github.com/pasberth/Decorator
+
+
+== DESCRIPTION:
+  the Decorator make a decorator like Python.
+
+== Usage
+
+  require 'decorator'
+
+または
+
+  require 'decorator/only'
+
+require 'decorator' だと Module#decorator だけでなく Module#kwargsable も一緒に使えます。
+require 'decorator/only' だと Module#decorator だけがロードされます
+
+普通、このモジュールで使う関数はModule#decoratorのみです。
+それはデコレータを作成するデコレータです。デコレータを作る場合は通常これをデコレータとします。
+*example*:
+     class Module
+       decorator
+       def wrap func, *args, &blk
+         puts "wrapped!"
+         proc { func.call *args, &blk }
+
+デコレータの第一引数は必ずMethodです。
+この場合のwrapはデコレータとして使用できます。
+
+     class TestClass
+       wrap
+       def wrapped *args, &blk
+         puts "IN!"
+
+もしデコレータに引数を渡した場合、それはすべてデコレータに一緒に渡されます。
+
+     class TestClass
+       wrap(*example_args)
+       def wrapped *args, &blk
+         puts "IN!"
+
+  => ↓のargsにexample_argsが渡される
+
+       def wrap func, *args, &blk
+         puts "wrapped!"
+         proc { func.call *args, &blk }
+
+デコレータの戻り値がProcである場合、関数はそのProcに置き換えられます。
+たとえばこの場合、wrappedはwrap内のprocに置き換えられます。

data/Rakefile

@@ -0,0 +1,9 @@
+require './lib/decorator'
+require 'hoe'
+
+Hoe.spec 'decorator' do
+  self.developer 'pasberth', 'pasberth@gmail.com'
+  self.rubyforge_name = self.name
+  self.readme_file = 'README.rdoc'
+  self.version = Decorator::VERSION
+end

data/lib/decorator.rb

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require "decorator/only"
+require "decorator/kwargsable"

data/lib/decorator/decorator.rb

@@ -0,0 +1,140 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+
+module Decorator
+    VERSION = "0.0.1"
+end
+
+class Object
+
+  private
+
+    def decorators
+        @decorators ||= []
+    end
+
+    def add_decorator _f, *args, &blk
+        _f = case _f
+             when UnboundMethod then _f.bind self
+             when Method then _f
+             end
+        _after = ->(_func, *_args, &_blk) do # the _after is called when created the a_function
+            # selfがこのクラスまたはモジュールのインスタンスになるようにinstance_execなどをすること
+            # define_methodなどでもselfは正しくなるのでそれでok
+            _new_method = ->(*__args, &__blk) do # new function replaced to the a_function
+                _func = case _func
+                        when UnboundMethod then _func.bind self
+                        when Method then _func
+                        end
+                res = _f.call _func, *args, &blk
+                if res.respond_to? :to_proc
+                    define_singleton_method _func.name, &res
+                    send _func.name, *__args, &__blk
+                elsif Method === res || UnboundMethod === res
+                    define_singleton_method _func.name, res
+                    send _func.name, *__args, &__blk
+                end
+            end
+            return _new_method
+        end
+        decorators << [_after, args, blk]
+        true
+    end
+
+    alias decoratable_original_singleton_method_added singleton_method_added
+
+    def singleton_method_added funcname
+        decoratable_original_singleton_method_added(funcname).tap do
+            next if decorators.empty?
+            origin = method funcname
+            func = origin
+
+            until decorators.empty?
+                decorators.pop.tap do |f, args, blk|
+                    res = f.call func, *args, &blk
+                    if res.respond_to? :to_proc
+                        define_singleton_method funcname, &res
+                        func = method func.name
+                    elsif Method === res || UnboundMethod === res
+                        define_singleton_method funcname, res
+                        func = method func.name
+                    end
+                end
+            end
+        end
+    end
+end
+
+
+class Module
+    # デコレータを作成するデコレータです。デコレータを作る場合は通常これをデコレータとします。
+    # example:
+    #    class Module
+    #      decorator
+    #      def wrap func, *args, &blk
+    #        puts "wrapped!"
+    #        proc { func.call *args, &blk }
+    # デコレータの第一引数は必ずMethodです。
+    # この場合のwrapはデコレータとして使用できます。
+    #    class TestClass
+    #      wrap
+    #      def wrapped *args, &blk
+    #        puts "IN!"
+    # もしデコレータに引数を渡した場合、それはすべてデコレータに一緒に渡されます。
+    #    class TestClass
+    #      wrap(*example_args)
+    #      def wrapped *args, &blk
+    #        puts "IN!"
+    # => ↓のargsにexample_argsが渡される
+    #      def wrap func, *args, &blk
+    #        puts "wrapped!"
+    #        proc { func.call *args, &blk }
+    # デコレータの戻り値がProcである場合、関数はそのProcに置き換えられます。
+    # たとえばこの場合、wrappedはwrap内のprocに置き換えられます。
+    def decorator *args, &blk
+
+        # for example,
+        # class Example
+        #   decorator
+        #   def self.logging
+        #   ...
+        # 
+        #   logging
+        #   def a_function
+        #   ...
+        after = ->(_f, *_a, &_b) do # the after is called when created the self.logging
+            new_method = ->(*args, &blk) do # new function replaced to the self.logging
+                add_decorator _f, *args, &blk
+            end
+
+            return new_method
+        end
+
+        decorators << [after, args, blk]
+        true
+    end
+
+
+    alias decoratable_original_method_added method_added
+
+    def method_added funcname
+        decoratable_original_method_added(funcname).tap do
+            next if decorators.empty?
+            origin = instance_method funcname
+            func = origin
+
+            until decorators.empty?
+                decorators.pop.tap do |f, args, blk|
+                    res = f.call func, *args, &blk
+                    if res.respond_to? :to_proc
+                        define_method funcname, &res
+                        func = instance_method func.name
+                    elsif Method === res || UnboundMethod === res
+                        define_method funcname, res
+                        func = instance_method func.name
+                    end
+                end
+            end
+        end
+    end
+end

data/lib/decorator/kwargsable.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+
+require 'decorator/only'
+
+class Module
+
+    decorator
+    def kwargsable func, default_args={}, &default_blk
+        params = func.parameters
+        params_nonblock = params.reject { |i| i[0] == :block }
+        xs = params_nonblock.map { |i| i[1] }
+        ->(*args, &blk) do
+
+            if args.last.respond_to? :to_hash
+                kwargs = args.pop.to_hash
+            else
+                kwargs = {}
+            end
+
+            args.fill nil, args.length, params_nonblock.length - args.length - 1
+
+            default_args.each do |key, default|
+                next unless xs.include? key
+                i = xs.index(key)
+                if args[i].nil? then args[i] = default
+                end
+            end
+
+            blk = default_blk if blk.nil?
+
+            kwargs.each do |key, arg|
+                next unless xs.include? key
+                kwargs.delete key
+                args[xs.index(key)] = arg
+            end
+
+            func.call *args, kwargs, &blk
+        end
+    end
+end

data/lib/decorator/only.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+
+$:.unshift(File.dirname File.dirname(__FILE__)) unless
+  $:.include?(File.dirname File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname File.dirname(__FILE__)))
+
+require "decorator/decorator"

metadata

@@ -0,0 +1,80 @@
+--- !ruby/object:Gem::Specification
+name: decorator
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- pasberth
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-02-24 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rdoc
+  requirement: &70276038777500 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.10'
+  type: :development
+  prerelease: false
+  version_requirements: *70276038777500
+- !ruby/object:Gem::Dependency
+  name: hoe
+  requirement: &70276038777080 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.13'
+  type: :development
+  prerelease: false
+  version_requirements: *70276038777080
+description: the Decorator make a decorator like Python.
+email:
+- pasberth@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files:
+- History.txt
+- Manifest.txt
+files:
+- lib/decorator.rb
+- lib/decorator/only.rb
+- lib/decorator/decorator.rb
+- lib/decorator/kwargsable.rb
+- README.rdoc
+- Rakefile
+- History.txt
+- Manifest.txt
+- .gemtest
+homepage: http://github.com/pasberth/Decorator
+licenses: []
+post_install_message: 
+rdoc_options:
+- --main
+- README.rdoc
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: decorator
+rubygems_version: 1.8.10
+signing_key: 
+specification_version: 3
+summary: the Decorator make a decorator like Python.
+test_files: []