[ruby-list:1639] Script for making Index of Ruby Manual

< ^ > P N |<>|^_>< --- | ~ ...Help
　須田です。

　マニュアルの総索引みたいなものが欲しくなって、ちょっとスクリプトを書いて
見ました。
　やっていることは、<A NAME="??"> タグを探し出して、それを適当な項目で登録
するだけです。
　日本語のコードをどう扱ったら良いか良く分からないので、１個所おかしくなる
ところがあるはずです。(^_^;)

-----^ makeidx.rb
#! /usr/local/bin/ruby
#
#  Make Ruby Manual Index
#
#  Ruby のマニュアルのディレクトリで ruby makeidx.rb とやると
#  refindex.html というファイルが作られる。
#
#        97/01/08 (c) s.suda / mix.or.jp

Adrs = { }

dirp = Dir.open(".")
for f in dirp
  $_ = f
  if /\.html?$/
    if /refindex\.html?/i then next end
    if /gloss.*\.html?/i then next end
    print f,"\n"

    fl = open(f)

    while fl.gets()
      if /<A NAME/i then

        chop!
        line = $_
        sub( /.+NAME=./i, "" )
        sub( /.>.*/, "" )
        label = $_

        $_ = line
        gsub( /<[!/a-z][^>]*>/i,"" )
        while( /^[ ]*$/ )
          fl.gets()
          chop!
          gsub( /<[!/a-z][^>]*>/i,"" )
        end
        keyword = $_
        Adrs[keyword] = f+"#"+label

        print "  #",label,": [",$_, "]\n"
      end
    end

    fl.close

  end
end
dirp.close

fo = open("refindex.html", "w")

fo.print "<HTML>\n<HEAD><TITLE>Ruby Manual Index"
fo.print "</TITLE></HEAD>\n<BODY>\n"
fo.print "<H1>Ruby Manual - Index</H1>\n"
fo.print "<HR>\n"

for k in Adrs.keys.sort
  print k,"\n"
  fo.print '', k, "<BR>\n"
end

fo.print "</BODY>\n</HTML>\n"
fo.close
-----$

                _/~_/~ 須田茂幸  地球科学総合研究所 _/~_/~
              _/~_/~ s.suda / mix.or.jp 01/09 00:30 _/~_/~