summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/support/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/doc/support/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/doc/support/mkgrkindex')
-rw-r--r--Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.nw22
-rw-r--r--Master/texmf-dist/doc/support/mkgrkindex/mkgrkindex.pdfbin72532 -> 92268 bytes
2 files changed, 11 insertions, 11 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
Binary files differ