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

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

From: Yukihiro Matsumoto <[e-mail]>
Subject: [ruby-dev:28736] Re: Module#toplevel_eval (Re: binding の仕様変更？ or バグ？)
Date: Thu, 15 Jun 2006 16:02:58 +0900
Message-ID: <[e-mail]>
> [ruby-dev:28718]についてなら、見てます。ただ、まだどこが悪さ
> しているのか分かってません。ちょっと待ってくださいね。

ありがとうございます．よろしくお願い致します．

ちなみに切羽詰まって作った Module#toplevel_eval ですが，
その割には結構使えそうで，「ちょっといいかも」と思っています．

例えばですが，セキュリティ上の理由で，読み込んだコードからの
定数 ENV へのアクセスに制限をかけたい場合があったとします．
あらゆるケースを考えているわけではないですが，次のようにすると
Module#toplevel_eval の中から制約を回避するのはかなり難しそうです．

========================================================
class Wrapped_ENV
  @@allow_keys = ['USER', 'DISPLAY']

  def initialize
    @env = ENV
  end

  def inspect
    "Wrapped_ENV"
  end

  def class
    nil
  end

  def _check_key(key)
    @@allow_keys.index(key)
  end
  private :_check_key

  def [](key)
    key = key.to_s
    (_check_key(key))? @env[key]: nil
  end

  def []=(key,val)
    key = key.to_s
    val = val.to_s
    @env[key] = val if _check_key(key)
  end
end

module XX
  ENV = Wrapped_ENV.new

  ObjectSpace = nil
  Wrapped_ENV = nil

  def remove_const(*args)
    raise SecurityError, 'deny to remove constants'
  end
end

#########################

puts "*** access `ENV' in main"
p ["ENV['USER']",    ENV['USER']]
p ["ENV['DISPLAY']", ENV['DISPLAY']]
p ["ENV['HOME']",    ENV['HOME']]

XX.toplevel_eval{
  puts "\n*** access `ENV' in toplevel_eval"
  p ENV
  p ["ENV['USER']",    ENV['USER']]
  p ["ENV['DISPLAY']", ENV['DISPLAY']]
  p ["ENV['HOME']",    ENV['HOME']]
}

XX.toplevel_eval{
  puts "\n*** try to `remove_const :ENV'"
  begin
    remove_const :ENV
  rescue
    p $!
  end
}

XX.toplevel_eval{
  puts "\n*** try to override `remove_const' to call super()"
  def remove_const(*args)
    super(*args)
  end
  begin
    remove_const :ENV
  rescue
    p $!
  end

  def self.remove_const(*args)
    super(*args)
  end
  begin
    self.remove_const :ENV
  rescue
    p $!
  end
}

XX.toplevel_eval{
  puts "\n*** try to `undef_method :remove_const'"
  begin
    undef_method :remove_const
  rescue
    p $!
  end
  begin
    class << self
      undef_method :remove_const
    end
  rescue
    p $!
  end
  begin
    remove_const :ENV
  rescue
    p $!
  end
}

XX.toplevel_eval{
  puts "\n*** try to access ObjectSpace"
  p ObjectSpace
  p ::ObjectSpace

  puts "\n*** try to access Wrapped_ENV"
  p Wrapped_ENV
  p ::Wrapped_ENV
}

puts "\n"
XX.toplevel_eval{p ENV}
========================================================

実際に実行すると，こうなります．

========================================================
*** access `ENV' in main
["ENV['USER']", "nagai"]
["ENV['DISPLAY']", ":0.0"]
["ENV['HOME']", "/home/nagai"]

*** access `ENV' in toplevel_eval
Wrapped_ENV
["ENV['USER']", "nagai"]
["ENV['DISPLAY']", ":0.0"]
["ENV['HOME']", nil]

*** try to `remove_const :ENV'
#<SecurityError: deny to remove constants>

*** try to override `remove_const' to call super()
#<NoMethodError: super: no superclass method `remove_const'>
#<NoMethodError: super: no superclass method `remove_const'>

*** try to `undef_method :remove_const'
#<NameError: undefined method `remove_const' for class `Class'>
#<NoMethodError: undefined method `remove_const' for XX:Class>

*** try to access ObjectSpace
nil
nil

*** try to access Wrapped_ENV
nil
nil

Wrapped_ENV
========================================================

いかがなものでしょう？
少しはセキュリティ強化に役立たないでしょうか？(^_^;
-- 
                                       永井 秀利 （九工大 知能情報）
                                           [e-mail]