From: Tanaka Akira <akr@...17n.org>
Date: 2002-02-22T04:49:45+09:00
Subject: [ruby-dev:16035] Re: [BUG?] include after module definition and extend module

In article <1014126659.698034.15364.nullmailer@ev.netlab.jp>,
  matz@ruby-lang.org (Yukihiro Matsumoto) writes:

> $B87L)$K$O$=$&$G$7$g$&$M!#$^$"!"A4BN$r:n$jD>$9$N$O$A$g$C$H<j4V(B
> $B$J$N$G(B($B$=$NO+NO$O(BRite$B$K2s$7$?$$(B)$B!"(B1.7/1.8$B$G$OE,Ev$K$*Cc$rBy(B
> $B$=$&$H;W$C$F$^$9!#(B

$B$I$&$b;d$NCN<1$O8E$+$C$?$h$&$G!"$I$&$d$iI,$:$7$b$9$Y$F$N(B direct super
class/module $B$N%j%9%H$rJ]B8$9$kI,MW$,$J$$$d$j$+$?$b$"$k$h$&$G$9!#(B

  A Monotonic Superclass Linearization for Dylan
  http://www.webcom.com/~haahr/dylan/linearization-oopsla96.html

$B$N(B C3 Linearization $B$H$$$&$N$,$=$&$G$9$,!"$3$l$O(B($BCx<T$N<gD%$K$h$l$P(B)
CLOS $B$J$I$h$j$bNI$$@-<A$r;}$D$h$&$G$9!#(B

$B%"%k%4%j%:%`$O$+$J$jC1=c$G!"(Bdirect super class $B$N(B class precedence
list ($B$$$&$^$G$b$"$j$^$;$s$,(B Ruby $B$N(B ancestors) $B$r(B merge $B$9$k$3$H$K$h$C(B
$B$F<B8=2DG=$J$h$&$G$9!#(B

$B$?$@!"(Bincremental $B$J99?7$KE,MQ$G$-$k$+$I$&$+$O$A$g$C$H9M$($F$_$J$$$H$o(B
$B$+$j$^$;$s!#$G$b!"$J$s$H$J$/2DG=$J5$$,$7$^$9!#$b$72DG=$@$H$7$?$i!"$?$V(B
$B$s!"<!$N$h$&$J$+$s$8$G<B8=$G$-$k$h$&$J5$$,$7$^$9!#$?$V$s!#(B

class Module
  def include(*ms)
    l = [self.ancestors[1..-1], *ms.map {|m| m.ancestors}]
    l.reverse! # Ruby prefer later module.
    r = [self]
    until l.all? {|a| a.empty?}
      a2 = l.find(lambda {consistent $B$G$J$$!#E,Ev$K$I$&$K$+$9$k!#(B}) {|a|
        !l.any? {|a1| a[1..-1].include? a.first}
      }
      r << a2.shift
    end
    self.ancestors = r
  end
end

$B$"$H!"(Binclude $B$KJ#?t$N%b%8%e!<%k$rEO$7$?$H$-$O5U=g$K$7$FM_$7$$5$$,$7$^(B
$B$9!#8e$NJ}$,M%@h=g0L$,9b$$$H$$$&E@$G$O(B include $B$r2?2s$b8F$S=P$7$?>l9g(B
$B$H0l4S$7$F$k$s$G$9$,!"(BCLOS $B$H$+$H5U$J$N$G(B...

> $B8!=P$7$h$&$H$7$F$$$k%5%$%/%k$O(B [A, C, A] $B$N$h$&$J$b$N$G$9$+(B
> $B$i!"8=;~E@$G$N%H%]%m%8%+%k$J9=B$$O%5%$%/%k$K$J$C$F$$$F$b!";~(B
> $B4V=g$N7k2L$H$7$F$N8D!9$N%b%8%e!<%k$N(B ancestors $B$,%5%$%/%k$G(B
> $B$J$$$s$G8!=P$7$J$/$F$bNI$$$+$J$"$H;W$&$s$G$9$,!#(B

$B$U$`!#$I$&$J$s$G$7$g$&$M$'!#(B
-- 
[$BEDCf(B $BE/(B][$B$?$J$+(B $B$"$-$i(B][Tanaka Akira]
$B!V$U$($m(B! $B$o$+$a$A$c$s:n@o$G$9$(C"=$B!W(B(Little Worker, $B7KM7@84](B)