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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2008-05-16 18:02:02 -0700 (Fri, 16 May 2008)
New Revision: 8744

Modified:
   trunk/gs/lib/pdf_draw.ps
Log:
Replace various access techniques to PDF annotations with 'knownoget'
in preparation to fix the bug 689839.

DIFFERENCES:
None.


Modified: trunk/gs/lib/pdf_draw.ps
===================================================================
--- trunk/gs/lib/pdf_draw.ps	2008-05-16 23:34:14 UTC (rev 8743)
+++ trunk/gs/lib/pdf_draw.ps	2008-05-17 01:02:02 UTC (rev 8744)
@@ -1402,19 +1402,17 @@
       (   **** Appearance dictionary (AP) lacks the mandatory normal (N) appearance.\n)
       pdfformaterror
     } if
-    false
+    //false
     [/N /R /D] {
 	% stack: scale annot appearance false key
-      dup 3 index exch known {
-	exch pop true exit 
+      2 index exch knownoget {
+	exch not exit 
       } if
-      pop
     } forall
-	% stack: scale annot appearance key true
+	% stack: scale annot appearance value true
 	% stack: scale annot appearance false
     dup {
-      pop
-      oget
+      pop exch pop
 		% Acrobat Distiller produces files in which this Form
 		% XObject lacks Type and Subtype keys.  This is illegal,
 		% but Acrobat Reader accepts it.  The only way we can
@@ -1423,11 +1421,11 @@
                 % If the stream lacks Length key, try File key.
       dup /Length known 1 index /File known or {
       		% If this is a form then simply use it
-        true
+        //true
       } {
         1 index /AS knownoget not {
       		% If we do not have AS then use any appearance
-  	  { exch pop oforce exit } forall true
+  	  { exch pop oforce exit } forall //true
         } { 
 		% Stack: annot Ndict AS
 		% Get the specified appearance.  If no appearance, then