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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2007-12-16 23:28:22 -0800 (Sun, 16 Dec 2007)
New Revision: 8445

Modified:
   trunk/gs/lib/pdf_main.ps
Log:
Improve outline pdfmarks produced by the pdf interpreter. Add page number and view
values. Thanks to Leon Bottou for the patch. Bug 689599.

DIFFERENCES:
No raster differences.


Modified: trunk/gs/lib/pdf_main.ps
===================================================================
--- trunk/gs/lib/pdf_main.ps	2007-12-16 15:38:09 UTC (rev 8444)
+++ trunk/gs/lib/pdf_main.ps	2007-12-17 07:28:22 UTC (rev 8445)
@@ -857,8 +857,27 @@
     { 2 index /Count knownoget { 0 lt { neg } if } if
       /Count exch 3 index
     }
-   ifelse { linkdest } stopped 
+    ifelse
     {
+      dup /A knownoget {
+        dup /URI known {
+          /A mark 3 2 roll    % <<>> /A [ <<action>>
+          { oforce } forall
+          .dicttomark
+          3 2 roll
+        } {
+          dup /D knownoget {
+            exch pop exch dup length dict copy dup /Dest 4 -1 roll put
+          } {
+            /N knownoget {                % Assume /S /Named
+               namedactions exch .knownget { exec } if
+             } if
+          } ifelse
+        } ifelse
+      } if
+      linkdest
+    } stopped
+    {
       cleartomark	% ignore this link
       (   **** Warning: Outline has invalid link that was discarded.\n)
       pdfformaterror