home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume35 / psutils / part04 / fixpsditps < prev    next >
Encoding:
Text File  |  1993-02-04  |  349 b   |  14 lines

  1. #!/usr/local/bin/perl
  2. # fixpsditps: fix psdit output for use in psutils
  3.  
  4. while (<>) {
  5.    if (/^\/p{pop showpage pagesave restore \/pagesave save def}def$/) {
  6.       print STDOUT "/p{pop showpage pagesave restore}def\n";
  7.    } elsif (/^%%Page:/) {
  8.       print STDOUT $_;
  9.       print STDOUT "xi\n";
  10.    } elsif (! /^xi$/) {
  11.       print STDOUT $_;
  12.    }
  13. }
  14.