diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-03-03 16:04:08 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-03-03 16:04:08 +0000 |
commit | 6c6408e021b105d3172097913166ed780c4942b5 (patch) | |
tree | 9c3c59851e8a52f58f656704e994375304ef952e /Master/tlpkg/bin | |
parent | ecc236ebbdd4f9d15b1513f58626dbb127963321 (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')
-rwxr-xr-x | Master/tlpkg/bin/tl-check-files-by-format | 43 |
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 |