[ruby-list:29694] Re: with(obj){ } が欲しい。

Take_tkさんの<[e-mail]>から
> 一時的にスコープを変更してレシーバの記述が不要になるような方法が欲しいの
> ですがうまい方法はありますでしょうか？。
> 
> 	with(obj){
> 		method1 ..
> 		method2 ..
> 		method2 ..
> 	}
> 
> というような書き方ができるようになるとうれしいのですが・・。

再挑戦してみました。
実用的には全く意味がありませんが、
可能かどうか知りたかったので。

# with.rb
require 'forwardable.rb'

module SingleForwardable
  alias orig_def_singleton_delegator def_singleton_delegator

  def def_singleton_delegator(accessor, method, ali = method)
    if (@_class.method_defined?(ali))
      @_class.instance_eval("alias_method(:_orig_#{ali},:#{ali})")
      @_collision << ali
    else
      @_added << ali
    end
    orig_def_singleton_delegator(accessor, method, ali)
  end

  def def_public_delegators(accessor)
    @_collision = []
    @_added = []
    @_accessor = accessor
    @_class = class << self; self; end
    methods = class << accessor; public_instance_methods(true); end
    methods -= ["__send__", "instance_eval", "__id__", "==", "=~", "==="]
    def_singleton_delegators(:@_accessor, *methods)
  end

  def clear_public_delegators()
    for m in @_collision
      @_class.instance_eval("alias_method(:#{m},:_orig_#{m})")
    end
    for m in @_added
      @_class.instance_eval { remove_method(m) }
    end
  end
end


def with(obj)
  extend(SingleForwardable)
  def_public_delegators(obj)
  yield
  clear_public_delegators()
end


if __FILE__ == $0
  class Foo
    def foo1;      p "Foo#foo1"; end
    def foo2(x);   p "Foo#foo2"; end
    def foo3(x,y); p "Foo#foo3"; end
  end

  class Bar
    def self.foo1; p "Bar::foo1"; end
    C = 100

    with(f = Foo.new) {
      foo1
      foo2(10)
      foo3(10,20)
      p equal?(f)
      p C
    }
   foo1
  end

  class Baz
    def foo1; p "Baz#foo1"; end
  end

  (x = Baz.new).instance_eval {
    with(f = Foo.new) {
      foo1
      foo2(10)
      foo3(10,20)
      p equal?(f)
    }
    foo1
  }
end
----
小迫＠ソフネック   渋谷区恵比寿1-15-1