[ruby-list:8610] Re: once function

前田です。

># once.rb
(snip)
>end

これだと、いらなくなったメソッドがGCで回収されないので、
ちょっと修正しました。

--
前田 修吾
----------
# once.rb

class Object
  ONCE_METHODS = {}

private
  def def_once(name, &body)
    if name.kind_of? Integer
      name = name.id2name
    end
    ONCE_METHODS[body.id] = body
    def_once_i(name, body.id)
  end
    
  def def_once_i(name, id)
    eval %{
      def #{name}
        def self.#{name}; @__#{name}__; end
        @__#{name}__ = ONCE_METHODS[#{id}].call
        ONCE_METHODS.delete(#{id})
        return @__#{name}__
      end
    }
  end
end

class Module
private
  def def_once_i(name, id)
    module_eval %{
      def #{name}
        def self.#{name}; @__#{name}__; end
        @__#{name}__ = instance_eval(&ONCE_METHODS[#{id}])
        ONCE_METHODS.delete(#{id})
        return @__#{name}__
      end
    }
  end
end