]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/paper-outputter.cc
release: 1.1.51
[lilypond.git] / lily / paper-outputter.cc
index c221cbb2dd9b394fd67dcf2eeb27b07ac075d718..1df5d85a38a85637893ab26dd1dc40063e5fe05a 100644 (file)
@@ -30,36 +30,36 @@ 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"
+      "(eval (tex-scm 'all-definitions))\n"
+      ";(eval (ps-scm 'all-definitions))\n"
+      "(display (map (lambda (x) (string-append (eval x) \"\\n\")) '(\n"
+    ;
 }
 
 Paper_outputter::~Paper_outputter ()
 {
   SCM scm = gh_list (ly_symbol ("end-output"), SCM_UNDEFINED);
   output_scheme (scm);
+
+  if (String (output_global_ch) == "scm")
+    {
+      *outstream_l_->os << ")";
+    }
 }
 
 void
 Paper_outputter::output_header ()
 {
-#if 0
-  int gobble = 10000;
-  {// alloc big chunk of memory.
-    SCM beg = SCM_EOL;
-    String bigstr = String_convert::char_str (' ', 50);
-    for (int i = gobble; i--; )
-      {
-       beg = gh_cons (gh_str02scm (bigstr.ch_C()), beg);
-      }
-  }
-#endif
-  
   if (safe_global_b)
     {
       ly_set_scm ("security-paranoia", SCM_BOOL_T);
       //      gh_eval_str ("(set! security-paranoia #t)");
     }
   String s = String ("(eval (") + output_global_ch + "-scm 'all-definitions))";
-  gh_eval_str (s.ch_C());
+  gh_eval_str (s.ch_C ());
   
   String creator;
   if (no_timestamps_global_b)
@@ -90,7 +90,7 @@ Paper_outputter::output_header ()
     }
 #endif
 
-  SCM scm = gh_cons (ly_symbol ("header"), args_scm);
+  SCM scm = gh_cons (header_scm_sym, args_scm);
   output_scheme (scm);
 }
 
@@ -121,7 +121,17 @@ Paper_outputter::output_molecule (Molecule const*m, Offset o, char const *nm)
       if (!i->func_)
        continue; 
 
-      assert (a_off.length () < 100 CM);
+      if (a_off.length () > 100 CM)
+       {
+         warning (_f("Improbable offset for object type `%s\'", nm));
+         Axis a  =X_AXIS;
+         while (a < NO_AXES)
+           {
+             if (abs(a_off[a]) > 50 CM)
+               a_off[a] = 50 CM;
+             incr (a);
+           }
+       }
        
       if (i->font_)
        {
@@ -131,7 +141,7 @@ Paper_outputter::output_molecule (Molecule const*m, Offset o, char const *nm)
        }
 
       SCM box_scm
-       = gh_list (ly_symbol ("placebox"),
+       = gh_list (placebox_scm_sym,
                   gh_double2scm (a_off.x ()),
                   gh_double2scm (a_off.y ()),
                   SCM(i->func_),
@@ -160,24 +170,8 @@ Paper_outputter::output_scheme (SCM scm)
 {
   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 ("("), port);
-      scm_write (scm, port);
-      scm_display (gh_str02scm (")\n"),port);
-      scm_fflush (port);
+      SCM result =  scm_eval (scm_listify (ly_symbol ("scm->string"), ly_quote_scm (scm), SCM_UNDEFINED));
+    *outstream_l_->os << ly_scm2string (result)        << endl;
     }
   else
     {
@@ -223,13 +217,17 @@ Paper_outputter::output_version ()
     id_str += ".";
   else
     id_str += String (", ") + version_str ();
-  output_String_def ( "LilyIdString", id_str);
+
+  output_String_def ( "mudelatagline", id_str);
+  output_String_def ( "LilyPondVersion", version_str ());
 }
 
 void
-Paper_outputter::start_line ()
+Paper_outputter::start_line (Real height)
 {
-  SCM scm = gh_list (ly_symbol ("start-line"), SCM_UNDEFINED);
+  SCM scm = gh_list (ly_symbol ("start-line"),
+                    gh_double2scm (height),
+                    SCM_UNDEFINED);
   output_scheme (scm);
 }
 
@@ -290,3 +288,10 @@ Paper_outputter::stop_line ()
   SCM scm = gh_list (ly_symbol ("stop-line"), SCM_UNDEFINED);
   output_scheme (scm);
 }
+
+void
+Paper_outputter::stop_last_line ()
+{
+  SCM scm = gh_list (ly_symbol ("stop-last-line"), SCM_UNDEFINED);
+  output_scheme (scm);
+}