Initial commit of OpenSPARC T2 design and verification files.

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

#!/usr/local/bin/perl
#
# $Date: 1997/05/15 16:06:29 $ 

$tocfile = shift @ARGV;
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";

while (<IN>) {
    print OUT $_;
    if (/<!--X-TOC-Start-->/) {
	while (<IN>) {
	    last if (/<!--X-TOC-End-->/);
	}
	foreach $file (@ARGV) {
	    open(FILE, $file) or die "Unable to open $file\n";

	    print OUT "<ul>\n";
	    while (<FILE>) {
		chomp;
		next  unless m|<h2|i;
		($id) = m|name="(.*?)"|i;
		s|</?h\d.*?>||gi; s|</?a.*?>||gi;
		s|<img[^>]*>||gi;
		print OUT qq{<li><a name="$id" href="$file">$_</a>\n<ul>\n};
		last;
	    }
	    while (<FILE>) {
		chomp;
		next  unless m|<h3|i;
		($id) = m|name="(.*?)"|i;
		s|</?h\d.*?>||gi; s|</?a.*?>||gi;
		s|</?b>||gi;
		s|<img[^>]*>||gi;
		print OUT qq{<li><a name="$id" href="$file#$id">$_</a></li>\n};
	    }
	    print OUT "</ul>\n</ul>\n";
	    close FILE;
	}
	print OUT "<!--X-TOC-End-->\n";
    }
}
close IN;
close OUT;
unlink "$tocfile.$$";

exit 0;