Initial commit of OpenSPARC T2 design and verification files.

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

#!/usr/local/bin/perl
#
# $Date: 2001/09/05 16:04:08 $ 

for ($i=0; $i <= $#ARGV; $i++) {
    $file = $ARGV[$i];
    system("/bin/cp $file $file.$$");
    open(IN, "$file.$$") or die "Unable to open $file\n";
    open(OUT, ">$file") or die "Unable to create $file\n";

    while (<IN>) {
	print OUT $_;
	if (/<!--X-NavButtons-Start-->/) {
	    while (<IN>) {
		last  if /<!--X-NavButtons-End-->/;
	    }
	    print OUT "<p align=center>\n";
	    if ($i > 0) {
		print OUT qq{[<a href="}, $ARGV[$i-1], qq{">Prev</a>]};
	    } else {
		print OUT qq{[Prev]};
	    }
	    if ($i < $#ARGV) {
		print OUT qq{[<a href="}, $ARGV[$i+1], qq{">Next</a>]};
	    } else {
		print OUT qq{[Next]};
	    }
	    print OUT qq{[<a href="faq.html">TOC</a>]};
	    print OUT qq{[<a href="http://www.mhonarc.org/">Home</a>]};
	    print OUT qq{\n</p>\n<!--X-NavButtons-End-->\n};
	}
    }

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

exit 0;