diff options
| author | Norbert Preining <preining@logic.at> | 2018-06-23 18:35:56 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2018-06-23 18:35:56 +0000 |
| commit | 2f9d63b29f28ba09da82d83158a4c32e558e40c9 (patch) | |
| tree | 08bf6f508fb0b33ea6d182bdf84b6e6bbab95874 | |
| parent | 286bfc5b6e7354b0184bbb3acc43c7eb0f472f7e (diff) | |
TeXCatalogue parser: support alias (use id)
git-svn-id: svn://tug.org/texlive/trunk@48075 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TeXCatalogue.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm index 99ebb773452..32423f530ea 100644 --- a/Master/tlpkg/TeXLive/TeXCatalogue.pm +++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm @@ -1,6 +1,6 @@ # $Id$ # TeXLive::TeXCatalogue - module for accessing the TeX Catalogue -# Copyright 2007-2015 Norbert Preining +# Copyright 2007-2018 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # @@ -47,6 +47,7 @@ sub new { version => $params{'version'}, also => defined($params{'also'}) ? $params{'also'} : [], topic => defined($params{'topic'}) ? $params{'topic'} : [], + alias => defined($params{'alias'}) ? $params{'alias'} : [], }; bless $self, $class; if (defined($self->{'ioref'})) { @@ -77,6 +78,12 @@ sub initialize { if ($parser->findvalue('/entry/miktex/@location') ne "") { $self->{'miktex'} = $parser->findvalue('/entry/miktex/@location')->value(); } + # parse all alias entries + my $alset = $parser->find('/entry/alias'); + for my $node ($alset->get_nodelist) { + my $id = $parser->find('./@id', $node); + push @{$self->{'alias'}}, "$id"; + } # parse the documentation entries my $docset = $parser->find('/entry/documentation'); foreach my $node ($docset->get_nodelist) { |