branch core-updates updated: gnu: ghostscript: Improve reproducibility of PDF document generation

[guix-commits]

This is an automated email from the git hooks/post-receive script.

glv pushed a commit to branch core-updates
in repository guix.

The following commit(s) were added to refs/heads/core-updates by this push:
     new db5962c  gnu: ghostscript: Improve reproducibility of PDF document 
generation
db5962c is described below

commit db5962c68099f835350c24c8a3f889b9fa1f8a8e
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Mon Jul 19 11:48:12 2021 +0200

    gnu: ghostscript: Improve reproducibility of PDF document generation
    
    * gnu/packages/patches/ghostscript-no-header-creationdate.patch: Disable
      writing "xmp:ModifyDate" and "xmp:CreateDate" if GS_GENERATE_UUIDS is set 
to
      "0" or "no".
---
 .../ghostscript-no-header-creationdate.patch       | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/patches/ghostscript-no-header-creationdate.patch 
b/gnu/packages/patches/ghostscript-no-header-creationdate.patch
index 92ddbda..b19f3ab 100644
--- a/gnu/packages/patches/ghostscript-no-header-creationdate.patch
+++ b/gnu/packages/patches/ghostscript-no-header-creationdate.patch
@@ -20,3 +20,25 @@ index 0fb067e..b342e2c 100644
      {
          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);