-void
-Paper_outputter::output_header ()
-{
- if (safe_global_b)
- {
- gh_define ("security-paranoia", SCM_BOOL_T);
- }
-
- SCM exp = gh_list (ly_symbol2scm ((output_format_global + "-scm").ch_C ()),
- ly_quote_scm (ly_symbol2scm ("all-definitions")),
- SCM_UNDEFINED);
- exp = scm_eval2 (exp, SCM_EOL);
- scm_eval2 (exp, SCM_EOL);
-
- String creator = gnu_lilypond_version_str ();
-
- String generate = _ (", at ");
- time_t t (time (0));
- generate += ctime (&t);
- generate = generate.left_str (generate.length_i () - 1);
-