[gs-cvs] rev 7619 - in trunk/gs: doc lib

[alexcher at ghostscript.com]

Author: alexcher
Date: 2007-01-19 06:00:14 -0800 (Fri, 19 Jan 2007)
New Revision: 7619

Modified:
   trunk/gs/doc/pscet_status.txt
   trunk/gs/lib/gs_res.ps
Log:
Adobe interpreters have resourcestatus operator but report errors in the
executable name. We do the same now.

DIFFERENCES:
None


Modified: trunk/gs/doc/pscet_status.txt
===================================================================
--- trunk/gs/doc/pscet_status.txt	2007-01-19 04:09:50 UTC (rev 7618)
+++ trunk/gs/doc/pscet_status.txt	2007-01-19 14:00:14 UTC (rev 7619)
@@ -4248,9 +4248,8 @@
 23-26-3  AOK	Device Dependent: GS has more entries for Filter, ColorSpace
 		page fills before ImageType and PatternType shown. Same as 23-13-2.
 
-23-26-4  DIFF	A difference in stack content on a resoursestatus error :
-		Likely CPSI places an executable name but GS does the operator.
-		Tek matches CPSI. Assign: Alex.
+23-26-4  OK	Adobe interpreters have resoursestatus as an operator but report errors
+		in the executable name. Since rev. 7619 we do the same. - Alex
 
 23-26-5  OK	
 
@@ -4297,8 +4296,7 @@
 
 23-33-4  DIFF	'undefineresource' error inconformity. assign: Alex.
 
-23-33-5  DIFF   'resourcestatus' error inconformity. assign: Alex.
-		PLRM3: "However, the resource category must exist, or else an undefined error occurs."
+23-33-5  OK     Fixed in rev. 7619; See 23-26-4 for details. - Alex.
 
 23-33-6  OK	
 

Modified: trunk/gs/lib/gs_res.ps
===================================================================
--- trunk/gs/lib/gs_res.ps	2007-01-19 04:09:50 UTC (rev 7618)
+++ trunk/gs/lib/gs_res.ps	2007-01-19 14:00:14 UTC (rev 7619)
@@ -242,13 +242,19 @@
 } bind odef
 /resourcestatus {	% <key> <category> resourcestatus <status> <size> true
 			% <key> <category> resourcestatus false
-  0 .argindex type /nametype ne {
-    % CET 23-26 wants typecheck here, not undefineresource that happens
-    % without the check.
-    /resourcestatus cvx /typecheck signaloperror
+  {
+    0 .argindex type /nametype ne {
+      % CET 23-26 wants typecheck here, not undefineresource that happens
+      % without the check.
+      /resourcestatus cvx /typecheck signalerror
+    } if
+    2 copy .findcategory /ResourceStatus .resourceexec
+    { 4 2 roll pop pop true } { pop pop false } ifelse
+  } stopped {
+    % Although resourcestatus is an operator, Adobe uses executable name
+    % for error reporting. CET 23-26
+    /resourcestatus cvx $error /errorname get signalerror
   } if
-  2 copy .findcategory /ResourceStatus .resourceexec
-  { 4 2 roll pop pop true } { pop pop false } ifelse
 } bind odef
 /undefineresource {	% <key> <category> undefineresource -
     1 .argindex 1 index		% catch stackunderflow