This patch makes emission of /CreationDate and /ModDate headers optional.

If the environment variable GS_GENERATE_UUIDS is set to "0" or "no", it will
not write out the "/ID" field (if that's permissible).

Upstream does not want to do this.

See: https://bugs.ghostscript.com/show_bug.cgi?id=698208
diff --git a/orig/gnu-ghostscript-9.14.0/devices/vector/gdevpdf.c b/bb/gnu-ghostscript-9.14.0/devices/vector/gdevpdf.c
index 0fb067e..b342e2c 100644
--- orig/gnu-ghostscript-9.14.0/devices/vector/gdevpdf.c
+++ gnu-ghostscript-9.14.0/devices/vector/gdevpdf.c
@@ -305,6 +305,9 @@ pdf_initialize_ids(gx_device_pdf * pdev)
      * date and time, rather than (for example) %%CreationDate from the
      * PostScript file.  We think this is wrong, but we do the same.
      */
+    if (!getenv("GS_GENERATE_UUIDS") ||
+        (strcasecmp(getenv("GS_GENERATE_UUIDS"), "0") != 0 &&
+         strcasecmp(getenv("GS_GENERATE_UUIDS"), "no") != 0))
     {
         struct tm tms;
         time_t t;
--- orig/gnu-ghostscript-9.14.0/devices/vector/gdevpdfe.c
+++ gnu-ghostscript-9.14.0/devices/vector/gdevpdfe.c
@@ -692,6 +692,9 @@
             pdf_xml_attribute_name(s, "xmlns:xmp");
             pdf_xml_attribute_value(s, "http://ns.adobe.com/xap/1.0/");
             pdf_xml_tag_end(s);
+            if (!getenv("GS_GENERATE_UUIDS") ||
+                (strcasecmp(getenv("GS_GENERATE_UUIDS"), "0") != 0 &&
+                 strcasecmp(getenv("GS_GENERATE_UUIDS"), "no") != 0))
             {
                 pdf_xml_tag_open_beg(s, "xmp:ModifyDate");
                 pdf_xml_tag_end(s);
@@ -700,6 +701,9 @@
                 pdf_xml_tag_close(s, "xmp:ModifyDate");
                 pdf_xml_newline(s);
             }
+            if (!getenv("GS_GENERATE_UUIDS") ||
+                (strcasecmp(getenv("GS_GENERATE_UUIDS"), "0") != 0 &&
+                 strcasecmp(getenv("GS_GENERATE_UUIDS"), "no") != 0))
             {
                 pdf_xml_tag_open_beg(s, "xmp:CreateDate");
                 pdf_xml_tag_end(s);
ath'>path: <a href='/guix/log/?id=b41bcc04340d5fcd2e5f80222d1446b6f5cc974c'>root</a>/<a href='/guix/log/gnu?id=b41bcc04340d5fcd2e5f80222d1446b6f5cc974c'>gnu</a>/<a href='/guix/log/gnu/build?id=b41bcc04340d5fcd2e5f80222d1446b6f5cc974c'>build</a>/<a href='/guix/log/gnu/build/bootloader.scm?id=b41bcc04340d5fcd2e5f80222d1446b6f5cc974c'>bootloader.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/build/bootloader.scm?id=b41bcc04340d5fcd2e5f80222d1446b6f5cc974c&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-06-24 10:21:06 +0200'>2022-06-24</span></td><td><a href='/guix/commit/gnu/build/bootloader.scm?id=62c86c8391ceb8953ca972498fd75ea9298b85ff'>image: Add support for 32bit UEFI.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/bootloader/grub.scm (grub-efi32-bootloader): New variable.
(install-grub-efi32): New variable.
* gnu/build/bootloader.scm (install-efi): Add a 'targets' keyword
argument.
(install-efi-loader): Likewise.
* gnu/build/image.scm (initialize-efi32-partition): New procedure.
* gnu/packages/bootloaders.scm (grub-efi32): New variable.
* gnu/system/image.scm (esp32-partition): New variable
(efi32-disk-image): New variable.
(efi32-raw-image-type): New variable.
(system-disk-image)[partition-image]: Set '#:grub-efi32' when
calling the partition initializer.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Denis 'GNUtoo' Carikli</td></tr>
<tr><td><span title='2021-11-12 13:26:52 +0000'>2021-11-12</span></td><td><a href='/guix/commit/gnu/build/bootloader.scm?id=fb3df2011692b2a6fea9f4fefd71dd788453fbae'>build: bootloader: Add GPT support.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/bootloader.scm (install-efi-loader): Add GPT support.
</span></span></td><td>Mathieu Othacehe</td></tr>