#!/usr/bin/perl
#
#  indfilter -- filter an index for use in the electronic proceedings
#
$ltr = '';
$entry = "entry";

while (<>) {
    s/theindex/multiindex/g;
    s/, (\\\w+)\{(\d+)\}/, $1\{\\paperpageref\{$2\}\}/g;
    s/, (\d+)/, \\paperpageref\{$1\}/g;

    if ($ltr eq '' && /^\s*\\item\s*/) {
	local($tmp) = $_;
	$tmp =~ s/\\\w+//g;
	$tmp =~ s/\w/$ltr=$&/e;
	$ltr =~ tr/a-z/A-Z/;
	$_ = "\\letterlabel{$ltr}\n" . $_ if ($ltr ne '');
    }
    $ltr = '' if (/^\s*$/);

    s/\\((sub)*)item/\\$1$entry/g;

} continue { 
    print; 
}