[latex3-commits] [git/LaTeX3-latex3-pdfresources] verify: move annot flag setting to command (5171d60)

[Ulrike Fischer]

Repository : https://github.com/latex3/pdfresources
On branch  : verify
Link       : https://github.com/latex3/pdfresources/commit/5171d60c3b22633e4a2a194f52c789e292ee1875

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

commit 5171d60c3b22633e4a2a194f52c789e292ee1875
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Tue Feb 16 16:43:06 2021 +0100

    move annot flag setting to command


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

5171d60c3b22633e4a2a194f52c789e292ee1875
 l3pdfmeta.dtx | 36 ++++++++++++++++++++++++------------
 1 file changed, 24 insertions(+), 12 deletions(-)

diff --git a/l3pdfmeta.dtx b/l3pdfmeta.dtx
index 1d35376..e86096e 100644
--- a/l3pdfmeta.dtx
+++ b/l3pdfmeta.dtx
@@ -122,12 +122,34 @@
 \prop_new:N \g_pdfmeta_standard_prop
 %    \end{macrocode}
 % \end{variable}
+% \subsection{Enforcing requirements}
+%  A number of requirements can sensibly be enforced by use.
+%  \subsubsection{Annot flags}
+% pdf/A require a number of settings here, we store them in a command which
+% can be added to the property of the standard:
+%    \begin{macrocode}
+\cs_new_protected:Npn \@@_verify_pdfa_annot_flags:
+  {
+    \bitset_set_true:Nn  \l_pdfannot_F_bitset {Print}
+    \bitset_set_false:Nn \l_pdfannot_F_bitset {Hidden}
+    \bitset_set_false:Nn \l_pdfannot_F_bitset {Invisible}
+    \bitset_set_false:Nn \l_pdfannot_F_bitset {NoView}
+    \pdfannot_dict_put:nnn {link/URI}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
+    \pdfannot_dict_put:nnn {link/GoTo}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
+    \pdfannot_dict_put:nnn {link/GoToR}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
+    \pdfannot_dict_put:nnn {link/Launch}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
+    \pdfannot_dict_put:nnn {link/Named}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
+  }
+%    \end{macrocode}
+% At begin document this should be checked:
 %    \begin{macrocode}
 \hook_gput_code:nnn {begindocument} {pdf}
   {
-    \prop_item:Nn \g_pdfmeta_standard_prop { annot_flags }
+    \prop_if_in:NnTF\g_pdfmeta_standard_prop { annot_flags }
+     { \@@_verify_pdfa_annot_flags: }
   }
 %    \end{macrocode}
+%
 %  \subsection{pdf/A}
 %  \begin{variable}{
 %   \g_pdfmeta_standard_pdf/A-1b_prop ,
@@ -151,17 +173,7 @@
     ,max_obj_num      = 8388607
     ,max_nest_qQ      = 28
     ,named_actions    = {NextPage, PrevPage, FirstPage, LastPage}
-    ,annot_flags      = {
-                          \bitset_set_true:Nn  \l_pdfannot_F_bitset {Print}
-                          \bitset_set_false:Nn \l_pdfannot_F_bitset {Hidden}
-                          \bitset_set_false:Nn \l_pdfannot_F_bitset {Invisible}
-                          \bitset_set_false:Nn \l_pdfannot_F_bitset {NoView}
-                          \pdfannot_dict_put:nnn {link/URI}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
-                          \pdfannot_dict_put:nnn {link/GoTo}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
-                          \pdfannot_dict_put:nnn {link/GoToR}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
-                          \pdfannot_dict_put:nnn {link/Launch}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
-                          \pdfannot_dict_put:nnn {link/Named}{F}{ \bitset_to_arabic:N \l_pdfannot_F_bitset }
-                        }
+    ,annot_flags      =
     %booleans. Only the existence of the key matter.
     %If the entry is added it means true (so in most cases "don't use ...")
     %