psutils/fixwwps.pl

   1 @PERL@
   2 # fixwwps: get semi-conforming PostScript out of Windows Write file
   3 #
   4 # Copyright (C) Angus J. C. Duggan 1991-1995
   5 # See file LICENSE for details.
   6
   7 $page = 1;
   8
   9 while (<>) {
  10    if (/^(%!.*) EPSF-\d.\d/) {
  11       print $1, "\n";
  12    } elsif (/^SS/) {
  13       print "%%Page: $page $page\n";
  14       print $_;
  15       $page++;
  16    } else {
  17       print $_;
  18    }
  19 }
  20 @END@