support for

	tlmgr list collections
	tlmgr list schemes
	tlmgr list



git-svn-id: svn://tug.org/texlive/trunk@7488 c570f23f-e606-0410-a88d-b1316a301751

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.