#!/usr/bin/env perl

while ($line = <>) {

#   \indexentry{wegen}{324}
#   \indexentry{sein!Kopula|(}{324}
#   \indexentry{lassen|(}{324}

# \indexentry {Vorlesung|hyperpage}{13}
# \indexentry {Mann|hyperindexformat{\fn {*}}}{13}


    # Skip bei Affixen, aber nicht bei Trennungszeichen
    if (($line =~ /[+-]/) && ($line !~ /"-/)) {
	print STDERR "Skipping $line"; next;
    } 

    if ($line =~ /\\indexentry\s{([A-Za-z"-@* ]*)(.*)/) {
# print STDERR $line,"\n";

         $content = $1; $rest = $2;
  
#         if ($content =~ /\@/) {
#             print STDERR  $content,"\n";
#         }
         if ($content =~ /\@([A-Za-z"-* ]*)/) {
            $content = $1;
#            print STDERR  $content,"\n";
         }
         $rev = &reverse($content);

         print "\\indexentry{$rev\@$content$rest\n";

    } else {
	
         print STDERR "Skipping: $line";

    }
}

sub reverse{
	local($in) = @_;

        $out = "";

	while ($in ne "") {
	  if ($in =~ /^"(.)(.*)/) {
                $out = "\"" . $1 . $out;
		$in = $2;
          } else {
	        $in =~ /^(.)(.*)/;
                $out = $1 . $out;
		$in = $2;
          }
        }
	return $out;
}

