\pdfomitinfodict parameter from Thanh, pdftex r877

git-svn-id: svn://tug.org/texlive/trunk@63056 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 19 insertions, 3 deletions

diff --git a/Build/source/texk/web2c/pdftexdir/ChangeLog b/Build/source/texk/web2c/pdftexdir/ChangeLog
index 64982dee465..4ba85b55042 100644
--- a/Build/source/texk/web2c/pdftexdir/ChangeLog
+++ b/Build/source/texk/web2c/pdftexdir/ChangeLog
@@ -1,3 +1,13 @@
+2022-04-17  Thanh Han The  <hanthethanh@gmail.com>
+
+	* pdftex.web (pdf_omit_info_dict_code),
+	(pdf_omit_info_dict):new parameter.
+	(Put each...): add it.
+	(Output the cross-reference stream dictionary),
+	(Output the trailer): omit /Info if parameter is nonzero.
+	Request by Ulrike for the pdf A-4 standard.
+	https://tug.org/pipermail/pdftex/2022-April/009282.html
+
 2022-04-12  Marcel Kr\"uger  <tex@2krueger.de>
 
 	* pdftex.web (Write out resource list): Write forms last,
diff --git a/Build/source/texk/web2c/pdftexdir/pdftex.web b/Build/source/texk/web2c/pdftexdir/pdftex.web
index a28adc47273..d5c512bd62a 100644
--- a/Build/source/texk/web2c/pdftexdir/pdftex.web
+++ b/Build/source/texk/web2c/pdftexdir/pdftex.web
@@ -5705,7 +5705,8 @@ that will be defined later.
 @d pdf_info_omit_date_code  = pdftex_first_integer_code + 31 {omit generating CreationDate and ModDate}
 @d pdf_suppress_ptex_info_code = pdftex_first_integer_code + 32 {suppress /PTEX.* entries in PDF dictionaries}
 @d pdf_omit_charset_code = pdftex_first_integer_code + 33 {suppress /PTEX.* entries in PDF dictionaries}
-@d pdf_int_pars=pdftex_first_integer_code + 34 {total number of \pdfTeX's integer parameters}
+@d pdf_omit_info_dict_code = pdftex_first_integer_code + 34 {suppress /PTEX.* entries in PDF dictionaries}
+@d pdf_int_pars=pdftex_first_integer_code + 35 {total number of \pdfTeX's integer parameters}
 @#
 @d etex_int_base=pdf_int_pars {base for \eTeX's integer parameters}
 @d tracing_assigns_code=etex_int_base {show assignments}
@@ -5818,6 +5819,7 @@ that will be defined later.
 @d pdf_info_omit_date == int_par(pdf_info_omit_date_code)
 @d pdf_suppress_ptex_info == int_par(pdf_suppress_ptex_info_code)
 @d pdf_omit_charset == int_par(pdf_omit_charset_code)
+@d pdf_omit_info_dict == int_par(pdf_omit_info_dict_code)
 @#
 @d tracing_assigns==int_par(tracing_assigns_code)
 @d tracing_groups==int_par(tracing_groups_code)
@@ -5927,6 +5929,7 @@ pdf_suppress_warning_page_group_code:print_esc("pdfsuppresswarningpagegroup");
 pdf_info_omit_date_code:print_esc("pdfinfoomitdate");
 pdf_suppress_ptex_info_code: print_esc("pdfsuppressptexinfo");
 pdf_omit_charset_code: print_esc("pdfomitcharset");
+pdf_omit_info_dict_code: print_esc("pdfomitinfodict");
 @/@<Cases for |print_param|@>@/
 othercases print("[unknown integer parameter!]")
 endcases;
@@ -6125,6 +6128,9 @@ primitive("pdfsuppressptexinfo",assign_int,int_base+pdf_suppress_ptex_info_code)
 primitive("pdfomitcharset",assign_int,int_base+pdf_omit_charset_code);@/
 @!@:pdf_omit_charset}{\.{\\pdfomitcharset} primitive@>
 
+primitive("pdfomitinfodict",assign_int,int_base+pdf_omit_info_dict_code);@/
+@!@:pdf_omit_info_dict}{\.{\\pdfomitinfodict} primitive@>
+
 @ @<Cases of |print_cmd_chr|...@>=
 assign_int: if chr_code<count_base then print_param(chr_code-int_base)
   else  begin print_esc("count"); print_int(chr_code-count_base);
@@ -20322,7 +20328,7 @@ pdf_print("/W [1 ");
 pdf_print_int(xref_offset_width);
 pdf_print_ln(" 1]");
 pdf_indirect_ln("Root", root);
-pdf_indirect_ln("Info", obj_ptr - 1);
+if pdf_omit_info_dict = 0 then pdf_indirect_ln("Info", obj_ptr - 1);
 if pdf_trailer_toks <> null then begin
     pdf_print_toks_ln(pdf_trailer_toks);
     delete_toks(pdf_trailer_toks);
@@ -20358,7 +20364,7 @@ if not pdf_os_enable then begin
     pdf_print("<< ");
     pdf_int_entry_ln("Size", sys_obj_ptr + 1);
     pdf_indirect_ln("Root", root);
-    pdf_indirect_ln("Info", sys_obj_ptr);
+    if pdf_omit_info_dict = 0 then pdf_indirect_ln("Info", sys_obj_ptr);
     if pdf_trailer_toks <> null then begin
         pdf_print_toks_ln(pdf_trailer_toks);
         delete_toks(pdf_trailer_toks);