#!/usr/bin/perl# $Id: fixmswrd.pl,v 1.4 2002/02/21 21:53:01 giles Exp $# (C) 1997 Anthony Shipman# # This software is provided 'as-is', without any express or implied# warranty. In no event will the authors be held liable for any damages# arising from the use of this software.# # Permission is granted to anyone to use this software for any purpose,# including commercial applications, and to alter it and redistribute it# freely, subject to the following restrictions:# # 1. The origin of this software must not be misrepresented; you must not# claim that you wrote the original software. If you use this software# in a product, an acknowledgment in the product documentation would be# appreciated but is not required.# 2. Altered source versions must be plainly marked as such, and must not be# misrepresented as being the original software.# 3. This notice may not be removed or altered from any source distribution.# # Anthony Shipman shipmana@acm.org# This program patches the postscript generated by MS Word printer drivers# so that they work with ghostview 1.5. The problem is that the document# structuring conventions are not followed by Word. The pages are supposed# to be independent but they depend on a dictionary being opened outside# of the pages. The erroneous structure is# # %%EndSetup# NTPSOct95 begin# %%Page: 1 1# <text># showpage# %%Page: 2 2# <text># showpage# ......# %%Trailer# ...# end# %%EOF# # This only works if the all of the structure around the pages is preserved.# The opening of NTPSOct95 happens outside of any structured section so# it is never seen by ghostview. We change the structure to# # %%EndSetup# %%Page: 1 1# NTPSOct95 begin# <text># showpage# end# %%Page: 2 2# NTPSOct95 begin# <text># showpage# end# ......# %%Trailer# ...# %%EOF# # That is the dictionary opening is repeated inside each page.# # We add a comment to the document to mark that it has been converted.# This has the form # %LOCALGhostviewPatched## Usage:# fixmswrd [-v] [file [output-file]]require 'getopts.pl';#=================================================================$program = "fixmswrd";sub usage { die "Usage: $program [-v] [file [output-file]]\n";}#=================================================================&Getopts("v") || &usage;$verbose = $opt_v;$infile = shift(@ARGV);if ($infile){ open(INFILE, $infile) || die "$program: Cannot read from $infile\n"; $handle = "INFILE";}else{ $handle = "STDIN";}$outfile = shift(@ARGV);if ($outfile){ open(OUTFILE, ">$outfile") || die "$program: Cannot write to $outfile\n"; select(OUTFILE);}# This reads the header comments and detects the presence of the marker.$have_marker = 0;undef $dict_name;undef $dict_line;&read_comments;&put_comments;if ($have_marker){ $verbose && print STDERR "$program: Warning - already converted\n"; while(<$handle>) # pass the file through unchanged. { print; }}else{ $seen_trailer = 0; while(<$handle>) # massage the file { if ($dict_line) { next if (/$dict_line/o); # drop the old begin line $seen_trailer = 1 if (/^%%Trailer/); next if ($seen_trailer and /^end/); # drop the old end line } print; if (/^%%Page:/) { print "$dict_name begin\n"; # add at the start of the page } elsif (/^showpage/) { print "end\n"; # add at the end of the page } elsif (/^%%BeginResource: procset (\S+)/) { $dict_name = $1; $dict_line = "^$dict_name begin"; } elsif (/^%%BeginProcSet: (\S+)/) # for older document versions { $dict_name = $1; $dict_line = "^$dict_name begin"; } elsif (/^%%EndProlog:/) { unless ($dict_line) { $verbose && print STDERR "$program: Warning - unrecognised document structure\n"; } } }}exit 0;#=================================================================# This reads all of the header comments into an array which we can write# out again later. In addition we detect the presence of the marker comment.sub read_comments{ @headers = (); while (<$handle>) { # without chopping push(@headers, $_); if (/^%LOCALGhostviewPatched/) { $have_marker = 1; } last if /^%%EndComments/; }}sub put_comments { foreach $h (@headers) { if (!$have_marker and ($h =~ /^%%EndComments/)) { print "%LOCALGhostviewPatched\n"; } print $h; # contains the newline }}
#!/usr/bin/perl
# $Id: fixmswrd.pl,v 1.4 2002/02/21 21:53:01 giles Exp $
# (C) 1997 Anthony Shipman
#
# This software is provided 'as-is', without any express or implied
# warranty. In no event will the authors be held liable for any damages
# arising from the use of this software.
#
# Permission is granted to anyone to use this software for any purpose,
# including commercial applications, and to alter it and redistribute it
# freely, subject to the following restrictions:
#
# 1. The origin of this software must not be misrepresented; you must not
# claim that you wrote the original software. If you use this software
# in a product, an acknowledgment in the product documentation would be
# appreciated but is not required.
# 2. Altered source versions must be plainly marked as such, and must not be
# misrepresented as being the original software.
# 3. This notice may not be removed or altered from any source distribution.
#
# Anthony Shipman shipmana@acm.org
# This program patches the postscript generated by MS Word printer drivers
# so that they work with ghostview 1.5. The problem is that the document
# structuring conventions are not followed by Word. The pages are supposed
# to be independent but they depend on a dictionary being opened outside
# of the pages. The erroneous structure is
#
# %%EndSetup
# NTPSOct95 begin
# %%Page: 1 1
# <text>
# showpage
# %%Page: 2 2
# <text>
# showpage
# ......
# %%Trailer
# ...
# end
# %%EOF
#
# This only works if the all of the structure around the pages is preserved.
# The opening of NTPSOct95 happens outside of any structured section so
# it is never seen by ghostview. We change the structure to
#
# %%EndSetup
# %%Page: 1 1
# NTPSOct95 begin
# <text>
# showpage
# end
# %%Page: 2 2
# NTPSOct95 begin
# <text>
# showpage
# end
# ......
# %%Trailer
# ...
# %%EOF
#
# That is the dictionary opening is repeated inside each page.
#
# We add a comment to the document to mark that it has been converted.
# This has the form
# %LOCALGhostviewPatched
#
# Usage:
# fixmswrd [-v] [file [output-file]]
require 'getopts.pl';
#=================================================================
$program = "fixmswrd";
sub usage {
die "Usage: $program [-v] [file [output-file]]\n";
}
#=================================================================
&Getopts("v") || &usage;
$verbose = $opt_v;
$infile = shift(@ARGV);
if ($infile)
{
open(INFILE, $infile) || die "$program: Cannot read from $infile\n";
$handle = "INFILE";
}
else
{
$handle = "STDIN";
}
$outfile = shift(@ARGV);
if ($outfile)
{
open(OUTFILE, ">$outfile") || die "$program: Cannot write to $outfile\n";
select(OUTFILE);
}
# This reads the header comments and detects the presence of the marker.
$have_marker = 0;
undef $dict_name;
undef $dict_line;
&read_comments;
&put_comments;
if ($have_marker)
{
$verbose && print STDERR "$program: Warning - already converted\n";
while(<$handle>) # pass the file through unchanged.
{
print;
}
}
else
{
$seen_trailer = 0;
while(<$handle>) # massage the file
{
if ($dict_line)
{
next if (/$dict_line/o); # drop the old begin line
$seen_trailer = 1 if (/^%%Trailer/);
next if ($seen_trailer and /^end/); # drop the old end line
}
print;
if (/^%%Page:/)
{
print "$dict_name begin\n"; # add at the start of the page
}
elsif (/^showpage/)
{
print "end\n"; # add at the end of the page
}
elsif (/^%%BeginResource: procset (\S+)/)
{
$dict_name = $1;
$dict_line = "^$dict_name begin";
}
elsif (/^%%BeginProcSet: (\S+)/) # for older document versions
{
$dict_name = $1;
$dict_line = "^$dict_name begin";
}
elsif (/^%%EndProlog:/)
{
unless ($dict_line)
{
$verbose &&
print STDERR "$program: Warning - unrecognised document structure\n";
}
}
}
}
exit 0;
#=================================================================
# This reads all of the header comments into an array which we can write
# out again later. In addition we detect the presence of the marker comment.
sub read_comments
{
@headers = ();
while (<$handle>)
{ # without chopping
push(@headers, $_);
if (/^%LOCALGhostviewPatched/)
{
$have_marker = 1;
}
last if /^%%EndComments/;
}
}
sub put_comments
{
foreach $h (@headers)
{
if (!$have_marker and ($h =~ /^%%EndComments/))
{
print "%LOCALGhostviewPatched\n";
}
print $h; # contains the newline
}
}