#!/usr/local/bin/perl
# fixwpps: get semi-conforming PostScript out of WordPerfect 5.0 file

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

$page = 1;
while (<>) {
#   s/([^\/]_[a-zA-Z]+)([0-9]+)/\1 \2/g;	# removed for wp 5.1
   if (/^_bp/) {
      print STDOUT "%%Page: $page $page\n";
      print STDOUT $_;
      $page++;
   } elsif (/^([^\/\s].*)\s(_bp.*)/) {
      print STDOUT "$1\n";
      print STDOUT "%%Page: $page $page\n";
      print STDOUT "$2\n";
      $page++;
   } elsif (/^(.*\s)?(_ed.*)/) {
      print STDOUT "$1\n" if defined($1);
      print STDOUT "%%Trailer:\n";
      print STDOUT "$2\n";
   } else {
      print STDOUT $_;
   }
}
