&header();

# list java packages with signatures
# (c) 1999 Ward Cunningham

my $root = "c:/jdk1.3/src";
my $count = 0;
my ($search);
$search = $1 if $query =~ s/&s=(\w+)//;
print "Searching for whole word <i>$search</i> ...<p>\n" if $search;

&scan($query);
sub scan {
	my ($dir) = @_;
	print "<h1>$dir</h1>\n";
	opendir (D, "$root/$dir") or print "$dir: $!<br>";
	my @java = sort grep(/\.java$/, readdir(D));
	rewinddir (D);
	my @dirs = sort grep (-d "$root\\$dir\\$_" && /\w/, readdir(D));
	closedir (D);
	map (&sig("$dir/$_"), @java);
	map (&scan("$dir/$_"), @dirs);
}

sub sig {
	my ($file) = @_;
	my ($name) = $file =~ /(\w+)\.java/;
	open (F, "$root/$file") or print "$file: $!";
	my (@text) = <F>;
	close (F);
	$_ = join ('', @text);
	s/[^{;"}]//g;
	s/</&lt;/g;
	s/>/$gt;/g;
	s/&/$and;/g;
	$count++;
	print "<br>$count <a href=javaTxt.ww?$file>$name</a> $_\n";
	print map ("<li><font color=green>$_</font>\n", grep(s/\b$search\b/<b>$&<\/b>/, @text)) if $search;
}