2 # mangle PostScript produced by PSPrint to make it almost conforming
4 # Copyright (C) Angus J. C. Duggan 1991-1995
5 # See file LICENSE for details.
7 $header = 1; $ignore = 0;
10 %fonts = (); $font = "";
11 $inchar = 0; @char = ();
16 } elsif (/^[0-9]+ \@bop0$/) {
20 if (/^\/([a
-z
.0-9]+) \
@newfont$/) {
21 if (! defined($fonts{$1})) {
25 print STDERR
"$font already defined\n";
27 } elsif (/^([a-z.0-9]+) sf$/) {
35 if (/.*\] ([0-9]+) dc$/) {
36 if (! defined($fonts{$font,$1})) {
40 print STDERR
"$font character $1 already defined\n";
45 } elsif (/^([0-9]+) \@bop1$/) {
47 push (@body, "%%Page: ? $1\n");