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--2003 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   /* construction */
  18 protected:
  19   virtual void process (Moment);
  20 };
  21
  22
  23 void
  24 Output_property_music_iterator::process (Moment m)
  25 {
  26   if (last_processed_mom_ < Moment (0))
  27     {
  28       bool accepted = try_music (get_music ());
  29       if (!accepted)
  30         get_music ()->origin ()->warning (_f ("Junking event: `%s'",
  31                                           classname (get_music ())));
  32     }
  33   Simple_music_iterator::process (m);
  34 }
  35
  36 IMPLEMENT_CTOR_CALLBACK (Output_property_music_iterator);