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 12:22:05 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-03-03 12:22:05 +0000
commit2f20081e4ec1f4d0478285bec99f8b3350f6f7ad (patch)
tree7aa6cc911ea5d4b83d5a3c4b3a1bcb256da31895 /Master/tlpkg/bin/tl-check-files-by-format
parentbd731abde1a0daa3ef8b5c3be0eaee8500e66eff (diff)
Also check tfm files.
git-svn-id: svn://tug.org/texlive/trunk@17301 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-format32
1 files changed, 29 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/tl-check-files-by-format b/Master/tlpkg/bin/tl-check-files-by-format
index 1e83a3bf582..ef69066001e 100755
--- a/Master/tlpkg/bin/tl-check-files-by-format
+++ b/Master/tlpkg/bin/tl-check-files-by-format
@@ -3,7 +3,7 @@
#
# Check that files in various formats are in good shape.
#
-# The following formats are checked currenly: pdf, pfb.
+# The following formats are checked currenly: pdf, pfb, tfm.
#
# For each format, there is one routine &check_<format> and an exclusion 'list'
# (hash reference) $exclude_<format>: the keys are either a directory name if
@@ -13,7 +13,6 @@
# associated check_<format> routine.
#
# Formats that might be added:
-# - tfm with tftopl $file /tmp/dummy.pl (no exit code, check stderr)
# - vf with vftovp $file vf_to_tfm($file) /tmp/dummy.vpl (stderr)
# - afm with (afm2pl?)
# - otf with otfinfo -i -q >/dev/null
@@ -132,10 +131,23 @@ my $exclude_pfb = { '*base*' => 'texmf-dist/fonts/type1',
'wadalab/mcj/' => 1,
'wadalab/mrj/' => 1,
};
-# mpg: are these files actually broken?? Should look for the actual errors an
+# mpg: are these files actually broken?? Should look for the actual errors and
# check with a font expert which are dummy, then filter them out.
# For remaining packages, we'll have to contact upstream authors.
+# the value has no meaning here
+my $exclude_tfm = { '*base*' => 'texmf-dist/fonts/tfm',
+ 'public/arev/' => 1,
+ 'public/cmcyr/' => 1,
+ 'public/dozenal/' => 1,
+ 'jknappen/ec/' => 1,
+ 'jknappen/fc/' => 1,
+ 'public/gfsbodoni/' => 1,
+ 'public/malayalam/' => 1,
+ 'public/wnri/' => 1,
+ 'public/wsuipa/' => 1,
+};
+
my $tmpdir = File::Temp::tempdir(CLEANUP => 1);
exit(main());
@@ -149,6 +161,9 @@ sub main
for my $file (grep { /\.pfb$/ } @files) {
check_pfb($file);
}
+ for my $file (grep { /\.tfm$/ } @files) {
+ check_tfm($file);
+ }
return 0;
}
@@ -199,5 +214,16 @@ sub check_pfb
print "Broken PFB: $file\n" if $bad;
}
+# check a tfm file
+sub check_tfm
+{
+ my ($file) = @_;
+ return if defined exclude_value($exclude_tfm, $file);
+ my $outfile = "$tmpdir/tfmout.pl";
+ my $errfile = "$tmpdir/tfmerr";
+ unlink($errfile);
+ system("tftopl $tlroot/$file $outfile 2>$errfile");
+ print "Broken tfm: $file\n" if -s $errfile;
+}
# vim: sw=2 expandtab