input/test/to-xml.ly

   1 \version "1.7.3"
   2
   3 fooBar = \notes { < c''4 \\ g'4 > }
   4
   5 #(ly:set-parse-protect #f)
   6 #(load-from-path "to-xml.scm")
   7
   8 #(music-to-xml fooBar (current-output-port))
   9
  10 \header {
  11     texidoc =
  12
  13     #(string-append
  14       "The input representation is very generic. It
  15       should not be hard to convert it to XML or a similar format:\n\n"
  16
  17       "@example\n"
  18         (call-with-output-string
  19                (lambda (p) (music-to-xml fooBar p))
  20       )
  21     "@end example" )
  22 }
  23
  24
  25 \score {
  26 \fooBar
  27 }