pdftex[888] branches/stable: display "struct" info for \pdfdest

[commits+thanh at tug.org]

Revision: 888
          http://tug.org/svn/pdftex?view=revision&revision=888
Author:   thanh
Date:     2022-12-28 10:33:15 +0100 (Wed, 28 Dec 2022)
Log Message:
-----------
display "struct" info for \pdfdest

Modified Paths:
--------------
    branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web

Added Paths:
-----------
    branches/stable/tests/26-show-pdfdest-struct/
    branches/stable/tests/26-show-pdfdest-struct/Makefile
    branches/stable/tests/26-show-pdfdest-struct/f.tex

Modified: branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web
===================================================================
--- branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web	2022-12-22 22:48:52 UTC (rev 887)
+++ branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web	2022-12-28 09:33:15 UTC (rev 888)
@@ -35537,6 +35537,10 @@
 pdf_end_link_node: print_esc("pdfendlink");
 pdf_dest_node: begin
     print_esc("pdfdest");
+    if pdf_dest_objnum(p) <> null then begin
+        print(" struct");
+        print_int(pdf_dest_objnum(p));
+    end;
     if pdf_dest_named_id(p) > 0 then begin
         print(" name");
         print_mark(pdf_dest_id(p));

Added: branches/stable/tests/26-show-pdfdest-struct/Makefile
===================================================================
--- branches/stable/tests/26-show-pdfdest-struct/Makefile	                        (rev 0)
+++ branches/stable/tests/26-show-pdfdest-struct/Makefile	2022-12-28 09:33:15 UTC (rev 888)
@@ -0,0 +1,13 @@
+include ../Common.mak
+
+# prog = $(pdftex2) -fmt pdfetex
+
+test:
+	$(pdftex2) -ini ./f.tex
+
+# fmt:
+	# $(pdftex2) -ini '*pdfetex.ini'
+
+clean:
+	$(clean)
+

Added: branches/stable/tests/26-show-pdfdest-struct/f.tex
===================================================================
--- branches/stable/tests/26-show-pdfdest-struct/f.tex	                        (rev 0)
+++ branches/stable/tests/26-show-pdfdest-struct/f.tex	2022-12-28 09:33:15 UTC (rev 888)
@@ -0,0 +1,14 @@
+\input plain.tex
+\input pdftexconfig.tex
+\input pdftexmagfix.tex
+\pdfcompresslevel=0
+\pdfobjcompresslevel=0
+
+
+\showboxbreadth=100
+\showboxdepth=100
+\tracingoutput=1
+abc
+\pdfdest name {aaa} xyz
+\pdfdest struct 1 name {bbb} xyz %number meaningless, only test!!
+\bye