#!/usr/bin/perl # $Id: makeindex4,v 1.9 2005/05/02 20:19:34 jschrod Exp $ #---------------------------------------------------------------------- # # This is a perl-script that wraps xindy into a makeindex-like # interface. # # NOTE: Usage of this script is depreciated. Use texindy instead. # Yes, this is Perl 4 code -- it is as old. I don't plan to change # that, as there's a better replacement available anyhow. Let's tell # this with each usage... ;-) print STDERR <<'_EOF_' NOTE: Usage of makindex4 is depreciated. This script is not supported any more. Please consider switching to the supported command texindy. _EOF_ ; ($progname = $0) =~ s#.*/##; $Date = `date`; require "getopts.pl"; # $debug = 1; $numArgs = $#ARGV; # save number of Commandline-Arguments # parse for makeindex command-line options &Getopts( "dcgilo:p:qrs:t:" ); $debug = $opt_d; # some debug-output print STDERR "\@ARGV: @ARGV\n" if $debug; print STDERR "\$#ARGV: $#ARGV\n" if $debug; sub welcome { print STDERR "\nusage:\t$progname [makeindex options] tex-index-file\n"; print STDERR <$TmpStyle"); print STY < ) { chop; ($attr, $type) = split(/\t/); if ($type eq "locref") { unless ($attr eq "") { $LocAttrs .= "\"$attr\" "; $LocMarkup .= "(markup-locref :open \"\\$attr" . "{\" :close \"}\" :attr \"$attr\")\n"; } } else { if (! $attr eq "see" ) { $XrefAttrNames .= "\"$attr\" "; $XrefAttrs .= "(define-crossref-class \"$attr\")\n"; $XrefMarkup .= "(markup-crossref-list :open \"\\$attr" . "{\" :close \"}{}\")\n"; } } } print STY < was not changed back to if {LEVEL} was found. # # Revision 1.2 1997/01/17 16:30:35 kehr # Rewrote makeindex4 and heavily modified tex2xindy. # #