diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-12-10 15:48:25 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-12-10 15:48:25 +0000 |
commit | 1e20e744e86ae7d49270e2be55bb01a3f40dde33 (patch) | |
tree | 7fe2053444c3a22ec28a9a6e5c0185a7c1c4c940 /Build/source/utils/psutils/fixwfwps.pl | |
parent | 0a1e75ee98dd6caa88dd7566007ab4c6c8511544 (diff) |
utils/psutils build: use orig source from ctan + patches
git-svn-id: svn://tug.org/texlive/trunk@20708 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/psutils/fixwfwps.pl')
-rw-r--r-- | Build/source/utils/psutils/fixwfwps.pl | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/Build/source/utils/psutils/fixwfwps.pl b/Build/source/utils/psutils/fixwfwps.pl deleted file mode 100644 index 03b0cdaca38..00000000000 --- a/Build/source/utils/psutils/fixwfwps.pl +++ /dev/null @@ -1,33 +0,0 @@ -@PERL@ -# fixwfwps: fix Word for windows PostScript for printing. -# -# Copyright (C) Angus J. C. Duggan 1991-1995 -# See file LICENSE for details. - -$nesting = 0; -while (<>) { - tr/\000-\010\012-\014\016-\037//d; - foreach (grep($_ ne "", split("\015"))) { - s!/SVDoc\s+save\s+def!!g; - s!SVDoc\s+restore!!g; - if (/^(%!PS-Adobe-\d*\.\d*) EPSF-/ && !$nesting) { - print "$1\n"; - $wfwepsf = 1; - } elsif (/^SS\s*$/ && $wfwepsf) { - print "%%Page: $wfwepsf $wfwepsf\n"; - $wfwepsf++; - print "$_\n"; - } elsif (/^%MSEPS Preamble/) { - print "%%BeginDocument: (Included EPSF)\n"; - print "$_\n"; - $nesting++; - } elsif (/^%MSEPS Trailer/) { - $nesting--; - print "$_\n"; - print "%%EndDocument\n"; - } elsif (! /^%%BoundingBox/) { - print "$_\n"; - } - } -} -@END@ |