diff options
-rwxr-xr-x | Master/texmf/scripts/texlive/tl-package-manager.pl | 36 |
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. |