From e11820a30e77bc77dda291f43dc37a72a467a436 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <address@hidden>
Date: Thu, 20 Aug 2009 11:54:20 +0200
Subject: [PATCH] Use lilypond's string formating so that wide utf-8 chars work in filenames

Guile seems unable to handle wide characters, so we mustn't use
simple-format or format, because that will break with non-ANSI characters
(char code > 255).
---
 scm/backend-library.scm |    6 +++---
 scm/ps-to-png.scm       |    8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 3a4ccab..9729377 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -85,7 +85,7 @@
  -dDEVICEHEIGHTPOINTS=~$"
 					paper-width paper-height)))
 
-	 (cmd (simple-format #f
+	 (cmd (ly:format
 		      "~a\
  ~a\
  ~a\
@@ -95,9 +95,9 @@
  -dBATCH\
  -r1200\
  -sDEVICE=pdfwrite\
- -sOutputFile=~S\
+ -sOutputFile=~a\
  -c .setpdfwrite\
- -f ~S\
+ -f ~a\
 "
 		      (search-gs)
 		      (if (ly:get-option 'verbose) "" "-q")
diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index cb20163..9fe45c6 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -120,16 +120,16 @@
 	       (format #f "-dDEVICEWIDTHPOINTS=~,2f -dDEVICEHEIGHTPOINTS=~,2f"
 		       page-width page-height)
 	       "-dEPSCrop"))
-	  (cmd (format #f "~a\
+	  (cmd (ly:format "~a\
  ~a\
  ~a\
  -dGraphicsAlphaBits=4\
  -dTextAlphaBits=4\
  -dNOPAUSE\
  -sDEVICE=~a\
- -sOutputFile=~S\
- -r~S\
- ~S\
+ -sOutputFile=~a\
+ -r~a\
+ ~a\
  -c quit"
 		       (search-gs)
 		       (if be-verbose "" "-q")
-- 
1.6.0.4