[gs-cvs] rev 7440 - trunk/gs/lib

[lpd at ghostscript.com]

Author: lpd
Date: 2006-12-03 07:52:07 -0800 (Sun, 03 Dec 2006)
New Revision: 7440

Modified:
   trunk/gs/lib/gs_lev2.ps
Log:
For Adobe compatibility (PS3 CET 09-56-1), changes findcolorrendering so
that errors report /findcolorrendering, not --findcolorrendering--, as the
command a.k.a. error object.


Modified: trunk/gs/lib/gs_lev2.ps
===================================================================
--- trunk/gs/lib/gs_lev2.ps	2006-12-02 07:24:01 UTC (rev 7439)
+++ trunk/gs/lib/gs_lev2.ps	2006-12-03 15:52:07 UTC (rev 7440)
@@ -702,16 +702,20 @@
 
 /findcolorrendering {		% <intentname> findcolorrendering
 				%   <crdname> <found>
-  /ColorRendering /ProcSet findresource
-  1 .argindex dup type /nametype eq { .namestring } if (.) concatstrings
-  1 index /GetPageDeviceName get exec dup type /nametype eq { .namestring } if (.) concatstrings
-  2 index /GetHalftoneName get exec dup type /nametype eq { .namestring } if
-  concatstrings concatstrings cvn	% stack: intentname procset crdname
-  dup /ColorRendering resourcestatus {
-    pop pop exch pop exch pop true
-  } {
-    pop /GetSubstituteCRD get exec false
-  } ifelse
+    % Adobe interpreters report /findcolorrendering (literal name), not the
+    % operator itself, if an error occurs in findcolorrendering.
+    /findcolorrendering {
+	/ColorRendering /ProcSet findresource
+	1 .argindex dup type /nametype eq { .namestring } if (.) concatstrings
+	1 index /GetPageDeviceName get exec dup type /nametype eq { .namestring } if (.) concatstrings
+	2 index /GetHalftoneName get exec dup type /nametype eq { .namestring } if
+	concatstrings concatstrings cvn	% stack: intentname procset crdname
+	dup /ColorRendering resourcestatus {
+	    pop pop exch pop exch pop true
+	} {
+	    pop /GetSubstituteCRD get exec false
+	} ifelse
+    } .errorexec
 } odef
 
 5 dict dup begin