source file of the GNU LilyPond music typesetter
- (c) 1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include <fstream.h>
#include "main.hh"
#include "file-results.hh"
#include "my-lily-parser.hh"
#include "source.hh"
+#include "lily-version.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;
+Scope * header_global_p;
void write_dependency_file (String fn, Array<String> targets,
const int WRAPWIDTH = 65;
- cout << _f ("writing dependency file: `%s\'...", fn) << '\n';
+ cout << _f ("Writing dependency file: `%s'...", fn) << '\n';
ofstream f (fn.ch_C ());
if (!f)
- warning (_f ("can't open file: `%s\'", fn));
+ warning (_f ("Can't open file: `%s'", fn));
- f << "# Automatically generated by " << get_version_str () << '\n';
+ f << "# Automatically generated by " << gnu_lilypond_version_str () << '\n';
String out;
for (int i=0; i < targets.size (); i ++)
out += targets[i] + " ";
do_scores()
{
if (!header_global_p)
- header_global_p = new Header;
+ header_global_p = new Scope;
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"));
+ is_p->warning (_("Score contains errors; will not process it"));
exit_status_i_ |= 1;
}
else
{
- if (!monitor->silent_b ("do_scores"))
+ if (flower_dstream && !flower_dstream->silent_b ("do_scores"))
is_p->print ();
is_p->process();
}
void
clear_scores ()
{
- for (int i=0; i < score_global_array.size(); i++)
- {
- delete score_global_array[i];
- }
- score_global_array.clear();
+ junk_pointer_array (score_global_array);
+
inclusion_global_array.clear ();
delete header_global_p ;
header_global_p =0;
{
if (init_str.length_i () && global_path.find (init_str).empty_b ())
{
- warning (_f ("can't find file: `%s\'", init_str));
+ 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));
+ warning (_f ("Can't find file: `%s'", file_str));
return;
}