Import sources from 2011-03-30 iso image - sys/lib

1 files changed, 335 insertions, 0 deletions

diff --git a/sys/lib/ghostscript/gs_icc.ps b/sys/lib/ghostscript/gs_icc.ps
new file mode 100755
index 000000000..4025a0f68
--- /dev/null
+++ b/sys/lib/ghostscript/gs_icc.ps
@@ -0,0 +1,335 @@
+%    Copyright (C) 2001, 2002 Aladdin Enterprises.  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.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_icc.ps,v 1.10 2003/07/14 19:32:17 ray Exp $
+% ICCBased color space method dictionaries.
+% This assumes gs_ciecs2.ps has already been processed.
+
+%
+% Note that the substitution procedure in this routine will dynamically
+% check for support of ICCBased color space. If such support is not
+% provided, the alternative color space will be used.
+%
+% The validation routine in dictionary (cs_validate) performs a more
+% extensive validation than is done for other color spaces, because
+% .seticcspace does less checking than most other color space setting
+% operators.
+%
+
+
+.currentglobal true .setglobal
+.cspace_util begin
+
+%
+% A dictionary for mapping the number of components of an ICCBased color
+% space to the appropriate alternative color space. This is used only
+% if an alternative color space is not specifically provided.
+%
+/icc_comp_map_dict
+  mark 1 /DeviceGray 3 /DeviceRGB 4 /DeviceCMYK .dicttomark
+def
+
+%
+%   <array1>   get_icc_alternative_space   <name | array2>
+%
+% Get the alternative color space for an ICCBased color space.
+%
+/get_icc_alternative_space
+  {
+    1 get dup /Alternate .knownget
+      { exch pop }
+      { /N get //icc_comp_map_dict exch get }
+    ifelse
+  }
+bind def
+
+
+colorspacedict
+/ICCBased
+  mark
+    /cs_potential_indexed_base true
+    /cs_potential_pattern_base true
+    /cs_potential_alternate true
+    /cs_potential_icc_alternate false
+    /cs_get_ncomps { 1 get /N get } bind
+
+    /cs_get_range
+      {
+        1 get dup /Range .knownget
+          { exch pop }
+          { /N get 2 mul //dflt_range_4 exch 0 exch getinterval }
+        ifelse
+      }
+    bind
+
+    /cs_get_default_color { 1 get /N get { 0 } repeat } bind
+
+    %
+    % For generating a gray, RGB, or CMYK equivalent color, we will
+    % assume that the alternative color space provides reasonable
+    % mapping.
+    /cs_get_currentgray
+      { //get_icc_alternative_space exec //.cs_get_currentgray exec }
+    bind
+    /cs_get_currentrgb
+      { //get_icc_alternative_space exec //.cs_get_currentrgb exec }
+    bind
+    /cs_get_currentcmyk
+      { //get_icc_alternative_space exec //.cs_get_currentcmyk exec }
+    bind
+
+    % a lot of validation is done by the cs_validate method
+    /cs_validate
+      {
+        //check_cie_cspace exec
+        dup 1 get
+        dup /N get
+        dup type /integertype ne
+          //setcspace_typecheck
+        if
+        //icc_comp_map_dict exch known not
+          //setcspace_rangecheck
+        if
+        dup /DataSource get
+        dup type dup /stringtype ne exch /filetype ne and
+          //setcspace_typecheck
+        if
+        rcheck not
+          //setcspace_invalidaccess
+        if
+        dup /Range .knownget
+          {
+            //check_array exec
+              {
+                type dup /integertype ne exch /realtype ne and
+                  //setcspace_typecheck
+                if
+              }
+            forall
+          }
+        if
+        /Alternate .knownget
+          {
+            //.cs_validate exec
+            //.cs_potential_icc_alternate exec not
+              //setcspace_rangecheck
+            if
+          }
+        if
+      }
+    bind
+
+    % substitute the Alternate space, if appropriate
+    /cs_substitute
+      {
+        %
+        % A design problem in the Ghostscript graphic library color
+        % space code prevents an ICCBased color space from having an
+        % ICCBased alternative color space. This situation actually
+        % arises fairly frequently in PDF, as an ICCBased color space
+        % is used as the substitute color for a Device{Gray|RGB|CMYK}
+        % color space, which in turn are used as the alternative color
+        % space to another (or possibly even the same) ICCBased color
+        % space.
+        %
+        % This situation causes no fundamental problems, as
+        % Ghostscript nominally supports ICCBased color spaces, so the
+        % Alternate color space is not used. Where this is not true
+        % (primarily because the NOCIE option is selected), the code
+        % would (except for the design flaw noted above) select the
+        % Alternate of the Alternate color space.
+        %
+        % The code below works around this problem by suprressing
+        % color space substitution for alternative color spaces if
+        % the substituting space is an ICCBased color space.
+        %
+        dup //get_icc_alternative_space exec
+        //.cs_substitute exec
+        2 copy eq
+        1 index //.cs_potential_icc_alternate exec not
+        or
+          { pop pop dup }
+          {
+            % retain just the new Alternate space
+            exch pop
+
+            % build all new structures in local VM
+            .currentglobal 3 1 roll //false .setglobal
+
+            % copy the original ICCBased color space array
+            1 index dup length array copy
+
+            % copy the ICCBased dictionary
+            dup 1 2 copy get dup length dict copy
+
+            % insert the new alterante color space
+            dup /Alternate 7 -1 roll put
+
+            % insert the new dictionary into the arra
+            put
+
+            % restore the VM mode
+            3 -1 roll .setglobal
+          }
+        ifelse
+      }
+    bind
+
+    %
+    % The current implementation of ICCBased color spaces requires the
+    % DataSource to be a file.
+    %
+    /cs_prepare
+      {
+        % make DataSource a file
+        dup 1 get /DataSource get type /stringtype eq
+          {
+            % build all new structures in local VM
+            .currentglobal exch //false .setglobal
+
+            % check if we need to copy the color space and dictionary
+            2 copy eq
+              {
+                dup length array copy
+                dup 1 2 copy get dup length dict copy put
+              }
+            if
+
+            % fetch DataSource, setting up stack for multiple puts
+            dup 1 2 copy get dup /DataSource 2 copy get
+
+            % convert the string into a file
+            /ReusableStreamDecode filter
+
+            % put the file into the dictioary, the dictionary into the array
+            put put
+
+            % restore the VM mode
+            exch .setglobal
+          }
+        if
+      }
+    bind
+
+    %
+    % Install the current color space.
+    %
+    % The current Ghostscript color space implementation requires that
+    % color spaces that provide a base or alternative color space set
+    % that base/alternative color space to be the current color space
+    % before attempting to set the original color space. This can cause
+    % difficulty if an ICCBased color space is being used as a substitute
+    % color space for a device-specific color space, and uses that same
+    % device-specific color space as an alternative space. For this
+    % reason, a special _setcolorspace_nosub operator is provided.
+    %
+    /cs_install
+      {
+        % set the alternative color space to be the current color space
+        dup //get_icc_alternative_space exec //_setcolorspace_nosub exec
+
+        % check for native support
+        /.seticcspace where
+          { pop //false }
+          { //true }
+        ifelse
+        NOCIE or
+          //pop_1       % do nothing
+          {
+            % Acrobat Reader silently ignores errors with ICC profiles
+            % and uses the alternate color space -- do the same.
+            mark exch 1 get
+              { .seticcspace }
+            .internalstopped
+            cleartomark
+          }
+        ifelse
+      }
+    bind
+
+    % for now, the alternative spaces for an ICCBased color space do 
+    % not require special preparation
+    /cs_prepare_color { dup 1 get /N get //check_num_stack exec pop } bind
+    /cs_complete_setcolor //pop_1
+
+  .dicttomark
+put
+
+end     % .cspace_util
+
+NOPSICC { (%END PSICC) .skipeof } if
+% Now set up ICC profile loading for PostScript %%BeginICCProfile sections.
+
+systemdict begin
+/.ProcessICCcomment { % file comment --  file comment
+  dup
+  (%%BeginICCProfile) anchorsearch {
+    pop pop
+    DEBUG { (.ProcessICCcomment found %%BeginICCProfile) print flush } if
+
+    % load an ICC profile defined as comments (hex encoded).
+    % Ends with %%End at the start of a line. Read the data into
+    % a bytestring to allow seeking. This string can be used as a
+    % seekable ReusableStreamDecode filter source by the ICC logic.
+    %
+    % Since .bigstring needs to know the size, we first read an array of
+    % strings each 64000 max length.
+    %
+    % stack: --file-- (%%BeginICCProfile: ...) 
+    1 index 0 (%%EndICCProfile) /SubFileDecode filter
+    [ { counttomark 1 add index
+        64000 string readhexstring
+        not { exit } if
+      } loop
+    ] exch closefile
+    0 1 index { length add } forall
+    .bigstring
+    exch 0 exch {
+      % stack: --file-- (%%BeginICCProfile: ...) --bytestring-- cur_index --string--
+      2 copy length add 	% calculate next string start point
+      3 1 roll 3 index 3 1 roll putinterval
+    } forall
+    pop				% discard length of bytestring
+    % make a seekable -file- out of the bytestring
+    mark /AsyncRead true .dicttomark /ReusableStreamDecode filter
+    % stack: --file-- (%%BeginICCProfile: ...) --icc_subfile-- 
+    /DeviceCMYK setcolorspace
+    << /DataSource 3 -1 roll
+       /N 4		% Try CMYK first
+    >> { .seticcspace } stopped {
+      /DeviceRGB setcolorspace
+      dup /N 3 put  { .seticcspace } stopped {
+        /DeviceGray setcolorspace
+        dup /N 1 put { .seticcspace } stopped {	% last choice
+          QUIET not { (   *** Unable to load ICC profile from PostScript DSC comments ***) = flush } if
+          pop
+        } if
+      } if
+    } if
+  } {
+    pop % Not interested in this DSC comment
+  } ifelse
+} bind def
+
+% Merge ProcessICCcomment with existing handler
+/.ProcessICCcomment load /exec load
+currentuserparams /ProcessDSCComment get 
+dup null eq {pop {pop pop}} if /exec load
+4 array astore cvx readonly
+<< /ProcessDSCComment 3 -1 roll >> setuserparams
+
+end	% systemdict
+%END PSICC
+.setglobal