SCM alist = last_grob->get_grob_property ("space-alist");
if (!scm_list_p (alist))
return ;
-
SCM space_def = scm_sloppy_assq (ly_symbol2scm ("first-note"), alist);
if (me_item->break_status_dir () == CENTER)
"\n "
(symbol->string sym)
"=\""
-
(let ((s (call-with-output-string (lambda (port) (display val port)))))
(re-sub-alist s xml-entities-alist))
-
"\""
)))
"<" (symbol->string tag)
(apply string-append
(map dump-attr (filter-list candidate? attrs)))
-
">\n")
)
(music-to-xml-helper e port)))
(display (close-tag 'music) port)
))
-
-
+
(define-public (music-to-xml music port)
"Dump XML-ish stuff to PORT."
(display (dtd-header) port)