diff options
author | Norbert Preining <norbert@preining.info> | 2021-05-17 03:02:10 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-05-17 03:02:10 +0000 |
commit | d999da47ff375df843c0c9bbfd5911236dd9d40a (patch) | |
tree | 5db62e278d67073330a7237b273091634eccf365 /systems/texlive/tlnet/tlpkg/TeXLive | |
parent | 2fc2609488764102ce43194e9288b7bd8e25f17f (diff) |
CTAN sync 202105170302
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm | 13 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm | 14 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm | 8 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm | 8 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm | 8 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm | 12 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm | 14 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm | 8 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm | 57 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 85 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm | 18 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm | 36 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/trans.pl | 11 |
13 files changed, 214 insertions, 78 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm index 4a2a125f44..768fc07edb 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm @@ -1,6 +1,6 @@ -# $Id: TLConfFile.pm 44447 2017-06-04 02:03:31Z preining $ +# $Id: TLConfFile.pm 59226 2021-05-16 18:22:05Z karl $ # TeXLive::TLConfFile.pm - reading and writing conf files -# Copyright 2010-2017 Norbert Preining +# Copyright 2010-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -8,7 +8,7 @@ package TeXLive::TLConfFile; use TeXLive::TLUtils; -my $svnrev = '$Revision: 44447 $'; +my $svnrev = '$Revision: 59226 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -559,13 +559,14 @@ __END__ =head1 NAME -C<TeXLive::TLConfFile> -- TeX Live Config File Access Module +C<TeXLive::TLConfFile> -- TeX Live generic configuration files =head1 SYNOPSIS use TeXLive::TLConfFile; - $conffile = TeXLive::TLConfFile->new($file_name, $comment_char, $separator, $type); + my $conffile = TeXLive::TLConfFile->new($file_name, $comment_char, + $separator, $type); $conffile->file; $conffile->cc; $conffile->sep; @@ -706,7 +707,7 @@ After that you can query keys: =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the +distribution (L<https://tug.org/texlive>) and both are licensed under the GNU General Public License Version 2 or later. =cut diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm index dc05afa17f..e24a368a53 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm @@ -1,4 +1,4 @@ -# $Id: TLConfig.pm 59199 2021-05-14 20:38:22Z karl $ +# $Id: TLConfig.pm 59225 2021-05-16 17:41:12Z karl $ # TeXLive::TLConfig.pm - module exporting configuration values # Copyright 2007-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLConfig; -my $svnrev = '$Revision: 59199 $'; +my $svnrev = '$Revision: 59225 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -277,7 +277,7 @@ our $ChecksumExtension = "sha512"; =head1 NAME -C<TeXLive::TLConfig> -- TeX Live Configuration module +C<TeXLive::TLConfig> -- TeX Live configuration parameters =head1 SYNOPSIS @@ -288,13 +288,13 @@ C<TeXLive::TLConfig> -- TeX Live Configuration module The L<TeXLive::TLConfig> module contains definitions of variables configuring all of TeX Live. -=over 4 - -=head1 EXPORTED VARIABLES +=head2 EXPORTED VARIABLES All of the following variables are pulled into the callers namespace, i.e., are declared with C<EXPORT> (and C<EXPORT_OK>). +=over 4 + =item C<@TeXLive::TLConfig::MetaCategories> The list of meta categories, i.e., those categories whose packages only @@ -377,7 +377,7 @@ C<Master/tlpkg/doc/>. =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the +distribution (L<https://tug.org/texlive>) and both are licensed under the GNU General Public License Version 2 or later. =cut diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm index 4a0fb53bfb..7a1829f8c1 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm @@ -1,4 +1,4 @@ -# $Id: TLCrypto.pm 59044 2021-05-01 22:05:56Z karl $ +# $Id: TLCrypto.pm 59224 2021-05-16 16:50:31Z karl $ # TeXLive::TLCrypto.pm - handle checksums and signatures. # Copyright 2016-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -12,7 +12,7 @@ use TeXLive::TLConfig; use TeXLive::TLUtils qw(debug ddebug win32 which platform conv_to_w32_path tlwarn tldie); -my $svnrev = '$Revision: 59044 $'; +my $svnrev = '$Revision: 59224 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -20,7 +20,7 @@ sub module_revision { return $_modulerevision; } =head1 NAME -C<TeXLive::TLCrypto> -- checksums and cryptographic signatures +C<TeXLive::TLCrypto> -- TeX Live checksums and cryptographic signatures =head1 SYNOPSIS @@ -655,7 +655,7 @@ Also the standard modules L<Digest::MD5> and L<Digest::SHA>. =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the +distribution (L<https://tug.org/texlive>) and both are licensed under the GNU General Public License Version 2 or later. =cut diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm index 5d0f8490d1..94c5b38685 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm @@ -1,4 +1,4 @@ -# $Id: TLDownload.pm 57809 2021-02-20 21:55:13Z karl $ +# $Id: TLDownload.pm 59224 2021-05-16 16:50:31Z karl $ # TeXLive::TLDownload.pm - module for abstracting the download modes # Copyright 2009-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -9,7 +9,7 @@ package TeXLive::TLDownload; use TeXLive::TLUtils; use TeXLive::TLConfig; -my $svnrev = '$Revision: 57809 $'; +my $svnrev = '$Revision: 59224 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -173,7 +173,7 @@ __END__ =head1 NAME -C<TeXLive::TLDownload> -- TeX Live Download abstraction module +C<TeXLive::TLDownload> -- TeX Live persistent downloads via LWP =head1 SYNOPSIS @@ -221,7 +221,7 @@ LWP =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the +distribution (L<https://tug.org/texlive>) and both are licensed under the GNU General Public License Version 2 or later. =cut diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm index 8b4ffeae29..ace3bbb360 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm @@ -1,4 +1,4 @@ -# $Id: TLPDB.pm 59098 2021-05-06 20:21:11Z karl $ +# $Id: TLPDB.pm 59225 2021-05-16 17:41:12Z karl $ # TeXLive::TLPDB.pm - tlpdb plain text database files. # Copyright 2007-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLPDB; -my $svnrev = '$Revision: 59098 $'; +my $svnrev = '$Revision: 59225 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -14,7 +14,7 @@ sub module_revision { return $_modulerevision; } =head1 NAME -C<TeXLive::TLPDB> -- A database of TeX Live Packages +C<TeXLive::TLPDB> -- TeX Live Package Database (C<texlive.tlpdb>) module =head1 SYNOPSIS @@ -2981,7 +2981,7 @@ C<Master/tlpkg/doc/>. =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the +distribution (L<https://tug.org/texlive>) and both are licensed under the GNU General Public License Version 2 or later. =cut diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm index cc41b4ea01..61430c98dd 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm @@ -1,4 +1,4 @@ -# $Id: TLPOBJ.pm 59098 2021-05-06 20:21:11Z karl $ +# $Id: TLPOBJ.pm 59226 2021-05-16 18:22:05Z karl $ # TeXLive::TLPOBJ.pm - module for using tlpobj files # Copyright 2007-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLPOBJ; -my $svnrev = '$Revision: 59098 $'; +my $svnrev = '$Revision: 59226 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -1472,18 +1472,18 @@ __END__ =head1 NAME -C<TeXLive::TLPOBJ> -- TeX Live Package Object access module +C<TeXLive::TLPOBJ> -- TeX Live Package Object (C<.tlpobj>) module =head1 SYNOPSIS use TeXLive::TLPOBJ; - my $tlpobj=TeXLive::TLPOBJ->new(name => "foobar"); + my $tlpobj = TeXLive::TLPOBJ->new(name => "foobar"); =head1 DESCRIPTION The L<TeXLive::TLPOBJ> module provide access to TeX Live Package Object -files describing a self-contained package. +(C<.tlpobj>) files, which describe a self-contained TL package. =head1 FILE SPECIFICATION @@ -1851,7 +1851,7 @@ C<tl-update-tlpdb>), the documentation in C<Master/tlpkg/doc/>, etc. =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the +distribution (L<https://tug.org/texlive>) and both are licensed under the GNU General Public License Version 2 or later. =cut diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm index 3a5924d050..6ba65f0fc3 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm @@ -1,6 +1,6 @@ -# $Id: TLPSRC.pm 58463 2021-03-17 01:26:23Z preining $ +# $Id: TLPSRC.pm 59226 2021-05-16 18:22:05Z karl $ # TeXLive::TLPSRC.pm - module for handling tlpsrc files -# Copyright 2007-2020 Norbert Preining +# Copyright 2007-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -12,7 +12,7 @@ use TeXLive::TLUtils; use TeXLive::TLPOBJ; use TeXLive::TLTREE; -my $svnrev = '$Revision: 58463 $'; +my $svnrev = '$Revision: 59226 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -20,7 +20,7 @@ sub module_revision { return $_modulerevision; } =head1 NAME -C<TeXLive::TLPSRC> -- TeX Live Package Source module +C<TeXLive::TLPSRC> -- TeX Live Package Source (C<.tlpsrc>) module =head1 SYNOPSIS @@ -1256,12 +1256,12 @@ The constructor C<new> returns a new C<TLPSRC> object. The arguments to the C<new> constructor can be in the usual hash representation for the different keys above: - $tlpsrc = TLPSRC->new (name => "foobar", - shortdesc => "The foobar package"); + $tlpsrc = TLPSRC->new(name => "foobar", + shortdesc => "The foobar package"); =item C<from_file("filename")> -reads a C<tlpsrc> file from disk. C<filename> can either be a full path +Reads a C<tlpsrc> file from disk. C<filename> can either be a full path (if it's readable, it's used), or just a package identifier such as C<plain>. In the latter case, the directory searched is the C<tlpsrc> sibling of the C<TeXLive> package directory where C<TLPSRC.pm> was found. diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm index 345df5e9a9..548fd87909 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm @@ -1,12 +1,12 @@ -# $Id: TLPaper.pm 56397 2020-09-21 22:46:27Z karl $ +# $Id: TLPaper.pm 59224 2021-05-16 16:50:31Z karl $ # TeXLive::TLPaper.pm - query/modify paper sizes for our various programs -# Copyright 2008-2020 Norbert Preining +# Copyright 2008-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. package TeXLive::TLPaper; -my $svnrev = '$Revision: 56397 $'; +my $svnrev = '$Revision: 59224 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -34,7 +34,7 @@ my $prg = ($::prg ? $::prg : TeXLive::TLUtils::basename($0)); =head1 NAME -C<TeXLive::TLPaper> -- TeX Live paper size setting module +C<TeXLive::TLPaper> -- TeX Live paper size module =head1 SYNOPSIS diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm index 79bc5fdda9..462176c21d 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm @@ -1,15 +1,50 @@ -# $Id: TLTREE.pm 55106 2020-05-11 21:11:50Z karl $ +# $Id: TLTREE.pm 59226 2021-05-16 18:22:05Z karl $ # TeXLive::TLTREE.pm - work with the tree of all files -# Copyright 2007-2020 Norbert Preining +# Copyright 2007-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. package TeXLive::TLTREE; -my $svnrev = '$Revision: 55106 $'; +my $svnrev = '$Revision: 59226 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } +=pod + +=head1 NAME + +C<TeXLive::TLTREE> -- TeX Live tree of all files + +=head1 SYNOPSIS + + use TeXLive::TLTREE; + my $tltree = TeXLive::TLTREE->new(); + + $tltree->init_from_svn(); + $tltree->init_from_statusfile(); + $tltree->init_from_files(); + $tltree->init_from_git(); + $tltree->init_from_gitsvn(); + $tltree->print(); + $tltree->find_alldirs(); + $tltree->print_node(); + $tltree->walk_tree(); + $tltree->add_path_to_tree(); + $tltree->file_svn_lastrevision(); + $tltree->size_of(); + $tltree->get_matching_files(); + $tltree->files_under_path(); + $tltree->svnroot(); + $tltree->revision(); + $tltree->architectures(); + +=head1 DESCRIPTION + +DOCUMENTATION MISSING, SORRY!!! + +=cut + use TeXLive::TLUtils; sub new { @@ -531,8 +566,22 @@ sub architectures { return defined $self->{'archs'} ? @{ $self->{'archs'} } : (); } - 1; +__END__ + +=head1 SEE ALSO + +The modules L<TeXLive::TLPSRC>, L<TeXLive::TLPOBJ>, L<TeXLive::TLPDB>, +L<TeXLive::TLUtils>, etc., and the documentation in the repository: +C<Master/tlpkg/doc/>. + +=head1 AUTHORS AND COPYRIGHT + +This script and its documentation were written for the TeX Live +distribution (L<https://tug.org/texlive>) and both are licensed under the +GNU General Public License Version 2 or later. + +=cut ### Local Variables: ### perl-indent-level: 2 diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm index b2bd5580a8..15e7f8366c 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm @@ -1,4 +1,4 @@ -# $Id: TLUtils.pm 59149 2021-05-09 21:09:44Z preining $ +# $Id: TLUtils.pm 59234 2021-05-16 22:43:42Z karl $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. # Copyright 2007-2021 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 59149 $'; +my $svnrev = '$Revision: 59234 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -14,7 +14,7 @@ sub module_revision { return $_modulerevision; } =head1 NAME -C<TeXLive::TLUtils> - utilities used in TeX Live infrastructure +C<TeXLive::TLUtils> - TeX Live infrastructure miscellany =head1 SYNOPSIS @@ -246,6 +246,12 @@ as argument. The result is stored in a global variable C<$::_platform_>, and subsequent calls just return that value. +As of 2021, C<config.guess> unfortunately requires a shell that +understands the C<$(...)> construct. This means that on old-enough +systems, such as Solaris, we have to look for a shell. We use the value +of the C<CONFIG_SHELL> environment variable if it is set, else +C</bin/ksh> if it exists, else C</bin/bash> if it exists, else give up. + =cut sub platform { @@ -255,12 +261,58 @@ sub platform { } else { my $config_guess = "$::installerdir/tlpkg/installer/config.guess"; + # For example, if the disc or reader has hardware problems. + die "$0: config.guess script does not exist, goodbye: $config_guess" + if ! -r $config_guess; + # We cannot rely on #! in config.guess but have to call /bin/sh # explicitly because sometimes the 'noexec' flag is set in # /etc/fstab for ISO9660 file systems. - chomp (my $guessed_platform = `/bin/sh '$config_guess'`); + # + # In addition, config.guess was (unnecessarily) changed in 2020 by + # to use $(...) instead of `...`, although $(...) is not supported + # by Solaris /bin/sh (and others). The maintainers have declined + # to revert the change, so now every caller of config.guess must + # laboriously find a usable shell. Sigh. + # + my $config_shell = $ENV{"CONFIG_SHELL"} || "/bin/sh"; + # + # check if $(...) is supported: + my $paren_cmdout = `'$config_shell' -c 'echo \$(echo foo)' 2>/dev/null`; + #warn "paren test out: `$paren_cmdout'.\n"; + # + # The echo command might output a newline (maybe CRLF?) even if + # the $(...) fails, so don't just check for non-empty output. + # Maybe checking exit status would be better, but maybe not. + # + if (length ($paren_cmdout) <= 2) { + # if CONFIG_SHELL is set to something bad, give up. + if ($ENV{"CONFIG_SHELL"}) { + die <<END_BAD_CONFIG_SHELL; +$0: the CONFIG_SHELL environment variable is set to $ENV{CONFIG_SHELL} + but this cannot execute \$(...) shell constructs, + which is required. Set CONFIG_SHELL to something that works. +END_BAD_CONFIG_SHELL + + } elsif (-x "/bin/ksh") { + $config_shell = "/bin/ksh"; + + } elsif (-x "/bin/bash") { + $config_shell = "/bin/bash"; - # For example, if the disc or reader has hardware problems. + } else { + die <<END_NO_PAREN_CMDS_SHELL +$0: can't find shell to execute $config_guess + (which gratuitously requires support for \$(...) command substitution). + Tried $config_shell, /bin/ksh, bin/bash. + Set the environment variable CONFIG_SHELL to specify explicitly. +END_NO_PAREN_CMDS_SHELL + } + } + #warn "executing config.guess with $config_shell\n"; + chomp (my $guessed_platform = `'$config_shell' '$config_guess'`); + + # If we didn't get anything usable, give up. die "$0: could not run $config_guess, cannot proceed, sorry" if ! $guessed_platform; @@ -273,18 +325,23 @@ sub platform { =item C<platform_name($canonical_host)> -Convert ORIG_PLATFORM, a canonical host name as returned by -C<config.guess>, into a TeX Live platform name. +Convert the C<$canonical_host> argument, a system description as +returned by C<config.guess>, into a TeX Live platform name, that is, a +name used as a subdirectory of our C<bin/> dir. Our names have the +form CPU-OS, for example, C<x86_64-linux>. -CPU type is determined by a regexp, and any C</^i.86/> name is replaced -by C<i386>. - -For the OS value we need a list because what's returned is not likely to +We need this because what's returned from C<config.,guess> does not match our historical names, e.g., C<config.guess> returns C<linux-gnu> -but we need C<linux>. This list contains old OSs which are no longer -supported, just in case. +but we need C<linux>. + +The C<CPU> part of our name is always taken from the argument, with +various transformation. + +For the C<OS> part, if the environment variable C<TEXLIVE_OS_NAME> is +set, it is used as-is. Otherwise we do our best to figure it out. -If the environment variable TEXLIVE_OS_NAME is set, it is used as-is. +This function still handles old systems which are no longer supported, +just in case. =cut diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm index 1fa5acf76f..0418dc12e0 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm @@ -1,6 +1,6 @@ -# $Id: TLWinGoo.pm 58811 2021-04-10 08:09:15Z siepo $ +# $Id: TLWinGoo.pm 59225 2021-05-16 17:41:12Z karl $ # TeXLive::TLWinGoo.pm - Windows goop. -# Copyright 2008-2018 Siep Kroonenberg, Norbert Preining +# Copyright 2008-2021 Siep Kroonenberg, Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -11,7 +11,7 @@ package TeXLive::TLWinGoo; -my $svnrev = '$Revision: 58811 $'; +my $svnrev = '$Revision: 59225 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -24,7 +24,7 @@ sub module_revision { return $_modulerevision; } =head1 NAME -C<TeXLive::TLWinGoo> -- Additional utilities for Windows +C<TeXLive::TLWinGoo> -- TeX Live Windows-specific support =head2 SYNOPSIS @@ -78,7 +78,7 @@ C<TeXLive::TLWinGoo> -- Additional utilities for Windows All exported functions return forward slashes. -=head2 DESCRIPTION +=head1 DESCRIPTION =over 4 @@ -1318,6 +1318,12 @@ sub unregister_uninstaller { =pod +=back + +=head2 ADMIN + +=over 4 + =item C<TeXLive::TLWinGoo::maybe_make_ro($dir)> Write-protects a directory $dir recursively, using ACLs, but only if @@ -1325,6 +1331,8 @@ we are a multi-user install, and only if $dir is on an NTFS-formatted local fixed disk, and only on Windows Vista and later. It writes a log message what it does and why. +=back + =cut sub maybe_make_ro { diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm index 8d9b31729d..ccf66b1d07 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm @@ -1,6 +1,6 @@ -# $Id: TeXCatalogue.pm 54367 2020-03-16 22:59:15Z preining $ +# $Id: TeXCatalogue.pm 59226 2021-05-16 18:22:05Z karl $ # TeXLive::TeXCatalogue - module for accessing the TeX Catalogue -# Copyright 2007-2020 Norbert Preining +# Copyright 2007-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # @@ -13,7 +13,7 @@ use Text::Unidecode; package TeXLive::TeXCatalogue::Entry; -my $svnrev = '$Revision: 54367 $'; +my $svnrev = '$Revision: 59226 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -21,11 +21,34 @@ sub module_revision { return $_modulerevision; } =head1 NAME -TeXLive::TeXCatalogue - accessing the TeX Catalogue for TeX Live +C<TeXLive::TeXCatalogue> - TeX Live access to the TeX Catalogue from CTAN =head1 SYNOPSIS -missing + use TeXLive::TeXCatalogue; + my $texcat = TeXLive::TLTREE->new(); + + $texcat->initialize(); + $texcat->beautify(); + $texcat->name(); + $texcat->license(); + $texcat->version(); + $texcat->caption(); + $texcat->description(); + $texcat->ctan(); + $texcat->texlive(); + $texcat->miktex(); + $texcat->docs(); + $texcat->entry(); + $texcat->alias(); + $texcat->also(); + $texcat->topics(); + $texcat->contact(); + $texcat->new(); + $texcat->initialize(); + $texcat->quest4texlive(); + $texcat->location(); + $texcat->entries(); =head1 DESCRIPTION @@ -344,7 +367,6 @@ sub entries { 1; __END__ - =head1 SEE ALSO @@ -355,7 +377,7 @@ C<tl-update-tlpdb>), the documentation in C<Master/tlpkg/doc/>, etc. =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the +distribution (L<https://tug.org/texlive>) and both are licensed under the GNU General Public License Version 2 or later. =cut diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl b/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl index 01fd82169f..cad5bea27f 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl +++ b/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl -# $Id: trans.pl 58557 2021-03-20 22:01:24Z siepo $ -# Copyright 2009-2016 Norbert Preining +# $Id: trans.pl 59224 2021-05-16 16:50:31Z karl $ +# Copyright 2009-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # @@ -9,9 +9,9 @@ # if $::lang is unset try to auto-deduce it from LC_MESSAGES/Registry # if $::opt_lang is set use that instead # -# this module implements parsing .po files, but no specialities of .po +# this module implements parsing of .po files, but no specialities of .po # files are supported. Only reading of msgstr and msgid and concatenating -# multiple lines. Furthermore, strings replacements are done: +# multiple lines. Furthermore, string replacements are done: # \n -> <newline> # \" -> " # \\ -> \ @@ -130,7 +130,7 @@ sub load_translations() { tlwarn ("\n Sorry, no translations available for $code (nor $::lang); falling back to English. Make sure that you have the package \"texlive-msg-translations\" installed. (If you'd like to help translate the installer's messages, please see - http://tug.org/texlive/doc.html#install-tl-xlate for information.)\n\n"); + https://tug.org/texlive/doc.html#install-tl-xlate for information.)\n\n"); } else { # merge the translated strings into the text string open(LANG, "<$::installerdir/tlpkg/translations/$::lang.po"); @@ -216,4 +216,3 @@ __END__ ### indent-tabs-mode: nil ### End: # vim:set tabstop=2 expandtab: # - |