From: keiju@... (Keiju ISHITSUKA)
Date: 1997-08-28T18:30:08+09:00
Subject: [ruby-dev:309] [BUG] method index

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

MethodIndexのプログラムを作りはじめているところですが, いきなりバグに
出会いました.

以下のプログラムを実行すると:

  method-index.rb:50: [BUG] no superclass for singleton class
IOT trap

で止まります.

-- method-index.rb
module MethodIndex
  class IndexPage
    
    # instance creation
    def initialize(title)
      @title = title
      @contents = {}
    end
    
    # accessing
    def insert(mod, *names)
      @contents[mod] = names
      printf "class: %s functions: %s\n", mod, names.inspect
    end
    
    # printing
    def shipout(output = $stdout)
    end
    
    def shipout_crossref(output = $stdout)
    end
    
  end
  
  def main
    mindex = IndexPage.new("メソッドインデックス")
    cindex = IndexPage.new("クラス定数インデックス")

    ObjectSpace.each_object(Module) do
      |mod|
      print mod.inspect, "\n"
      cindex.insert mod, *mod.constants.keys
      mindex.insert mod, *mod.instance_methods
    end
    
  end
  module_function :main
end

MethodIndex.main


__
..............................石塚 圭樹＠日本ラショナルソフトウェア...
----------------------------------->> e-mail: keiju@bc.mbn.or.jp <<---