[latex3-commits] [latex3/tagpdf] faster-ref: correct code, WIP (9a5c73a)

[github at latex-project.org]

Repository : https://github.com/latex3/tagpdf
On branch  : faster-ref
Link       : https://github.com/latex3/tagpdf/commit/9a5c73ad3a3009e2746166444a0ccf2e1cc196eb

>---------------------------------------------------------------

commit 9a5c73ad3a3009e2746166444a0ccf2e1cc196eb
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Sun Sep 8 18:28:02 2024 +0200

    correct code, WIP


>---------------------------------------------------------------

9a5c73ad3a3009e2746166444a0ccf2e1cc196eb
 tagpdf-struct.dtx | 19 +++++++++++--------
 tagpdf.dtx        |  2 ++
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/tagpdf-struct.dtx b/tagpdf-struct.dtx
index c12ea59..1705f69 100644
--- a/tagpdf-struct.dtx
+++ b/tagpdf-struct.dtx
@@ -936,13 +936,13 @@
 % be executed here, the formatting has to add also brackets. 
 % 
 %    \begin{macrocode}
-\cs_new:Nn\__tag_struct_format_Ref:nnN
+\cs_new_protected:Nn\@@_struct_format_Ref:nnN
   {
     \tl_put_right:Nn #3 { \c_space_tl/#1~[ } %]
     \clist_map_inline:nn{ #2 }
      {
-       ##1 \l_@@_struct_tmpa_tl
-       \tl_put_right:No #3 {\c_space_tl\l_@@_struct_tmpa_tl}  
+       ##1 \l_@@_Ref_tmpa_tl
+       \tl_put_right:No #3 {\c_space_tl\l_@@_Ref_tmpa_tl}  
      }
     \tl_put_right:Nn #3 
      { %[
@@ -1260,17 +1260,20 @@
 % elements are written in  \cs{@@_struct_write_obj}. They are used
 % in \cs{@@_struct_format_Ref}.
 %    \begin{macrocode}
-\cs_new_protected:Npn \@@_struct_Ref_label:n %#1 a label
+\cs_new_protected:Npn \@@_struct_Ref_label:nN #1 #2 %#1 a label
   {
-    \c_space_tl\@@_property_ref:en{tagpdfstruct-#1}{tagstructobj}
+    \tl_put_right:Ne#2
+      {
+        \c_space_tl\@@_property_ref:en{tagpdfstruct-#1}{tagstructobj}
+      }  
   }
-\cs_new_protected:Npn \@@_struct_Ref_dest:nN %#1 a dest name
+\cs_new_protected:Npn \@@_struct_Ref_dest:nN #1 #2 %#1 a dest name
   { 
-    \prop_get:NnNTF \g_@@_struct_dest_num_prop {#1} \l_@@_tmpa_tl
+    \prop_get:NnNTF \g_@@_struct_dest_num_prop {#1} \l_@@_tmpb_tl
       {
         \tl_put_right:Ne#2
           {
-            \tag_struct_object_ref:e{ \l_@@_tmpa_tl }
+            \tag_struct_object_ref:e{ \l_@@_tmpb_tl }
           }
       }    
       {
diff --git a/tagpdf.dtx b/tagpdf.dtx
index 75d6fdb..ab6fc94 100644
--- a/tagpdf.dtx
+++ b/tagpdf.dtx
@@ -251,6 +251,7 @@
 %  {
 %    \l_@@_tmpa_tl,
 %    \l_@@_tmpb_tl,
+%    \l_@@_Ref_tmpa_tl,
 %    \l_@@_get_tmpc_tl,    
 %    \l_@@_get_parent_tmpa_tl
 %    \l_@@_get_parent_tmpb_tl    
@@ -267,6 +268,7 @@
 %    \begin{macrocode}
 \tl_new:N    \l_@@_tmpa_tl
 \tl_new:N    \l_@@_tmpb_tl
+\tl_new:N    \l_@@_Ref_tmpa_tl
 \tl_new:N    \l_@@_get_tmpc_tl
 \tl_new:N    \l_@@_get_parent_tmpa_tl
 \tl_new:N    \l_@@_get_parent_tmpb_tl