[gs-cvs] rev 9603 - trunk/gs/toolbin

[alexcher at ghostscript.com]

Author: alexcher
Date: 2009-03-28 16:47:38 -0700 (Sat, 28 Mar 2009)
New Revision: 9603

Modified:
   trunk/gs/toolbin/pdf_info.ps
Log:
Recognize composite fonts and process descendant fonts according to
-dShowEmbeddedFonts flag. Bug 690363.


Modified: trunk/gs/toolbin/pdf_info.ps
===================================================================
--- trunk/gs/toolbin/pdf_info.ps	2009-03-28 21:03:25 UTC (rev 9602)
+++ trunk/gs/toolbin/pdf_info.ps	2009-03-28 23:47:38 UTC (rev 9603)
@@ -83,10 +83,11 @@
     /Resources pget {
       /Font knownoget {
 	{ exch pop oforce
-	  dup
-	  /FontDescriptor knownoget
-	  {
-	    dup /FontFile known 1 index /FontFile2 known or exch /FontFile3 known or
+          dup /DescendantFonts knownoget {
+            exch pop 0 get oforce
+          } if
+       	  dup /FontDescriptor knownoget {
+            dup /FontFile known 1 index /FontFile2 known or exch /FontFile3 known or
 	    /ShowEmbeddedFonts where { pop pop false} if {
 	      pop			% skip embedded fonts
 	    } {
@@ -107,7 +108,7 @@
 
 systemdict /DumpFontsUsed known
 {
-  (\nFonts Used:) =
+  (\nFont or CIDFont resources used:) =
   getPDFfonts { = } forall
 } if