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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2007-02-20 15:54:19 -0800 (Tue, 20 Feb 2007)
New Revision: 7724

Modified:
   trunk/gs/doc/pscet_status.txt
   trunk/gs/lib/gs_res.ps
Log:
Require resource category to be a name in the findresource operator.
Convert 1st operand to a name if it's a string. Fix CET 23-13-04.

DIFFERENCES:
No other CET or comparefiles differences.


Modified: trunk/gs/doc/pscet_status.txt
===================================================================
--- trunk/gs/doc/pscet_status.txt	2007-02-20 23:35:19 UTC (rev 7723)
+++ trunk/gs/doc/pscet_status.txt	2007-02-20 23:54:19 UTC (rev 7724)
@@ -4010,7 +4010,7 @@
 20-22-3  OK	
 
 20-23-1  OK  	Tek and CPSI don't have /deviceinfo. Availability of this operator
-                on Ghostscript deprnds on gs_dps device. Rev. 7223 undefines it in
+                on Ghostscript deprnds on gs_dps device. Rev. 7723 undefines it in
 		gs_cet.ps to pass the test regardless of the configuration. - Alex
 
 20-23-2  OK	
@@ -4370,12 +4370,8 @@
 23-13-3  DIFF	Device Dependent: GS has different Resource Categories and also
 		has different number of columns. Assign: Ray for further analysis
 
-23-13-4  DIFF	GS has different Font dict entries: .Alias only in GS, no CharOffsets
-		string, .OrigFont instead of OrigFont. GS has PathLoad. Later GS
-		shows (Oh*) instead of /Oh*. GS loads a font from (/Name (Font) findresource)
-		Special Test A, GS shows --findresource-- instead of findresource.
-		(.OrigFont issue should be fixed in r7156, other issues not reanalyzed yet - Raph)
-                assign alex
+23-13-4  AOK 	Ghostscript has extra keys in the font dictionary. PLRM says that
+		implementations can add specific keys. Rev. 7724 - Alex
 
 23-13-5  OK	Fixed by rev 7442.
 

Modified: trunk/gs/lib/gs_res.ps
===================================================================
--- trunk/gs/lib/gs_res.ps	2007-02-20 23:35:19 UTC (rev 7723)
+++ trunk/gs/lib/gs_res.ps	2007-02-20 23:54:19 UTC (rev 7724)
@@ -204,7 +204,12 @@
 def
 /findresource {
     % See above re .errorexec.
-    1 .argindex pop	% catch stackunderflow
+    1 .argindex 	% also catch stackunderflow
+    dup type /stringtype eq { cvn } if  % for CET 23-13-04
+    3 1 roll exch pop
+    dup type /nametype ne {
+      /findresource .systemvar /typecheck signalerror
+    } if
     /findresource cvx //.findresource .errorexec
 } odef