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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2007-12-18 22:25:41 -0800 (Tue, 18 Dec 2007)
New Revision: 8452

Modified:
   trunk/gs/lib/pdf_font.ps
Log:
Ignore operator readonly when it is applied to a wrong type inside an
embedded Type 1 font. Bug 689617, customer 580.

DIFFERENCES:
None.


Modified: trunk/gs/lib/pdf_font.ps
===================================================================
--- trunk/gs/lib/pdf_font.ps	2007-12-19 06:22:22 UTC (rev 8451)
+++ trunk/gs/lib/pdf_font.ps	2007-12-19 06:25:41 UTC (rev 8452)
@@ -723,9 +723,25 @@
     { stop } if
   } bdef
 
-  currentdict dup
+  /readonly-op-dict <<
+    /stringtype 0
+    /arraytype 0
+    /packedarraytype 0
+    /dicttype 0
+  >> readonly def
+
+  /readonly { % bug 689617
+    dup type //readonly-op-dict exch known {
+    readonly
+  } {
+    (   **** Warning: Type 1 font applies operator readonly to a wrong type.\n)
+    pdfformaterror
+  } ifelse } .bind def
+
+  currentdict dup dup
   /undef_proc_warning undef
   /missing-type1-procs undef
+  /readonly-op-dict undef
 
 end readonly def