summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-02-09 07:42:52 +0000
committerNorbert Preining <preining@logic.at>2009-02-09 07:42:52 +0000
commitbe8be324bb2b51a0f44d297490ea0ab47ad0381d (patch)
tree476bb1e543e34b5e65432359ecba293de73cb920 /Master
parentcae7f6f90f13cfed35ba468df52ce7aed655ad71 (diff)
make docfile data accessible via the tlmgr show <pkg> --list
git-svn-id: svn://tug.org/texlive/trunk@12124 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl11
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm13
2 files changed, 22 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 149a02a05e6..7affa313114 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -839,7 +839,16 @@ sub action_show {
}
if ($foo->docfiles) {
print "doc files:\n";
- for my $f (sort $foo->docfiles) { print " $f\n"; }
+ for my $f (sort $foo->docfiles) {
+ print " $f";
+ my $dfd = $foo->docfiledata;
+ if (defined($dfd->{$f})) {
+ for my $k (keys %{$dfd->{$f}}) {
+ print " $k=\"", $dfd->{$f}->{$k}, '"';
+ }
+ }
+ print "\n";
+ }
}
# in case we have them
if ($foo->allbinfiles) {
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 91a743bb0d3..75b93883c3d 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -958,6 +958,12 @@ sub remove_docfiles {
my ($self,@files) = @_;
$self->remove_files("doc",@files);
}
+sub docfiledata {
+ my $self = shift;
+ my %newfiles = @_;
+ if (@_) { $self->{'docfiledata'} = \%newfiles }
+ return $self->{'docfiledata'};
+}
sub binfiles {
my $self = shift;
my %newfiles = @_;
@@ -1096,7 +1102,9 @@ But the lines listing the files are allowed to have additional tags:
| texmf-dist/doc/latex/achemso/achemso.pdf details="Package documentation" language="en"
|...
-Currently only the tags C<details> and C<language> are allowed.
+Currently only the tags C<details> and C<language> are allowed. These
+additional information can be accessed via the C<docfiledata> function
+returning a hash with the respective files (including path) as key.
=item C<binfiles>
@@ -1164,6 +1172,9 @@ are lists.
Arguments and return values for C<binfiles> is a hash with the
architectures as keys.
+Arguments and return values for C<docfiledata> is a hash with the
+full file names of docfiles as key, and the value is again a hash.
+
The size values are handled with these functions:
$tlpobj->docsize