diff options
author | Karl Berry <karl@freefriends.org> | 2012-06-01 00:21:05 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-06-01 00:21:05 +0000 |
commit | b854b03453eb2704a5ba2fc102538c5a28d1e089 (patch) | |
tree | 45f35b3d1734c5044f67b3c717d5d6d592d1918e /Build/source | |
parent | fcf2244919c5f0d95df1061c6678448c5cc83bbc (diff) |
consistency/doc
git-svn-id: svn://tug.org/texlive/trunk@26755 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
-rw-r--r-- | Build/source/texk/tests/TeXLive/TLUtils.pm | 59 | ||||
-rwxr-xr-x | Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl | 82 | ||||
-rw-r--r-- | Build/source/utils/biber/TeXLive/TLUtils.pm | 59 |
3 files changed, 86 insertions, 114 deletions
diff --git a/Build/source/texk/tests/TeXLive/TLUtils.pm b/Build/source/texk/tests/TeXLive/TLUtils.pm index da15f2f8a48..7d3a7fcf6ec 100644 --- a/Build/source/texk/tests/TeXLive/TLUtils.pm +++ b/Build/source/texk/tests/TeXLive/TLUtils.pm @@ -1,4 +1,3 @@ -# $Id: TLUtils.pm 26615 2012-05-24 00:39:35Z karl $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. # Copyright 2007-2012 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 @@ -6,7 +5,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 26615 $'; +my $svnrev = '$Revision: 26663 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -313,7 +312,7 @@ sub platform_desc { 'alpha-linux' => 'DEC Alpha with GNU/Linux', 'alphaev5-osf' => 'DEC Alphaev5 OSF', 'amd64-freebsd' => 'x86_64 with FreeBSD', - 'amd64-kfreebsd' => 'x86_64 with GNU/FreeBSD', + 'amd64-kfreebsd' => 'x86_64 with GNU/kFreeBSD', 'armel-linux' => 'ARM with GNU/Linux', 'hppa-hpux' => 'HP-UX', 'i386-cygwin' => 'Intel x86 with Cygwin', @@ -357,9 +356,8 @@ currently based on the value of Perl's C<$^O> variable. =cut -sub win32 -{ - if ($^O=~/^MSWin(32|64)$/i) { +sub win32 { + if ($^O =~ /^MSWin/i) { return 1; } else { return 0; @@ -478,8 +476,7 @@ C<chdir($dir)> or die. =cut -sub xchdir -{ +sub xchdir { my ($dir) = @_; chdir($dir) || die "$0: chdir($dir) failed: $!"; ddebug("xchdir($dir) ok\n"); @@ -492,8 +489,7 @@ Run C<system(@args)> and die if unsuccessful. =cut -sub xsystem -{ +sub xsystem { my (@args) = @_; ddebug("running system(@args)\n"); my $retval = system(@args); @@ -880,8 +876,7 @@ that is a fatal error. =cut -sub copy -{ +sub copy { my $infile = shift; my $filemode = 0; if ($infile eq "-f") { # second argument is a file @@ -1001,8 +996,7 @@ C</absolute/path/to/dir1>. =cut -sub collapse_dirs -{ +sub collapse_dirs { my (@files) = @_; my @ret = (); my %by_dir; @@ -1071,8 +1065,7 @@ returns all the directories from which all content will be removed # case put that directory into the removal list # - return this removal list # -sub removed_dirs -{ +sub removed_dirs { my (@files) = @_; my %removed_dirs; my %by_dir; @@ -2224,8 +2217,7 @@ Returns 1 if different, 0 if the same. =cut -sub tlcmp -{ +sub tlcmp { my ($filea, $fileb) = @_; if (!defined($fileb)) { die <<END_USAGE; @@ -2241,11 +2233,14 @@ END_USAGE } -# Return contents of FNAME as a string, converting all of CR, LF, and -# CRLF to just LF. -# -sub read_file_ignore_cr -{ +=item C<read_file_ignore_cr($file)> + +Return contents of FILE as a string, converting all of CR, LF, and +CRLF to just LF. + +=cut + +sub read_file_ignore_cr { my ($fname) = @_; my $ret = ""; @@ -2501,8 +2496,7 @@ sub download_file { return($ret); } -sub _download_file -{ +sub _download_file { my ($url, $dest, $wgetdefault) = @_; if (win32()) { $dest =~ s!/!\\!g; @@ -3189,8 +3183,7 @@ If HASH is a reference, it is followed. =cut -sub debug_hash -{ +sub debug_hash { my ($label) = shift; my (%hash) = (ref $_[0] && $_[0] =~ /.*HASH.*/) ? %{$_[0]} : @_; @@ -3385,8 +3378,7 @@ and the program has to be C<wget> since we parse the output. =cut -sub query_ctan_mirror -{ +sub query_ctan_mirror { my $wget = $::progs{'wget'}; if (!defined ($wget)) { tlwarn("query_ctan_mirror: Programs not set up, trying wget\n"); @@ -3441,8 +3433,7 @@ Check if MIRROR is functional. =cut -sub check_on_working_mirror -{ +sub check_on_working_mirror { my $mirror = shift; my $wget = $::progs{'wget'}; @@ -3479,8 +3470,7 @@ sub check_on_working_mirror =cut -sub give_ctan_mirror_base -{ +sub give_ctan_mirror_base { my @backbone = qw!http://www.ctan.org/tex-archive http://www.tex.ac.uk/tex-archive http://dante.ctan.org/tex-archive!; @@ -3523,8 +3513,7 @@ sub give_ctan_mirror_base } -sub give_ctan_mirror -{ +sub give_ctan_mirror { return (give_ctan_mirror_base(@_) . "/$TeXLiveServerPath"); } diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl index 45a4fdfe882..e55f0961d11 100755 --- a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl +++ b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl @@ -1,12 +1,12 @@ #!/usr/bin/env perl -# $Id: tlmgr.pl 26636 2012-05-24 18:02:00Z karl $ +# $Id: tlmgr.pl 26744 2012-05-31 19:48:49Z karl $ # # Copyright 2008, 2009, 2010, 2011, 2012 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. -my $svnrev = '$Revision: 26636 $'; -my $datrev = '$Date: 2012-05-24 20:02:00 +0200 (Thu, 24 May 2012) $'; +my $svnrev = '$Revision: 26744 $'; +my $datrev = '$Date: 2012-05-31 21:48:49 +0200 (Thu, 31 May 2012) $'; my $tlmgrrevision; my $prg; if ($svnrev =~ m/: ([0-9]+) /) { @@ -5670,17 +5670,19 @@ example, running starts you directly at the update screen. Without any action, the GUI will be started at the main screen. +=for comment Keep language list in sync with install-tl. + =item B<--gui-lang> I<llcode> -Normally the GUI tries to deduce your language from the environment (on -Windows via the registry, on Unix via C<LC_MESSAGES>). If that fails you -can select a different language by giving this option with a language -code (based on ISO 639-1). Currently supported (but not necessarily -completely translated) are: English (en, default), Czech (cs), German -(de), French (fr), Italian (it), Japanese (ja), Dutch (nl), Polish (pl), -Brazilian Portuguese (pt_br), Russian (ru), Slovak (sk), Slovenian (sl), -Serbian (sr), Vietnamese (vi), simplified Chinese (zh-cn), and -traditional Chinese (zh-tw). +By default, the GUI tries to deduce your language from the environment +(on Windows via the registry, on Unix via C<LC_MESSAGES>). If that fails +you can select a different language by giving this option with a +language code (based on ISO 639-1). Currently supported (but not +necessarily completely translated) are: English (en, default), Czech +(cs), German (de), French (fr), Italian (it), Japanese (ja), Dutch (nl), +Polish (pl), Brazilian Portuguese (pt_br), Russian (ru), Slovak (sk), +Slovenian (sl), Serbian (sr), Vietnamese (vi), simplified Chinese +(zh-cn), and traditional Chinese (zh-tw). =item B<--machine-readable> @@ -6628,40 +6630,34 @@ Do not ask for confirmation, remove immediately. =item B<generate fmtutil> -=item B<generate updmap> - =back The C<generate> action overwrites any manual changes made in the respective files: it recreates them from scratch based on the information of the installed packages, plus local adaptions. - The TeX Live installer and C<tlmgr> routinely call C<generate> for all of these files. -For managing your own fonts, please see the documentation of -updmap, which supports multiple updmap.cfg files. So by simply -editing TEXMFLOCAL's updmap.cfg they will be accounted for. - -In any case, C<tlmgr> updates and maintains C<updmap.cfg> in -C<TEXMFDIST> (while the other generated files are in -C<TEXMFSYSVAR>), because that is the location where the fonts -are installed. +For managing your own fonts, please read the C<updmap --help> +information and/or L<http://tug.org/fonts/fontinstall.html>. -In more detail: C<generate> remakes any of the five config files -C<language.dat>, C<language.def>, C<language.dat.lua>, C<fmtutil.cnf>, -and C<updmap.cfg> from the information present in the local TLPDB, plus +In more detail: C<generate> remakes any of the configuration files +C<language.dat>, C<language.def>, C<language.dat.lua>, and +C<fmtutil.cnf>, from the information present in the local TLPDB, plus locally-maintained files. The locally-maintained files are C<language-local.dat>, -C<language-local.def>, C<language-local.dat.lua>, or C<fmtutil-local.cnf>, -searched for in C<TEXMFLOCAL> in the respective directories. -The formerly supported C<updmap-local.cfg> is not supported anymore, -since C<updmap> now supports multiple updmap.cfg files, so local -additions can be put into an updmap.cfg file in TEXMFLOCAL. -If local additions are present, the final file is made by starting -with the main file, omitting any entries that the local file specifies -to be disabled, and finally appending the local file. +C<language-local.def>, C<language-local.dat.lua>, or +C<fmtutil-local.cnf>, searched for in C<TEXMFLOCAL> in the respective +directories. If local additions are present, the final file is made by +starting with the main file, omitting any entries that the local file +specifies to be disabled, and finally appending the local file. + +(Historical note: The formerly supported C<updmap-local.cfg> is no longer +read, since C<updmap> now supports multiple C<updmap.cfg> files. Thus, +local additions can and should be put into an C<updmap.cfg> file in +C<TEXMFLOCAL>. Although C<generate updmap> still exists, it is only +called internally by C<tlmgr> and should not be invoked otherwise.) Local files specify entries to be disabled with a comment line, namely one of these: @@ -6697,14 +6693,13 @@ Options: =item B<--dest> I<output_file> specifies the output file (defaults to the respective location in -C<TEXMFSYSVAR> for C<language*> and C<fmtutil>, and C<TEXMFSYSDIST> -for C<updmap>). If C<--dest> is given to C<generate language>, it serves -as a basename onto which C<.dat> will be appended for the name of the -C<language.dat> output file, C<.def> will be -appended to the value for the name of the C<language.def> output file, -and C<.dat.lua> to the name of the C<language.dat.lua> file. (This is -just to avoid overwriting; if you want a specific name for each output -file, we recommend invoking C<tlmgr> twice.) +C<TEXMFSYSVAR>). If C<--dest> is given to C<generate language>, it +serves as a basename onto which C<.dat> will be appended for the name of +the C<language.dat> output file, C<.def> will be appended to the value +for the name of the C<language.def> output file, and C<.dat.lua> to the +name of the C<language.dat.lua> file. (This is just to avoid +overwriting; if you want a specific name for each output file, we +recommend invoking C<tlmgr> twice.) =item B<--localcfg> I<local_conf_file> @@ -6714,7 +6709,7 @@ location in C<TEXMFLOCAL>). =item B<--rebuild-sys> tells tlmgr to run necessary programs after config files have been -regenerated. These are: C<updmap-sys> after C<generate updmap>, +regenerated. These are: C<fmtutil-sys --all> after C<generate fmtutil>, C<fmtutil-sys --byhyphen .../language.dat> after C<generate language.dat>, and @@ -6733,7 +6728,6 @@ The respective locations are as follows: tex/generic/config/language.def (and language-local.def); tex/generic/config/language.dat.lua (and language-local.dat.lua); web2c/fmtutil.cnf (and fmtutil-local.cnf); - web2c/updmap.cfg (and updmap-local.cfg). =head1 TLMGR CONFIGURATION FILE diff --git a/Build/source/utils/biber/TeXLive/TLUtils.pm b/Build/source/utils/biber/TeXLive/TLUtils.pm index da15f2f8a48..7d3a7fcf6ec 100644 --- a/Build/source/utils/biber/TeXLive/TLUtils.pm +++ b/Build/source/utils/biber/TeXLive/TLUtils.pm @@ -1,4 +1,3 @@ -# $Id: TLUtils.pm 26615 2012-05-24 00:39:35Z karl $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. # Copyright 2007-2012 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 @@ -6,7 +5,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 26615 $'; +my $svnrev = '$Revision: 26663 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -313,7 +312,7 @@ sub platform_desc { 'alpha-linux' => 'DEC Alpha with GNU/Linux', 'alphaev5-osf' => 'DEC Alphaev5 OSF', 'amd64-freebsd' => 'x86_64 with FreeBSD', - 'amd64-kfreebsd' => 'x86_64 with GNU/FreeBSD', + 'amd64-kfreebsd' => 'x86_64 with GNU/kFreeBSD', 'armel-linux' => 'ARM with GNU/Linux', 'hppa-hpux' => 'HP-UX', 'i386-cygwin' => 'Intel x86 with Cygwin', @@ -357,9 +356,8 @@ currently based on the value of Perl's C<$^O> variable. =cut -sub win32 -{ - if ($^O=~/^MSWin(32|64)$/i) { +sub win32 { + if ($^O =~ /^MSWin/i) { return 1; } else { return 0; @@ -478,8 +476,7 @@ C<chdir($dir)> or die. =cut -sub xchdir -{ +sub xchdir { my ($dir) = @_; chdir($dir) || die "$0: chdir($dir) failed: $!"; ddebug("xchdir($dir) ok\n"); @@ -492,8 +489,7 @@ Run C<system(@args)> and die if unsuccessful. =cut -sub xsystem -{ +sub xsystem { my (@args) = @_; ddebug("running system(@args)\n"); my $retval = system(@args); @@ -880,8 +876,7 @@ that is a fatal error. =cut -sub copy -{ +sub copy { my $infile = shift; my $filemode = 0; if ($infile eq "-f") { # second argument is a file @@ -1001,8 +996,7 @@ C</absolute/path/to/dir1>. =cut -sub collapse_dirs -{ +sub collapse_dirs { my (@files) = @_; my @ret = (); my %by_dir; @@ -1071,8 +1065,7 @@ returns all the directories from which all content will be removed # case put that directory into the removal list # - return this removal list # -sub removed_dirs -{ +sub removed_dirs { my (@files) = @_; my %removed_dirs; my %by_dir; @@ -2224,8 +2217,7 @@ Returns 1 if different, 0 if the same. =cut -sub tlcmp -{ +sub tlcmp { my ($filea, $fileb) = @_; if (!defined($fileb)) { die <<END_USAGE; @@ -2241,11 +2233,14 @@ END_USAGE } -# Return contents of FNAME as a string, converting all of CR, LF, and -# CRLF to just LF. -# -sub read_file_ignore_cr -{ +=item C<read_file_ignore_cr($file)> + +Return contents of FILE as a string, converting all of CR, LF, and +CRLF to just LF. + +=cut + +sub read_file_ignore_cr { my ($fname) = @_; my $ret = ""; @@ -2501,8 +2496,7 @@ sub download_file { return($ret); } -sub _download_file -{ +sub _download_file { my ($url, $dest, $wgetdefault) = @_; if (win32()) { $dest =~ s!/!\\!g; @@ -3189,8 +3183,7 @@ If HASH is a reference, it is followed. =cut -sub debug_hash -{ +sub debug_hash { my ($label) = shift; my (%hash) = (ref $_[0] && $_[0] =~ /.*HASH.*/) ? %{$_[0]} : @_; @@ -3385,8 +3378,7 @@ and the program has to be C<wget> since we parse the output. =cut -sub query_ctan_mirror -{ +sub query_ctan_mirror { my $wget = $::progs{'wget'}; if (!defined ($wget)) { tlwarn("query_ctan_mirror: Programs not set up, trying wget\n"); @@ -3441,8 +3433,7 @@ Check if MIRROR is functional. =cut -sub check_on_working_mirror -{ +sub check_on_working_mirror { my $mirror = shift; my $wget = $::progs{'wget'}; @@ -3479,8 +3470,7 @@ sub check_on_working_mirror =cut -sub give_ctan_mirror_base -{ +sub give_ctan_mirror_base { my @backbone = qw!http://www.ctan.org/tex-archive http://www.tex.ac.uk/tex-archive http://dante.ctan.org/tex-archive!; @@ -3523,8 +3513,7 @@ sub give_ctan_mirror_base } -sub give_ctan_mirror -{ +sub give_ctan_mirror { return (give_ctan_mirror_base(@_) . "/$TeXLiveServerPath"); } |