omitinfodict added: \pdfvariable omitinfodict 1 omit Info dicttionary (H.Hagen)

git-svn-id: https://serveur-svn.lri.fr/svn/modhel/luatex/trunk@7538 0b2b3880-5936-4365-a048-eb17d2e5a6bf

Author: luigiScarso

manual/luatex-backend.tex

@@ -124,8 +124,8 @@
 
 \stopsubsection
 
-\startsubsection[title={\type {[set|get]suppressoptionalinfo}, \type {[set|get]trailerid}
-and \type {[set|get]omitcidset}}]
+\startsubsection[title={\type {[set|get]suppressoptionalinfo}, \type {[set|get]trailerid},
+\type {[set|get]omitcidset} and \type {[set|get]omitinfodict}}]
 
 \topicindex{\PDF+options}
 \topicindex{\PDF+trailer}
@@ -134,16 +134,17 @@
 \libindex{gettrailerid}            \libindex{settrailerid}
 \libindex{getomitcidset}           \libindex{setomitcidset}
 \libindex{getomitcharset}          \libindex{setomitcharset}
+\libindex{getomitinfodict}         \libindex{setomitinfodict}
 
 The optional info bitset (a number) determines what kind of info gets flushed.
 By default we flush all. See \in {section} [sec:pdfextensions] for more details.
 
 You can set your own trailer id. This has to be string containing valid \PDF\
 array content with checksums.
 
-The cidset and charset flags (numbers) disables inclusion of a so called \type
-{CIDSet} and \type {CharSet} entries, which can be handy when aiming at some of
-the many \PDF\ substandards.
+The cidset, charset and info flags (numbers) disables inclusion of a so called
+\type {CIDSet} and \type {CharSet} entries, which can be handy when aiming at
+some of the many \PDF\ substandards.
 
 \stopsubsection
 
@@ -639,6 +640,7 @@
 \libindex {getversion}
 \libindex {getnofobjects}
 \libindex {getnofpages}
+\libindex {getmemoryusage}
 
 A successfully opened document can provide some information:
 

manual/luatex-math.tex

@@ -1,4 +1,4 @@
-% language=us engine=luatex runpath=texruns:manuals/luatex
+% language=uk engine=luatex runpath=texruns:manuals/luatex
 
 \environment luatex-style
 

manual/luatex-modifications.tex

@@ -1,4 +1,4 @@
-% language=us engine=luatex runpath=texruns:manuals/luatex
+% language=uk engine=luatex runpath=texruns:manuals/luatex
 
 \environment luatex-style
 
@@ -666,6 +666,7 @@
 \edef\pdfgentounicode             {\pdfvariable gentounicode}
 \edef\pdfomitcidset               {\pdfvariable omitcidset}
 \edef\pdfomitcharset              {\pdfvariable omitcharset}
+\edef\pdfomitinfodict             {\pdfvariable omitinfodict}
 \edef\pdfpagebox                  {\pdfvariable pagebox}
 \edef\pdfminorversion             {\pdfvariable minorversion}
 \edef\pdfuniqueresname            {\pdfvariable uniqueresname}
@@ -915,6 +916,7 @@
 \pdfgentounicode          0
 \pdfomitcidset            0
 \pdfomitcharset           0
+\pdfomitinfodict          0
 \pdfpagebox               0
 \pdfminorversion          4
 \pdfuniqueresname         0

manual/luatex.pdf

@@ -1,5 +1,6 @@
 2022-08-16  Luigi Scarso <[email protected]> 
      * Accent 0xFFFD but still error on invalid utf (compatible) (H.Hagen)
+     * omitinfodict added: \pdfvariable omitinfodict 1 omit Info dicttionary (H.Hagen)
 
 2022-08-05  Luigi Scarso <[email protected]> 
      * Fixed a missed lua_settop in lua_appendtovlist_callback() (thanks to Hironori KITAGAWA)

source/texk/web2c/luatexdir/ChangeLog

@@ -814,6 +814,12 @@ static int getpdfomitcharset(lua_State * L)
     return 1 ;
 }
 
+static int getpdfomitinfodict(lua_State * L)
+{
+    lua_pushinteger(L, (pdf_omit_infodict));
+    return 1 ;
+}
+
 static int setpdfgentounicode(lua_State * L)
 {
     if (lua_type(L, 1) == LUA_TNUMBER) {
@@ -838,6 +844,14 @@ static int setpdfomitcharset(lua_State * L)
     return 0 ;
 }
 
+static int setpdfomitinfodict(lua_State * L)
+{
+    if (lua_type(L, 1) == LUA_TNUMBER) {
+        set_pdf_omit_infodict(lua_tointeger(L, 1));
+    }
+    return 0 ;
+}
+
 /* for tracing purposes when no pages are flushed */
 
 static int setforcefile(lua_State * L)
@@ -1350,11 +1364,13 @@ static const struct luaL_Reg pdflib[] = {
     { "getgentounicode", getpdfgentounicode },
     { "getomitcidset", getpdfomitcidset },
     { "getomitcharset", getpdfomitcharset },
+    { "getomitinfo", getpdfomitinfodict },
     { "setinclusionerrorlevel", setpdfinclusionerrorlevel },
     { "setignoreunknownimages", setpdfignoreunknownimages },
     { "setgentounicode", setpdfgentounicode },
     { "setomitcidset", setpdfomitcidset },
     { "setomitcharset", setpdfomitcharset },
+    { "setomitinfo", setpdfomitinfodict },
     { "setforcefile", setforcefile },
     { "mapfile", l_mapfile },
     { "mapline", l_mapline },

source/texk/web2c/luatexdir/lua/lpdflib.c

@@ -1,4 +1,4 @@
 #ifndef luatex_svn_revision_h
 #define luatex_svn_revision_h
-#define luatex_svn_revision 7537
+#define luatex_svn_revision 7538
 #endif

source/texk/web2c/luatexdir/luatex_svnversion.h

@@ -2227,7 +2227,8 @@ void pdf_finish_file(PDF pdf, int fatal_error) {
         print_err(" ==> Fatal error occurred, no output PDF file produced!");
     } else {
         int i, j, k;
-        int root, info;
+        int root = 0;
+        int info = 0;
         int xref_stm = 0;
         int outlines = 0;
         int threads = 0;
@@ -2268,6 +2269,7 @@ void pdf_finish_file(PDF pdf, int fatal_error) {
                 pdf->gen_tounicode = pdf_gen_tounicode;
                 pdf->omit_cidset = pdf_omit_cidset;
                 pdf->omit_charset = pdf_omit_charset;
+                pdf->omit_infodict = pdf_omit_infodict;
                 /*tex
                     The first pass over the list will flag the slots that are
                     used so that we can do a preroll for type 3 fonts.
@@ -2384,7 +2386,8 @@ void pdf_finish_file(PDF pdf, int fatal_error) {
                 print_pdf_table_string(pdf, "catalog");
                 pdf_end_dict(pdf);
                 pdf_end_obj(pdf);
-                info = pdf_print_info(pdf, luatexversion, luatexrevision);
+                if (! pdf->omit_infodict) 
+                    info = pdf_print_info(pdf, luatexversion, luatexrevision);
                 if (pdf->os_enable) {
                     pdf_buffer_select(pdf, OBJSTM_BUF);
                     pdf_os_write_objstream(pdf);
@@ -2418,7 +2421,8 @@ void pdf_finish_file(PDF pdf, int fatal_error) {
                     pdf_add_int(pdf, 1);
                     pdf_end_array(pdf);
                     pdf_dict_add_ref(pdf, "Root", root);
-                    pdf_dict_add_ref(pdf, "Info", info);
+                    if (! pdf->omit_infodict) 
+                        pdf_dict_add_ref(pdf, "Info", info);
                     if (pdf_trailer_toks != null) {
                         pdf_print_toks(pdf, pdf_trailer_toks);
                         delete_token_ref(pdf_trailer_toks);
@@ -2476,7 +2480,8 @@ void pdf_finish_file(PDF pdf, int fatal_error) {
                     pdf_begin_dict(pdf);
                     pdf_dict_add_int(pdf, "Size", pdf->obj_ptr + 1);
                     pdf_dict_add_ref(pdf, "Root", root);
-                    pdf_dict_add_ref(pdf, "Info", info);
+                    if (! pdf->omit_infodict) 
+                        pdf_dict_add_ref(pdf, "Info", info);
                     if (pdf_trailer_toks != null) {
                         pdf_print_toks(pdf, pdf_trailer_toks);
                         delete_token_ref(pdf_trailer_toks);

source/texk/web2c/luatexdir/pdf/pdfgen.c

@@ -141,6 +141,7 @@ typedef enum {
     c_pdf_omit_cidset,
     c_pdf_recompress,
     c_pdf_omit_charset,
+    c_pdf_omit_infodict,
 } pdf_backend_counters ;
 
 typedef enum {
@@ -190,6 +191,7 @@ extern int pdf_cur_form;
 #  define pdf_suppress_optional_info    get_tex_extension_count_register(c_pdf_suppress_optional_info)
 #  define pdf_omit_cidset               get_tex_extension_count_register(c_pdf_omit_cidset)
 #  define pdf_omit_charset              get_tex_extension_count_register(c_pdf_omit_charset)
+#  define pdf_omit_infodict             get_tex_extension_count_register(c_pdf_omit_infodict)
 #  define pdf_recompress                get_tex_extension_count_register(c_pdf_recompress)
 
 #  define pdf_h_origin                  get_tex_extension_dimen_register(d_pdf_h_origin)
@@ -213,6 +215,7 @@ extern int pdf_cur_form;
 #  define set_pdf_obj_compress_level(i) set_tex_extension_count_register(c_pdf_obj_compress_level,i)
 #  define set_pdf_omit_cidset(i)        set_tex_extension_count_register(c_pdf_omit_cidset,i)
 #  define set_pdf_omit_charset(i)       set_tex_extension_count_register(c_pdf_omit_charset,i)
+#  define set_pdf_omit_infodict(i)      set_tex_extension_count_register(c_pdf_omit_infodict,i)
 #  define set_pdf_gen_tounicode(i)      set_tex_extension_count_register(c_pdf_gen_tounicode,i)
 #  define set_pdf_recompress(i)         set_tex_extension_count_register(c_pdf_recompress,i)
 

source/texk/web2c/luatexdir/pdf/pdftables.h

@@ -295,6 +295,7 @@ typedef struct pdf_output_file_ {
     int gen_tounicode;
     int omit_cidset;
     int omit_charset;
+    int omit_infodict;
     int inclusion_copy_font;
     int major_version;          /* fixed major part of the PDF version */
     int minor_version;          /* fixed minor part of the PDF version */

source/texk/web2c/luatexdir/pdf/pdftypes.h

@@ -2620,6 +2620,7 @@ static int do_variable_pdf(halfword c)
     else if (scan_keyword("suppressoptionalinfo")) { do_variable_backend_int(c_pdf_suppress_optional_info); }
     else if (scan_keyword("omitcidset"))           { do_variable_backend_int(c_pdf_omit_cidset); }
     else if (scan_keyword("omitcharset"))          { do_variable_backend_int(c_pdf_omit_charset); }
+    else if (scan_keyword("omitinfodict"))         { do_variable_backend_int(c_pdf_omit_infodict); }
     else if (scan_keyword("recompress"))           { do_variable_backend_int(c_pdf_recompress); }
 
     else if (scan_keyword("horigin"))              { do_variable_backend_dimen(d_pdf_h_origin); }