The R Project SVN R

Rev

Details | Last modification | View Log | RSS feed

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