]> git.donarmstrong.com Git - lilypond.git/blob - lily/property-iterator.cc
release: 0.1.61
[lilypond.git] / 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--1998 Han-Wen Nienhuys <hanwen@stack.nl>
7 */
8
9 #include "property-iterator.hh"
10 #include "translation-property.hh"
11 #include "translator-group.hh"
12
13 Property_iterator::Property_iterator (Translation_property *prop_l)
14 {
15   property_l_ = prop_l;
16 }
17
18 void
19 Property_iterator::process_and_next (Moment m)
20 {
21   if (property_l_->var_str_.length_i ())
22     report_to_l ()->set_property (property_l_->var_str_, property_l_->value_);
23   Music_iterator::process_and_next (m);
24 }
25
26 IMPLEMENT_IS_TYPE_B1(Property_iterator, Music_iterator);