- String o = String ("\'") + output_global_ch;
-
- 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);
- }
-
- scm_display (gh_str02scm ("(display ((eval "), port);
- scm_write (scm, port);
- scm_display (gh_str02scm (") 'tex))\n"), port);
- scm_newline (port);
- scm_fflush (port);
-
- return;
- }
- else
- {
- SCM str_scm = gh_call1 (ly_eval (scm), gh_eval_str (o.ch_l ()));
- char* c = gh_scm2newstr (str_scm, NULL);
- *outstream_l_ << c;
- free (c);
- }
-}
-void
-Paper_outputter::output_string (String str)
-{
- // urg
- *outstream_l_ << str;