Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / doc / MHonArc / faq / _helper / addtoc-i.pl

#!/usr/local/bin/perl
#
# $Date: 1998/02/18 16:37:07 $ 

my($tocfile, $toctxt);

foreach $tocfile (@ARGV) {
    if (! -w $tocfile) {
	warn qq/Warning: "$tocfile" is not writable\n/;
	next;
    }
    system("/bin/cp $tocfile $tocfile.$$");
    open(IN, "$tocfile.$$") or die "Unable to open $tocfile\n";
    open(OUT, ">$tocfile") or die "Unable to create $tocfile\n";

    $toctxt = "";
    while (<IN>) {
	chomp;
	next  unless m|<h3|i;
	($id) = m|name="([^"]+)"|i;
	s|</?h\d.*?>||gi;
	s|</?a.*?>||gi;
	s|</?b>||gi;
	s|<img[^>]*>||gi;
	$toctxt .= qq{<li><a href="#$id">$_</a></li>\n};
    }
    seek IN, 0, 0;
    while (<IN>) {
	print OUT $_;
	if (/<!--X-TOC-Start-->/) {
	    while (<IN>) {
		last if (/<!--X-TOC-End-->/);
	    }
	    print OUT "<ul>\n", $toctxt, "</ul>\n",
		      "<!--X-TOC-End-->\n";
	}
    }

    close IN;
    close OUT;
    unlink "$tocfile.$$";
}

exit 0;