update all depending formats if an engine has been updated

git-svn-id: svn://tug.org/texlive/trunk@13683 c570f23f-e606-0410-a88d-b1316a301751

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