From 7116eb3c7dd50b9b6a0470aceaa9f6e993d07490 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 15 Nov 2017 22:53:09 +0000 Subject: glossaries (15nov17) git-svn-id: svn://tug.org/texlive/trunk@45821 c570f23f-e606-0410-a88d-b1316a301751 --- .../linked_scripts/glossaries/makeglossaries | 6 +- .../glossaries/makeglossaries-lite.lua | 6 +- .../texk/texlive/linked_scripts/texlive/tlmgr.pl | 97 ++++++++++++++-------- 3 files changed, 70 insertions(+), 39 deletions(-) (limited to 'Build') diff --git a/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries b/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries index 196662c18ce..e40eed5696f 100755 --- a/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries +++ b/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries @@ -2,7 +2,7 @@ # File : makeglossaries # Author : Nicola Talbot -# Version : 4.34 +# Version : 4.35 # Description: simple Perl script that calls makeindex or xindy. # Intended for use with "glossaries.sty" (saves having to remember # all the various switches) @@ -27,9 +27,11 @@ # glossary-super.sty, glossaries.perl. # Also makeglossaries and makeglossaries-lite.lua. -my $version="4.34 (2017-11-03)"; +my $version="4.35 (2017-11-14)"; # History: +# v4.35: +# * No change. # v4.34: # * Added check for \glsxtr@resource # v4.33: diff --git a/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries-lite.lua b/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries-lite.lua index 761383190f2..89561d7e182 100755 --- a/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries-lite.lua +++ b/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries-lite.lua @@ -26,10 +26,12 @@ This work has the LPPL maintenance status `maintained'. History: + * 4.35: + - no change. * 4.34: - added check for \glsxtr@resource * 4.33: - - Version number synchronized with glossaries.sty + - version number synchronized with glossaries.sty * 1.3 - added check for \glsxtr@makeglossaries * 1.2 (2016-05-27) @@ -39,7 +41,7 @@ - changed first line from lua to texlua --]] -thisversion = "4.34 2017-11-03" +thisversion = "4.35 2017-11-14" quiet = false dryrun = false diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl index 1d94540f5c5..e20b80d9a94 100755 --- a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl +++ b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl @@ -1,13 +1,13 @@ #!/usr/bin/env perl -# $Id: tlmgr.pl 45788 2017-11-14 00:49:39Z karl $ +# $Id: tlmgr.pl 45806 2017-11-14 21:16:47Z karl $ # # Copyright 2008-2017 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # -my $svnrev = '$Revision: 45788 $'; -my $datrev = '$Date: 2017-11-14 01:49:39 +0100 (Tue, 14 Nov 2017) $'; +my $svnrev = '$Revision: 45806 $'; +my $datrev = '$Date: 2017-11-14 22:16:47 +0100 (Tue, 14 Nov 2017) $'; my $tlmgrrevision; my $prg; if ($svnrev =~ m/: ([0-9]+) /) { @@ -110,6 +110,8 @@ use TeXLive::TLPaper; # # set up $prg for warning messages $prg = TeXLive::TLUtils::basename($0); +# for usage in various Perl modules +$::prg = $prg; binmode(STDOUT, ":utf8"); binmode(STDERR, ":utf8"); @@ -1242,6 +1244,10 @@ sub action_paper { } else { # tlmgr paper {a4|letter} => do it. return ($F_ERROR) if !check_on_writable(); + if ($opts{'json'}) { + tlwarn("$prg: option --json not supported with other arguments\n"); + return ($F_ERROR); + } my $ret = $F_OK; for my $prog (sort keys %TeXLive::TLPaper::paper) { my $pkg = $TeXLive::TLPaper::paper{$prog}{'pkg'}; @@ -1254,6 +1260,10 @@ sub action_paper { } } else { # program-specific paper + if ($opts{'json'}) { + tlwarn("$prg: option --json not supported with other arguments\n"); + return ($F_ERROR); + } my $prog = $action; # first argument is the program to change my $pkg = $TeXLive::TLPaper::paper{$prog}{'pkg'}; if (!$pkg) { @@ -4392,7 +4402,13 @@ sub action_option { $what = "show" unless defined($what); init_local_db(); my $ret = $F_OK; + my %json; if ($what =~ m/^show$/i) { + if ($opts{'json'}) { + my $json = $localtlpdb->options_as_json(); + print("$json\n"); + return($ret); + } for my $o (sort keys %{$localtlpdb->options}) { # ignore some things which are w32 specific next if ($o eq "desktop_integration" && !win32()); @@ -4414,6 +4430,11 @@ sub action_option { } } } elsif ($what =~ m/^showall$/i) { + if ($opts{'json'}) { + my $json = $localtlpdb->options_as_json(); + print("$json\n"); + return($ret); + } my %loc = %{$localtlpdb->options}; for my $o (sort keys %TLPDBOptions) { if ($::machinereadable) { @@ -4431,7 +4452,7 @@ sub action_option { } my $found = 0; for my $opt (keys %TLPDBOptions) { - if ($what eq $TLPDBOptions{$opt}->[2]) { + if (($what eq $TLPDBOptions{$opt}->[2]) || ($what eq $opt)) { $found = 1; # the option argument matches the name my $val = shift @ARGV; @@ -7833,23 +7854,29 @@ from the local keyring. =over 4 -=item B