#!/usr/bin/env perl # mangle PostScript produced by PSPrint to make it almost conforming # # Copyright (C) Angus J. C. Duggan 1991-1995 # See file LICENSE for details. $header = 1; $ignore = 0; $verbose = 0; @body = (); %fonts = (); $font = ""; $inchar = 0; @char = (); while (<>) { if (/^\@end$/) { $ignore = 1; } elsif (/^[0-9]+ \@bop0$/) { $ignore = 0; $header = 1; } elsif ($header) { if (/^\/([a-z.0-9]+) \@newfont$/) { if (! defined($fonts{$1})) { $fonts{$1} = 1; print; } elsif ($verbose) { print STDERR "$font already defined\n"; } } elsif (/^([a-z.0-9]+) sf$/) { $font = $1; print; } elsif (/^\[