pdftex[886] branches/stable: add \pdfomitprocset
commits+thanh at tug.org
commits+thanh at tug.org
Wed Dec 21 19:19:03 CET 2022
Revision: 886
http://tug.org/svn/pdftex?view=revision&revision=886
Author: thanh
Date: 2022-12-21 19:19:03 +0100 (Wed, 21 Dec 2022)
Log Message:
-----------
add \pdfomitprocset
Modified Paths:
--------------
branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web
Added Paths:
-----------
branches/stable/tests/25-pdfomitprocset/
branches/stable/tests/25-pdfomitprocset/Makefile
branches/stable/tests/25-pdfomitprocset/f.tex
branches/stable/tests/25-pdfomitprocset/f2.tex
branches/stable/tests/25-pdfomitprocset/f3.tex
branches/stable/tests/25-pdfomitprocset/f4.tex
Modified: branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web
===================================================================
--- branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web 2022-11-30 17:06:32 UTC (rev 885)
+++ branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web 2022-12-21 18:19:03 UTC (rev 886)
@@ -5706,7 +5706,8 @@
@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_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}
+ at d pdf_omit_procset_code = pdftex_first_integer_code + 35 {suppress /PTEX.* entries in PDF dictionaries}
+ at d pdf_int_pars=pdftex_first_integer_code + 36 {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}
@@ -5820,6 +5821,7 @@
@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)
+ at d pdf_omit_procset == int_par(pdf_omit_procset_code)
@#
@d tracing_assigns==int_par(tracing_assigns_code)
@d tracing_groups==int_par(tracing_groups_code)
@@ -5930,6 +5932,7 @@
pdf_suppress_ptex_info_code: print_esc("pdfsuppressptexinfo");
pdf_omit_charset_code: print_esc("pdfomitcharset");
pdf_omit_info_dict_code: print_esc("pdfomitinfodict");
+pdf_omit_procset_code: print_esc("pdfomitprocset");
@/@<Cases for |print_param|@>@/
othercases print("[unknown integer parameter!]")
endcases;
@@ -6131,6 +6134,9 @@
primitive("pdfomitinfodict",assign_int,int_base+pdf_omit_info_dict_code);@/
@!@:pdf_omit_info_dict}{\.{\\pdfomitinfodict} primitive@>
+primitive("pdfomitprocset",assign_int,int_base+pdf_omit_procset_code);@/
+@!@:pdf_omit_procset}{\.{\\pdfomitprocset} 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);
@@ -19186,7 +19192,7 @@
@<Print additional resources@>;
@<Generate font resources@>;
@<Generate XObject resources@>;
-@<Generate ProcSet@>;
+@<Generate ProcSet if desired@>;
pdf_end_dict
@ @<Print additional resources@>=
@@ -19263,17 +19269,21 @@
pdf_print_ln(">>");
end
-@ @<Generate ProcSet@>=
-pdf_print("/ProcSet [ /PDF");
-if pdf_text_procset then
- pdf_print(" /Text");
-if check_image_b(pdf_image_procset) then
- pdf_print(" /ImageB");
-if check_image_c(pdf_image_procset) then
- pdf_print(" /ImageC");
-if check_image_i(pdf_image_procset) then
- pdf_print(" /ImageI");
-pdf_print_ln(" ]")
+@ @<Generate ProcSet if desired@>=
+if (pdf_omit_procset < 0) or
+ ((pdf_omit_procset = 0) and (pdf_major_version < 2)) then
+begin
+ pdf_print("/ProcSet [ /PDF");
+ if pdf_text_procset then
+ pdf_print(" /Text");
+ if check_image_b(pdf_image_procset) then
+ pdf_print(" /ImageB");
+ if check_image_c(pdf_image_procset) then
+ pdf_print(" /ImageC");
+ if check_image_i(pdf_image_procset) then
+ pdf_print(" /ImageI");
+ pdf_print_ln(" ]")
+end
@ @<Write out page object@>=
pdf_begin_dict(pdf_last_page, 1);
Added: branches/stable/tests/25-pdfomitprocset/Makefile
===================================================================
--- branches/stable/tests/25-pdfomitprocset/Makefile (rev 0)
+++ branches/stable/tests/25-pdfomitprocset/Makefile 2022-12-21 18:19:03 UTC (rev 886)
@@ -0,0 +1,16 @@
+include ../Common.mak
+
+# prog = $(pdftex2) -fmt pdfetex
+
+test:
+ $(pdftex2) -ini ./f.tex
+ $(pdftex2) -ini ./f2.tex
+ $(pdftex2) -ini ./f3.tex
+ $(pdftex2) -ini ./f4.tex
+
+# fmt:
+ # $(pdftex2) -ini '*pdfetex.ini'
+
+clean:
+ $(clean)
+
Added: branches/stable/tests/25-pdfomitprocset/f.tex
===================================================================
--- branches/stable/tests/25-pdfomitprocset/f.tex (rev 0)
+++ branches/stable/tests/25-pdfomitprocset/f.tex 2022-12-21 18:19:03 UTC (rev 886)
@@ -0,0 +1,11 @@
+\input plain.tex
+\input pdftexconfig.tex
+\input pdftexmagfix.tex
+\pdfcompresslevel=0
+\pdfobjcompresslevel=0
+
+\pdfomitprocset=0 % omit if pdfmajorversion>=2
+\pdfmajorversion=1
+abc
+\bye
+
Added: branches/stable/tests/25-pdfomitprocset/f2.tex
===================================================================
--- branches/stable/tests/25-pdfomitprocset/f2.tex (rev 0)
+++ branches/stable/tests/25-pdfomitprocset/f2.tex 2022-12-21 18:19:03 UTC (rev 886)
@@ -0,0 +1,11 @@
+\input plain.tex
+\input pdftexconfig.tex
+\input pdftexmagfix.tex
+\pdfcompresslevel=0
+\pdfobjcompresslevel=0
+
+\pdfomitprocset=0 % omit if pdfmajorversion>=2
+\pdfmajorversion=2
+abc
+\bye
+
Added: branches/stable/tests/25-pdfomitprocset/f3.tex
===================================================================
--- branches/stable/tests/25-pdfomitprocset/f3.tex (rev 0)
+++ branches/stable/tests/25-pdfomitprocset/f3.tex 2022-12-21 18:19:03 UTC (rev 886)
@@ -0,0 +1,11 @@
+\input plain.tex
+\input pdftexconfig.tex
+\input pdftexmagfix.tex
+\pdfcompresslevel=0
+\pdfobjcompresslevel=0
+
+\pdfomitprocset=1 % always omit
+\pdfmajorversion=1
+abc
+\bye
+
Added: branches/stable/tests/25-pdfomitprocset/f4.tex
===================================================================
--- branches/stable/tests/25-pdfomitprocset/f4.tex (rev 0)
+++ branches/stable/tests/25-pdfomitprocset/f4.tex 2022-12-21 18:19:03 UTC (rev 886)
@@ -0,0 +1,11 @@
+\input plain.tex
+\input pdftexconfig.tex
+\input pdftexmagfix.tex
+\pdfcompresslevel=0
+\pdfobjcompresslevel=0
+
+\pdfomitprocset=-1 % never omit
+\pdfmajorversion=2
+abc
+\bye
+
More information about the pdftex-commits
mailing list.