lily/bar-check-iterator.cc

   1 /*
   2
   3      bar-check-iterator.cc -- implement Bar_check_iterator
   4
   5      source file of the GNU LilyPond music typesetter
   6
   7      (c) 2001--2002  Han-Wen Nienhuys <hanwen@cs.uu.nl>
   8
   9  */
  10
  11 #include "simple-music-iterator.hh"
  12 #include "command-request.hh"
  13 #include "translator-group.hh"
  14
  15 /*
  16   Check bar checks. We do this outside the engravers so that you can
  17   race through the score using skipTypesetting to correct durations.
  18  */
  19 class Bar_check_iterator : Simple_music_iterator
  20 {
  21 public:
  22   VIRTUAL_COPY_CONS(Bar_check_iterator);
  23   virtual void process (Moment);
  24   Bar_check_iterator( );
  25   DECLARE_SCHEME_CALLBACK(constructor, ());
  26 };
  27
  28 IMPLEMENT_CTOR_CALLBACK(Bar_check_iterator);
  29 Bar_check_iterator::Bar_check_iterator()
  30 {
  31 }
  32
  33 void
  34 Bar_check_iterator::process (Moment m)
  35 {
  36   Simple_music_iterator::process(m);
  37   if (!m.to_bool ())
  38     {
  39       Translator_group *tr = report_to ();
  40
  41       SCM mp = tr->get_property ("measurePosition");
  42       SCM sync= tr->get_property ("barCheckSynchronize");
  43
  44       Moment * where =unsmob_moment (mp);
  45       if (!where)
  46         return;
  47
  48       if (where->main_part_)
  49         {
  50           get_music ()->origin ()->warning (_f ("barcheck failed at: %s",
  51                                               where->string ()));
  52           if (to_boolean (sync))
  53             {
  54               tr = tr->where_defined (ly_symbol2scm("measurePosition"));
  55               Moment zero;
  56               tr->set_property ("measurePosition", zero.smobbed_copy ());
  57             }
  58         }
  59     }
  60 }