[latex3-commits] [git/LaTeX3-latex3-pdfresources] develop: backend to omit charset and info dict (4b1996d)

[Ulrike Fischer]

Repository : https://github.com/latex3/pdfresources
On branch  : develop
Link       : https://github.com/latex3/pdfresources/commit/4b1996d706d1d2a4f6c4ccdf7e1199e5aa1cf319

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

commit 4b1996d706d1d2a4f6c4ccdf7e1199e5aa1cf319
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Thu Feb 23 01:11:26 2023 +0100

    backend to omit charset and info dict


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

4b1996d706d1d2a4f6c4ccdf7e1199e5aa1cf319
 l3backend-testphase.dtx | 62 +++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 50 insertions(+), 12 deletions(-)

diff --git a/l3backend-testphase.dtx b/l3backend-testphase.dtx
index d8d8ebc..75f5d8c 100644
--- a/l3backend-testphase.dtx
+++ b/l3backend-testphase.dtx
@@ -2024,24 +2024,24 @@
 % an unnamed object so should be referenced directly with |\pdf_object_ref_last:|
 %    \begin{macrocode}
 %<*luatex>
-\cs_new_protected:Npn \__pdf_backend_metadata_stream:n #1
+\cs_new_protected:Npn \@@_backend_metadata_stream:n #1
   {
     \tex_immediate:D \tex_pdfextension:D obj ~uncompressed~
-      \__pdf_backend_object_write:nn {stream} {{/Type~/Metadata~/Subtype~/XML}{#1}}
+      \@@_backend_object_write:nn {stream} {{/Type~/Metadata~/Subtype~/XML}{#1}}
   }
 %</luatex>
 %<*pdftex>
-\cs_new_protected:Npn \__pdf_backend_metadata_stream:n #1
+\cs_new_protected:Npn \@@_backend_metadata_stream:n #1
   {
     \group_begin:
      \tex_pdfcompresslevel:D  0 \scan_stop:
      \tex_immediate:D \tex_pdfobj:D
-     \__pdf_backend_object_write:nn {stream} {{/Type~/Metadata~/Subtype~/XML}{#1}}
+     \@@_backend_object_write:nn {stream} {{/Type~/Metadata~/Subtype~/XML}{#1}}
     \group_end:
   }
 %</pdftex>
 %<*xdvipdfmx|dvipdfmx|dvips|dvisvgm>
-\cs_new_protected:Npn \__pdf_backend_metadata_stream:n #1
+\cs_new_protected:Npn \@@_backend_metadata_stream:n #1
   {
     \pdf_object_unnamed_write:nn {stream}{{/Type~/Metadata~/Subtype~/XML}{#1}}
   }
@@ -2053,22 +2053,23 @@
 % \texttt{/ProcSet}, \texttt{/CharSet} and the \texttt{/Info} dictionary
 % are deprecated in PDF 2.0. For the pdf/A-4 standard they must be suppressed.
 % Not every engine is able to do this, but for pdfTeX and luatex we define suitable
-% backend command. \texttt{/ProcSet} is suppress automatically in pdf 2.0 which should be
-% ok. 
-% The option to omit /Charset exists already for quite some time:
-% \begin{macro}{\__pdf_backend_omit_charset:n}
+% backend command. \texttt{/ProcSet} is suppressed automatically 
+% for pdf version 2.0 starting with in texlive 2023. 
+% \begin{macro}{\@@_backend_omit_charset:n}
+% The option to omit /Charset exists already for quite some time for the two 
+% engines.
 %    \begin{macrocode}
 %<*xdvipdfmx|dvipdfmx|dvips|dvisvgm>
-\cs_new_protected:Npn \__pdf_backend_omit_charset:n #1 {} %#1 number
+\cs_new_protected:Npn \@@_backend_omit_charset:n #1 {} %#1 number
 %</xdvipdfmx|dvipdfmx|dvips|dvisvgm>
 %<*pdftex>
-\cs_new_protected:Npn \__pdf_backend_omit_charset:n #1 %#1 number
+\cs_new_protected:Npn \@@_backend_omit_charset:n #1 %#1 number
   {
     \tex_pdfomitcharset:D = #1 \scan_stop:
   } 
 %</pdftex>
 %<*luatex>
-\cs_new_protected:Npn \__pdf_backend_omit_charset:n #1 %#1 number
+\cs_new_protected:Npn \@@_backend_omit_charset:n #1 %#1 number
   {
     \tex_pdfvariable:D omitcharset  = #1 \scan_stop:
   } 
@@ -2076,7 +2077,44 @@
 %    \end{macrocode}
 % \end{macro}
 % 
+% \begin{macro}{\@@_backend_omit_info:n}
+% The option to suppress the info dictionary will be available in 
+% texlive 2023.
+%    \begin{macrocode}
+%<*xdvipdfmx|dvipdfmx|dvips|dvisvgm>
+\cs_new_protected:Npn \@@_backend_omit_info:n #1 {} %#1 number
+%</xdvipdfmx|dvipdfmx|dvips|dvisvgm>
+%<*pdftex>
+\bool_lazy_and:nnTF
+  { \int_compare_p:nNn {\tex_pdftexversion:D } > {139} }
+  { \int_compare_p:nNn {\tex_pdftexrevision:D } > {24} }
+  {
+    \cs_new_protected:Npn \@@_backend_omit_info:n #1 %#1 number
+     {
+       \pdfomitinfodict = #1 \scan_stop:
+     } 
+  }
+  {
+    \cs_new_protected:Npn \@@_backend_omit_info:n #1 {}%#1 number
+     
+  }
+%</pdftex>
+%<*luatex>
+ \int_compare:nNnTF {\directlua{tex.print(status.list()["development_id"])} } > {7560}
+  {
+    \cs_new_protected:Npn \@@_backend_omit_info:n #1 %#1 number
+     {
+       \tex_pdfvariable:D omitinfodict  = #1 \scan_stop:
+     }
+  }
+  {
+    \cs_new_protected:Npn \@@_backend_omit_info:n #1 {} %#1 number   
+  }    
+%</luatex>
+%    \end{macrocode}
+% \end{macro}
 % 
+ 
 %
 % \subsection{lua code for lualatex}
 %    \begin{macrocode}