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 16:04:08 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-03-03 16:04:08 +0000
commit6c6408e021b105d3172097913166ed780c4942b5 (patch)
tree9c3c59851e8a52f58f656704e994375304ef952e /Master/tlpkg/bin/tl-check-files-by-format
parentecc236ebbdd4f9d15b1513f58626dbb127963321 (diff)
Also check vf files.
git-svn-id: svn://tug.org/texlive/trunk@17304 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-format43
1 files changed, 41 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/tl-check-files-by-format b/Master/tlpkg/bin/tl-check-files-by-format
index ef69066001e..fefe2f25154 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, tfm.
+# The following formats are checked currently: pdf, pfb, tfm, vf.
#
# 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:
-# - vf with vftovp $file vf_to_tfm($file) /tmp/dummy.vpl (stderr)
# - afm with (afm2pl?)
# - otf with otfinfo -i -q >/dev/null
#
@@ -148,6 +147,27 @@ my $exclude_tfm = { '*base*' => 'texmf-dist/fonts/tfm',
'public/wsuipa/' => 1,
};
+# 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,
+};
+
my $tmpdir = File::Temp::tempdir(CLEANUP => 1);
exit(main());
@@ -164,6 +184,9 @@ sub main
for my $file (grep { /\.tfm$/ } @files) {
check_tfm($file);
}
+ for my $file (grep { /\.vf$/ } @files) {
+ check_vf($file);
+ }
return 0;
}
@@ -226,4 +249,20 @@ sub check_tfm
print "Broken tfm: $file\n" if -s $errfile;
}
+# check a vf file
+sub check_vf
+{
+ my ($file) = @_;
+ return if defined exclude_value($exclude_vf, $file);
+ (my $tfmfile = $file) =~ s!/vf/!/tfm/!;
+ $tfmfile =~ s/\.vf$/.tfm/;
+ return if defined exclude_value($exclude_tfm, $tfmfile);
+ my $outfile = "$tmpdir/vfout.vp";
+ my $errfile = "$tmpdir/vferr";
+ unlink($errfile);
+ system("vftovp $tlroot/$file $tlroot/$tfmfile $outfile 2>$errfile");
+ print "Broken vf: $file\n" if -s $errfile;
+}
+
+
# vim: sw=2 expandtab