1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#-*- perl -*-
#
# Translate KEYWORDS.db to HTML
#
sub searchKey
{
my $key=$_[0];
my $retval = "<a href=\"";
$retval .= "javascript:searchInIndex('$key', false, true, false);";
$retval .= "\">$key</a>";
return($retval);
}
@key = ();
while(<>){
s/#.*//;
chop;
push(@key, $_) if $_;
}
@key = sort(@key);
$depth=0;
print("<dl>\n");
for($k=0;$k<=$#key; $k++){
($keywords, $desc) = split(':', $key[$k]);
@keywords = split('\|', $keywords);
if($#keywords==0){
for($n=0; $n<$depth-$#keywords; $n++){
print "</ul>";
}
print "</dd><p>\n" if($depth);
print "<dt> $desc</dt>\n<dd>\n";
}
else{
for($n=0; $n<$#keywords ; $n++){
print " ";
}
if($#keywords > $depth){
print "<ul><li>";
print searchKey($keywords[$#keywords]);
print ": $desc</li>\n";
}
elsif($#keywords < $depth){
for($n=0; $n<$depth-$#keywords; $n++){
print "</ul>";
}
print "\n";
print "<li>", searchKey($keywords[$#keywords]);
print ": $desc</li>\n";
}
else{
print "<li>", searchKey($keywords[$#keywords]);
print ": $desc</li>\n";
}
}
$depth=$#keywords;
}
for($n=0; $n<$depth; $n++){
print "</ul>";
}
print "</dd></dl>\n";
|