+
+void
+Paper_outputter::output_version ()
+{
+ String id_str = "Lily was here";
+ if (no_timestamps_global_b)
+ id_str += ".";
+ else
+ id_str += String (", ") + version_str ();
+
+ output_String_def ( "lilypondtagline", id_str);
+ output_String_def ( "LilyPondVersion", version_str ());
+}
+
+
+
+
+void
+Paper_outputter::output_Real_def (String k, Real v)
+{
+
+ SCM scm = gh_list (ly_symbol2scm ("lily-def"),
+ ly_str02scm (k.ch_l ()),
+ ly_str02scm (to_str(v).ch_l ()),
+ SCM_UNDEFINED);
+ output_scheme (scm);
+}
+
+void
+Paper_outputter::output_String_def (String k, String v)
+{
+
+ SCM scm = gh_list (ly_symbol2scm ("lily-def"),
+ ly_str02scm (k.ch_l ()),
+ ly_str02scm (v.ch_l ()),
+ SCM_UNDEFINED);
+ output_scheme (scm);
+}
+
+void
+Paper_outputter::output_int_def (String k, int v)
+{
+ SCM scm = gh_list (ly_symbol2scm ("lily-def"),
+ ly_str02scm (k.ch_l ()),
+ ly_str02scm (to_str (v).ch_l ()),
+ SCM_UNDEFINED);
+ output_scheme (scm);
+}
+
+
+
+void
+Paper_outputter::output_string (SCM str)
+{
+ *stream_p_ << ly_scm2string (str);
+}