From: Tanaka Akira <akr@...17n.org>
Date: 2002-02-24T06:03:28+09:00
Subject: [ruby-dev:16046] Re: [BUG?] include after module definition and extend module

In article <hvopu2ytxzt.fsf@coulee.a02.aist.go.jp>,
  Tanaka Akira <akr@m17n.org> writes:

> $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

$B9M$($F$_$?$H$3$m(B incremental $B$K$9$k$HLdBj$,H/@8$9$k$3$H$b$"$k$H$$$&7k(B
$BO@$KC#$7$^$7$?!#(B

$B7k6I!"J#?t$N%j%9%H$r0l5$$K(B merge $B$9$k$+0l$D$:$D(B merge $B$9$k$+$N0c$$$J$o(B
$B$1$G$9$,!"(Bmerge $B$9$k$H$-$K$O<+M3EY$,$"$k$o$1$G!"0l$D$:$D$d$k$H$=$N$?$S(B
$B$K<+M3EY$,8:$C$F$$$/$N$G!":G=i$NJ}$GITMQ0U$JA*Br$r9T$J$C$F$7$^$C$?7k2L!"(B
$B8e$NJ}$N(B merge $B$G=g=x$,$&$^$/$$$+$J$$!"$H$$$&$3$H$,5/$3$jF@$^$9!#(B

# $B$H$$$&$o$1$G$3$l$+$i$O(B include $B$r;H$&;~$K$O$r2?2s$b8F$V$N$G$O$J$/!"(B
# $BJ#?t$N0z?t$G0l2s$@$18F$V$3$H$K$7$h$&$H7h?4$7$^$7$?!#(B

$B$?$@!"(Bancestors $B$r:n$j$J$*$7$?7k2L!"%b%8%e!<%k$N=g=x$,F~$lBX$o$kJQ2=$,(B
$B$"$k$N$b$=$l$O$=$l$GLdBj$J$N$G!"(Bincremental $B$K$d$k$H$$$&A*Br;h$b$=$l$J(B
$B$j$KBEEv$@$H$O;W$$$^$9!#(B

$B$=$N$h$&$J9M;!$N85$K:F7W;;$NOC$r:n$j$J$*$9$H$3$s$J46$8$K$J$j$^$9!#(B
(C3 linearization $B$G$J$/!"8=:_$N(B Ruby $B$N$G$b$=$l$J$j$KF0$-$^$9!#(B)

require 'tsort'

class << Module
  def tsort_each_node(&block)
    ObjectSpace.each_object(Module, &block)
  end

  def tsort_each_child(mod, &block)
    mod.ancestors.each(&block)
  end

  include TSort

  def reinclude
    Module.tsort_each {|m|
      m.module_eval { 
        include *m.ancestors.delete_if {|x| Class === x}.reverse
      } 
    }
  end
end

$B$J$s$H$$$&$+(B reverse $B$,$$$d$J46$8$G$9(B... $B$<$R(B include $B$N0z?t$N=gHV$N0U(B
$BL#$r$R$C$/$jJV$7$FM_$7$$$H;W$$$^$9!#(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)