&header();

# list java file with hyperlinks
# (c) 1999 Ward Cunningham

my $root = "c:/jdk1.3/src";
my ($dir) = $query =~ /([^\/&]+)/;
my $com = 0;

my $public = 'public|private|protected|abstract|final|native|static|synchronized';
my $boolean = 'boolean|byte|short|int|char|long|float|double|void|[A-Z]\w+';
my $array = '\[\s*\]';

print "<h1>$query</h1><pre>\n";
open (F, "$root/$query") or print "$file: $!";
while (<F>) {
	s/&/&and;/g;
	s/</&lt;/g;
	s/>/&gt;/g;
	s/"/&quot;/g;
	
	$com = 1 if /^\s*\/\*/;
	
	if ($com or /^\s*\/\//) {
		s/.*/<i><font color=#c0c0c0>$&<\/font><\/i>/;
	} else {
		s/(class|interface)\s+(\w+)/$1 <a href=javaSig.ww?$dir&s=$2><font size=+3><b>$2<\/b><\/font><\/a>/;
		s/(($public)\s+)*($boolean)(\s*$array)?\s+(\w+)(\s*\()/$1$3$4 <a href=javaSig.ww?$dir&s=$5><font size=+2><b>$5<\/b><\/font><\/a>$6/;
		s/[{};]\s*$/<font color=gray>$&<\/font>/;
	}
	
	$com = 0 if /.*\*\//;
	
	print ;
}
close (F);