psutils/fixscribeps.pl

   1 @PERL@
   2 # fixscribeps: get conforming PostScript out of Scribe
   3 #
   4 # Copyright (C) Angus J. C. Duggan 1991-1995
   5 # See file LICENSE for details.
   6
   7 $inepsf = 0;
   8 $epsfn = 0;
   9 while (<>) {
  10    if (/^([0-9]+ [0-9]+ [0-9]+ PB) (%!.*)/) {
  11       print "$1\n%%BeginDocument: Scribe-EPSF $epsfn 0\n$2\n";
  12       $inepsf++;
  13    } elsif (/^ PE/ && $inepsf) {
  14       print "%%EndDocument\n", $_;
  15    } else {
  16       print $_;
  17    }
  18 }
  19 @END@