diff options
Diffstat (limited to 'Master/texmf-dist/doc/fonts/ai/processfonts')
-rw-r--r-- | Master/texmf-dist/doc/fonts/ai/processfonts | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/fonts/ai/processfonts b/Master/texmf-dist/doc/fonts/ai/processfonts new file mode 100644 index 00000000000..506416ffbb4 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/ai/processfonts @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +# Written by Skip Collins <bernard.collins@jhuapl.edu> +use Cwd; +$currentdir = cwd; +$remaptmp = "/var/tmp/remaptmp"; +mkdir($remaptmp, 0777); +$configfiles[0]=`kpsewhich -format="dvips config" psfonts.cm`; +$configfiles[1]=`kpsewhich -format="dvips config" psfonts.ams`; +$fontlist = ""; +$i=0; +foreach $cfg (@configfiles) { + open(INPUT,$cfg) || die "Can't open font list"; + while (<INPUT>) { + $string = $_; + $string =~ s/\s*\w*\s*$//; + $fontlist[$i] = $string; + $i++; + } + close(INPUT); +} +chdir($remaptmp); +foreach $i (@fontlist) { + system("tftopl -charcode-format=octal $i $i"); + system("remap $i"); + system("vptovf $i"); + system("pltotf ai$i"); + system("mv ai$i.tfm $currentdir"); + system("mv $i.vf $currentdir"); +} + +#system("rm -rf $remaptmp"); |