[ruby-dev:21595] Re: extend with marshal_dump/marshal_load

なひです。

> From: "Yukihiro Matsumoto" <[e-mail]>
> Sent: Friday, October 10, 2003 2:26 PM

> extend対象のクラス(サンプルではQuux)を作らなくちゃいけないん
> ですが、以下のようなテクニックが使えます。FooやBarではextend
> についてなにも考える必要が無いのがポイントです。

確かにこれはポイントとして重視すべきですね。
「marshal_dumpペアを持つオブジェクトにextendする場合、
  気をつけないと元に戻らない
  （Marshalを通るとおかしなオブジェクトになる）」
わけですから、債務はそのオブジェクトを作ったヤツにあり、
FooやBarではない、と。

local(private) instance variableについては、リフレクションにより
外からさわれるようにして、それを書き出すようにしたほうが楽なのかな。

ちなみに、親クラスでmarshal_dumpがあるのに、サブクラスで
marshal_dumpを定義せず、サブクラスで導入したインスタンス変数が
書き出されなくても、それはサブクラスの債務違反ということで、
ほっといていいと思います。実は_dumpも気にしなくていいんじゃないかと。。
ただ、Timeが困るんですが。


以下、ほとんど全文引用ですいません。若干の突っ込み。

> class Foo
>   def initialize
>     @data_a = 1
>     @r, @w = IO.pipe
>   end
> 
>   def marshal_dump
>     @data_a
>   end
> 
>   def marshal_load(obj)
>     @data_a = obj
>     @r, @w = IO.pipe
>   end
> end
> 
> class Bar < Foo
>   def initialize
>     super
>     @data_b = 2
>   end
> 
>   def marshal_dump
>     [super, @data_b]
>   end
> 
>   def marshal_load(data)
>     super(data[0])
>     @data_b = data[1]
>   end
> end
> 
> module ExtendMarshal
>   def marshal_dump
>     base_data = super
>     extends = (class << self; self; end).ancestors - self.class.ancestors - [ModuleMarshal]

ModuleMarshal -> ExtendMarshalかな。しかしこのパターン
（Quuxを使うパターン）だとこの引き算は要らなそうですね。

o1にExtendMarshalをextendするパターンでいけるとかっこいいんだ
けど、「marshal_dumpがあるとextendは保存されない」により
絶対にうまくいかない。。。

>     data = {:modules => extends, :base => base_data}
>     extends.each do |m|
>       m.instance_method(:marshal_dump_extend).bind(self).call(data)
>     end
>     data
>   end
> 
>   def marshal_load(data)
>     extends = data[:modules]
>     extends.each do |m|

each -> reverse_eachにすると、extend順も戻ると思います。

>       self.extend(m)
>       m.instance_method(:marshal_load_extend).bind(self).call(data)
>     end
>     super(data[:base])
>   end
> end
> 
> module Baz
>   include ExtendMarshal
>   def marshal_dump_extend(data)
>     data[:Baz] = 42
>   end
> 
>   def marshal_load_extend(data)
>     @baz_data = data[:Baz]
>   end
> end
> 
> class Quux<Bar
>   include ExtendMarshal
> end
> 
> o1 = Quux.new
> o1.extend(Baz)
> o2 = Marshal.load(Marshal.dump(o1))
> p o1
> p o2