- String creator;
- if (no_timestamps_global_b)
- creator = "GNU LilyPond\n";
- else
- creator = get_version_str ();
- String generate;
- if (no_timestamps_global_b)
- generate = ".";
- else
- {
- generate = _ (", at ");
- time_t t (time (0));
- generate += ctime (&t);
- //urg
- }
+ time_t t (time (0));
+ String generate = ctime (&t);
+ generate = generate.left_string (generate.length () - 1) + " " + *tzname;
+
+ /* Fixed length time stamp */
+ generate = generate + to_string (' ', (50 - generate.length ()) >? 0);
+
+ /* Fixed length creator string */
+ String creator = gnu_lilypond_version_string ();
+ creator += " (http://lilypond.org)";
+ creator = creator + to_string (' ', (50 - creator.length ()) >? 0);
+
+ SCM args_scm = scm_list_n (scm_makfrom0str (creator.to_str0 ()),
+ scm_makfrom0str (generate.to_str0 ()),
+ SCM_UNDEFINED);
+
+
+ SCM scm = gh_cons (ly_symbol2scm ("header"), args_scm);