summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-06-09 19:01:28 +0000
committerNorbert Preining <preining@logic.at>2009-06-09 19:01:28 +0000
commitcb518f00d6f555ef49f18b12c7c8dcb2576d2956 (patch)
tree2c042c83d3bd899f752810fb0ca48da788485671 /Master/tlpkg/TeXLive/TLPOBJ.pm
parentd6c1b1aca9daa4545cfd8b0a28c99f0d3ed47a4f (diff)
update all depending formats if an engine has been updated
git-svn-id: svn://tug.org/texlive/trunk@13683 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm20
1 files changed, 20 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 10db4ff062a..80ba30d23d9 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -893,6 +893,21 @@ sub allbinfiles {
return @ret;
}
+sub format_definitions {
+ my $self = shift;
+ my @ret;
+ for my $e ($self->executes) {
+ if ($e =~ m/AddFormat\s+(.*)\s*/) {
+ my %r = TeXLive::TLUtils::parse_AddFormat_line("$1");
+ if (defined($r{"error"})) {
+ die "$r{'error'}, package $pkg, execute $e";
+ }
+ push @ret, \%r;
+ }
+ }
+ return @ret;
+}
+
#
# execute stuff
#
@@ -1529,6 +1544,11 @@ returns a list of all files of all types.
returns a list of all binary files.
+=item C<< $tlpobj->format_definitions >>
+
+The function C<format_definitions> returns a list of references to hashes
+where each hash is a format definition.
+
=item C<< $tlpobj->fmtutil_cnf_lines >>
The function C<fmtutil_cnf_lines> returns the lines for fmtutil.cnf