mkgrkindex update (25aug09)

git-svn-id: svn://tug.org/texlive/trunk@14873 c570f23f-e606-0410-a88d-b1316a301751

5 files changed, 19 insertions, 19 deletions

diff --git a/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.nw b/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.nw
index 2b6a619bf15..03852d70dc8 100644
--- a/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.nw
+++ b/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.nw
@@ -95,7 +95,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";
    <<Process command line arguments>>
 }
 
@@ -199,7 +199,7 @@ $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";
    <<Modify index entries>>
    close OLD;
@@ -208,7 +208,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";
 
 <<Correct page numbers>>
@@ -238,7 +238,7 @@ 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 = "";
@@ -294,19 +294,19 @@ In case the name of the program is different in the user's installation,
 he/she must change the assignment at the beginning of the program. 
 As we said, the user can choose between three different types of indices.
 Indices of type "A" and "a", assume that LaTeX and [[makeindex]] have access
-to files [[Alpha.ist]] and [[alpha.ist]]. So, make sure these files are
-properly installed. Depending on the value of variable [[$style]],
+to files [[uppercase-headers.ist]] and [[lowercase-headers.ist]]. So, make sure 
+these files are properly installed. Depending on the value of variable [[$style]],
 we generate the appropriate index.
 
 <<Generate .ind 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
 {
@@ -331,7 +331,7 @@ $old_file="$ind_file.old";
 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";
    <<Correct header letters>>
    close OLD;
@@ -340,7 +340,7 @@ 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";
 <<Translate the word symbol>>
 close OLD;
@@ -442,7 +442,7 @@ if necessary, i.e., if the user has asked for some alphabetic headers
 in his/her index.
 
 <<*>>=
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 #(c) Copyright 1998-2009   Apostolos Syropoulos
 #                          asyropoulos@yahoo.com
diff --git a/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.pdf b/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.pdf
index ee91a5b3c73..de555d59eca 100644
--- a/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.pdf
+++ b/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.pdf
diff --git a/Master/texmf-dist/makeindex/mkgrkindex/alpha.ist b/Master/texmf-dist/makeindex/mkgrkindex/lowercase-headers.ist
index c36a6fc262f..c36a6fc262f 100644
--- a/Master/texmf-dist/makeindex/mkgrkindex/alpha.ist
+++ b/Master/texmf-dist/makeindex/mkgrkindex/lowercase-headers.ist
diff --git a/Master/texmf-dist/makeindex/mkgrkindex/Alphacap.ist b/Master/texmf-dist/makeindex/mkgrkindex/uppercase-headers.ist
index 0fac84f8a50..0fac84f8a50 100644
--- a/Master/texmf-dist/makeindex/mkgrkindex/Alphacap.ist
+++ b/Master/texmf-dist/makeindex/mkgrkindex/uppercase-headers.ist
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>)