-
-/*
- UGH.
-
- Should probably change interface to do less eval (symbol), and more
- apply (procedure, args)
- */
-void
-Paper_outputter::dump_scheme (SCM s)
-{
- if (verbatim_scheme_b_)
- {
- *stream_p_ << ly_scm2string (ly_write2scm (s));
- }
- else
- {
- SCM result = scm_primitive_eval (s);
- char *c=gh_scm2newstr (result, NULL);
-
- *stream_p_ << c;
- free (c);
- }
-}
-
-void
-Paper_outputter::output_scope (Scope *scope, String prefix)
-{
- SCM al = scope->to_alist ();
- for (SCM s = al ; gh_pair_p (s); s = gh_cdr (s))
- {
- SCM k = gh_caar (s);
- SCM v = gh_cdar (s);
- String s = ly_symbol2string (k);
-
-
- if (gh_string_p (v))
- {
- output_String_def (prefix + s, ly_scm2string (v));
- }
- else if (scm_integer_p (v) == SCM_BOOL_T)
- {
- output_int_def (prefix + s, gh_scm2int (v));
- }
- else if (gh_number_p (v))
- {
- output_Real_def (prefix + s, gh_scm2double (v));
- }
- }
-}
-
-void
-Paper_outputter::output_version ()