CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Jan Nieuwenhuizen <[EMAIL PROTECTED]> 05/06/01 07:56:42
Modified files:
scm : lily.scm
. : ChangeLog
Log message:
(PLATFORM, slashify): Remove double slashes.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/lily.scm.diff?tr1=1.352&tr2=1.353&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3701&tr2=1.3702&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3701 lilypond/ChangeLog:1.3702
--- lilypond/ChangeLog:1.3701 Tue May 31 23:42:46 2005
+++ lilypond/ChangeLog Wed Jun 1 07:56:41 2005
@@ -1,3 +1,7 @@
+2005-06-01 Jan Nieuwenhuizen <[EMAIL PROTECTED]>
+
+ * scm/lily.scm (PLATFORM, slashify): Remove double slashes.
+
2005-06-01 Han-Wen Nienhuys <[EMAIL PROTECTED]>
* input/mutopia/R.Schumann/romanze-op28-2.ly (leftb): bugfix.
Index: lilypond/scm/lily.scm
diff -u lilypond/scm/lily.scm:1.352 lilypond/scm/lily.scm:1.353
--- lilypond/scm/lily.scm:1.352 Tue May 31 15:44:48 2005
+++ lilypond/scm/lily.scm Wed Jun 1 07:56:41 2005
@@ -95,9 +95,11 @@
((windows)
(define native-getcwd getcwd)
(define (slashify x)
- (if (string-index x #\/)
+ (if (string-index x #\\)
x
- (string-regexp-substitute "\\\\" "/" x)))
+ (string-regexp-substitute
+ "//*" "/"
+ (string-regexp-substitute "\\\\" "/" x))))
;; FIXME: this prints a warning.
(define-public (ly-getcwd)
(slashify (native-getcwd))))
_______________________________________________
Lilypond-cvs mailing list
Lilypond-cvs@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
