lily/scores.cc

   1 /*
   2   scores.cc -- implement some globals
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8 #include <fstream.h>
   9 #include "main.hh"
  10 #include "score.hh"
  11 #include "string.hh"
  12 #include "paper-def.hh"
  13 #include "scope.hh"
  14 #include "debug.hh"
  15 #include "parray.hh"
  16 #include "file-path.hh"
  17 #include "file-results.hh"
  18 #include "my-lily-parser.hh"
  19 #include "source.hh"
  20 #include "lily-version.hh"
  21 #include "scm-hash.hh"
  22
  23 Sources* source_global_l = 0;
  24 Array<String> inclusion_global_array;
  25 Array<String> target_str_global_array;
  26 Link_array<Score> score_global_array;
  27 Scheme_hash_table * global_header_p;
  28
  29
  30 void write_dependency_file (String fn, Array<String> targets,
  31                             Array<String> deps)
  32 {
  33   const int WRAPWIDTH = 65;
  34
  35   progress_indication (_f ("dependencies output to %s...", fn.ch_C ()));
  36   progress_indication ("\n");
  37   ofstream f (fn.ch_C ());
  38   if (!f)
  39     warning (_f ("can't open file: `%s'", fn));
  40
  41   f << "# Generated automatically by: " << gnu_lilypond_version_str ()  << '\n';
  42   String out;
  43   for (int i=0; i < targets.size (); i ++)
  44      out += targets[i] + " ";
  45   out +=  ": ";
  46   for (int i=0; i < deps.size (); i ++)
  47     {
  48       if (out.length_i() > WRAPWIDTH)
  49         {
  50           f << out << "\\\n";
  51           out = "  ";
  52         }
  53       out  += " " +  deps[i];
  54     }
  55   f << out << endl;
  56 }
  57
  58 void
  59 do_deps()
  60 {
  61   if (dependency_global_b)
  62     {
  63       Path p = split_path (outname_global);
  64       p.ext = "dep";
  65       write_dependency_file (p.path (),
  66                              target_str_global_array,
  67                              inclusion_global_array);
  68     }
  69 }
  70
  71
  72 void
  73 do_scores()
  74 {
  75   if (!global_header_p)
  76     global_header_p = new Scheme_hash_table;
  77   for (int i=0; i < score_global_array.size(); i++)
  78     {
  79       Score* is_p = score_global_array[i];
  80
  81       if (is_p->errorlevel_i_)
  82         {
  83           is_p->warning (_("Score contains errors; will not process it"));
  84           exit_status_i_ |= 1;
  85         }
  86       else
  87         {
  88           is_p->process();
  89         }
  90     }
  91   do_deps ();
  92 }
  93
  94 void
  95 clear_scores ()
  96 {
  97   for (int i=0; i < score_global_array.size (); i++)
  98     scm_unprotect_object (score_global_array[i]->self_scm ());
  99   score_global_array.clear();
 100
 101   inclusion_global_array.clear ();
 102   if (global_header_p)
 103     scm_unprotect_object (global_header_p ->self_scm ());
 104   global_header_p =0;
 105 }
 106
 107
 108 void
 109 do_one_file (String init_str, String file_str)
 110 {
 111   if (init_str.length_i () && global_path.find (init_str).empty_b ())
 112     {
 113       warning (_f ("can't find file: `%s'", init_str));
 114       warning (_f ("(search path: `%s')", global_path.str ().ch_C()));
 115       return;
 116     }
 117   if ((file_str != "-") && global_path.find (file_str).empty_b ())
 118     {
 119       warning (_f ("can't find file: `%s'", file_str));
 120       return;
 121     }
 122
 123   Sources sources;
 124   source_global_l = &sources;
 125   source_global_l->set_path (&global_path);
 126   {
 127     My_lily_parser parser (source_global_l);
 128     parser.set_version_check (false);
 129     progress_indication (_f ("Now processing: `%s'", file_str.ch_C ()));
 130     progress_indication ("\n");
 131     parser.parse_file (init_str, file_str);
 132
 133     if (parser.error_level_i_)
 134       {
 135         exit_status_i_  = 1;
 136       }
 137     else
 138       do_scores ();
 139     clear_scores ();
 140   }
 141   source_global_l = 0;
 142 }
 143