summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/glossaries
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-10-15 16:44:47 +0000
committerKarl Berry <karl@freefriends.org>2007-10-15 16:44:47 +0000
commitbbda5f792cd3622a656d48982963d9b6d14c521e (patch)
treeb1a66b2a7aa61c0d837b913737dca532e3eccfb9 /Master/texmf-dist/doc/latex/glossaries
parentfcd9340c3cb861b77d6ba9b91ed3c6963dca8e46 (diff)
glossaries update (13oct07)
git-svn-id: svn://tug.org/texlive/trunk@5200 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/glossaries')
-rwxr-xr-xMaster/texmf-dist/doc/latex/glossaries/perl/makeglossaries229
-rwxr-xr-xMaster/texmf-dist/doc/latex/glossaries/perl/makeglossaries.bat3
2 files changed, 0 insertions, 232 deletions
diff --git a/Master/texmf-dist/doc/latex/glossaries/perl/makeglossaries b/Master/texmf-dist/doc/latex/glossaries/perl/makeglossaries
deleted file mode 100755
index aaa0c1b36d0..00000000000
--- a/Master/texmf-dist/doc/latex/glossaries/perl/makeglossaries
+++ /dev/null
@@ -1,229 +0,0 @@
-#!/usr/bin/perl
-
-# File : makeglossaries
-# Author : Nicola Talbot
-# Version : 1.0 (2007/05/10)
-# Description: simple Perl script that calls makeindex.
-# Intended for use with "glossaries.sty" (saves having to remember
-# all the various switches)
-
-# This file is distributed as part of the glossaries LaTeX package.
-# Copyright 2007 Nicola L.C. Talbot
-# This work may be distributed and/or modified under the
-# conditions of the LaTeX Project Public License, either version 1.3
-# of this license of (at your option) any later version.
-# The latest version of this license is in
-# http://www.latex-project.org/lppl.txt
-# and version 1.3 or later is part of all distributions of LaTeX
-# version 2005/12/01 or later.
-#
-# This work has the LPPL maintenance status `maintained'.
-#
-# The Current Maintainer of this work is Nicola Talbot.
-
-# This work consists of the files glossaries.dtx and glossaries.ins
-# and the derived files glossaries.sty, glossary-hypernav.sty,
-# glossary-list.sty, glossary-long.sty, glossary-super.sty,
-# glossaries.perl. Also makeglossaries and makeglossaries.
-
-use Getopt::Std;
-
-if ($#ARGV < 0)
-{
- die "Syntax : $0 [-ilqrcg] [-s sty] [-o gls] [-t log] [-p num] <filename>\n";
-}
-
-getopt('sotp');
-getopts('ilqrcg');
-
-# define known extensions
-
- %exttype = (
- main => {in=>'glo', out=>'gls', 'log'=>'glg'},
- );
-
-$ext = '';
-
-if (length(@ARGV[0]) < 4)
-{
- $name = @ARGV[0];
-}
-elsif (substr(@ARGV[0],-4,1) eq ".")
-{
- $name = substr(@ARGV[0],0,length(@ARGV[0])-4);
-
- $ext = substr(@ARGV[0],-3,3);
-}
-else
-{
- $name = @ARGV[0];
-}
-
-$istfile = "$name.ist";
-
-# check log file for other glossary types
-# and for ist file name
-
-if (open AUXFILE, "$name.aux")
-{
- while (<AUXFILE>)
- {
- if (m/\\\@newglossary\s*\{(.*)\}{(.*)}{(.*)}{(.*)}/
- and ($1 ne 'main'))
- {
- $exttype{$1}{'log'} = $2;
- $exttype{$1}{'out'} = $3;
- $exttype{$1}{'in'} = $4;
-
- if (!$opt_q)
- {
- print "added glossary type '$1' ($2,$3,$4)\n";
- }
- }
-
- if (m/\\\@istfilename\s*{([^}]*)}/)
- {
- $istfile = $1;
- }
- }
-
- close AUXFILE;
-}
-else
-{
- print "unable to open $name.aux\n";
-}
-
-# save all the general makeindex switches
-
-$mkidxopts = '';
-
-if ($opt_i)
-{
- $mkidxopts .= " -i";
-}
-
-if ($opt_l)
-{
- $mkidxopts .= " -l";
-}
-
-if ($opt_q)
-{
- $mkidxopts .= " -q";
-}
-
-if ($opt_r)
-{
- $mkidxopts .= " -r";
-}
-
-if ($opt_c)
-{
- $mkidxopts .= " -c";
-}
-
-if ($opt_g)
-{
- $mkidxopts .= " -g";
-}
-
-unless ($opt_p eq "")
-{
- $mkidxopts .= " -p $opt_p";
-}
-
-unless ($opt_s eq "")
-{
- $istfile = $opt_s;
-}
-
-if ($ext ne '')
-{
- %thistype = %{$exttype{'main'}}; #default
-
- foreach $type (keys %exttype)
- {
- if ($exttype{$type}{'in'} eq $ext)
- {
- %thistype = %{$exttype{$type}};
-
- last;
- }
- }
-
- if ($opt_o eq "")
- {
- $outfile = "$name.$thistype{out}";
- }
- else
- {
- $outfile = $opt_o;
- }
-
- if ($opt_t eq "")
- {
- $transcript = "$name.$thistype{'log'}";
- }
- else
- {
- $transcript = $opt_t;
- }
-
- &makeindex("$name.$ext",$outfile,$transcript,$istfile,
- $mkidxopts,$opt_q);
-}
-else
-{
- foreach $type (keys %exttype)
- {
- %thistype = %{$exttype{$type}};
-
- $inputfile = "$name.$thistype{in}";
-
- if (-r $inputfile)
- {
- if ($opt_o eq "")
- {
- $outfile = "$name.$thistype{out}";
- }
- else
- {
- $outfile = $opt_o;
- }
-
- if ($opt_t eq "")
- {
- $transcript = "$name.$thistype{'log'}";
- }
- else
- {
- $transcript = $opt_t;
- }
-
- &makeindex($inputfile,$outfile,$transcript,
- $istfile,$mkidxopts,$opt_q);
- }
- elsif (!$opt_q)
- {
- print "no read access for '$inputfile'\n";
- }
- }
-}
-
-sub makeindex{
- local($in,$out,$trans,$ist,$rest,$quiet) = @_;
- local($name,$cmdstr,$buffer,$n,$i,$j);
- local(@stuff,@item);
-
- $cmdstr = "$rest -s $ist -t $trans -o $out $in";
-
- unless ($quiet)
- {
- print "makeindex $cmdstr\n";
- }
-
- `makeindex $cmdstr`;
-}
-
-1;
diff --git a/Master/texmf-dist/doc/latex/glossaries/perl/makeglossaries.bat b/Master/texmf-dist/doc/latex/glossaries/perl/makeglossaries.bat
deleted file mode 100755
index 64a6a20750c..00000000000
--- a/Master/texmf-dist/doc/latex/glossaries/perl/makeglossaries.bat
+++ /dev/null
@@ -1,3 +0,0 @@
-@rem = '-*- Perl -*-
-@echo off
-perl -S "%~dp0makeglossaries" %*