diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/glossary/makeglos.pl')
-rw-r--r-- | Master/texmf-dist/doc/latex/glossary/makeglos.pl | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/Master/texmf-dist/doc/latex/glossary/makeglos.pl b/Master/texmf-dist/doc/latex/glossary/makeglos.pl index 456001bc7fb..0b3cb56f008 100644 --- a/Master/texmf-dist/doc/latex/glossary/makeglos.pl +++ b/Master/texmf-dist/doc/latex/glossary/makeglos.pl @@ -2,7 +2,7 @@ # File : makeglos # Author : Nicola Talbot -# Version : 1.4 (2005/11/19) +# Version : 1.5 (2006/07/20) # Description: simple Perl script that calls makeindex. # Intended for use with "glossary.sty" (saves having to remember # all the various switches) @@ -40,7 +40,10 @@ else $name = @ARGV[0]; } +$istfile = "$name.ist"; + # check log file for other glossary types +# and for ist file name if (open AUXFILE, "$name.aux") { @@ -57,6 +60,11 @@ if (open AUXFILE, "$name.aux") print "added glossary type '$2' ($3,$4,$1)\n"; } } + + if (m/\\\@istfilename\s*{([^}]*)}/) + { + $istfile = $1; + } } close AUXFILE; @@ -105,11 +113,7 @@ unless ($opt_p eq "") $mkidxopts .= " -p $opt_p"; } -if ($opt_s eq "") -{ - $istfile = "$name.ist"; -} -else +unless ($opt_s eq "") { $istfile = $opt_s; } |