-
-void
-Paper_outputter::output_scheme (SCM scm)
-{
- String o = String ("\'") + output_global_ch;
-#ifndef NPRINT
- if (check_debug && !monitor->silent_b ("Guile"))
- {
- gh_display (scm); gh_newline ();
- }
-#endif
- // urg; temporary hack to debug scheme error #unknown
- if (String (output_global_ch) == "scm")
- {
- static SCM port = 0;
- // urg
- if (!port)
- {
- int fd = 1;
- ofstream * of = dynamic_cast <ofstream*> (outstream_l_->os);
- if (of)
- fd = of->rdbuf()->fd();
- FILE *file = fdopen (fd, "a");
- port = scm_standard_stream_to_port (file, "a", "");
- scm_display (gh_str02scm ("(load 'lily.scm)\n"), port);
- }
-#if 0
- *outstream_l_ << "(display ((eval ";
- scm_write (scm, port);
- *outstream_l_ << ") 'tex))\n";
-#else
- scm_display (gh_str02scm ("(display ((eval "), port);
- scm_write (scm, port);
- scm_display (gh_str02scm (") 'tex))\n"), port);
- scm_newline (port);
- scm_fflush (port);
-#endif
- return;
- }
- SCM str_scm = gh_call1 (ly_eval (scm), gh_eval_str (o.ch_l ()));
- char* c = gh_scm2newstr (str_scm, NULL);
-#ifndef NPRINT
- if (check_debug && !monitor->silent_b ("Guile"))
- {
- gh_display (str_scm); gh_newline ();
- }
-#endif
- *outstream_l_ << c;
- free (c);
+ output_String_def ("lilypondtagline", id_string);
+ output_String_def ("LilyPondVersion", version_string ());
+ output_String_def ("lilypondpaperunit", String (INTERNAL_UNIT));