[ruby-list:30328] Re: TMarshal

From: Masatoshi SEKI <[e-mail]>
Subject: [ruby-list:30315] Re: TMarshal
Date: Wed, 20 Jun 2001 02:28:13 +0900

るびきちです。

> 環になったオブジェクトとかはどうする予定ですか?

こういうやつでしょうか？

class Circular
  def initialize(v,n = nil)
    @value = v
    @next = n
  end
  attr_accessor :value, :next

  def ==(other)
    inspect == other.inspect
  end

  def inspect
    if @next
      "<#{@value}, #{@next.value}>"
    else
      "<#{@value}, unknown>"
    end
  end

  def inspect_bad               # SystemStackError
    "<#{@value}, #{@next.inspect}>"
  end

  def dump_text_bad           # SystemStackError
    "#{type}.new(#{@value.dump_text}, #{@next.dump_text})"
  end

  def dump_text
    "((_#{id} = #{type}.new(#{@value.dump_text})))"
  end

  def dump_text_after
    "_#{id}.next = _#{@next.id}"
  end

end

a = Circular.new("a")
c = Circular.new("c")
b = Circular.new("b")
a.next = b
c.next = a
b.next = c
p a # => <a, b>
p b # => <b, c> 
p c # => <c, a>

強引なやりかたですが、対応させてみました。
http://www.ruby-lang.org/~rubikitch/archive/tstore-0.0.1.tar.gz


るびきち☆
http://voo.to/ruby/ ←Ruby大衆化計画(笑)