From c7380f87ee04092da97c1b4772104794b3f2d209 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 26 Aug 2009 23:57:24 +0000 Subject: mkgrkindex update (25aug09) git-svn-id: svn://tug.org/texlive/trunk@14873 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/support/mkgrkindex/mkgrkindex.nw | 22 ++++++++++----------- .../doc/support/mkgrkindex/mkgrkindex.pdf | Bin 72532 -> 92268 bytes .../texmf-dist/makeindex/mkgrkindex/Alphacap.ist | 4 ---- Master/texmf-dist/makeindex/mkgrkindex/alpha.ist | 4 ---- .../makeindex/mkgrkindex/lowercase-headers.ist | 4 ++++ .../makeindex/mkgrkindex/uppercase-headers.ist | 4 ++++ Master/texmf-dist/scripts/mkgrkindex/mkgrkindex | 16 +++++++-------- 7 files changed, 27 insertions(+), 27 deletions(-) delete mode 100644 Master/texmf-dist/makeindex/mkgrkindex/Alphacap.ist delete mode 100644 Master/texmf-dist/makeindex/mkgrkindex/alpha.ist create mode 100644 Master/texmf-dist/makeindex/mkgrkindex/lowercase-headers.ist create mode 100644 Master/texmf-dist/makeindex/mkgrkindex/uppercase-headers.ist (limited to 'Master/texmf-dist') 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"; <> } @@ -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"; <> 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"; <> @@ -238,7 +238,7 @@ while () { #\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. <>= 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"; <> 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"; <> 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 Binary files a/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.pdf and b/Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.pdf differ diff --git a/Master/texmf-dist/makeindex/mkgrkindex/Alphacap.ist b/Master/texmf-dist/makeindex/mkgrkindex/Alphacap.ist deleted file mode 100644 index 0fac84f8a50..00000000000 --- a/Master/texmf-dist/makeindex/mkgrkindex/Alphacap.ist +++ /dev/null @@ -1,4 +0,0 @@ -heading_prefix "{\\hfil " -heading_suffix " \\hfil}\\nopagebreak\n" - -headings_flag 1 diff --git a/Master/texmf-dist/makeindex/mkgrkindex/alpha.ist b/Master/texmf-dist/makeindex/mkgrkindex/alpha.ist deleted file mode 100644 index c36a6fc262f..00000000000 --- a/Master/texmf-dist/makeindex/mkgrkindex/alpha.ist +++ /dev/null @@ -1,4 +0,0 @@ -heading_prefix "{\\hfil " -heading_suffix " \\hfil}\\nopagebreak\n" - -headings_flag -1 diff --git a/Master/texmf-dist/makeindex/mkgrkindex/lowercase-headers.ist b/Master/texmf-dist/makeindex/mkgrkindex/lowercase-headers.ist new file mode 100644 index 00000000000..c36a6fc262f --- /dev/null +++ b/Master/texmf-dist/makeindex/mkgrkindex/lowercase-headers.ist @@ -0,0 +1,4 @@ +heading_prefix "{\\hfil " +heading_suffix " \\hfil}\\nopagebreak\n" + +headings_flag -1 diff --git a/Master/texmf-dist/makeindex/mkgrkindex/uppercase-headers.ist b/Master/texmf-dist/makeindex/mkgrkindex/uppercase-headers.ist new file mode 100644 index 00000000000..0fac84f8a50 --- /dev/null +++ b/Master/texmf-dist/makeindex/mkgrkindex/uppercase-headers.ist @@ -0,0 +1,4 @@ +heading_prefix "{\\hfil " +heading_suffix " \\hfil}\\nopagebreak\n" + +headings_flag 1 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 () { #\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() @@ -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 () @@ -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 () -- cgit v1.2.3