Commit of build_consolidation branch

Squashed into one commit (see branch for details of the evolution of the
branch).

This brings gpcl6 and gxps into the Ghostscript build system, and a shared
set of graphics library object files for all the interpreters.

Also, brings the same configuration options to the pcl and xps products as we
have for Ghostscript.

1 files changed, 220 insertions, 0 deletions

diff --git a/lib/pphs.ps b/lib/pphs.ps
new file mode 100644
index 000000000..1a2e9cb32
--- /dev/null
+++ b/lib/pphs.ps
@@ -0,0 +1,220 @@
+% Copyright (C) 2001-2012 Artifex Software, Inc.
+% All Rights Reserved.
+%
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+%
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+%
+% Refer to licensing information at http://www.artifex.com or contact
+% Artifex Software, Inc.,  7 Mt. Lassen Drive - Suite A-134, San Rafael,
+% CA  94903, U.S.A., +1(415)492-9861, for further information.
+%
+
+% Print Linearized PDF hint streams
+
+% Utilities
+/read1 {	% <file> read1 <value>
+  read not {
+    (**** Unexpected EOF) = flush quit
+  } if
+} bind def
+/read2 {	% <file> read2 <value>
+  dup read1 8 bitshift exch read1 add
+} bind def
+/read4 {	% <file> read4 <value>
+  dup read2 16 bitshift exch read2 add
+} bind def
+% Free variables: Bits, Bitsleft
+/readninit {	% - <readninit> -
+  /Bits 0 def
+  /Bitsleft 0 def
+} bind def
+
+/pdftoken {	% <file> pdftoken <token>
+  dup token pop
+  dup type /nametype eq 1 index xcheck and {
+    dup dup (<<) cvn eq exch ([) eq or {
+      exec exch {
+        dup pdftoken dup dup (>>) cvn eq exch (]) eq or {
+          exch pop exec exit
+        } if exch
+      } loop
+    } {
+      exch pop
+    } ifelse
+  } {
+    exch pop
+  } ifelse
+} bind def
+/makemask {	% <nbits> makemask <mask>
+  1 exch bitshift 1 sub
+} bind def
+/readn {	% <file> <nbits> readn <value>
+  dup Bitsleft le {
+    exch pop
+    /Bitsleft Bitsleft 2 index sub def
+    makemask Bits Bitsleft neg bitshift and
+  } {
+    Bitsleft makemask Bits and
+    exch Bitsleft sub exch 1 index bitshift 3 1 roll
+    /Bits 2 index read1 def /Bitsleft 8 def
+    readn add
+  } ifelse
+} bind def
+/sread {	% <string> sread <file>
+  0 () /SubFileDecode filter
+} bind def
+
+/ptag {		% <pre-tag> <proc> <post-tag> ptag -
+  3 -1 roll print (: ) print
+  exch exec
+  (        % ) print =
+} bind def
+
+% Print the linearization parameters dictionary.
+/plpkeys <<
+  /E (end of p. 1 objects)
+  /L (total file length)
+  /H (PHS start + length)
+  /N (# of pages)
+  /O (p. 1 object #)
+  /T (offset of first main xref entry)
+>> def
+/plpdict {	% <dict> plpdict -
+  (<<) = plpkeys {
+    2 index 2 index .knownget {
+        % Stack: dict key label value
+      (  ) print 3 -1 roll ===only ( ) print ===only
+      (        % ) print =
+    } {
+      pop pop
+    } ifelse
+  } forall {
+    plpkeys 2 index known {
+      pop pop
+    } {
+      (  ) print exch ===only ( ) print ===
+    } ifelse
+  } forall (>>) =
+} bind def
+
+% Print the Page Offset Hint Table.
+/ppoht {	% <npages> <file> ppoht -
+
+  20 dict begin
+  /f exch def
+  /npages exch def
+  readninit
+
+  (1) { f read4 =only } (least # objs/page) ptag
+  (2) { f read4 =only } (offset of p. 1 object (+PHS length if beyond PHS)) ptag
+  (3) { f read2 dup =only /nb3 exch def } (# bits for # objs/page delta) ptag
+  (4) { f read4 =only } (least # bytes/page) ptag
+  (5) { f read2 dup =only /nb5 exch def } (# bits for # bytes/page delta) ptag
+  (6) { f read4 =only } (least content stream offset-in-page) ptag
+  (7) { f read2 dup =only /nb7 exch def } (# bits for content stream offset delta) ptag
+  (8) { f read4 =only } (least content stream length) ptag
+  (9) { f read2 dup =only /nb9 exch def } (# bits for content stream length delta) ptag
+  (10) { f read2 dup =only /nb10 exch def } (# bits for # of shared obj refs) ptag
+  (11) { f read2 dup =only /nb11 exch def } (# bits for shared obj indices) ptag
+  (12) { f read2 dup =only /nb12 exch def } (# bits for shared obj ref pos numerators) ptag
+  (13) { f read2 =only } (shared obj ref pos denominator) ptag
+
+  (*1) { [ npages { f nb3 readn } repeat ] ==only } (# objs/page deltas (see 1,3)) ptag
+  (*2) { [ npages { f nb5 readn } repeat ] ==only } (# bytes/page deltas (see 4,5)) ptag
+  (*3) { [ npages { f nb10 readn } repeat ] dup ==only /nso exch def } (# of shared obj refs (see 10)) ptag
+  (*4) { [ nso { [ exch { f nb11 readn } repeat ] } forall ] ==only } (shared obj indices (see 11)) ptag
+  (*5) { [ nso { [ exch { f nb12 readn } repeat ] } forall ] ==only } (shared obj ref pos numerators (see 12)) ptag
+  (*6) { [ npages { f nb7 readn } repeat ] ==only } (content stream offset-in-page deltas (see 6,7)) ptag
+  (*7) { [ npages { f nb9 readn } repeat ] ==only } (content stream length deltas (see 8,9)) ptag
+
+  end		% temp dict
+
+} bind def
+
+% Print the Shared Objects Hint Table.
+/psoht {	% <file> psoht -
+
+  20 dict begin
+  /f exch def
+  readninit
+
+  (1) { f read4 =only } (first shared obj #) ptag
+  (2) { f read4 =only } (first shared obj offset (+PHS length if beyond PHS)) ptag
+  (3) { f read4 dup =only /n3 exch def } (# of p. 1 shared objs) ptag
+  (4) { f read4 dup =only /n4 exch def } (total # of shared objs) ptag
+  (5) { f read2 dup =only /nb5 exch def } (# bits for # of shared objs/group) ptag
+  (6) { f read4 =only } (least shared obj group length) ptag
+  (7) { f read2 dup =only /nb7 exch def } (# bits for shared obj group length delta) ptag
+
+  /nse n4 def
+  (*1) { [ nse { f nb7 readn } repeat ] ==only } (shared obj group length deltas (see 6,7)) ptag
+  (*2) { [ nse { f 1 readn } repeat ] dup ==only /md5s exch def } (MD5 present?) ptag
+  (*3:) = md5s {
+    0 ne {
+      (  ) print f 16 string readstring pop
+      (%stdout) (w) file dup 3 -1 roll writehexstring closefile () =
+    } if
+  } forall
+  (*4) { [ nse { f nb5 readn } repeat ] ==only } (# objs/group (see 5)) ptag
+
+  end		% temp dict
+
+} bind def
+
+% Print the Primary Hint Stream of a PDF file.
+/pphs {		% <file> pphs -
+  /pdf exch def
+
+        % Read the linearization parameter dictionary.
+  { pdf pdftoken /obj eq { exit } if } loop
+  pdf pdftoken /lpdict exch def
+  /lpdict type /dicttype eq { lpdict /Linearized known } { false } ifelse {
+    (Not a linearized PDF file.) = stop
+  } if
+
+  lpdict plpdict flush
+
+        % Read the primary hint stream.
+  null {
+    pdf pdftoken dup /stream eq { pop exit } if
+    exch pop
+  } loop
+  /phsdict exch def
+        % Remove Length if indirect reference.
+  phsdict 0 known {
+    phsdict 0 undef  phsdict /Length undef
+  } if
+  (PHS: ) print phsdict === flush
+  pdf 0 (endstream) /SubFileDecode filter
+  dup 64000 string readstring pop exch closefile
+  sread /phsdata exch def
+
+        % Decode the hint stream data if necessary.
+  phsdict /Filter .knownget {
+    phsdata exch filter
+    dup 5000 string readstring pop exch closefile
+    sread /phsdata exch def
+  } if
+
+        % Adobe says we can assume /P = 0.
+  (Page Offset Hint Table:) =
+  lpdict /N get
+  phsdata phsdict /S get string readstring pop sread
+  ppoht
+  (Shared Objects Hint Table:) =
+  phsdata psoht
+} bind def
+
+% Check for command line arguments.
+[ shellarguments
+ { ] dup length 1 eq
+    { 0 get (r) file dup pphs closefile }
+    { (Usage: pphs filename.pdf\n) print flush }
+   ifelse
+ }
+ { pop }
+ifelse