[ruby-dev:29005] Re: Module#toplevel_eval

永井@知能．九工大です．

From: Hidetoshi NAGAI <[e-mail]>
Subject: [ruby-dev:28797] Re: Module#toplevel_eval
Date: Thu, 22 Jun 2006 18:48:55 +0900
Message-ID: <[e-mail]>
> > の２点でしょうか。前者はなんとかなりそうな気がしますが、後者
> > は(いまだ仕様さえ定かでない)classboxとかselector namespaceと
> > ほぼ同様の機能ですねえ。
> > 
> > あるいは、石塚さんのclass-in-stateみたいなのを実装するか...。
> > もうちょっと考えさせてください。
> 
> ご迷惑をかけてますが，よろしくお願い致します．

なかなか対応が難しそうな状況ですので，
「良いやり方ではないよなぁ」と思いつつ (^_^; 
応急処置的に下記コードのような戦略での対策を適用しました．

まぁなんとか最低限の範囲では誤魔化せているようではあるのですが，
他と衝突しやすそうな場当たり的対処ですので，
やはり真っ当な対応が望まれます．
1.8.5 のリリース直前では対応を間に合わせるのが難しくなる恐れも
ありますので，１日でも早くに対応していただけると嬉しく思います．

我が儘ばかりですみませんが，よろしくお願い致します．
---------------------------------------------------------------------
class Object
  alias __method_missing__ method_missing
  private :__method_missing__

  def method_missing(id, *args)
    begin
      has_top = (top = Thread.current[:TOPLEVEL]) && 
                   top.respond_to?(:pseudo_toplevel_evaluable?) && 
                   top.pseudo_toplevel_evaluable? && 
                   top.respond_to?(id)
    rescue Exception => e
      has_top = false
    end

    if has_top
      top.__send__(id, *args)
    else
      __method_missing__(id, *args)
    end
  end
end

class Proc
  def initialize(*args, &b)
    super
    @__pseudo_toplevel__ = Thread.current[:TOPLEVEL]
  end

  alias __call__ call
  def call(*args, &b)
    if top = @__pseudo_toplevel__
      orig_top = Thread.current[:TOPLEVEL]
      Thread.current[:TOPLEVEL] = top
      begin
        __call__(*args, &b)
      ensure
        Thread.current[:TOPLEVEL] = orig_top
      end
    else
      __call__(*args, &b)
    end
  end
end

def proc(&b)
  Proc.new(&b)
end
def lambda(&b)
  Proc.new(&b)
end

module PseudoToplevel_Evaluable
  def pseudo_toplevel_eval(body = Proc.new)
    orig_top = Thread.current[:TOPLEVEL]
    Thread.current[:TOPLEVEL] = self
    begin
      body.call
    ensure
      Thread.current[:TOPLEVEL] = orig_top
    end
  end

  def pseudo_toplevel_evaluable?
    @pseudo_toplevel_evaluable
  end
  def pseudo_toplevel_evaluable=(mode)
    @pseudo_toplevel_evaluable = (mode)? true: false
  end

  def self.extended(mod)
    mod.__send__(:extend_object, mod)
    mod.instance_variable_set('@pseudo_toplevel_evaluable', true)
  end
end

module M
  extend PseudoToplevel_Evaluable

  def foo(*args)
    p [self, :foo, args]
  end
end

class A
end

p M.methods.sort
p M.instance_methods.sort
puts '--- 1: A.new.instance_eval{foo(1,2,3)} ---'
begin
  A.new.instance_eval{foo(1,2,3)}
rescue => e
  p e
end

puts '--- 2: M.pseudo_toplevel_eval{A.new.instance_eval{foo(1,2,3)}} ---'
begin
  M.pseudo_toplevel_eval{A.new.instance_eval{foo(1,2,3)}}
rescue => e
  p e
end

puts '--- 3: M.pseudo_toplevel_eval{A.new.instance_eval{self.foo(1,2,3)}} ---'
begin
  M.pseudo_toplevel_eval{A.new.instance_eval{self.foo(1,2,3)}}
rescue => e
  p e
end

puts '--- 4: foo(1,2,3) ---'
begin
  foo(1,2,3)
rescue => e
  p e
end

puts '--- 5: M.pseudo_toplevel_eval{foo(1,2,3)} ---'
begin
  M.pseudo_toplevel_eval{foo(1,2,3)}
rescue => e
  p e
end

require 'tk'
puts '--- 6: TkButton.new{p foo(1,2,3)} ---'
begin
  TkButton.new{p foo(1,2,3)}
rescue => e
  p e
end

puts '--- 7: M.pseudo_toplevel_eval{TkButton.new{p foo(1,2,3)}} ---'
begin
  M.pseudo_toplevel_eval{TkButton.new{p foo(1,2,3)}}
rescue => e
  p e
end

begin
  M.pseudo_toplevel_eval{
    l = TkLabel.new.pack
    cnt = 0
    TkButton.new(:command=>proc{l.text = foo(cnt); cnt+=1}){p foo(1,2,3)}.pack
  }
rescue => e
  p e
end

Tk.mainloop
---------------------------------------------------------------------
-- 
                                       永井 秀利 （九工大 知能情報）
                                           [e-mail]