From 6a59207988b737482012aee97c6d3d5c1458a750 Mon Sep 17 00:00:00 2001 From: Masamichi Hosoda Date: Sun, 24 May 2015 23:20:30 +0900 Subject: [PATCH] Issue 4417 / 3: Fix png filename handling This patch can compile the source file whose name contains `%' and convert to png files. (e.g. `%foobar.ly' to `%foobar.png') --- scm/ps-to-png.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm index dd70eca22f..9c977b6463 100644 --- a/scm/ps-to-png.scm +++ b/scm/ps-to-png.scm @@ -95,7 +95,14 @@ (pngn (format #f "~a-page%d.~a" base-name extension)) (page-count (ps-page-count tmp-name)) (multi-page? (> page-count 1)) - (output-file (if multi-page? pngn png1)) + + ;; Escape `%' (except `page%d') for ghostscript + (base-name-gs (string-join + (string-split base-name #\%) + "%%")) + (png1-gs (format #f "~a.~a" base-name-gs extension)) + (pngn-gs (format #f "~a-page%d.~a" base-name-gs extension)) + (output-file (if multi-page? pngn-gs png1-gs)) (*unspecified* (if #f #f)) (cmd -- 2.39.5