chose module name instead of *anonymous-ly-NN*?

[Nicolas Sceaux]

Hello,

Is it possible to specify the scheme module name used for declaring
variables in a LilyPond file? Or is it possible to know what module
name (the *anonymous-ly-NN*s) will be used the next time a Lily file
will be parsed?

I'm asking because I was doing the following quick test (with current
CVS):

--------------- scm/toto.scm -------------------
(define-module (lily))
(export ly:parse-file)
(define-module (scm toto))
(use-modules (ice-9 format) (lily))

(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))

(define-public (read-lily-expression chr port)
  (let ((lily-string (with-output-to-string
                       (lambda ()
                         (do ((c (read-char port) (read-char port)))
                             ((and (char=? c #\#)
                                   (char=? (peek-char port) #\}))
                              (read-char port))
                           (display c))))))
    `(parse-expression-string ,lily-string)))

(read-hash-extend #\{ read-lily-expression)
--------------- scm/toto.scm -------------------

then, in a lily file:

-------------------- foo.ly --------------------
#(use-modules (scm toto))
#(define toto #{ <<{e' f'} \\ {c' d'} >> #})
\score { \new Staff { \toto } } 
-------------------- foo.ly --------------------

ie being able to write a music expression, using LilyPond syntax,
right into a scheme form. This works one time only, as the module
name will change for each new parsed file.

I would like to be able to know what module name write in the
`parse-expression-string' procedure, instead of the hard-coded
*anonymous-ly-15*.

nicolas

PS: It's OK if you don't have time to answer this!