summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-check-files-by-format
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-03-03 17:05:41 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-03-03 17:05:41 +0000
commit20dca893fefd4dc232204931715ed79a8858284b (patch)
tree19b26d62f5debd36b3e87b09a42ce86f74e76f69 /Master/tlpkg/bin/tl-check-files-by-format
parent6c6408e021b105d3172097913166ed780c4942b5 (diff)
Add a check for otf files.
git-svn-id: svn://tug.org/texlive/trunk@17305 c570f23f-e606-0410-a88d-b1316a301751
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