[EMAIL PROTECTED] writes:
>
> (define-public (parse-expression-string str)
> (let ((port (open-output-file "/tmp/tmplily.ly")))
> (format port "
>
> vartmp = \\notes { ~a }
> #(export vartmp)
> #(define-module (scm toto))
> #(use-modules (ice-9 format) (*anonymous-ly-15*))
>
> " str)
> (close-port port)
> (ly:parse-file "/tmp/tmplily.ly")
> vartmp))
>
o, btw, this is vulnerable to symlink attacks. It's better to modify
the lexer slightly so
ly:parse-string
is also possible.
--
Han-Wen Nienhuys | [EMAIL PROTECTED] | http://www.xs4all.nl/~hanwen
_______________________________________________
Lilypond-devel mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/lilypond-devel
