File: fixscribeps.pl

package info (click to toggle)
texlive-bin 2009-8
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 231,976 kB
  • ctags: 165,663
  • sloc: ansic: 1,113,212; cpp: 454,597; sh: 49,189; perl: 43,889; makefile: 15,564; python: 11,825; xml: 7,446; lisp: 6,494; asm: 4,361; lex: 3,571; java: 3,569; pascal: 2,487; yacc: 2,451; exp: 2,031; ruby: 2,012; ada: 1,681; objc: 1,362; cs: 879; sed: 519; csh: 47; tcl: 45; awk: 35
file content (19 lines) | stat: -rw-r--r-- 415 bytes parent folder | download | duplicates (17) 
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@