ref: c1d40df49550393f3afe53fb6e6d500dfa8eb7a8
dir: /sys/src/cmd/gs/lib/fixmswrd.pl/
#!/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 } }