home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Usenet 1994 January
/
usenetsourcesnewsgroupsinfomagicjanuary1994.iso
/
sources
/
misc
/
volume35
/
psutils
/
part04
/
fixpsditps
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1993-02-04
|
349 b
|
14 lines
#!/usr/local/bin/perl
# fixpsditps: fix psdit output for use in psutils
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 $_;
}
}