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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2008-01-16 19:12:45 -0800 (Wed, 16 Jan 2008)
New Revision: 8486

Modified:
   trunk/gs/lib/pdf_font.ps
   trunk/gs/lib/pdf_main.ps
Log:
Remove the warning about non-embedded TrueType fonts in PDF files because it
confuses users but seems to have little effect on the main producer of
non-conforming files.

DIFFERENCES:
No raster differences, fewer warnings on stdout.


Modified: trunk/gs/lib/pdf_font.ps
===================================================================
--- trunk/gs/lib/pdf_font.ps	2008-01-16 23:35:48 UTC (rev 8485)
+++ trunk/gs/lib/pdf_font.ps	2008-01-17 03:12:45 UTC (rev 8486)
@@ -876,8 +876,6 @@
 
 /buildTrueType {	% <TrueType-font-resource> buildTrueType <font>
   dup /BaseFont oget
-  /Repaired true store	% flag that we had warnings
-  TTFWarnList 1 index true put	% Add fontname to the list
   dup /Font resourcestatus dup { exch pop exch pop } if not
   TTfonts 2 index known and {
     dup TTfonts exch get

Modified: trunk/gs/lib/pdf_main.ps
===================================================================
--- trunk/gs/lib/pdf_main.ps	2008-01-16 23:35:48 UTC (rev 8485)
+++ trunk/gs/lib/pdf_main.ps	2008-01-17 03:12:45 UTC (rev 8486)
@@ -626,7 +626,7 @@
    /PDFsource PDFfile def
    /Repaired false def
    currentglobal true .setglobal globaldict begin
-   /TTFWarnList 0 dict def /UndefProcList 0 dict def
+   /UndefProcList 0 dict def
    end .setglobal
    PDFfile dup 0 setfileposition
    0 () /SubFileDecode filter   % to avoid file closure
@@ -817,18 +817,9 @@
     ( <<<<\n) stderrprint
   } ifelse
 } bind def
-% The TTFWarnList is the list of all TrueType fonts that were not embedded.
 % The UndefProcList collects noisy warnings.
 % This gets rid of many multiple warnings from pdf_font.ps
 /printCollectedWarnings {
-   TTFWarnList length 0 gt {
-      (\n   **** Warning: Fonts with Subtype = /TrueType should be embedded.\n)
-      stderrprint
-      (                 The following fonts were not embedded:\n)
-      stderrprint
-      [ TTFWarnList { pop .namestring (\t\t\t) exch concatstrings (\n) concatstrings } forall ] 
-      { lt } .sort { stderrprint } forall
-   } if
    UndefProcList length 0 gt {
       (\n   **** Embedded font uses undefined procedure\(s\):  ) stderrprint
       UndefProcList {