summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/texlive/tlmgr.pl101
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/vpe/vpe.pl23
-rw-r--r--Master/texmf-dist/doc/latex/vpe/README (renamed from Master/texmf-dist/doc/latex/vpe/vpe.txt)20
-rwxr-xr-xMaster/texmf-dist/scripts/vpe/vpe.pl23
-rw-r--r--Master/texmf-dist/tex/latex/vpe/vpe.sty7
5 files changed, 102 insertions, 72 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
index cbb3071deef..5ea1ff2deb0 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 26004 2012-04-17 04:09:34Z preining $
+# $Id: tlmgr.pl 26026 2012-04-18 05:54:24Z preining $
#
# 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: 26004 $';
-my $datrev = '$Date: 2012-04-17 06:09:34 +0200 (Tue, 17 Apr 2012) $';
+my $svnrev = '$Revision: 26026 $';
+my $datrev = '$Date: 2012-04-18 07:54:24 +0200 (Wed, 18 Apr 2012) $';
my $tlmgrrevision;
if ($svnrev =~ m/: ([0-9]+) /) {
$tlmgrrevision = $1;
@@ -152,7 +152,6 @@ sub main {
"reinstall" => 1,
"force" => 1,
"dry-run|n" => 1 },
- "list" => { "only-installed" => 1 },
"paper" => { "list" => 1 },
"path" => { "w32mode" => "=s" },
"platform" => { "dry-run|n" => 1 },
@@ -177,11 +176,12 @@ sub main {
"characterization" => 1,
"functionality" => 1,
"taxonomy" => 1 },
- "show" => { "list" => 1,
+ "info" => { "list" => 1,
"taxonomy" => 1,
"keyword" => 1,
"characterization" => 1,
- "functionality" => 1 },
+ "functionality" => 1,
+ "only-installed" => 1 },
"dump-tlpdb" => { "local" => 1,
"remote" => 1 },
"uninstall" => { "force" => 1 },
@@ -317,6 +317,11 @@ for the full story.\n";
$action = "paper";
}
+ # backward compatibility with action "show" and "list" from before
+ if ($action =~ /^(show|list)$/) {
+ $action = "info";
+ }
+
# --machine-readable is only supported by update.
if ($::machinereadable &&
$action ne "update" && $action ne "install" && $action ne "option") {
@@ -513,9 +518,6 @@ sub execute_action {
} elsif ($action =~ m/^candidates$/i) {
action_candidates();
finish(0);
- } elsif ($action =~ m/^list$/i) {
- action_list();
- finish(0);
} elsif ($action =~ m/^check$/i) {
action_check();
} elsif ($action =~ m/^install$/i) {
@@ -541,8 +543,8 @@ sub execute_action {
} elsif ($action =~ m/^dump-tlpdb$/i) {
action_dumptlpdb();
finish(0);
- } elsif ($action =~ m/^show$/i) {
- action_show(@ARGV);
+ } elsif ($action =~ m/^info$/i) {
+ action_info(@ARGV);
finish(0);
} elsif ($action =~ m/^remove$/i) {
action_remove();
@@ -1142,9 +1144,9 @@ sub action_dumptlpdb {
return;
}
-# SHOW
+# INFO
#
-sub action_show {
+sub action_info {
init_local_db();
my $taxonomy;
if ($opts{"taxonomy"} || $opts{"characterization"} || $opts{"functionality"}
@@ -1154,7 +1156,20 @@ sub action_show {
tlwarn("tlmgr: Cannot load taxonomy file, showing taxonomies not supported.\n");
}
}
- foreach my $ppp (@_) {
+ my ($what, @todo) = @ARGV;
+ #
+ # tlmgr info
+ # tlmgr info collection
+ # tlmgr info scheme
+ # these commands just list the packages/collections/schemes installed with
+ # a short list
+ if (!defined($what) || ($what =~ m/^(collections|schemes)$/i)) {
+ show_list_of_packages($what);
+ return;
+ }
+ # we are still here, so $what is defined and neither collection nor scheme,
+ # so assume the arguments are package names
+ foreach my $ppp ($what, @todo) {
my ($pkg, $tag) = split '@', $ppp, 2;
my $tlpdb = $localtlpdb;
my $tlp = $localtlpdb->get_package($pkg);
@@ -1206,7 +1221,7 @@ sub action_show {
my ($t,$r) = split(/\//, $a, 2);
push @aaa, "$pkg" . '@' . $t;
}
- action_show(@aaa);
+ action_info(@aaa);
next;
} else {
tlwarn("strange, package listed but no residual candidates: $pkg\n");
@@ -3370,22 +3385,12 @@ sub action_install {
}
}
-sub action_list {
+sub show_list_of_packages {
init_local_db();
# make sure that the @ARGV hash is not changed in case we switch to
# show mode
- my ($what) = @ARGV;
- if ($what) {
- # if the argument to list is either 'collection' or 'scheme'
- # we list them, otherwise we go direct into tlmgr show $pkg mode
- if ($what !~ m/^(collection|scheme)/i) {
- tlwarn("(switching to show mode)\n");
- action_show(@ARGV);
- return;
- }
- } else {
- $what = "";
- }
+ my ($what) = @_;
+ $what = "" if !$what;
my $tlm;
if ($opts{"only-installed"}) {
$tlm = $localtlpdb;
@@ -3394,9 +3399,9 @@ sub action_list {
$tlm = $remotetlpdb;
}
my @whattolist;
- if ($what =~ m/^collection/i) {
+ if ($what =~ m/^collections/i) {
@whattolist = $tlm->collections;
- } elsif ($what =~ m/^scheme/i) {
+ } elsif ($what =~ m/^schemes/i) {
@whattolist = $tlm->schemes;
} else {
if ($tlm->is_virtual) {
@@ -6357,9 +6362,16 @@ Search for package names, descriptions, and taxonomies, but not files.
=back
-=head2 show [I<options>] I<pkg>...
+=head2 info [I<options>] [collections|schemes|I<pkg>...]
+
+With no argument, lists all packages available at the package
+repository, prefixing those already installed with C<i>.
+
+With the single word C<collections> or C<schemes> as the argument, lists
+the request type instead of all packages.
-Display information about I<pkg>: the name, category, short and long
+With anything else as arguments,
+display information about I<pkg>: the name, category, short and long
description, installation status, and TeX Live revision number.
Searches in the remote installation source for the package if it is not
locally installed.
@@ -6370,6 +6382,9 @@ package version, approximations only, due to timing skew of the updates
of the difference pieces. The C<revision> value, by contrast, comes
directly from TL and is reliable.
+The former actions B<show> and B<list> are merged into this action,
+but are still supported for backward compatibility.
+
Options:
=over 4
@@ -6381,6 +6396,13 @@ files is also shown, including those for platform-specific dependencies.
When given with schemes and collections, C<--list> outputs their
dependencies in a similar way.
+=item B<--only-installed>
+
+If this options is given, the installation source will
+not be used; only locally installed packages, collections, or schemes
+are listed.
+(Does not work for listing of packages for now)
+
=item B<--taxonomy>
=item B<--keyword>
@@ -6396,21 +6418,6 @@ L</"TAXONOMIES"> below for details.
=back
-=head2 list [--only-installed] [collections|schemes|I<pkg>...]
-
-With no argument, lists all packages available at the package
-repository, prefixing those already installed with C<i>.
-
-With the single word C<collections> or C<schemes> as the argument, lists
-the request type.
-
-With anything else as arguments, operates as the C<show> action.
-
-If the option C<--only-installed> is given, the installation source will
-not be used; only locally installed packages, collections, or schemes
-are listed.
-
-
=head2 dump-tlpdb [--local|--remote]
Dump complete local or remote TLPDB to standard output, as-is. The
diff --git a/Build/source/texk/texlive/linked_scripts/vpe/vpe.pl b/Build/source/texk/texlive/linked_scripts/vpe/vpe.pl
index 9eb52b69e3c..ba93d8c4d75 100755
--- a/Build/source/texk/texlive/linked_scripts/vpe/vpe.pl
+++ b/Build/source/texk/texlive/linked_scripts/vpe/vpe.pl
@@ -4,7 +4,7 @@ use strict;
#
# vpe.pl
#
-# Copyright (C) 2000 Heiko Oberdiek.
+# Copyright (C) 2000, 2012 Heiko Oberdiek.
#
# This program may be distributed and/or modified under the
# conditions of the LaTeX Project Public License, either version 1.2
@@ -19,15 +19,17 @@ use strict;
# This file "vpe.pl" may be renamed to "vpe"
# for installation purposes.
#
-my $file = "vpe.pl";
+my $prj = 'vpe';
+my $file = "$prj.pl";
my $program = uc($&) if $file =~ /^\w+/;
-my $version = "0.1";
-my $date = "2000/09/15";
+my $version = "0.2";
+my $date = "2012/04/18";
my $author = "Heiko Oberdiek";
-my $copyright = "Copyright (c) 2000 by $author.";
+my $copyright = "Copyright (c) 2000, 2012 by $author.";
#
# History:
# 2000/09/15 v0.1: First release.
+# 2012/04/18 v0.2: Option --version added.
#
### program identification
@@ -68,8 +70,9 @@ Depending on the name of the script `vpe' works in four modes:
this file at that line number.
Options:
- --help: print usage.
- --verbose: print additional informations during running.
+ --help: print usage
+ --version print version number
+ --verbose: print additional informations during running
--force: force symbol links
--delete: delete symbol links
--sty: internal for `vpe.sty' (get absolute file name and lines)
@@ -80,6 +83,7 @@ END_OF_USAGE
### options
$::opt_verbose = 0;
$::opt_help = 0;
+$::opt_version = 0;
$::opt_force = 0;
$::opt_delete = 0;
$::opt_sty = 0;
@@ -88,6 +92,7 @@ $::opt_progname = "latex";
use Getopt::Long;
GetOptions(
"help!",
+ "version!",
"verbose!",
"force!",
"delete!",
@@ -98,6 +103,10 @@ GetOptions(
if ($::opt_help) {
die $usage;
}
+if ($::opt_version) {
+ print "$prj $date v$version\n";
+ exit(0);
+}
if ($::opt_sty and $::opt_system) {
die "$usage" .
diff --git a/Master/texmf-dist/doc/latex/vpe/vpe.txt b/Master/texmf-dist/doc/latex/vpe/README
index 729c80a84b0..9ac6edf8fd8 100644
--- a/Master/texmf-dist/doc/latex/vpe/vpe.txt
+++ b/Master/texmf-dist/doc/latex/vpe/README
@@ -1,4 +1,4 @@
-readme.txt (2005/11/28) for project vpe 2000/09/15 v0.1
+README for project vpe 2012/04/18 v0.2
TABLE OF CONTENTS
=================
@@ -53,7 +53,7 @@ The project supports three routes to pdf files:
B. COPYRIGHT, DISCLAIMER, LIZENZ
================================
-Copyright (C) 1999, 2000 Heiko Oberdiek.
+Copyright (C) 1999, 2000, 2012 Heiko Oberdiek.
This program may be distributed and/or modified under the
conditions of the LaTeX Project Public License, either version 1.2
@@ -70,7 +70,7 @@ The project `vpe' consists of three files:
vpe(.pl): Perl script, used by all routes. The extension `.pl'
may be omitted for installation purposes.
vpe.sty: LaTeX2e package for pdftex and dvips routes.
-vpe.txt: Documentation, the file you are reading.
+README: Documentation, the file you are reading.
Help and temporary files, generated by use:
myfile.tex.vpe: Symbol link from source file `myfile.tex'
@@ -128,8 +128,8 @@ E. INSTALLATION
#!perl.exe (versions below 4)
hbperl.exe (version 4)
http://www.perl.com/CPAN/authors/id/JDALLMAN/hbp_403.zip
- Move thumbpdf.pl in a PERLLIB directory and copy the
- exe program to `thumbpdf.exe'. Then the program looks
+ Move vpe.pl in a PERLLIB directory and copy the
+ exe program to `vpe.exe'. Then the program looks
for the perl interpreter, the script and calls them.
Advantage: I/O redirection works.
c) Windows NT 4.0 users can use associated file types:
@@ -424,7 +424,7 @@ Examples (spaces only for clarifying):
I. AUTHOR
=========
Heiko Oberdiek
-Email: oberdiek@uni-freiburg.de
+Email: heiko.oberdiek at googlemail.com
J. QUESTIONS, BUG REPORTS
=========================
@@ -459,7 +459,7 @@ Regarding bug reports I have some wishes:
* Many programs know options like:
--version, -v, -help, -h, -?
-My environment for developing and testing:
+My environment for developing and testing (2000):
* linux, debian 2.0
* perl 5.004_04
* VTeX/Linux: 7.06
@@ -470,5 +470,9 @@ My environment for developing and testing:
K. HISTORY
==========
-2000/09/15 v0.1 first release
+2000/09/15 v0.1: First release
2005/11/28 (X)emacs section from Uwe Brauer
+2012/04/18 v0.2:
+ * Option --version added.
+ * `vpe.txt' renamed to `README'.
+ * Email address updated.
diff --git a/Master/texmf-dist/scripts/vpe/vpe.pl b/Master/texmf-dist/scripts/vpe/vpe.pl
index 9eb52b69e3c..ba93d8c4d75 100755
--- a/Master/texmf-dist/scripts/vpe/vpe.pl
+++ b/Master/texmf-dist/scripts/vpe/vpe.pl
@@ -4,7 +4,7 @@ use strict;
#
# vpe.pl
#
-# Copyright (C) 2000 Heiko Oberdiek.
+# Copyright (C) 2000, 2012 Heiko Oberdiek.
#
# This program may be distributed and/or modified under the
# conditions of the LaTeX Project Public License, either version 1.2
@@ -19,15 +19,17 @@ use strict;
# This file "vpe.pl" may be renamed to "vpe"
# for installation purposes.
#
-my $file = "vpe.pl";
+my $prj = 'vpe';
+my $file = "$prj.pl";
my $program = uc($&) if $file =~ /^\w+/;
-my $version = "0.1";
-my $date = "2000/09/15";
+my $version = "0.2";
+my $date = "2012/04/18";
my $author = "Heiko Oberdiek";
-my $copyright = "Copyright (c) 2000 by $author.";
+my $copyright = "Copyright (c) 2000, 2012 by $author.";
#
# History:
# 2000/09/15 v0.1: First release.
+# 2012/04/18 v0.2: Option --version added.
#
### program identification
@@ -68,8 +70,9 @@ Depending on the name of the script `vpe' works in four modes:
this file at that line number.
Options:
- --help: print usage.
- --verbose: print additional informations during running.
+ --help: print usage
+ --version print version number
+ --verbose: print additional informations during running
--force: force symbol links
--delete: delete symbol links
--sty: internal for `vpe.sty' (get absolute file name and lines)
@@ -80,6 +83,7 @@ END_OF_USAGE
### options
$::opt_verbose = 0;
$::opt_help = 0;
+$::opt_version = 0;
$::opt_force = 0;
$::opt_delete = 0;
$::opt_sty = 0;
@@ -88,6 +92,7 @@ $::opt_progname = "latex";
use Getopt::Long;
GetOptions(
"help!",
+ "version!",
"verbose!",
"force!",
"delete!",
@@ -98,6 +103,10 @@ GetOptions(
if ($::opt_help) {
die $usage;
}
+if ($::opt_version) {
+ print "$prj $date v$version\n";
+ exit(0);
+}
if ($::opt_sty and $::opt_system) {
die "$usage" .
diff --git a/Master/texmf-dist/tex/latex/vpe/vpe.sty b/Master/texmf-dist/tex/latex/vpe/vpe.sty
index 0271ce64df6..78022b22c9f 100644
--- a/Master/texmf-dist/tex/latex/vpe/vpe.sty
+++ b/Master/texmf-dist/tex/latex/vpe/vpe.sty
@@ -1,11 +1,11 @@
% File: vpe.sty
% Project: vpe
-% Version: 2000/09/15 v0.1
+% Version: 2012/04/18 v0.2
% Author: Heiko Oberdiek
%
% Function: Source specials for pdf files.
%
-% Copyright: Copyright (C) 2000 Heiko Oberdiek.
+% Copyright: Copyright (C) 2000, 2012 Heiko Oberdiek.
%
% This program may be distributed and/or modified under
% the conditions of the LaTeX Project Public License,
@@ -27,12 +27,13 @@
% See file `vpe.txt' for further documentation.
%
% History: 2000/09/15 v0.1: first public release
+% 2012/04/18 v0.2
%
% \vpe@ is the prefix for internal command names.
%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{vpe}%
-[2000/09/15 v0.1 Source specials for pdf files (HO)]
+[2012/04/18 v0.2 Source specials for pdf files (HO)]
\RequirePackage{keyval}