+/*
+ scores.cc -- implement some globals
+
+ source file of the GNU LilyPond music typesetter
+
+ (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+*/
+#include "config.h"
+
+#include <errno.h>
+#include <sys/types.h>
+#include <stdio.h>
+
+
+#if HAVE_SYS_STAT_H
+#include <sys/stat.h>
+#endif
+#include <unistd.h>
+
+
#include "main.hh"
-#include "input-score.hh"
#include "score.hh"
#include "string.hh"
#include "paper-def.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"
-static Array<Input_score*> score_array_global;
-String default_out_fn = "lelie";
+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
-do_scores()
+
+void write_dependency_file (String fn, Array<String> targets,
+ Array<String> deps)
{
- for (int i=0; i < score_array_global.size(); i++) {
- Input_score* &is_p = score_array_global[i];
- if (is_p->errorlevel_i_) {
- warning("Score contains errors. Will not process it. ",
- is_p->defined_ch_c_l_);
- delete is_p;
- continue;
- }
-
- if (only_midi) {
- delete is_p->paper_p_;
- is_p->paper_p_ = 0;
+ const int WRAPWIDTH = 65;
+
+ progress_indication (_f ("dependencies output to `%s'...", fn.ch_C ()));
+ progress_indication ("\n");
+ FILE * f = fopen (fn.ch_C (), "w");
+ if (!f)
+ warning (_f ("can't open file: `%s'", fn));
+
+ fprintf (f, "# Generated automatically by: %s\n", gnu_lilypond_version_str ().ch_C());
+
+ String out;
+ for (int i=0; i < targets.size (); i ++)
+ out += dependency_prefix_global + targets[i] + " ";
+ out += ": ";
+
+ for (int i=0; i < deps.size (); i ++)
+ {
+ if (out.length_i () > WRAPWIDTH)
+ {
+ fprintf (f, "%s\\\n", out.ch_C());
+ 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;
+ }
+ fprintf (f, "%s\n", out.ch_C());
+}
- Score * s_p = is_p->parse();
- delete is_p;
- s_p->print ();
- s_p->process();
- delete s_p;
+void
+do_deps ()
+{
+ if (dependency_global_b)
+ {
+ Path p = split_path (output_name_global);
+ p.ext = "dep";
+ write_dependency_file (p.str (),
+ target_str_global_array,
+ inclusion_global_array);
}
- score_array_global.set_size(0);
}
+
void
-add_score(Input_score * s)
+do_scores ()
{
- score_array_global.push(s);
+ 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 ();
+ }
+ }
+ do_deps ();
}
void
-set_default_output(String s)
+clear_scores ()
{
- default_out_fn = 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
+do_one_file (String init_str, String file_str)
+{
+ 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;
}