diff options
-rwxr-xr-x | Master/tlpkg/bin/tl-check-files-by-format | 49 |
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 |