summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-06-23 18:35:56 +0000
committerNorbert Preining <preining@logic.at>2018-06-23 18:35:56 +0000
commit2f9d63b29f28ba09da82d83158a4c32e558e40c9 (patch)
tree08bf6f508fb0b33ea6d182bdf84b6e6bbab95874
parent286bfc5b6e7354b0184bbb3acc43c7eb0f472f7e (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.pm9
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) {