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 "music.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     {
  24       SCM val = music_l_->get_mus_property ("value");
  25       bool ok= true;
  26       if (val != SCM_EOL)
  27         ok = type_check_assignment (val, sym, ly_symbol2scm ("translation-type?"));
  28       if (ok)
  29         report_to_l ()->set_property (sym, val);
  30     }
  31   Simple_music_iterator::process (m);
  32 }
  33
  34 void
  35 Push_property_iterator::process (Moment m)
  36 {
  37   SCM syms = music_l_->get_mus_property ("symbols");
  38   SCM eprop = music_l_->get_mus_property ("element-property");
  39   SCM val = music_l_->get_mus_property ("element-value");
  40
  41   Translator_def::apply_pushpop_property (report_to_l (), syms, eprop, val);
  42
  43   Simple_music_iterator::process (m);
  44 }
  45
  46 void
  47 Pop_property_iterator::process (Moment m)
  48 {
  49   SCM syms = music_l_->get_mus_property ("symbols");
  50   SCM eprop = music_l_->get_mus_property ("element-property");
  51   Translator_def::apply_pushpop_property (report_to_l (), syms, eprop, SCM_UNDEFINED);
  52
  53   Simple_music_iterator::process (m);
  54 }
  55
  56 IMPLEMENT_CTOR_CALLBACK(Pop_property_iterator);
  57 IMPLEMENT_CTOR_CALLBACK(Push_property_iterator);
  58 IMPLEMENT_CTOR_CALLBACK(Property_iterator);