Merge pull request #29 from edgar79/batch-file-CRLF

replace LFCR by CRLF in windows batch file

Author: KlausBlum

extension/OOoLilyPond/LilyPond.xba

@@ -82,7 +82,7 @@ Function CallLilyPond() As Boolean
 
 	ElseIf sOSType = "Windows" Then
 
-		sCommand = "cd /d " & Chr(34) & ConvertFromURL(sTmpPath) & Chr(34) & Chr(10) & Chr(13) _
+		sCommand = "cd /d " & Chr(34) & ConvertFromURL(sTmpPath) & Chr(34) & Chr(13) & Chr(10) _
 		& Chr(34) & sLilyPondExecutable & Chr(34) & " -dno-point-and-click"
 		If Len(sIncludeStatement) > 0 Then
 			sCommand = sCommand & " " & sIncludeStatement
@@ -91,21 +91,21 @@ Function CallLilyPond() As Boolean
 			If bTransparentBackground Then
 				sCommand = sCommand & " -dno-delete-intermediate-files -dpixmap-format=pngalpha --png " & sBackendOpt & " -dresolution=" _
 				& iGraphicDPI & " "& Chr(34) & ConvertFromURL(sTmpPath) & constOLyFileName & ".ly" & Chr (34) _
-				& " >" & constOLyFileName & ".out 2>&1" & Chr(10) & Chr(13)
+				& " >" & constOLyFileName & ".out 2>&1" & Chr(13) & Chr(10)
 			Else
 				sCommand = sCommand & " -dno-delete-intermediate-files --png " & sBackendOpt & " -dresolution=" _
 				& iGraphicDPI & " " & Chr(34) & ConvertFromURL(sTmpPath) & constOLyFileName & ".ly" & Chr (34) _
-			& " >" & constOLyFileName & ".out 2>&1" & Chr(10) & Chr(13)
+			& " >" & constOLyFileName & ".out 2>&1" & Chr(13) & Chr(10)
 			End If
 		ElseIf sFormat="eps" Then
 			sCommand = sCommand & " " & sBackendOpt & " -f eps " & Chr(34) & ConvertFromURL(sTmpPath) & constOLyFileName & ".ly" & Chr (34) _
-			& " >" & constOLyFileName & ".out 2>&1" & Chr(10) & Chr(13)
+			& " >" & constOLyFileName & ".out 2>&1" & Chr(13) & Chr(10)
 		ElseIf sFormat="svg" Then
 			sCommand = sCommand & " " & sBackendOpt & " " & Chr(34) & ConvertFromURL(sTmpPath) & constOLyFileName & ".ly" & Chr (34) _
-			& " >" & constOLyFileName & ".out 2>&1" & Chr(10) & Chr(13)
+			& " >" & constOLyFileName & ".out 2>&1" & Chr(13) & Chr(10)
 		End If
-		sCommand=sCommand & "if %ERRORLEVEL% equ 9009 echo cannot execute >LilyPond-cannot_execute" & Chr(10) & Chr(13) _
-		& "if %ERRORLEVEL% equ 3 echo cannot execute >LilyPond-cannot_execute" & Chr(10) & Chr(13)
+		sCommand=sCommand & "if %ERRORLEVEL% equ 9009 echo cannot execute >LilyPond-cannot_execute" & Chr(13) & Chr(10) _
+		& "if %ERRORLEVEL% equ 3 echo cannot execute >LilyPond-cannot_execute" & Chr(13) & Chr(10)
 		'ToDo: 9009 and 3 OK? Other errors? Wrong Permissions?
 		WindowsCommand(sCommand)
 

extension/OOoLilyPond/Tools.xba

@@ -356,8 +356,9 @@ Sub WindowsCommand(sCommand as String)
 
 	'Set CodePage to 65001 - which is UTF-8 (Supports any except bidirectional and scripted languages)
 	oTextStream.setEncoding("utf-8")
-	oTextStream.writeString( Chr(10) & Chr(13) )
-	oTextStream.writeString("chcp 65001" & Chr(10) & Chr(13) & sCommand)
+	'Windows/LibreOffice writes a 2-byte BOM to mark an UTF-8 file: Skip to first statement with a new line
+	oTextStream.writeString( Chr(13) & Chr(10) )
+	oTextStream.writeString("chcp 65001" & Chr(13) & Chr(10) & sCommand)
 	oTextStream.closeOutput()
 
 	Shell (sBatFile, 6, "", True) ' Window-code 6 : only show symbol and leave focus on the current window