#!/usr/local/bin/perl
# fixpsditps: fix psdit output for use in psutils

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

while (<>) {
   if (/^\/p{pop showpage pagesave restore \/pagesave save def}def$/) {
      print STDOUT "/p{pop showpage pagesave restore}def\n";
   } elsif (/^%%Page:/) {
      print STDOUT $_;
      print STDOUT "xi\n";
   } elsif (! /^xi$/) {
      print STDOUT $_;
   }
}
