summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-06-08 14:57:10 +0000
committerNorbert Preining <preining@logic.at>2009-06-08 14:57:10 +0000
commit95eb7ead780f7de930d678a7ba295b27fa6d587e (patch)
tree6d06b40304d8b7a7c3dabda132d982900c73b7ed /Master/tlpkg/TeXLive/TLPOBJ.pm
parentde09651f8c907cf30b668e414ff9da7b1f232a6e (diff)
rework execute action handling so that it actually works, hopefully
that means that: - handle_ret_hash is renamed to handle_execute_actions - make_ret_hash_from_execute is gone and replaced by TLUtils::announce_execute_actions git-svn-id: svn://tug.org/texlive/trunk@13671 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm41
1 files changed, 0 insertions, 41 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index f86195252ee..10db4ff062a 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -893,47 +893,6 @@ sub allbinfiles {
return @ret;
}
-sub make_return_hash_from_executes {
- my $self = shift;
- my $type = shift;
- if (!defined($type) || (($type ne "enable") && ($type ne "disable"))) {
- die "make_return_hash_from_executes: enable or disable, not type $type";
- }
- 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*$/) {
- if ($type eq "enable") {
- push @maps, "enable $1=$3";
- } else {
- push @maps, "disable $3";
- }
- } elsif ($e =~ m/^AddFormat\s+(.*)\s*$/) {
- push @formats, $1;
- } elsif ($e =~ m/^AddHyphen\s+(.*)\s*$/) {
- push @dats, $1;
- } else {
- tlwarn("Unknown execute $e in ", $self->name, "\n");
- }
- }
- $ret{'map'} = [ @maps ] if (@maps);
- $ret{'format'} = [ @formats ] if (@formats);
- $ret{'language'} = [ @dats ] if (@dats);
- return(\%ret);
-}
-
-
-
-
#
# execute stuff
#