lily/output-property-music-iterator.cc

   1 /*
   2   output-property-music-iterator.cc -- implement Output_property_music_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000--2006 Jan Nieuwenhuizen <janneke@gnu.org>
   7  */
   8
   9 #include "simple-music-iterator.hh"
  10
  11 #include "input.hh"
  12 #include "international.hh"
  13 #include "music.hh"
  14
  15 class Output_property_music_iterator : public Simple_music_iterator
  16 {
  17 public:
  18   DECLARE_SCHEME_CALLBACK (constructor, ());
  19 protected:
  20   virtual void process (Moment);
  21 };
  22
  23
  24 void
  25 Output_property_music_iterator::process (Moment m)
  26 {
  27   if (last_processed_mom_ < Moment (0))
  28     {
  29       bool accepted = try_music (get_music ());
  30       if (!accepted)
  31         get_music ()->origin ()->warning (_f ("junking event: `%s'",
  32                                               get_music ()->class_name ()));
  33     }
  34   Simple_music_iterator::process (m);
  35 }
  36
  37 IMPLEMENT_CTOR_CALLBACK (Output_property_music_iterator);