X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fproperty-iterator.hh;h=bd5f28c280119d2727e2a6ad5f29edb9c2275d75;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=b42f95c797d401bc58e9cee6f684a5702391e2da;hpb=bd0a24bfd5968f97b8817f6e1442403a35ebcdf6;p=lilypond.git diff --git a/lily/include/property-iterator.hh b/lily/include/property-iterator.hh index b42f95c797..bd5f28c280 100644 --- a/lily/include/property-iterator.hh +++ b/lily/include/property-iterator.hh @@ -3,23 +3,59 @@ source file of the GNU LilyPond music typesetter - (c) 1997--1998 Han-Wen Nienhuys + (c) 1997--2008 Han-Wen Nienhuys */ - #ifndef PROPERTY_ITERATOR_HH #define PROPERTY_ITERATOR_HH -#include "music-iterator.hh" +#include "simple-music-iterator.hh" + /** - Iterate a property. - */ -class Property_iterator : public Music_iterator + Iterate a property. +*/ +class Property_iterator : public Simple_music_iterator +{ +public: + DECLARE_SCHEME_CALLBACK (constructor, ()); + DECLARE_SCHEME_CALLBACK (once_finalization, (SCM, SCM)); + DECLARE_CLASSNAME(Property_iterator); + +protected: + virtual void do_quit (); + virtual void process (Moment); +}; + +/** + Iterate a property. +*/ +class Property_unset_iterator : public Simple_music_iterator +{ +public: + DECLARE_SCHEME_CALLBACK (constructor, ()); + DECLARE_CLASSNAME(Property_unset_iterator); +protected: + virtual void process (Moment); +}; + +class Push_property_iterator : public Simple_music_iterator +{ +public: + DECLARE_SCHEME_CALLBACK (constructor, ()); + DECLARE_SCHEME_CALLBACK (once_finalization, (SCM, SCM)); + DECLARE_CLASSNAME(Push_property_iterator); +protected: + virtual void process (Moment); + virtual void do_quit (); +}; + +class Pop_property_iterator : public Simple_music_iterator { public: - // construction + DECLARE_SCHEME_CALLBACK (constructor, ()); + DECLARE_CLASSNAME(Pop_property_iterator); protected: - virtual void do_process_and_next (Moment); + virtual void process (Moment); }; #endif // PROPERTY_ITERATOR_HH