X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-outputter.cc;h=4a91e05517dba7dd65bc29ef4efee399dbec4814;hb=fc5394c7751ea902382ecc9022854583aff0d95e;hp=1df5d85a38a85637893ab26dd1dc40063e5fe05a;hpb=0d11cc81d96ba3cbe5d3c221aba3ee16e916c4c9;p=lilypond.git

diff --git a/lily/paper-outputter.cc b/lily/paper-outputter.cc
index 1df5d85a38..4a91e05517 100644
--- a/lily/paper-outputter.cc
+++ b/lily/paper-outputter.cc
@@ -30,6 +30,7 @@ Paper_outputter::Paper_outputter (Paper_stream *s)
 {
   outstream_l_ = s;
   output_header ();
+
   if (output_global_ch == String ("scm"))
     *outstream_l_->os << ""
       "(primitive-load-path 'lily.scm)\n"
@@ -46,7 +47,7 @@ Paper_outputter::~Paper_outputter ()
 
   if (String (output_global_ch) == "scm")
     {
-      *outstream_l_->os << ")";
+      *outstream_l_->os << ")))";
     }
 }
 
@@ -56,10 +57,10 @@ Paper_outputter::output_header ()
   if (safe_global_b)
     {
       ly_set_scm ("security-paranoia", SCM_BOOL_T);
-      //      gh_eval_str ("(set! security-paranoia #t)");
+      //      ly_ch_C_eval_scm ("(set! security-paranoia #t)");
     }
   String s = String ("(eval (") + output_global_ch + "-scm 'all-definitions))";
-  gh_eval_str (s.ch_C ());
+  ly_ch_C_eval_scm (s.ch_C ());
   
   String creator;
   if (no_timestamps_global_b)
@@ -79,12 +80,12 @@ Paper_outputter::output_header ()
     }
 
   SCM args_scm = 
-    gh_list (gh_str02scm (creator.ch_l ()),
-	     gh_str02scm (generate.ch_l ()), SCM_UNDEFINED);
+    gh_list (ly_ch_C_to_scm (creator.ch_l ()),
+	     ly_ch_C_to_scm (generate.ch_l ()), SCM_UNDEFINED);
 
 #ifndef NPRINT
   DOUT << "output_header\n";
-  if (check_debug && !monitor->silent_b ("Guile"))
+  if (check_debug && !lily_monitor->silent_b ("Guile"))
     {
       gh_display (args_scm); gh_newline ();
     }
@@ -115,6 +116,9 @@ Paper_outputter::output_molecule (Molecule const*m, Offset o, char const *nm)
     {
       Atom * i = ptr->car_;
 #endif
+#if 0
+    }
+#endif      
       Offset a_off = i->off_;
       a_off += o;
 
@@ -123,7 +127,7 @@ Paper_outputter::output_molecule (Molecule const*m, Offset o, char const *nm)
 
       if (a_off.length () > 100 CM)
 	{
-	  warning (_f("Improbable offset for object type `%s\'", nm));
+	  warning (_f ("improbable offset for object type: `%s'", nm));
 	  Axis a  =X_AXIS;
 	  while (a < NO_AXES)
 	    {
@@ -136,7 +140,8 @@ Paper_outputter::output_molecule (Molecule const*m, Offset o, char const *nm)
       if (i->font_)
 	{
 	  output_scheme (gh_list (ly_symbol ("select-font"),
-				  gh_str02scm (symbol_to_string (i->font_).ch_C()),
+				  ly_ch_C_to_scm (symbol_to_string (i->font_).ch_C()),
+				  SCM (i->magn_),
 				  SCM_UNDEFINED));
 	}
 
@@ -236,7 +241,7 @@ Paper_outputter::output_font_def (int i, String str)
 {
   SCM scm = gh_list (ly_symbol ("font-def"),
 		     gh_int2scm (i),
-		     gh_str02scm (str.ch_l ()),
+		     ly_ch_C_to_scm (str.ch_l ()),
 		     SCM_UNDEFINED);
 
   output_scheme (scm);
@@ -247,8 +252,8 @@ Paper_outputter::output_Real_def (String k, Real v)
 {
   
   SCM scm = gh_list (ly_symbol ("lily-def"),
-		     gh_str02scm (k.ch_l ()),
-		     gh_str02scm (to_str(v).ch_l ()),
+		     ly_ch_C_to_scm (k.ch_l ()),
+		     ly_ch_C_to_scm (to_str(v).ch_l ()),
 		     SCM_UNDEFINED);
   output_scheme (scm);
 
@@ -260,20 +265,20 @@ Paper_outputter::output_String_def (String k, String v)
 {
   
   SCM scm = gh_list (ly_symbol ("lily-def"),
-		     gh_str02scm (k.ch_l ()),
-		     gh_str02scm (v.ch_l ()),
+		     ly_ch_C_to_scm (k.ch_l ()),
+		     ly_ch_C_to_scm (v.ch_l ()),
 		     SCM_UNDEFINED);
   output_scheme (scm);
 
-  gh_define (k.ch_l (), gh_str02scm (v.ch_l ()));
+  gh_define (k.ch_l (), ly_ch_C_to_scm (v.ch_l ()));
 }
 
 void
 Paper_outputter::output_int_def (String k, int v)
 {
   SCM scm = gh_list (ly_symbol ("lily-def"),
-		     gh_str02scm (k.ch_l ()),
-		     gh_str02scm (to_str (v).ch_l ()),
+		     ly_ch_C_to_scm (k.ch_l ()),
+		     ly_ch_C_to_scm (to_str (v).ch_l ()),
 		     SCM_UNDEFINED);
   output_scheme (scm);