release: 1.0.15

[lilypond.git] / lily / scores.cc

diff --git a/lily/scores.cc b/lily/scores.cc
index a13e1195bebfc22e9112de595965b5e26825a0e0..f41666b0ad7f8d8d202ac43e193c0890485f1c95 100644 (file)
--- a/lily/scores.cc
+++ b/lily/scores.cc
@@ -3,55 +3,146 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+  (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
-
+#include <fstream.h>
 #include "main.hh"
 #include "score.hh"
 #include "string.hh"
 #include "paper-def.hh"
-#include "header.hh"
+#include "scope.hh"
 #include "debug.hh"
 #include "parray.hh"
+#include "file-path.hh"
+#include "file-results.hh"
+#include "my-lily-parser.hh"
+#include "source.hh"
+#include "lookup.hh"
+
+Sources* source_global_l = 0;
+Array<String> inclusion_global_array;
+Array<String> target_str_global_array;
+Link_array<Score> score_global_array;
+Header * header_global_p;
+
+
+void write_dependency_file (String fn, Array<String> targets,
+                           Array<String> deps)
+{
+  const int WRAPWIDTH = 65;
+
+
+  cout << _f ("writing dependency file: `%s\'...", fn) << '\n';
+  ofstream f (fn.ch_C ());
+  if (!f)
+    warning (_f ("can't open file: `%s\'", fn));
+
+  f << "# Automatically generated by " << get_version_str ()  << '\n';
+  String out;
+  for (int i=0; i < targets.size (); i ++)
+     out += targets[i] + " ";
+  out +=  ": ";
+  for (int i=0; i < deps.size (); i ++)
+    {
+      if (out.length_i() > WRAPWIDTH)
+       {
+         f << out << "\\\n";
+         out = "  ";
+       }
+      out  += " " +  deps[i];
+    }
+  f << out << endl; 
+}
+
+void
+do_deps()
+{
+  if (dependency_global_b)
+    {
+      write_dependency_file (default_outname_base_global  + ".dep", target_str_global_array,
+                            inclusion_global_array);
+    }
+}
 
-static Link_array<Score> global_score_array;
-String default_out_fn = "lelie";
 
 void
 do_scores()
 {
-  for (int i=0; i < global_score_array.size(); i++)
+  if (!header_global_p)
+    header_global_p = new Header;
+  for (int i=0; i < score_global_array.size(); i++)
     {
-      Score *&is_p = global_score_array[i];
-      if (!is_p->header_p_)
-       is_p->header_p_ = new Header;
-      
-      is_p->header_p_->lily_id_str_ = "Lily was here, " +
-       get_version_number_str();
+      Score* is_p = score_global_array[i];
+
       if (is_p->errorlevel_i_)
        {
-         is_p->warning (_("Score contains errors. Will not process it. "));
+         is_p->warning (_("score contains errors; will not process it"));
          exit_status_i_ |= 1;
        }
       else
        {
+         if (!monitor->silent_b ("do_scores"))
+             is_p->print ();
          is_p->process();
        }
-      delete is_p;
-      is_p =0;
-
     }
-  global_score_array.clear();
+  do_deps ();
 }
 
 void
-add_score (Score * s)
+clear_scores ()
 {
-  global_score_array.push (s);
+  for (int i=0; i < score_global_array.size(); i++)
+    {
+      delete score_global_array[i];
+    }
+  score_global_array.clear();
+  inclusion_global_array.clear ();
+  delete  header_global_p ;
+  header_global_p =0; 
 }
 
+
 void
-set_default_output (String s)
+do_one_file (String init_str, String file_str)
 {
-  default_out_fn = s;
+  if (init_str.length_i () && global_path.find (init_str).empty_b ())
+    {
+      warning (_f ("can't find file: `%s\'", init_str));
+      return;
+    }
+  if ((file_str != "-") && global_path.find (file_str).empty_b ())
+    {
+      warning (_f ("can't find file: `%s\'", file_str));
+      return;
+    }
+
+  Sources sources;
+  source_global_l = &sources;
+  source_global_l->set_path (&global_path);
+  {
+    My_lily_parser parser (source_global_l);
+    parser.set_version_check (version_ignore_global_b);
+    parser.parse_file (init_str, file_str);
+
+    /*
+       urg
+       when calling {Ps,Tex}_lookup::paper_stream_p (),
+       it *appears* (aaargh, latest gdb on ppc is gdb 4.16.97)
+       that (global_lookup_l's) 
+       paper_l_ is invalid but not NULL
+       (deleted without being reset maybe?)
+     */
+    global_lookup_l->paper_l_ = parser.default_paper_p ();
+
+    if (parser.error_level_i_)
+      {
+       exit_status_i_  = 1;
+      }
+    else
+      do_scores ();
+    clear_scores ();
+  }
+  source_global_l = 0;
 }
+