Re: "include" music-function

[David Kastrup]

Jan-Peter Voigt <address@hidden> writes:

> Hello David,
>> Any reason you don't just do #{ \include #file #} here?
>>
> yes there is:
> --snip--
> \version "2.15.21"
>
> #(define-public includeLocal (define-music-function (parser location
> file)(string?)
>     (let ((outname (format "~A.ly" (ly:parser-output-name parser)))
>           (locname (car (ly:input-file-line-char-column location))))
>          (if (or (string=? outname locname)(string-suffix? outname
> locname))
>              #{ \include $file #}
>              (make-music 'SequentialMusic 'void #t)))))
>
> \includeLocal "test.ily"
> --snip--
> this places the include in some context, generated by #{ #}.

Ah yes.  ly:parse-file does not help either?

-- 
David Kastrup