Merge pull request #25 from edgar79/relativeIncludes

Added function GetRelativeIncludeStatement

Author: KlausBlum

extension/OOoLilyPond/LilyPond.xba

@@ -4,11 +4,45 @@
 
 Option Explicit
 
+
+'Returns the include statement with the absolute path of the LO-file
+'Returns an empty String if the file is not yet saved
+Function GetRelativeIncludeStatement As String
+	Dim sURL
+	Dim sParts
+	Dim sPath 
+	
+	sURL=ThisComponent.getURL()
+	If  Len(sURL) > 0 And Not IsNull(sURL) Then
+		sParts=Split(sURL,"/")
+		ReDim Preserve sParts(0 to UBound(sParts) -1)
+		sPath=ConvertFromURL(Join(sParts,"/"))
+		While InStr (sPath, "\") > 0	'  replace "\" by "/", even in Windows LilyPond expects paths to be written with forward slashes
+			Mid (sPath, InStr (sPath, "\"), 1, "/")
+		Wend
+		GetRelativeIncludeStatement="-I" & Chr(34) & sPath & Chr(34)
+	Else
+		GetRelativeIncludeStatement=""
+	End If
+End Function
+
+
 Function CallLilyPond() As Boolean
 	Dim sCommand As String
 	Dim sBackendOpt As String
 	Dim sLilyPondOutput As String
 
+	Dim sRelativeIncludeStatement As String
+	sRelativeIncludeStatement=GetRelativeIncludeStatement()
+	 
+	If Len(sRelativeIncludeStatement) > 0 Then
+			If Len(sIncludeStatement) > 0 Then
+				sIncludeStatement=sRelativeIncludeStatement & " " & sIncludeStatement
+			Else
+				sIncludeStatement=sRelativeIncludeStatement
+			End If
+	End If		
+
 	sBackendOpt="-dbackend=eps"
 	If 	Val(sLilyPondVersionMajor)=2 and Val(sLilyPondVersionMinor)<=10 Then
 		sBackendOpt="-b eps"