Issue 3421: Percent signs in ghostscript output files should be duplicated

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 527e6fef95621d1be4d3d15735afa485093ae838..7f357376a37a88dfbb18f57c2716b2f16ab23685 100644 (file)
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -83,7 +83,10 @@
                    "-dBATCH"
                    "-r1200"
                    "-sDEVICE=pdfwrite"
-                   (string-append "-sOutputFile=" pdf-name)
+                   (string-append "-sOutputFile="
+                                  (string-join
+                                   (string-split pdf-name #\%)
+                                   "%%"))
                    "-c.setpdfwrite"
                    (string-append "-f" name)))))
 

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index 0becaeef97dcecbe595f174f305968fc22bc3bb1..34887b0aec0bb1755223ad2838a823d44c604d88 100644 (file)
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -114,7 +114,9 @@
                       ((string-contains format-str "jpeg") "jpeg")
                       (else
                        (ly:error "Unknown pixmap format ~a" pixmap-format))))
-          (base (dir-basename ps-name ".ps" ".eps"))
+          (base (string-join
+                 (string-split (dir-basename ps-name ".ps" ".eps") #\%)
+                 "%%"))
           (png1 (format #f "~a.~a" base extension))
           (pngn (format #f "~a-page%d.~a" base extension))
           (page-count (ps-page-count ps-name))