summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPSRC.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2021-03-15 04:22:12 +0000
committerNorbert Preining <preining@logic.at>2021-03-15 04:22:12 +0000
commitfcc25407a0372cb2a6add2fdca6d7f60c9cd4953 (patch)
treed5bfd1de2de3c6d0c71bcd1869a704e5c9914eed /Master/tlpkg/TeXLive/TLPSRC.pm
parent1af8ca464d8780603b0f80dc3e843b689c2107a2 (diff)
infra: allow overriding catalogue data in tlpsrc
git-svn-id: svn://tug.org/texlive/trunk@58384 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm10
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm
index d25f4803135..c3a731fe84b 100644
--- a/Master/tlpkg/TeXLive/TLPSRC.pm
+++ b/Master/tlpkg/TeXLive/TLPSRC.pm
@@ -222,6 +222,9 @@ sub from_file {
} elsif ($line =~ /^tlpsetvar\s+([-_a-zA-Z0-9]+)\s+(.*)$/) {
$tlpvars{$1} = $2;
+ } elsif ($line =~ /^catalogue-(.+)\s*(.*)$/o) {
+ $self->{'cataloguedata'}{$1} = $2 if defined $2;
+
} else {
die "$srcfile:$lineno: unknown tlpsrc directive, fix: $line\n";
}
@@ -335,6 +338,7 @@ sub make_tlpobj {
$tlp->shortdesc($self->{'shortdesc'}) if (defined($self->{'shortdesc'}));
$tlp->longdesc($self->{'longdesc'}) if (defined($self->{'longdesc'}));
$tlp->catalogue($self->{'catalogue'}) if (defined($self->{'catalogue'}));
+ $tlp->cataloguedata(%{$self->{'cataloguedata'}}) if (defined($self->{'cataloguedata'}));
$tlp->executes(@{$self->{'executes'}}) if (defined($self->{'executes'}));
$tlp->postactions(@{$self->{'postactions'}}) if (defined($self->{'postactions'}));
$tlp->depends(@{$self->{'depends'}}) if (defined($self->{'depends'}));
@@ -688,6 +692,12 @@ sub catalogue {
if (@_) { $self->{'catalogue'} = shift }
return $self->{'catalogue'};
}
+sub cataloguedata {
+ my $self = shift;
+ my %ct = @_;
+ if (@_) { $self->{'cataloguedata'} = \%ct }
+ return $self->{'cataloguedata'};
+}
sub srcpatterns {
my $self = shift;
if (@_) { @{ $self->{'srcpatterns'} } = @_ }