lily/property-iterator.cc

   1 /*
   2   property-iterator.cc -- implement Property_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "property-iterator.hh"
  10 #include "translation-property.hh"
  11 #include "translator-def.hh"
  12 #include "translator-group.hh"
  13
  14 /**
  15   There is no real processing to a property: just lookup the
  16   translation unit, and set the property.
  17   */
  18 void
  19 Property_iterator::process (Moment m)
  20 {
  21   SCM sym = music_l_->get_mus_property ("symbol");
  22   if (gh_symbol_p(sym))
  23     report_to_l ()->set_property (sym, music_l_->get_mus_property ("value"));
  24   Simple_music_iterator::process (m);
  25 }
  26
  27 void
  28 Push_property_iterator::process (Moment m)
  29 {
  30   SCM syms = music_l_->get_mus_property ("symbols");
  31   SCM eprop = music_l_->get_mus_property ("element-property");
  32   SCM val = music_l_->get_mus_property ("element-value");
  33
  34   Translator_def::apply_pushpop_property (report_to_l (), syms, eprop, val);
  35
  36   Simple_music_iterator::process (m);
  37 }
  38
  39 void
  40 Pop_property_iterator::process (Moment m)
  41 {
  42   SCM syms = music_l_->get_mus_property ("symbols");
  43   SCM eprop = music_l_->get_mus_property ("element-property");
  44   Translator_def::apply_pushpop_property (report_to_l (), syms, eprop, SCM_UNDEFINED);
  45
  46   Simple_music_iterator::process (m);
  47 }