lily/apply-context-iterator.cc

   1 #include "simple-music-iterator.hh"
   2 #include "context.hh"
   3 #include "music.hh"
   4
   5 /**
   6   Iterate a property.
   7  */
   8 class Apply_context_iterator : public Simple_music_iterator
   9 {
  10 public:
  11   DECLARE_SCHEME_CALLBACK (constructor, ());
  12 protected:
  13   virtual void process (Moment);
  14 };
  15
  16
  17 void
  18 Apply_context_iterator::process (Moment m)
  19 {
  20   SCM proc = get_music ()->get_property ("procedure");
  21
  22   scm_call_1 (proc, get_outlet ()->self_scm ());
  23
  24   Simple_music_iterator::process (m);
  25 }
  26
  27 IMPLEMENT_CTOR_CALLBACK (Apply_context_iterator);
  28