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--2004 Jan Nieuwenhuizen <janneke@gnu.org>
   7  */
   8
   9 #include "input.hh"
  10 #include "music-list.hh"
  11 #include "simple-music-iterator.hh"
  12
  13 class Output_property_music_iterator : public Simple_music_iterator
  14 {
  15 public:
  16   DECLARE_SCHEME_CALLBACK (constructor, ());
  17 protected:
  18   virtual void process (Moment);
  19 };
  20
  21
  22 void
  23 Output_property_music_iterator::process (Moment m)
  24 {
  25   if (last_processed_mom_ < Moment (0))
  26     {
  27       bool accepted = try_music (get_music ());
  28       if (!accepted)
  29         get_music ()->origin ()->warning (_f ("Junking event: `%s'",
  30                                           classname (get_music ())));
  31     }
  32   Simple_music_iterator::process (m);
  33 }
  34
  35 IMPLEMENT_CTOR_CALLBACK (Output_property_music_iterator);