diff options
| author | Norbert Preining <preining@logic.at> | 2009-02-09 07:42:52 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-02-09 07:42:52 +0000 |
| commit | be8be324bb2b51a0f44d297490ea0ab47ad0381d (patch) | |
| tree | 476bb1e543e34b5e65432359ecba293de73cb920 /Master/tlpkg | |
| parent | cae7f6f90f13cfed35ba468df52ce7aed655ad71 (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/tlpkg')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 13 |
1 files changed, 12 insertions, 1 deletions
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 |