#!/usr/bin/perl
# fixwfwps: fix Word for windows PostScript for printing.

# feed this into perl
eval 'exec perl -S $0 "$@"'
   if $running_under_some_shell;

while (<>) {
   tr/\000-\011\013-\037//d;
   s!/SVDoc\s+save\s+def!!g;
   s!SVDoc\s+restore!!g;
   if (/^(%!PS-Adobe-\d*\.\d*) EPSF-/) {
      print "$1\n";
      $wfwepsf = 1;
   } elsif (/^SS\s*$/ && $wfwepsf) {
      print "%%Page: $wfwepsf $wfwepsf\n";
      $wfwepsf++;
      print $_;
   } elsif (! /^%%BoundingBox/) {
      print $_;
   }
}
