From 15a64d7c42237056abbafe0ace692902dc4657ad Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Mon, 1 Jul 2013 11:10:40 +0200 Subject: [PATCH] Issue 3421: Percent signs in ghostscript output files should be duplicated --- scm/backend-library.scm | 5 ++++- scm/ps-to-png.scm | 4 +++- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/scm/backend-library.scm b/scm/backend-library.scm index 527e6fef95..7f357376a3 100644 --- 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 0becaeef97..34887b0aec 100644 --- 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)) -- 2.39.2