Add a check for otf files.

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

1 files changed, 32 insertions, 17 deletions

diff --git a/Master/tlpkg/bin/tl-check-files-by-format b/Master/tlpkg/bin/tl-check-files-by-format
index fefe2f25154..e537b82ef31 100755
--- a/Master/tlpkg/bin/tl-check-files-by-format
+++ b/Master/tlpkg/bin/tl-check-files-by-format
@@ -149,23 +149,27 @@ my $exclude_tfm = { '*base*' => 'texmf-dist/fonts/tfm',
 
 # the value has no meaning here
 my $exclude_vf = { '*base*' => 'texmf-dist/fonts/vf',
-  'public/bgreek' => 1,
-  'public/eco' => 1,
-  'public/epigrafica' => 1,
-  'public/gfsartemisia' => 1,
-  'public/gfscomplutum' => 1,
-  'public/gfsdidot' => 1,
-  'public/gfsneohellenic' => 1,
-  'public/gfsporson' => 1,
-  'public/gfssolomos' => 1,
-  'public/hfoldsty' => 1,
-  'public/kerkis' => 1,
-  'mathdesign/mdbch' => 1,
-  'mathdesign/mdput' => 1,
-  'mathdesign/mdugm' => 1,
-  'public/txfontsb' => 1,
-  'vntex/comicsansvn' => 1,
-  'public/zefonts' => 1,
+  'public/bgreek/' => 1,
+  'public/eco/' => 1,
+  'public/epigrafica/' => 1,
+  'public/gfsartemisia/' => 1,
+  'public/gfscomplutum/' => 1,
+  'public/gfsdidot/' => 1,
+  'public/gfsneohellenic/' => 1,
+  'public/gfsporson/' => 1,
+  'public/gfssolomos/' => 1,
+  'public/hfoldsty/' => 1,
+  'public/kerkis/' => 1,
+  'mathdesign/mdbch/' => 1,
+  'mathdesign/mdput/' => 1,
+  'mathdesign/mdugm/' => 1,
+  'public/txfontsb/' => 1,
+  'vntex/comicsansvn/' => 1,
+  'public/zefonts/' => 1,
+};
+
+# value has no meaning here
+my $exclude_otf = { '*base*' => 'texmf-dist/fonts/opentype',
 };
 
 my $tmpdir = File::Temp::tempdir(CLEANUP => 1);
@@ -187,6 +191,9 @@ sub main
   for my $file (grep { /\.vf$/ } @files) {
     check_vf($file);
   }
+  for my $file (grep { /\.otf$/ } @files) {
+    check_otf($file);
+  }
   return 0;
 }
 
@@ -264,5 +271,13 @@ sub check_vf
   print "Broken vf: $file\n" if -s $errfile;
 }
 
+# check an otf file
+sub check_otf
+{
+  my ($file) = @_;
+  return if defined exclude_value($exclude_otf, $file);
+  my $bad = system("otfinfo --info $tlroot/$file >/dev/null 2>&1");
+  print "Broken otf: $file\n" if $bad;
+}
 
 # vim: sw=2 expandtab