lily/score.cc

   1 /*
   2   score.cc -- implement Score
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "ly-smobs.icc"
  10
  11 #include "scm-hash.hh"
  12 #include "score.hh"
  13 #include "debug.hh"
  14 #include "music-output-def.hh"
  15 #include "music-output.hh"
  16 #include "music-iterator.hh"
  17 #include "music.hh"
  18 #include "global-translator.hh"
  19 #include "scope.hh"
  20 #include "cpu-timer.hh"
  21 #include "main.hh"
  22 #include "paper-def.hh"
  23
  24
  25 /*
  26   TODO: junkme.
  27  */
  28
  29 Score::Score ()
  30   : Input ()
  31 {
  32   header_p_ = 0;
  33   music_ = SCM_EOL;
  34   errorlevel_i_ = 0;
  35   smobify_self ();
  36 }
  37
  38 /*
  39   store point & click locations.
  40   Global to save some time. (Sue us!)
  41  */
  42 bool store_locations_global_b;
  43
  44 Score::Score (Score const &s)
  45   : Input (s)
  46 {
  47   music_ = SCM_EOL;
  48   header_p_ = 0;
  49   smobify_self ();
  50
  51   /*
  52     TODO: this is not very elegant....
  53    */
  54   store_locations_global_b = (gh_eval_str ("point-and-click") !=  SCM_BOOL_F);
  55
  56   Music * m =unsmob_music (s.music_);
  57   music_ =  m?m->clone ()->self_scm () : SCM_EOL;
  58   scm_gc_unprotect_object (music_);
  59
  60   for (int i=0; i < s.def_p_arr_.size (); i++)
  61     def_p_arr_.push (s.def_p_arr_[i]->clone ());
  62   errorlevel_i_ = s.errorlevel_i_;
  63   if (s.header_p_)
  64     {
  65       header_p_ = (s.header_p_) ? new Scheme_hash_table (*s.header_p_): 0;
  66
  67       scm_gc_unprotect_object (header_p_->self_scm ());
  68     }
  69 }
  70
  71 Score::~Score ()
  72 {
  73
  74 }
  75
  76 void
  77 Score::run_translator (Music_output_def *odef_l)
  78 {
  79   Cpu_timer timer;
  80
  81
  82   Global_translator * trans_p = odef_l->get_global_translator_p ();
  83   if (!trans_p)
  84     {
  85       programming_error ("no toplevel translator");
  86       return ;
  87     }
  88   progress_indication (_ ("Interpreting music..."));
  89   Music * music = unsmob_music (music_);
  90
  91   trans_p->final_mom_ = music->length_mom ();
  92
  93
  94   Music_iterator * iter = Music_iterator::static_get_iterator_p (music);
  95   iter->init_translator (music, trans_p);
  96
  97   iter->construct_children ();
  98
  99   if (! iter->ok ())
 100     {
 101       delete iter;
 102       warning (_ ("Need music in a score"));
 103       errorlevel_i_ =1;
 104       return ;
 105     }
 106
 107   trans_p->start ();
 108   trans_p->run_iterator_on_me (iter);
 109   delete iter;
 110   trans_p->finish ();
 111
 112   if (errorlevel_i_)
 113     {
 114       // should we? hampers debugging.
 115       warning (_ ("Errors found/*, not processing score*/"));
 116     }
 117
 118   Music_output * output = trans_p->get_output_p ();
 119   scm_gc_unprotect_object (trans_p->self_scm ());
 120
 121   if (verbose_global_b)
 122     progress_indication (_f ("elapsed time: %.2f seconds",  timer.read ()));
 123
 124   if (!header_p_)
 125     header_p_ = new Scheme_hash_table; // ugh
 126   Scope bla (header_p_);
 127   output->header_l_ = &bla;
 128   output->origin_str_ =  location_str ();
 129
 130   progress_indication ("\n");
 131   output->process ();
 132   delete output ;
 133
 134   /*
 135     force GC. At this point, GUILE may give back mallocated area to
 136     the system.
 137   */
 138
 139   scm_gc ();
 140 }
 141
 142 void
 143 Score::process ()
 144 {
 145   if (!unsmob_music (music_))
 146     return;
 147
 148
 149   for (int i=0; i < def_p_arr_.size (); i++)
 150     {
 151       if (no_paper_global_b
 152           && dynamic_cast<Paper_def*> (def_p_arr_[i]))
 153         continue;
 154       run_translator (def_p_arr_[i]);
 155     }
 156 }
 157
 158
 159
 160
 161 void
 162 Score::add_output (Music_output_def *pap_p)
 163 {
 164   def_p_arr_.push (pap_p);
 165 }
 166
 167 IMPLEMENT_SMOBS (Score);
 168 IMPLEMENT_DEFAULT_EQUAL_P (Score);
 169
 170
 171 SCM
 172 Score::mark_smob (SCM s)
 173 {
 174   Score * sc = (Score*) SCM_CELL_WORD_1 (s);
 175   if (sc->header_p_)
 176     scm_gc_mark (sc->header_p_->self_scm ());
 177   for (int i = sc->def_p_arr_.size (); i--;)
 178     scm_gc_mark (sc->def_p_arr_[i]->self_scm ());
 179
 180   return sc->music_;
 181 }
 182
 183 int
 184 Score::print_smob (SCM , SCM p, scm_print_state*)
 185 {
 186   scm_puts ("#<Score>", p);
 187
 188   return 1;
 189 }