texlive[63056] Build/source/texk/web2c/pdftexdir: \pdfomitinfodict

[commits+karl at tug.org]

Revision: 63056
          http://tug.org/svn/texlive?view=revision&revision=63056
Author:   karl
Date:     2022-04-17 18:59:10 +0200 (Sun, 17 Apr 2022)
Log Message:
-----------
\pdfomitinfodict parameter from Thanh, pdftex r877

Revision Links:
--------------
    http://tug.org/svn/texlive?view=revision&revision=877

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
    trunk/Build/source/texk/web2c/pdftexdir/pdftex.web

Modified: trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/ChangeLog	2022-04-17 16:37:29 UTC (rev 63055)
+++ trunk/Build/source/texk/web2c/pdftexdir/ChangeLog	2022-04-17 16:59:10 UTC (rev 63056)
@@ -1,3 +1,13 @@
+2022-04-17  Thanh Han The  <hanthethanh at 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 at 2krueger.de>
 
 	* pdftex.web (Write out resource list): Write forms last,

Modified: trunk/Build/source/texk/web2c/pdftexdir/pdftex.web
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/pdftex.web	2022-04-17 16:37:29 UTC (rev 63055)
+++ trunk/Build/source/texk/web2c/pdftexdir/pdftex.web	2022-04-17 16:59:10 UTC (rev 63056)
@@ -5705,7 +5705,8 @@
 @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}
- at d pdf_int_pars=pdftex_first_integer_code + 34 {total number of \pdfTeX's integer parameters}
+ at d pdf_omit_info_dict_code = pdftex_first_integer_code + 34 {suppress /PTEX.* entries in PDF dictionaries}
+ at 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 @@
 @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)
+ at 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_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("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_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 @@
     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);