- String creator = gnu_lilypond_version_string ();
- creator += " (http://lilypond.org)";
- time_t t (time (0));
- String time_stamp = ctime (&t);
- time_stamp = time_stamp.left_string (time_stamp.length () - 1)
- + " " + *tzname;
- output_scheme (scm_list_n (ly_symbol2scm ("header"),
- scm_makfrom0str (creator.to_str0 ()),
- scm_makfrom0str (time_stamp.to_str0 ()),
- bookpaper->self_scm (), // FIXME.
- scm_int2num (page_count),
- ly_bool2scm (is_classic),
- SCM_UNDEFINED));
-
- output_metadata (bookpaper, scopes);
- output_scheme (scm_list_2 (ly_symbol2scm ("define-fonts"),
- bookpaper->self_scm ()));
- output_scheme (scm_list_1 (ly_symbol2scm ("header-end")));