patch::: 1.5.18.jcn1

[lilypond.git] / lily / scores.cc

diff --git a/lily/scores.cc b/lily/scores.cc
index a1cb0830a1e403d70072b8f3f6df00490407249d..06a65014a9419f735257d1dd2028b2d59d94bee6 100644 (file)
--- a/lily/scores.cc
+++ b/lily/scores.cc
@@ -3,52 +3,164 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+  (c)  1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
+#include "config.h"
 
+#include <errno.h>
+#include <sys/types.h>
+#if HAVE_SYS_STAT_H 
+#include <sys/stat.h>
+#endif
+#include <unistd.h>
+
+#include <fstream.h>
 #include "main.hh"
 #include "score.hh"
 #include "string.hh"
 #include "paper-def.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 "lily-version.hh"
+#include "scm-hash.hh"
+
+Sources* source_global_l = 0;
+Array<String> inclusion_global_array;
+Array<String> target_str_global_array;
+Link_array<Score> score_global_array;
+Scheme_hash_table * global_header_p;
+
+
+void write_dependency_file (String fn, Array<String> targets,
+                           Array<String> deps)
+{
+  const int WRAPWIDTH = 65;
+
+  progress_indication (_f ("dependencies output to `%s'...", fn.ch_C ()));
+  progress_indication ("\n");
+  ofstream f (fn.ch_C ());
+  if (!f)
+    warning (_f ("can't open file: `%s'", fn));
 
-static Array<Score*> score_array_global;
-String default_out_fn = "lelie";
+  f << "# Generated automatically by: " << gnu_lilypond_version_str ()  << '\n';
+  String out;
+  for (int i=0; i < targets.size (); i ++)
+     out += dependency_prefix_global + targets[i] + " ";
+  out +=  ": ";
+#if 0
+  struct stat stat_buf;
+#endif
+  for (int i=0; i < deps.size (); i ++)
+    {
+      if (out.length_i () > WRAPWIDTH)
+       {
+         f << out << "\\\n";
+         out = "  ";
+       }
+      String dep = deps[i];
+      if (!dependency_prefix_global.empty_b ())
+       {
+#if 0//thinko?
+         if (stat (dep.ch_C (), &stat_buf) == -1 && errno == ENOENT)
+           ; //make emacs happy
+#else
+         if (dep.index_i ('/') < 0)
+#endif
+           dep = dependency_prefix_global + dep;
+       }
+      out  += " " +  dep;
+    }
+  f << out << endl; 
+}
 
 void
-do_scores()
+do_deps ()
 {
-  for (int i=0; i < score_array_global.size(); i++) 
+  if (dependency_global_b)
     {
-       Score *&is_p = score_array_global[i];
-       
-       
-       if (is_p->errorlevel_i_) 
-         {
-           is_p->warning ("Score contains errors. Will not process it. ");
-           exit_status_i_ |= 1;
-         }
-       else 
-         {
-           is_p->print();
-           is_p->process();
-         }
-       delete is_p;
-       is_p =0;
+      Path p = split_path (output_name_global);
+      p.ext = "dep";
+      write_dependency_file (p.str (),
+                            target_str_global_array,
+                            inclusion_global_array);
+    }
+}
+
 
+void
+do_scores ()
+{
+  if (!global_header_p)
+    global_header_p = new Scheme_hash_table;
+  for (int i=0; i < score_global_array.size (); i++)
+    {
+      Score* is_p = score_global_array[i];
+
+      if (is_p->errorlevel_i_)
+       {
+         is_p->warning (_ ("Score contains errors; will not process it"));
+         exit_status_global |= 1;
+       }
+      else
+       {
+         is_p->process ();
+       }
     }
-  score_array_global.clear();
+  do_deps ();
 }
 
 void
-add_score (Score * s)
+clear_scores ()
 {
-  score_array_global.push (s);
+  for (int i=0; i < score_global_array.size (); i++)
+    scm_gc_unprotect_object (score_global_array[i]->self_scm ());
+  score_global_array.clear ();
+  
+  inclusion_global_array.clear ();
+  if (global_header_p)
+    scm_gc_unprotect_object (global_header_p ->self_scm ());
+  global_header_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));
+      warning (_f ("(search path: `%s')", global_path.str ().ch_C ()));
+      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 (false);
+    progress_indication (_f ("Now processing: `%s'", file_str.ch_C ()));
+    progress_indication ("\n");
+    parser.parse_file (init_str, file_str);
+
+    if (parser.error_level_i_)
+      {
+       exit_status_global  = 1;
+      }
+    else
+      do_scores ();
+    clear_scores ();
+  }
+  source_global_l = 0;
 }