From bbda5f792cd3622a656d48982963d9b6d14c521e Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 15 Oct 2007 16:44:47 +0000 Subject: glossaries update (13oct07) git-svn-id: svn://tug.org/texlive/trunk@5200 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/latex/glossaries/perl/makeglossaries | 229 --------------------- .../doc/latex/glossaries/perl/makeglossaries.bat | 3 - 2 files changed, 232 deletions(-) delete mode 100755 Master/texmf-dist/doc/latex/glossaries/perl/makeglossaries delete mode 100755 Master/texmf-dist/doc/latex/glossaries/perl/makeglossaries.bat 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] \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 () - { - 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" %* -- cgit v1.2.3