summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-check-files-by-format
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tl-check-files-by-format')
-rwxr-xr-xMaster/tlpkg/bin/tl-check-files-by-format49
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