[latex3-commits] [git/LaTeX3-latex3-pdfresources] backendtest: pdftex/bdc (754c113)

[Ulrike Fischer]

Repository : https://github.com/latex3/pdfresources
On branch  : backendtest
Link       : https://github.com/latex3/pdfresources/commit/754c11354bc0917d97933bd0f32001f680923aa2

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

commit 754c11354bc0917d97933bd0f32001f680923aa2
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Mon Aug 5 18:49:46 2019 +0200

    pdftex/bdc


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

754c11354bc0917d97933bd0f32001f680923aa2
 experiments/xform-tests.tex | 9 ++++++++-
 pdfresources.dtx            | 9 +++++++--
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/experiments/xform-tests.tex b/experiments/xform-tests.tex
index 70320c5..9a5afed 100644
--- a/experiments/xform-tests.tex
+++ b/experiments/xform-tests.tex
@@ -24,8 +24,10 @@
    \hbox_set:Nn \l__pdf_backend_tmpa_box
     {
      \bool_set_true:N \l__pdf_backend_xform_bool
+     \__pdf_tree_gclear:n {xform/Resources/Properties}
      #4
     }
+    \prop_show:c{\__pdf_tree_prop_name:n {xform/Resources/Properties}}
    \tl_const:cx
      { c__pdf_backend_xform_wd_ \tl_to_str:n {#1} _tl }
      { \tex_the:D \box_wd:N \l__pdf_backend_tmpa_box }
@@ -40,7 +42,12 @@
     ~  attr      ~ { #2 }
    %% add local properties.... !!!!!!
    %% which resources should be default? Is an argument actually needed?
-    ~  resources ~ { #3 }
+    ~  resources ~ 
+     {
+      \int_compare:nNnT 
+       {\prop_count:c { \__pdf_tree_prop_name:n {xform/Resources/Properties} }}>{0} 
+       {/Properties~<<\__pdf_tree_map_dict_item:n {xform/Resources/Properties}>>~ #3} 
+     }
     \l__pdf_backend_tmpa_box
    \int_const:cn
       { c__pdf_backend_xform_ \tl_to_str:n {#1} _int }
diff --git a/pdfresources.dtx b/pdfresources.dtx
index c2b6bc4..d0990a7 100644
--- a/pdfresources.dtx
+++ b/pdfresources.dtx
@@ -905,7 +905,12 @@
     % code to set the property ....
     \int_gincr:N\g_@@_backend_resourceid_int
     \bool_if:NTF \l__pdf_backend_xform_bool
-    {}
+    {
+     \exp_args:Nnx\@@_tree_gput:nnn
+     {xform/Resources/Properties}
+     {l3pdf\int_use:N\g_@@_backend_resourceid_int}
+     {\@@_backend_object_ref:n{#2}}
+    }
     {
     \zref at labelbylist {l3pdf\int_use:N\g_@@_backend_resourceid_int} {l3pdf}
     \tl_set:Nx \l_@@_tmpa_tl
@@ -919,7 +924,7 @@
      {backend_Page\l_@@_tmpa_tl/Resources/Properties}
      {l3pdf\int_use:N\g_@@_backend_resourceid_int}
      {\@@_backend_object_ref:n{#2}}
-     }
+    }
    }
  \cs_set_protected:Npn \@@_backend_emc:
    {