X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fcontext-specced-music-iterator.cc;h=6583f3c6fd7d75e3c98ec61e78fa2bb8c612ec80;hb=db4dd36b622417b5fe4c4a4660402e0ac7b5beb1;hp=15dc2ece077167d0c560c604208819e2bda208f5;hpb=6ecc01fbd54016594f4fcd9891fb3aa75272d0a3;p=lilypond.git diff --git a/lily/context-specced-music-iterator.cc b/lily/context-specced-music-iterator.cc index 15dc2ece07..6583f3c6fd 100644 --- a/lily/context-specced-music-iterator.cc +++ b/lily/context-specced-music-iterator.cc @@ -4,37 +4,43 @@ source file of the GNU LilyPond music typesetter - (c) 2002--2003 Han-Wen Nienhuys + (c) 2002--2004 Han-Wen Nienhuys */ #include "music-wrapper-iterator.hh" -#include "translator-group.hh" +#include "context.hh" class Context_specced_music_iterator : public Music_wrapper_iterator { public: - VIRTUAL_COPY_CONS(Music_iterator); - DECLARE_SCHEME_CALLBACK(constructor,()); + DECLARE_SCHEME_CALLBACK (constructor,()); virtual void construct_children (); }; void Context_specced_music_iterator::construct_children () { - SCM ct = get_music ()->get_mus_property ("context-type"); + SCM ct = get_music ()->get_property ("context-type"); String c_id; - SCM ci = get_music ()->get_mus_property ("context-id"); - if (gh_string_p (ci)) + SCM ci = get_music ()->get_property ("context-id"); + if (scm_is_string (ci)) c_id = ly_scm2string (ci); + SCM ops = get_music ()->get_property ("property-operations"); - Translator_group* a - = report_to ()->find_create_translator (ct, c_id); + Context * a + = get_outlet ()->find_create_context (ct, c_id, ops); + if (a + && to_boolean (get_music ()->get_property ("descend-only")) + && !is_child_context (get_outlet (), a)) + a = 0; + if (a) set_translator (a); - Music_wrapper_iterator::construct_children(); + Music_wrapper_iterator::construct_children (); } -IMPLEMENT_CTOR_CALLBACK(Context_specced_music_iterator); + +IMPLEMENT_CTOR_CALLBACK (Context_specced_music_iterator);