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, 206 insertions, 0 deletions

diff --git a/contrib/japanese/dmp_init.ps b/contrib/japanese/dmp_init.ps
new file mode 100644
index 000000000..b7bebd6d8
--- /dev/null
+++ b/contrib/japanese/dmp_init.ps
@@ -0,0 +1,206 @@
+%!
+%    Copyright (C) 1989, 1992, 1993 Aladdin Enterprises.  All rights reserved.
+%
+% This file is part of Ghostscript.
+%
+% Ghostscript is distributed in the hope that it will be useful, but
+% WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
+% to anyone for the consequences of using it or for whether it serves any
+% particular purpose or works at all, unless he says so in writing.  Refer
+% to the Ghostscript General Public License for full details.
+%
+% Everyone is granted permission to copy, modify and redistribute
+% Ghostscript, but only under the conditions described in the Ghostscript
+% General Public License.  A copy of this license is supposed to have been
+% given to you along with Ghostscript so you can know your rights and
+% responsibilities.  It should be in a file named COPYING.  Among other
+% things, the copyright notice and this notice must be preserved on all
+% copies.
+
+% dmp_init.ps
+%   Initialization file for `dmprt' device driver.
+%
+%   Written initial version by...         ASAYAMA Kazunori  1993 Nov.
+%   Modified for Ghostscript 4.03 by ...  ASAYAMA Kazunori  1997 May.
+
+%%%%%                        check version                         %%%%%
+
+201 % version of this initialization file.
+
+/dmprt finddevice { /DmprtParams gsgetdeviceprop /Version get }
+  stopped { pop pop 0 } if
+2 copy ne {
+  (\ndmprt: driver version\() print
+  dup 0 eq {pop (unknown) print }{==only}ifelse
+  (\) does not match dmp_init.ps version\() print
+  ==only (\).\n) print
+  flush 1 .quit
+} { pop pop } ifelse
+
+%%%%%                            BODY                              %%%%%
+
+40 dict begin         % .WorkDict .UserParams
+                      % .DmprtDevice
+                      % .GetDmprtParam .SetDmprtParam
+                      % .DmprtParams .Xdpi .Ydpi .Xdot .Ydot
+                      %
+                      % in cm mm pt bp dot
+                      % BeginMode EndMode
+                      % .ModeDataBase .CurrentMode
+                      % BeginConfig EndConfig
+                      % BeginPrinterProps EndPrinterProps
+
+/.WorkDict currentdict def
+/.ModeDataBase 10 dict def
+/.dicttomark {
+  counttomark 2 idiv dup dict begin { def } repeat pop currentdict end
+} bind def
+
+%%%%%                utilities for user customization.             %%%%%
+
+/in { } bind def
+/cm { 2.54 div } bind def
+/mm { 25.4 div } bind def
+/pt { 72.27 div } bind def
+/bp { 72.0 div } bind def
+/dot { [ exch truncate cvi ] } bind def
+
+% the database of user customizations. (not implemented yet.)
+/BeginMode { % <name> -> <name> mark
+  mark
+} bind def
+/EndMode { % <name> mark <item1> <value1> ... <itemN> <valueN> -> --
+  .dicttomark .ModeDataBase
+  dup dup maxlength exch length eq {
+    % Expand capacity of database dictionaly.
+    dup maxlength 10 add dict copy dup /.ModeDataBase exch def
+  } if
+  3 1 roll put
+} bind def
+
+% these procedures are undocumented in the user's manual.
+% these are used in order to specify the propaties directly.
+/BeginPrinterProps { [ } bind def
+/EndPrinterProps { ] /printer exch } bind def
+
+%%%%%                run the user customization file.              %%%%%
+
+/BeginConfig mark def
+/EndConfig { .dicttomark /.UserParams exch def } bind def
+systemdict /DMPCONFIG 2 copy known
+{ get run }    % -sDMPCONFIG=<filename>
+{ pop pop (dmp_site.ps) findlibfile { closefile run } if } ifelse
+
+%%%%%                        refer database                        %%%%%
+
+/.UsedMode .ModeDataBase length dict def
+/.ExpandUserParams { % <dict> -> <param1> <value1> ... <paramN> <valueN>
+  /.InheritMode null def
+  { 1 index /inherit eq {
+      exch pop dup .UsedMode exch known { % check recursive reference.
+        /.ExpandUserParams /rangecheck signalerror
+      } if
+      /.InheritMode exch def
+    } if } forall
+  .InheritMode type /nametype eq {
+    .UsedMode .InheritMode true put
+    .ModeDataBase .InheritMode get .ExpandUserParams
+  } if
+} bind def
+
+systemdict /DMPMODE 2 copy known
+  {get .ModeDataBase exch get} {pop pop .UserParams} ifelse
+mark exch .ExpandUserParams .dicttomark /.UserParams exch def
+
+%%%%%                Local variables and procedures.               %%%%%
+/.DmprtDevice /dmprt finddevice def
+/.SetDmprtParam {   % <key> <value> -> --
+  .DmprtParams 3 1 roll put
+} bind def
+/.SetLocalParam { .LocalParams 3 1 roll put } bind def
+/.GetDmprtParam {   % <key> -> <value>
+  .DmprtParams exch get
+} bind def
+/.GetUserParam {       % <key> <default-value> -> <value>
+  .UserParams 3 -1 roll 2 copy known {get exch pop}{pop pop} ifelse
+} bind def
+/.SetUserParam { % <prop-name> <key> <default-value> -> --
+  .GetUserParam .SetDmprtParam
+} bind def
+
+%%%%%                     dviprt proparties                        %%%%%
+
+mark
+.UserParams /printer 2 copy known {
+  get dup type /dicttype ne { mark /FileName 3 -1 roll .dicttomark } if
+}
+{ pop pop % Default printer is `ESC/P 24 pins'.
+    mark
+    /Name          (ESC/P 24 pins)
+    /Transpose     true
+    /Reverse       false
+    /NonMoving     false
+    /Encoding      (Null)
+    /HDpi           180
+    /VDpi           180
+    /Pins          24
+    /MinimalUnit   1
+    /MaximalUnit   180
+    /Constant      1
+    /BitImageMode  (\007\0333\030\033?Z\047)
+    /NormalMode    (\004\015\014\0332)
+    /SendBitImage  (\002\033Z\002\001\200)
+    /SkipSpaces    (\002\033\\\002\001\200)
+    /LineFeed      (\002\015\012)
+    /FormFeed      (\002\015\014)
+    /AfterBitImage ()
+    /BitRowHeader  ()
+    .dicttomark
+} ifelse
+/DviprtParams exch .DmprtDevice putdeviceprops
+
+getdeviceprops .dicttomark /.DmprtParams exch def
+.DmprtParams /DviprtParams get /.DviprtParams exch def
+.DmprtParams /DmprtParams get /.LocalParams exch def
+
+% calcurate resolutions and define operators converting
+% from user-coordination to device-coordination(count by dots).
+/resolution [ .DviprtParams dup /HDpi get exch /VDpi get ]
+  .GetUserParam {} forall /.Ydpi exch def /.Xdpi exch def
+/.Xdot { dup type /arraytype eq { 0 get } { .Xdpi mul truncate cvi } ifelse
+} bind def
+/.Ydot { dup type /arraytype eq { 0 get } { .Ydpi mul truncate cvi } ifelse
+} bind def
+
+%%%%%           Standard Ghostscript device propaties.             %%%%%
+
+/HWSize  % default is A4.
+  /defaultsize [8.3 11.7] .GetUserParam
+  [ exch dup 0 get .Xdot exch 1 get .Ydot ] .SetDmprtParam
+
+%%%%%                   dmprt device propaties.                    %%%%%
+
+/MaxSize
+  /maxsize [0.0 0.0] .GetUserParam [ exch dup 0 get .Xdot exch 1 get .Ydot ]
+  .SetLocalParam
+/Margins /margin [0.0 0.0 0.0 0.0] .GetUserParam
+  [ exch dup 0 get .Xdot exch dup 1 get .Ydot
+    exch dup 2 get .Xdot exch     3 get .Ydot ] .SetLocalParam
+/Verbose QUIET {false}
+  {/verbose false .GetUserParam} ifelse .SetLocalParam
+/Debug /debug false .GetUserParam .SetLocalParam
+
+%%%%%                   Page device propaties.                     %%%%%
+%%%%%         See PostScript Reference Manual 2nd edition.         %%%%%
+
+/HWResolution [ .Xdpi .Ydpi ] .SetDmprtParam
+/Offsets
+  /offset [0.0 0.0] .GetUserParam [ exch dup 0 get .Xdot exch 1 get .Ydot ]
+  .SetLocalParam
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+mark .DmprtParams {} forall .DmprtDevice putdeviceprops pop
+
+end
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%   End of file   %%%%%%%%%%%%%%%%%%%%%%%%%%%