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

[leonardo at ghostscript.com]

Author: leonardo
Date: 2007-01-03 02:30:52 -0800 (Wed, 03 Jan 2007)
New Revision: 7558

Modified:
   trunk/gs/doc/pscet_status.txt
   trunk/gs/lib/gs_cidfn.ps
Log:
Fix : Adding OrigFont to CIDFont resources for CPSI conformity.

DETAILS :

Debugged with CET 33_all.PS .

EXPECTED DIFFERENCES :

None.


Modified: trunk/gs/doc/pscet_status.txt
===================================================================
--- trunk/gs/doc/pscet_status.txt	2007-01-03 09:58:15 UTC (rev 7557)
+++ trunk/gs/doc/pscet_status.txt	2007-01-03 10:30:52 UTC (rev 7558)
@@ -3382,10 +3382,10 @@
 		font dictionary debug for GS has one more key: /OrigFont.
 	 I think these differences are harmless, and are not particularly easy to fix. If we do decide it needs fixing, Peter is a good choice. - Raph
 
-15-04-2  AOK	Different checksum. The font dictionary debug for GS has more keys: /.OrigFont and /FontInfo.
+15-04-2  AOK	Different checksum. The font dictionary debug for GS has more keys: /OrigFont and /FontInfo.
 	 See 15-04-1 - Raph
 
-15-04-3  AOK	Different checksum. The font dictionary debug for GS has one more key: /.OrigFont.
+15-04-3  AOK	Different checksum. The font dictionary debug for GS has one more key: /OrigFont.
 	 See 15-04-1 - Raph
 
 15-05-1  OK	Fixed when tested with 7210
@@ -5305,7 +5305,7 @@
 
 32_all-9  OK	
 
-33_all-1  DIFF	CIDFont dictionary key OrigFont is present in CPSI and not in GS. assign: Igor
+33_all-1  OK
 
 33_all-2  OK  	Fixed in rev. 7478. See 32_all-2. - Alex 
 
@@ -5321,7 +5321,7 @@
 
 33_all-8  OK	Minor differences visually reviewed by RJJ
 
-34_all-1  DIFF	CPSI has OrigFont, PaintType in a CID font dictionary. Assign: Ray
+34_all-1  OK
 
 34_all-2  OK  	Fixed in rev. 7478. See 32_all-2. - Alex 
 

Modified: trunk/gs/lib/gs_cidfn.ps
===================================================================
--- trunk/gs/lib/gs_cidfn.ps	2007-01-03 09:58:15 UTC (rev 7557)
+++ trunk/gs/lib/gs_cidfn.ps	2007-01-03 10:30:52 UTC (rev 7558)
@@ -343,6 +343,12 @@
 dup /InstanceType /dicttype put
 dup /DefineResource {
   .buildcidfont
+  dup /OrigFont known not {
+     dup dup /OrigFont exch .growput  % CPSI does it. Adding just for CET 33_all.PS conformity.
+  } if
+  dup /PaintType known not {
+     dup /PaintType 0 .growput  % CPSI does it. Adding just for CET 33_all.PS conformity.
+  } if
   /Generic /Category findresource /DefineResource get exec
 } put
 % CIDFonts may be defined in CFF OpenType files.