csswg-drafts/css2/bin/Attic/mkidx at 82b494dd5ac69ce675bfee17fed4d53fb6a18bce · w3c/csswg-drafts · GitHub

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
#!/usr/local/bin/perl

#use Getopt::Std;

$PROG = substr($0, rindex($0, "/") + 1);
$USAGE = "Usage: $PROG indexdb [output]\n";

@indent = ('  ','    ','      ','        ');


sub cmp_entry {
    $terms_a = lc($a);
    $terms_b = lc($b);
    $terms_a =~ s/\&[a-z#0-9]+;?//sio;
    $terms_b =~ s/\&[a-z#0-9]+;?//sio;
    $terms_a =~ s/^[^a-z0-9\@:=]+//sio;
    $terms_b =~ s/^[^a-z0-9\@:=]+//sio;
    return $terms_a cmp $terms_b;
}

if ($#ARGV >= 0) {$db = $ARGV[0]; shift;} else {die $USAGE;}
if ($#ARGV >= 0) {$output = $ARGV[0]; shift;} else {$output = '-';}
if ($#ARGV >= 0) {die $USAGE;}

dbmopen(%index, $db, 0666) || die "$PROG: cannot open database $db\n;";
open(OUTPUT, ">$output") || die "$PROG: cannot create file $output\n";

# Slurp it all into memory, and sort...
@sorted = sort cmp_entry (values %index);

# Write it out
@prev = ('', '', '', '', '', '');
$prevletter = '`';
#print OUTPUT "<ul class=\"index\">";
$lvl = 0;
$seqno = 1;			# Number within an entry
foreach $e (@sorted) {
    ($entry, $prefix, $class, $anchor) = split(/\t/, $e);
    @subs = split(/::/, $entry);

    # Check to what level this entry is the same as the last one
    $i = 0;
    while (($i <= $#subs) && ($subs[$i] eq $prev[$i])) {$i++;}

    # If not completely the same, reset $seqno, else increment
    if ($i <= $lvl) {$seqno = 1;} else {$seqno++;}

    # Close lists to the required level
    while ($lvl > $i) {
	$lvl--;
	print OUTPUT "\n$indent[$lvl]</ul>";
    }

    # If new first letter, insert an anchor
    if ($lvl == 0) {
	$letter = $subs[0];
	$letter =~ s/\&[a-z\#0-9]+;?//sio;
	$letter =~ s/^[^a-z0-9\@:]+//sio;
	$letter = lc(substr($letter, 0, 1));
	if ($letter && $letter ne $prevletter) {
	    if ($prevletter ne '`') {
		print OUTPUT "\n</ul>";
	    }
	    print OUTPUT "\n<p>";
	    # Note: The magic autoincrement for letters does not
	    #       work on non-alphanumeric!
	    foreach (ord($prevletter)+1 .. ord($letter)) {
		# Be careful about quotes and double quotes.
		unless ($_ == 34 || $_ == 38 || $_ == 39) {
		    print OUTPUT "<a name=\"index-" . chr($_) . "\">&nbsp;</a>";
		}
	    }
	    print OUTPUT "\n<ul class=\"index\">";
	    $prevletter = $letter;
	}
    }

    # Write the subterms that are different
    # class="tocline*" directs out patched html2ps to omit the bullet
    for ($j = $i; $j <= $#subs; $j++) {
	print OUTPUT "\n$indent[$j]<li class=\"tocline0\">$subs[$j]";
	if ($j < $#subs) {
	    print OUTPUT "\n$indent[$j]<ul class=\"index\">";
	    $lvl++;
	}
    }

    # Link to given anchor
    print OUTPUT ", <a href=\"$prefix#$anchor\" ";
    if ($class eq 'index-def') {
	print OUTPUT "class=\"index-def\"><strong>$seqno</strong>";
    } else {
	print OUTPUT "class=\"index-inst\"><span>$seqno</span>";
    }
    print OUTPUT "</a>";

    for ($j = 0; $j <= $#subs; $j++) {$prev[$j] = $subs[$j];}
    $prev[$j] = '';
}
while ($lvl > 0) {
    print OUTPUT "\n</ul>";
    $lvl--;
}
print OUTPUT "\n</ul>\n";

close(OUTPUT);