[ruby-dev:1121] Re: [Req] object refference

けいじゅ＠日本ラショナルソフトウェアです.

In [ruby-dev :01094 ] the message: "[ruby-dev:1094] Re: [Req] object
refference ", on Dec/15 17:07(JST) Yukihiro Matsumoto writes:

>まつもと ゆきひろです
>
>|finalizerを使えばできますね．ということはRubyレベルで書ける？
>
>とりあえず以下のようなのはいかがでしょう．

うぅ... 作ってしまいましたね. そうじゃないのにぃ... 

# ポインタベースのリファレンスがそのうちできると信じていますよ!!

>委譲用のクラスDelegaterを使ってます．

delegaterはいいですね. こういうものを使っていはいましたがクラスとして
独立させようと思ったことはありませんでした.

# 標準ライブラリになることを希望します.

PS.  
こういう場合は, ObjectSpace#add_finalizerを直接使わないで, Finalizerを
使ってくれないと(;_;

その場合は:

>-- weakref.rb
># Weak Reference class that does not bother GCing.
>#
># Usage:
>#   foo = Object.new
>#   foo = WeakRef.new(foo)
>#   ...
>#   ObjectSpace.garbage_collect
>#   ...
>#   foo.hash # => Raises WeakRef::RefError (because original GC'ed)
>
>require "delegate"
>
>class WeakRef<Delegater
>
>  Exception :RefError
>
>  ID_MAP =  {}
>  ID_REV_MAP =  {}
>  ObjectSpace.add_finalizer(lambda{|id|
>			      rid = ID_MAP[id]
>			      if rid
>				ID_REV_MAP[rid] = nil
>				ID_MAP[id] = nil
>			      end
>			      rid = ID_REV_MAP[id]
>			      if rid
>				ID_REV_MAP[id] = nil
>				ID_MAP[rid] = nil
>			      end
>			    })
>			    
>  def initialize(orig)
>    @id = orig.id
>    ObjectSpace.call_finalizer orig
>    ID_MAP[@id] = self.id
>    ID_REV_MAP[self.id] = @id
>  end
>
>  def __getobj__
>    unless ID_MAP[@id]
>      $@ = caller(1)
>      $! = RefError.new("Illegal Reference - probably recycled")
>      raise
>    end
>
>    ObjectSpace.each_object do |obj|
>      return obj if obj.id == @id
>    end
>  end
>
>  def alive?
>    if ID_MAP[@id]
>      true
>    else
>      false
>    end
>  end
>
>  def []
>    __getobj__
>  end
>end

  -
  |
  v

require "finalizer"

class WeakRef<Delegater

  Exception :RefError

  def finalize(id)
    @id = nil
  end
			    
  def initialize(orig)
    @id = orig.id
    Finalizer.add_depandant(delf, @id)
  end

  def __getobj__
    unless @id
      $@ = caller(1)
      $! = RefError.new("Illegal Reference - probably recycled")
      raise
    end

    ObjectSpace.each_object do |obj|
      return obj if obj.id == @id
    end
  end

  def alive?
    if @id
      true
    else
      false
    end
  end

  def []
    __getobj__
  end
end
# 実行していないよ!!

だいぶ簡単になったでしょ?

def []はすごい使い方ですねえ.... こんな使い方した例って今までにありま
した? 

__
................................石塚 圭樹＠日本ラショナルソフトェア...
----------------------------------->> e-mail: [e-mail] <<---