#!/usr/bin/perl -w
use strict;

### STDOUT => html
### STDERR => indexlist
### Time-stamp: <Dec 27 2003>

my $c = 0;
my $lastn = 0;

print STDERR qq|<div class="index">\n|;

while(<>){
    ## <hN>..</hN> の行を見つけたとき
    if(m@<h([2-6])(.*?)>(.*)</h@){
        my $line = $_;
        my $level = $1;
        my $attribute = $2;;
        #if($attribute ne ""){$attribute = " ".$attribute;}
        my $heading = $3;
        $heading =~ s@<a name=.*?>([^<]*)</a>@$1@i; ##<a name..></a> は削除

        ## <a name..></a> を新たに追加
        $line = s/<h([2-6]).*?>.*<\/h.*?>/<h$level$attribute><a name="s$c" id="s$c">$heading<\/a><\/h$level>/;

        ## indexlist を作る
        my $n = $level - 1;
        if($n != 0){ # <h1>..</h1> は indexlist からは無視
            if($n < $lastn){
                for(my $i=$lastn; $i>$n; $i--){
                    print STDERR "  "x$i . "</ul>\n";
                }
            }elsif($n > $lastn){
                for(my $i=$lastn; $i<$n; $i++){
                    print STDERR "  "x($i+1) . "<ul>\n";
                }
            }
            print STDERR "  "x$n .qq|<li><a href="#s$c">$heading</a></li>\n|;
            $c++;
            $lastn = $n;
        }
    }
    print; #HTML を出力
}


## インデントの後始末
for(my $i=$lastn; $i>=1; $i--){
    print STDERR "  "x$i . "</ul>\n";
}


print STDERR qq|</div><!-- index -->\n|;