From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 7 Jun 2005 07:45:32 +0000 (+0000)
Subject: (make-ps-images): Bugfix: `Pages: 1\n' is not
X-Git-Tag: release/2.5.29~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=031a18001e136dfbfaf95ced1f2c5c58c64115c3;p=lilypond.git

(make-ps-images): Bugfix: `Pages: 1\n' is not
multi-page.  Fix .eps regular expression.
---

diff --git a/ChangeLog b/ChangeLog
index f1ee7606d8..4dd738ef47 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-07  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+	* scm/ps-to-png.scm (make-ps-images): Bugfix: `Pages: 1\n' is not
+	multi-page.  Fix .eps regular expression.
+
 2005-06-07  Graham Percival  <gperlist@shaw.ca>
 
 	* Documentation/user/putting.itely: add info on modifying templates.
@@ -11,6 +16,12 @@
 
 2005-06-07  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* lily/main.cc (prepend_env_path): Do not append /, that does not
+	work.  Localedir lives in datadir, not in prefix.
+
+	* scm/framework-ps.scm (write-preamble): Remove load-font-via-GS
+	hack for windows.
+
 	* flower/include/file-cookie.hh: Compile fix.
 
 2005-06-06  Han-Wen Nienhuys  <hanwen@xs4all.nl>
diff --git a/flower/file-path.cc b/flower/file-path.cc
index 727ea046ca..1df873325f 100644
--- a/flower/file-path.cc
+++ b/flower/file-path.cc
@@ -68,13 +68,11 @@ is_file (String file_name)
   return !S_ISDIR (sbuf.st_mode);
 #endif
 
-
   if (FILE *f = fopen (file_name.to_str0 (), "r"))
     {
       fclose (f);
       return true;
     }
-
   
   return false;
 }
diff --git a/lily/main.cc b/lily/main.cc
index f8b0343eef..80edfc07ed 100644
--- a/lily/main.cc
+++ b/lily/main.cc
@@ -284,7 +284,7 @@ prepend_env_path (char const *key, String value)
 {
   if (char const* cur = getenv (key))
     value += to_string (PATHSEP) + cur;
-  if (is_dir (value + "/"))
+  if (is_dir (value))
     return sane_putenv (key, value.to_str0 ());
   else if (be_verbose_global)
     warning (_f ("no such directory: %s", value));
@@ -324,7 +324,7 @@ setup_paths (char const* argv0)
 		     prefix_directory));
       String datadir = argv0_prefix + "/share";
       String libdir = argv0_prefix + "/lib";
-      String localedir = argv0_prefix + "/locale";
+      String localedir = datadir + "/locale";
       String sysconfdir = argv0_prefix + "/etc";
       String argv0_lilypond_datadir = datadir + "/lilypond/" TOPLEVEL_VERSION;
 
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 7a6584ba0b..358eecfa6a 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -318,9 +318,7 @@
 		   (lambda (x y) (string<? (cadr x) (cadr y))))))
 	   ;; ttftool/fopencookie is broken on Windows,
 	   ;; possibly a stack corruption bug.
-	   (pfas (map (if
-		       (eq? PLATFORM 'windows) load-font-via-GS load-font)
-		      font-names)))
+	   (pfas (map load-font font-names)))
       pfas))
 
   (if load-fonts?
diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index eab59e5404..8efbeea37a 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -20,10 +20,8 @@
 (define (re-sub re sub string)
   (regexp-substitute/global #f re string 'pre sub 'post))
 
-(define (gulp-port port how-much)
-  (let*
-      ((str (make-string how-much)))
-
+(define (gulp-port port max-length)
+  (let ((str (make-string max-length)))
     (read-string!/partial str port)
     str))
 
@@ -66,12 +64,13 @@
 	 (paper-size "a4")
 	 (rename-page-1? #f)
 	 (verbose? #f))
-   (let* ((base (basename (re-sub "\.e?ps" "" ps-name)))
+   (let* ((base (basename (re-sub "[.]e?ps" "" ps-name)))
 	  (header (gulp-port (open-file ps-name "r") 10240))
 	  (png1 (string-append base ".png"))
 	  (pngn (string-append base "-page%d.png"))
 	  (pngn-re (re-sub "%d" "[0-9]*" pngn))
-	  (multi-page? (string-match "\n%%Pages: " header))
+	  (multi-page? (and (string-match "\n%%Pages: " header)
+			    (not (string-match "\n%%Pages: 1\n" header))))
 	  (output-file (if multi-page? pngn png1))
 	  ;;png16m is because Lily produces color nowadays.
 	  (cmd (format #f (if multi-page?