ikan Uploader :
Directory : /usr/bin/
Upload File : |
| Current File : //usr/bin/fixwfwps |
#!/usr/bin/perl
eval 'exec perl -S $0 "$@"'
if $running_under_some_shell;
# 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";
}
}
}
Kontol Shell Bypass