summaryrefslogtreecommitdiff
path: root/Build/source
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-04-17 16:59:10 +0000
committerKarl Berry <karl@freefriends.org>2022-04-17 16:59:10 +0000
commitdf83660f1a2bbdf898cec0f2f7ad22b8d0a7bdd3 (patch)
tree98743395abab3f20e3201ab171f81983a9415229 /Build/source
parentde6b7de143aae945aeaa19a7c028f4207f5ae0ed (diff)
\pdfomitinfodict parameter from Thanh, pdftex r877
git-svn-id: svn://tug.org/texlive/trunk@63056 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
-rw-r--r--Build/source/texk/web2c/pdftexdir/ChangeLog10
-rw-r--r--Build/source/texk/web2c/pdftexdir/pdftex.web12
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);