summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/ai/processfonts
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/fonts/ai/processfonts')
-rw-r--r--Master/texmf-dist/doc/fonts/ai/processfonts32
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");