summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-04-18 07:52:03 +0000
committerNorbert Preining <preining@logic.at>2008-04-18 07:52:03 +0000
commit9a4a7c4b5f2c1a7eeec14c44a5d15f067af4f540 (patch)
tree31f5fcbefd2299d6238c9161f402646819323574 /Master
parentb3a3d63d5b05972324be76e51455a595be666a32 (diff)
support for
tlmgr list collections tlmgr list schemes tlmgr list git-svn-id: svn://tug.org/texlive/trunk@7488 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tl-package-manager.pl36
1 files changed, 28 insertions, 8 deletions
diff --git a/Master/texmf/scripts/texlive/tl-package-manager.pl b/Master/texmf/scripts/texlive/tl-package-manager.pl
index 0ace313526f..f3462ca762c 100755
--- a/Master/texmf/scripts/texlive/tl-package-manager.pl
+++ b/Master/texmf/scripts/texlive/tl-package-manager.pl
@@ -11,11 +11,17 @@
# - (?) removal does not remove created format files from TEXMFSYSVAR
# - other features: dependency check?, ...?
# - improve search function
-# - list_archs and add_arch
# - cmd
# default <key> <value>
# sets the options in texlive.tlpdb
# done for location
+# change that????????
+# default show location
+# default show docfiles
+# default show ....
+#
+# default set location ....
+# default set docfiles ....
#
# NOTE:
# We keep the FULL DOCUMENTATION of tlmgr in this file since all options
@@ -217,16 +223,23 @@ if ($action =~ m/^generate$/i) {
exit(0);
} elsif ($action =~ m/^list$/i) {
my $what = shift;
+ $tlmediasrc = TeXLive::TLMedia->new($location);
+ my @whattolist;
if ($what =~ m/^collection/i) {
- # should we list ALL or only the installed ones?
- #foreach ($localtlpdb->collections) {
- # print "$_\n";
- #}
- # list all available collections
+ @whattolist = $tlmediasrc->tlpdb->collections;
} elsif ($what =~ m/^scheme/i) {
- # list all available schemes
+ @whattolist = $tlmediasrc->tlpdb->schemes;
} else {
- # list everything
+ @whattolist = $tlmediasrc->tlpdb->list_packages;
+ }
+ foreach (@whattolist) {
+ if (defined($localtlpdb->get_package($_))) {
+ print "i ";
+ } else {
+ print " ";
+ }
+ my $foo = $tlmediasrc->tlpdb->get_package($_)->shortdesc;
+ print "$_: ", defined($foo) ? $foo : "(shortdesc missing)" , "\n";
}
exit(0);
} elsif ($action =~ m/^install$/i) {
@@ -614,6 +627,13 @@ Search the names and short descriptions of all packages available on
the install media.
+=item B<list [collections|schemes]>
+
+Without argument lists all packages available at the default install
+location, prefixing those already installed with "i ".
+
+With arguments lists only collections or schemes.
+
=item B<uninstall>
Uninstalls the TeX Live installation.