154 lines
3.5 KiB
Diff
154 lines
3.5 KiB
Diff
--- psutils/psmerge.pl.new 2006-06-12 09:53:37.000000000 +0200
|
|
+++ psutils/psmerge.pl 2006-06-12 09:53:47.000000000 +0200
|
|
@@ -1,11 +1,19 @@
|
|
-@PERL@
|
|
+#!/usr/bin/perl
|
|
+eval 'exec perl -S $0 "$@"'
|
|
+ if (1 == 0);
|
|
+
|
|
# psmerge: merge PostScript files produced by same application and setup
|
|
-# usage: psmerge [-oout.ps] [-thorough] file1.ps file2.ps ...
|
|
+# usage: psmerge [-oout.ps] file1.ps file2.ps ...
|
|
#
|
|
# Copyright (C) Angus J. C. Duggan 1991-1995
|
|
# See file LICENSE for details.
|
|
+#
|
|
+# Unbroken (or, broken in a different way that at least sometimes
|
|
+# works) by Peter Williams 2003 <peter@newton.cx>
|
|
+
|
|
|
|
-$prog = ($0 =~ s=.*/==);
|
|
+$prog = $0;
|
|
+$prog =~ s=.*/==;
|
|
|
|
while ($ARGV[0] =~ /^-/) {
|
|
$_ = shift;
|
|
@@ -14,72 +22,75 @@
|
|
print STDERR "$prog: can't open $1 for output\n";
|
|
exit 1;
|
|
}
|
|
- } elsif (/^-t(horough)?$/) {
|
|
- $thorough = 1;
|
|
} else {
|
|
- print STDERR "Usage: $prog [-oout] [-thorough] file...\n";
|
|
+ print STDERR "Usage: $prog [-oout] file1 file2...\n";
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
$page = 0;
|
|
$first = 1;
|
|
+$seenpages = 0;
|
|
$nesting = 0;
|
|
|
|
-@header = ();
|
|
-$header = 1;
|
|
-
|
|
@trailer = ();
|
|
-$trailer = 0;
|
|
-
|
|
-@pages = ();
|
|
-@body = ();
|
|
-
|
|
-@resources = ();
|
|
-$inresource = 0;
|
|
+$trailermode = 0;
|
|
|
|
while (<>) {
|
|
- if (/^%%BeginFont:/ || /^%%BeginResource:/ || /^%%BeginProcSet:/) {
|
|
- $inresource = 1;
|
|
- push(@resources, $_);
|
|
- } elsif ($inresource) {
|
|
- push(@resources, $_);
|
|
- $inresource = 0 if /^%%EndFont/ || /^%%EndResource/ || /^%%EndProcSet/;
|
|
- } elsif (/^%%Page:/ && $nesting == 0) {
|
|
- $header = $trailer = 0;
|
|
- push(@pages, join("", @body)) if @body;
|
|
- $page++;
|
|
- @body = ("%%Page: ($page) $page\n");
|
|
- } elsif (/^%%Trailer/ && $nesting == 0) {
|
|
- push(@trailer, $_);
|
|
- push(@pages, join("", @body)) if @body;
|
|
- @body = ();
|
|
- $trailer = 1;
|
|
- $header = 0;
|
|
- } elsif ($header) {
|
|
- push(@trailer, $_);
|
|
- push(@pages, join("", @body)) if @body;
|
|
- @body = ();
|
|
- $trailer = 1;
|
|
- $header = 0;
|
|
- } elsif ($trailer) {
|
|
- if (/^%!/ || /%%EOF/) {
|
|
- $trailer = $first = 0;
|
|
- } elsif ($first) {
|
|
- push(@trailer, $_);
|
|
- }
|
|
- } elsif (/^%%BeginDocument/ || /^%%BeginBinary/ || /^%%BeginFile/) {
|
|
- push(@body, $_);
|
|
- $nesting++;
|
|
- } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) {
|
|
- push(@body, $_);
|
|
- $nesting--;
|
|
- } else {
|
|
- print $_ if $print;
|
|
- }
|
|
+ if ($seenpages == 0) {
|
|
+ if (/^%%Page:/) {
|
|
+ if ($nesting == 0) {
|
|
+ $seenpages = 1;
|
|
+ $page++;
|
|
+ print "%%Page: ($page) $page\n";
|
|
+ } else {
|
|
+ print $_;
|
|
+ }
|
|
+ } elsif ($first) {
|
|
+ if (/^%%Pages: /) {
|
|
+ print "%%Pages: (atend)\n";
|
|
+ } else {
|
|
+ print $_;
|
|
+ }
|
|
+ }
|
|
+ } elsif ($trailermode) {
|
|
+ if (/^%!/ || /%%EOF/) {
|
|
+ $seenpages = 0;
|
|
+ $first = 0;
|
|
+ $trailermode = 0;
|
|
+ } elsif ($first) {
|
|
+ push (@trailer, $_)
|
|
+ unless (/^%%Pages/);
|
|
+ }
|
|
+ } else {
|
|
+ if (/^%%Page:/) {
|
|
+ if ($nesting == 0) {
|
|
+ $seenpages = 1;
|
|
+ $page++;
|
|
+ print "%%Page: ($page) $page\n";
|
|
+ } else {
|
|
+ print $_;
|
|
+ }
|
|
+ } elsif (/^%%Trailer/ && $nesting == 0) {
|
|
+ $trailermode = 1;
|
|
+ } elsif (/^%%BeginDocument/ || /^%%BeginBinary/ || /^%%BeginFile/) {
|
|
+ push(@body, $_);
|
|
+ $nesting++;
|
|
+ print $_;
|
|
+ } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) {
|
|
+ push(@body, $_);
|
|
+ $nesting--;
|
|
+ print $_;
|
|
+ } else {
|
|
+ print $_;
|
|
+ }
|
|
+ }
|
|
}
|
|
|
|
+print "%%Trailer\n";
|
|
print @trailer;
|
|
+print "%%Pages: $page\n";
|
|
+print "%%EOF\n";
|
|
|
|
exit 0;
|
|
-@END@
|
|
+
|