summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/mkgrkindex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-08-26 23:57:24 +0000
committerKarl Berry <karl@freefriends.org>2009-08-26 23:57:24 +0000
commitc7380f87ee04092da97c1b4772104794b3f2d209 (patch)
tree76fa86f4851d605cc654c5a81e28a893f7c905bc /Master/texmf-dist/scripts/mkgrkindex
parent36a6053cce7d24aac7a97aa8cbe3b7dd67c2d526 (diff)
mkgrkindex update (25aug09)
git-svn-id: svn://tug.org/texlive/trunk@14873 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/mkgrkindex')
-rwxr-xr-xMaster/texmf-dist/scripts/mkgrkindex/mkgrkindex16
1 files changed, 8 insertions, 8 deletions
diff --git a/Master/texmf-dist/scripts/mkgrkindex/mkgrkindex b/Master/texmf-dist/scripts/mkgrkindex/mkgrkindex
index a4d30438f1b..f63f3316cfc 100755
--- a/Master/texmf-dist/scripts/mkgrkindex/mkgrkindex
+++ b/Master/texmf-dist/scripts/mkgrkindex/mkgrkindex
@@ -55,7 +55,7 @@ if ($argc == 0 || $argc > 4 ) # no command line arguments or more than 3
}
else
{
- print "This is mkgrkindex (previously known as mkindex) version 2.0\n";
+ print "This is mkgrkindex (previously known as mkindex) version 2.2\n";
$style = 0;
$is_latin = 0;
@@ -116,14 +116,14 @@ $old_file="$index_file.old";
if ($is_latin == 0)
{
rename $index_file, $old_file;
- open(OLD, "$old_file") || die "Can't open file $old_file\n";
+ open(OLD, "<$old_file") || die "Can't open file $old_file\n";
open(NEW, ">$index_file") || die "Can't open file $index_file\n";
while (<OLD>)
{
#\x7B = {, \x7D = },\x40 = @, \x7C = |, \x21 = !, \x28 = (, \x29 = )
chomp;
- #Nikos Platis has suggested to replace the original code with a better
+ #Nikos Platis has suggested the replacement of the original code with a better
#parsing method. The code that follows is essentially Nikos's code with
#some minnor modifications, as explained in the documentation.
$newentry = "";
@@ -159,7 +159,7 @@ if ($is_latin == 0)
}
rename $index_file, $old_file;
-open(OLD, "$old_file") || die "Can't open file $old_file\n";
+open(OLD, "<$old_file") || die "Can't open file $old_file\n";
open(NEW, ">$index_file") || die "Can't open file $index_file\n";
while(<OLD>)
@@ -183,11 +183,11 @@ unlink $old_file;
if ($style < 0)
{
- system("$makeindex -s alpha.ist $file");
+ system("$makeindex -s lowercase-headers.ist $file");
}
elsif ($style > 0)
{
- system("$makeindex -s Alpha.ist $file");
+ system("$makeindex -s uppercase-headers.ist $file");
}
else
{
@@ -231,7 +231,7 @@ if ($style != 0)
if ($is_latin == 0)
{
rename $ind_file, $old_file;
- open(OLD, "$old_file") || die "Can't open file $old_file\n";
+ open(OLD, "<$old_file") || die "Can't open file $old_file\n";
open(NEW, ">$ind_file") || die "Can't open file $ind_file\n";
while (<OLD>)
@@ -253,7 +253,7 @@ if ($style != 0)
}
rename $ind_file, $old_file;
- open(OLD, "$old_file") || die "Can't open file $old_file\n";
+ open(OLD, "<$old_file") || die "Can't open file $old_file\n";
open(NEW, ">$ind_file") || die "Can't open file $ind_file\n";
while (<OLD>)