- if (dump_header_fieldnames_global.size ())
- {
- SCM fields = header->to_alist ();
- for (int i = 0; i < dump_header_fieldnames_global.size (); i++)
- {
- String key = dump_header_fieldnames_global[i];
- SCM val = gh_assoc (ly_symbol2scm (key.to_str0 ()), fields);
- String s;
- /* Only write header field to file if it exists */
- if (gh_pair_p (val))
- {
- s = ly_scm2string (ly_cdr (val));
- /* Always write header field file, even if string is empty ... */
- write_header_field_to_file (basename_ , ly_car (val), ly_cdr (val));
- }
- }
- }