blob: d8ed1e86aa383ef58cf29f1d3bc1cced301a8d01 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
@PERL@
# fixscribeps: get conforming PostScript out of Scribe
#
# Copyright (C) Angus J. C. Duggan 1991-1995
# See file LICENSE for details.
$inepsf = 0;
$epsfn = 0;
while (<>) {
if (/^([0-9]+ [0-9]+ [0-9]+ PB) (%!.*)/) {
print "$1\n%%BeginDocument: Scribe-EPSF $epsfn 0\n$2\n";
$inepsf++;
} elsif (/^ PE/ && $inepsf) {
print "%%EndDocument\n", $_;
} else {
print $_;
}
}
@END@
|
