mkidx

#!/usr/local/bin/perl
# Index maker:
#
# Build an index table of all the anchors that have a name of the form:
# "<prefix>-<name>". In addition when a database is given with the '-db' option,
# information related to elements searched by names is added to the table.
# Table headers can be specified through the '-th' option.
#
# Arnaud Le Hors - lehors@w3.org
# $Id: mkidx,v 1.8 1997-09-08 13:52:57 ian Exp $

$PROGNAME = substr($0, rindex($0, "/") + 1);

if (!$ARGV[1]) {
    print "Usage: $PROGNAME indexfile idxdb1 idxdb2 ...\n";
    exit 1;
} else {
    $indexf = $ARGV[0];
    shift;
}

sub readdbfile {
    $dbasef = $_[0];
    if (!open(DBASE, $dbasef)) {
	print STDERR "$PROGNAME Error: Cannot open dbfile: $dbasef\n";
	return;
    }
    while (<DBASE>)  {
	chop;
	($index, $url, $cmt) = split(/\|/, $_, 3);
	# Remove entity markup first (e.g. $lt;)
	$index =~ s/^&[^;]+;//;
	# Sort on certain chars only.
	$index =~ s/^[^a-zA-Z0-9\@:]*//;
	# Case-insensitive
	$index = lc($index);
	$key = "$index$cmt";
	if ($indexes{$key}) {
	    push(@{$indexes{$key}}, "$_");
	} else {
	    @{$indexes{$key}} = ("$_");
    # Write the subterms that are different
    # class="tocline*" directs our patched html2ps to omit the bullet
    close(DBASE);
}


### main
@indexes = ();
foreach $file (@ARGV) {
    readdbfile($file);
}
    for ($j = $i; $j <= $#subs; $j++) {
# print out index document
$buf = "";
@letters = ();
$curindex = ();
$curletter = ();
foreach $key (sort(keys %indexes)) {
    $lastcmt = ();
    foreach $item (@{$indexes{$key}}) {
	$cmt = ();
	($index, $url, $cmt) = split(/\|/, $item, 3);
    if ($class eq 'index-def') {
	if (($curindex) && ($curindex ne $index)) {
	    $buf .= "</dl>\n";
	}
	if ($curletter ne ($letter = lc(substr($key, 0, 1)))) {
	    $curletter = $letter;
	    $buf .= "<h2><a name=\"$letter\">" .
		uc($letter) . "</a></h2>\n";
	    push(@letters, $letter);
	}
	if ($curindex ne $index) {
	    $buf .= "\n<dl><dt>$index";
	    $n = 1;
	    $curindex = $index;
	}
	if ($cmt ne "") {
	    # If there is an index subkey
	    if ($lastcmt ne $cmt) {
		# If the subkey is not the same
		# as the previous one, start
		# a new subkey list.
		$buf .= "\n<dd> $cmt";
		$pre = "\n, <a href=\"$url\">";
		$content = "1";
		$post = "</a>";
		$n = 2;
		$lastcmt = $cmt;
	    } else {
		# Add number to current subkey list.
		$pre = "\n, <a href=\"$url\">";
		$content = $n;
		$post = "</a>";
		$n++;
	    }
	} else {
	    # Add number to current index line.
	    $pre = "\n, <a href=\"$url\">";
	    $content = $n;
	    $post = "</a>";
	    $n++;
	}
	$_ = $url;
	if (/\#didx-/) {
	    $content = "<em>$content</em>";
	}
	$buf .= "$pre$content$post";
    }
    $lvl--;
$buf .= "</dl>\n";

# Print out the full buffer
open(OUTPUT, "> $indexf");
print OUTPUT "<P><H2> ";
foreach $letter (@letters) {
    print OUTPUT " <a href=\"#$letter\">" . uc($letter) . "</a> ";
close(OUTPUT);
print OUTPUT "</H2>";
print OUTPUT $buf;