#!@XINDY_PERL@ # $Id: xindy.in,v 1.14 2005/05/02 19:16:27 jschrod Exp $ #------------------------------------------------------------ # # This is the old perl-frontend to the xindy indexing system. # # It is kept for compatibility reasons and is named xindy.v2 in # production. Most probably, you will not want to use it any more. # # This code is not supported. Don't report bugs, switch to the current # xindy script. # ($progname = $0) =~ s#.*/##; $Date = `date`; require "getopts.pl"; # $debug = 1; $numArgs = $#ARGV; # save number of command line arguments # parse for command-line options &Getopts( "dtvnio:l:f:L:" ); $debug = $opt_d; # some debug-output print STDERR "progname: $progname\n" if $debug; print STDERR "\@ARGV: @ARGV\n" if $debug; print STDERR "\$#ARGV: $#ARGV\n" if $debug; # # Synopsis # sub usage { print STDERR "\n$progname\t[-t] [-v] [-o output] [-l logfile] [-f filtprg] [-L n] \tindexstyle raw-index\n"; print STDERR < $tmpfile\n"; system "$filtprg < $Rawidx > $tmpfile"; print "Finished running filter.\n\n"; $Rawidx = "e_string($tmpfile); } # Prepare logfile option. if ( $logfile ) { $logfile = ":logfile \"" . "e_string($logfile) . "\""; } # Prepare trace-level. if ( $level ) { $logging = ":trace-level $level"; } # This is the complete LISP-SEXP needed to start the system. $xindy_cmd = "-x '(progn $SEARCHPATH (xindy:startup :idxstyle \"$Idxsty\" :rawindex \"$Rawidx\" :output \"$output\" $logfile $version $tracing $logging) (exit))'"; # Run program and do final cleanup if ( $try ) { print "$xindy_run $xindy_cmd"; } else { if ( $SigHandlerSet ) { system "$xindy_run $xindy_cmd"; unlink $tmpfile; } else { exec "$xindy_run $xindy_cmd"; } } #---------------------------------------------------------------------- # # $Log: xindy.in,v $ # Revision 1.14 2005/05/02 19:16:27 jschrod # Support new RTE 2.2, built with CLISP 2.33.2, that needs -E option # to specify the default charset. # xindy also has proper version output in Lisp now, no need for # workarounds in script any more. # # Revision 1.13 2004/05/24 19:52:02 jschrod # Pass -B option to CLISP. # Change might be from Thomas Henlich , # made at 1999-12-22. # # Revision 1.12 2004/05/24 19:47:13 jschrod # Introduce new driver script, as part of the "Companion Release". # # Revision 1.11 1999/09/23 07:22:39 kehr # Fixed an exit code problem reported by Peter Meszaros # . # # Revision 1.10 1998/03/12 10:58:21 kehr # Fixed bug with -f option. # # Revision 1.9 1997/04/03 13:23:51 kehr # Many bugs fixed during testing. # # Revision 1.8 1997/04/03 09:38:54 kehr # First check-in of the rewritten xindy script. The former shell-script # has now been replaced by a perl-script. # # Local Variables: # mode: perl # End: