summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorVladimir Volovich <vvv@vsu.ru>2009-03-22 13:57:39 +0000
committerVladimir Volovich <vvv@vsu.ru>2009-03-22 13:57:39 +0000
commiteee9fbd38e396b9721958a3e8bc33b3d4410f099 (patch)
treeeefc1ba921f972c4e5ece41790d19ead82188692 /Build
parent05da5d794c7d2d18b4a9eb91678b0a848f8f9714 (diff)
sync with changes in CVS repo
git-svn-id: svn://tug.org/texlive/trunk@12483 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-xBuild/source/utils/xindy/user-commands/texindy47
-rw-r--r--Build/source/utils/xindy/user-commands/xindy.in18
2 files changed, 43 insertions, 22 deletions
diff --git a/Build/source/utils/xindy/user-commands/texindy b/Build/source/utils/xindy/user-commands/texindy
index 2664b6fcd54..64dfbd71d46 100755
--- a/Build/source/utils/xindy/user-commands/texindy
+++ b/Build/source/utils/xindy/user-commands/texindy
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: texindy,v 1.5 2006/07/30 10:30:42 jschrod Exp $
+# $Id: texindy,v 1.8 2009/03/22 11:08:18 jschrod Exp $
#------------------------------------------------------------
# (history at end)
@@ -70,7 +70,7 @@ output usage message with options explanation.
Don't output progress messages. Output only error messages.
-=item C<--version> / B<-v>
+=item C<--verbose> / B<-v>
Output verbose progress messages.
@@ -296,7 +296,7 @@ use strict;
BEGIN {
use vars qw($Revision $VERSION);
- q$Revision: 1.5 $ =~ /: (\d+)\.(\d+)/ ; # q wg. Emacs indent!
+ q$Revision: 1.8 $ =~ /: (\d+)\.(\d+)/ ; # q wg. Emacs indent!
my ($major, $minor) = ($1, $2);
$VERSION = "$major." . ($minor<10 ? '0' : '') . $minor;
}
@@ -379,27 +379,28 @@ output_version() if $output_version; # will not return
usage() if ( ! $stdin && @ARGV == 0 ); # brain damaged, but like makeindex
-# Reconstruct xindy options, and eventually switch to it.
+# Construct xindy options, and eventually switch to it.
-unshift (@ARGV, '-q') if $quiet;
-unshift (@ARGV, '-v') if $verbose;
-unshift (@ARGV, map { ('-d', $_) } @debug) if @debug;
-unshift (@ARGV, '-o', $outfile) if $outfile;
-unshift (@ARGV, '-t', $logfile) if $logfile;
-unshift (@ARGV, '-L', $language);
-unshift (@ARGV, '-C', $codepage) if $codepage;
-unshift (@ARGV, '-M', "tex/inputenc/$codepage") if $codepage;
-unshift (@ARGV, map { ('-M', $_) } ($ENV{TEXINDY_AUTO_MODULE} || 'texindy',
- @modules));
-unshift (@ARGV, '-I', $input_markup);
+my @opt;
+push (@opt, '-q') if $quiet;
+push (@opt, '-v') if $verbose;
+push (@opt, map { ('-d', $_) } @debug) if @debug;
+push (@opt, '-o', $outfile) if $outfile;
+push (@opt, '-t', $logfile) if $logfile;
+push (@opt, '-L', $language);
+push (@opt, '-C', $codepage) if $codepage;
+push (@opt, '-M', "tex/inputenc/$codepage") if $codepage;
+push (@opt, map { ('-M', $_) } ($ENV{TEXINDY_AUTO_MODULE} || 'texindy',
+ @modules));
+push (@opt, '-I', $input_markup);
-print "Calling xindy as: $xindy @ARGV\n" if (grep /^script$/, @debug);
+print "Calling xindy as: $cmd_dir/xindy @opt @ARGV\n" if (grep /^script$/, @debug);
if ($xindy =~ m,\.bat$,) {
- system($xindy, @ARGV);
+ system($xindy, @opt, @ARGV);
exit $? if $? != -1;
} else {
- exec $xindy, @ARGV;
+ exec $xindy, @opt, @ARGV;
}
die "$cmd: could not execute $xindy: $!\n";
@@ -522,6 +523,16 @@ sub output_xindy_release () {
#======================================================================
#
# $Log: texindy,v $
+# Revision 1.8 2009/03/22 11:08:18 jschrod
+# man page: --v is --verbose, not --version.
+#
+# Revision 1.7 2009/03/21 16:32:06 jschrod
+# Inputenc merge rules must be loaded before other texindy modules;
+# otherwise inputenc markup would be discarded by tex.xdy.
+#
+# Revision 1.6 2008/02/17 14:55:32 jschrod
+# Use exitcode 0 when usage is explicitly demanded with --help et.al.
+#
# Revision 1.5 2006/07/30 10:30:42 jschrod
# Check if an exec() error happened and output an error message.
# (Ticket 1230801)
diff --git a/Build/source/utils/xindy/user-commands/xindy.in b/Build/source/utils/xindy/user-commands/xindy.in
index 4d6b1f02f20..9a7b0579845 100644
--- a/Build/source/utils/xindy/user-commands/xindy.in
+++ b/Build/source/utils/xindy/user-commands/xindy.in
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: xindy.pl,v 1.8 2006/07/30 10:30:42 jschrod Exp $
+# $Id: xindy.pl,v 1.11 2009/03/22 11:08:18 jschrod Exp $
#------------------------------------------------------------
# (history at end)
@@ -64,7 +64,7 @@ output usage message with options explanation.
Don't output progress messages. Output only error messages.
-=item C<--version> / B<-v>
+=item C<--verbose> / B<-v>
Output verbose progress messages.
@@ -276,7 +276,7 @@ use strict;
BEGIN {
use vars qw($Revision $VERSION);
- q$Revision: 1.8 $ =~ /: (\d+)\.(\d+)/ ; # q wg. Emacs indent!
+ q$Revision: 1.11 $ =~ /: (\d+)\.(\d+)/ ; # q wg. Emacs indent!
my ($major, $minor) = ($1, $2);
$VERSION = "$major." . ($minor<10 ? '0' : '') . $minor;
}
@@ -656,7 +656,7 @@ sub xindy_expression () {
if ( $2 && -d "$ld/$1" ) { # $2 is not set if the regex didn't match
$language = $1;
$variant = "$2-" unless ( $2 eq 'iso' );
- $variant =~ s/din/din5007/ ;
+ $variant eq 'din' and $variant = 'din5007';
}
}
# Let's guess the codepage. We take any that starts with
@@ -806,6 +806,16 @@ sub quotify ( $ ) {
#======================================================================
#
# $Log: xindy.pl,v $
+# Revision 1.11 2009/03/22 11:08:18 jschrod
+# man page: --v is --verbose, not --version.
+#
+# Revision 1.10 2009/03/21 18:05:11 jschrod
+# Variant rename of din to din5007 made explicit. (Proposed by
+# Zdenek Wagner at 16 Mar 09.)
+#
+# Revision 1.9 2008/02/17 14:55:32 jschrod
+# Use exitcode 0 when usage is explicitly demanded with --help et.al.
+#
# Revision 1.8 2006/07/30 10:30:42 jschrod
# Check if an exec() error happened and output an error message.
# (Ticket 1230801)