diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 67800fe959c..e5927f358ac 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -787,6 +787,36 @@ sub allbinfiles { return @ret; } +sub make_return_hash_from_executes { + my $self = shift; + my %ret; + my (@maps, @formats, @dats); + if ($self->runfiles) { + $ret{'mktexlsr'} = 1; + } + if ($self->srcfiles) { + $ret{'mktexlsr'} = 1; + } + if ($self->docfiles) { + $ret{'mktexlsr'} = 1; + } + foreach my $e ($self->executes) { + if ($e =~ m/^add((Mixed)?Map)\s+([^\s]+)\s*$/) { + push @maps, "enable $1=$3"; + } elsif ($e =~ m/^BuildFormat\s+([^\s]+)\s*$/) { + push @formats, $1; + } elsif ($e =~ m/^BuildLanguageDat\s+([^\s]+)\s*$/) { + push @dats, $1; + } else { + warn("Unknown execute $e in ", $self->name); + } + } + $ret{'map'} = [ @maps ] if (@maps); + $ret{'format'} = [ @formats ] if (@formats); + $ret{'language'} = [ @dats ] if (@dats); + return(\%ret); +} + # member access functions # |