X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fcontext-specced-music-iterator.cc;h=bb8851f5b2dddee7c2015413db53170033f8f0f0;hb=12f05ebf99e912dd94359f86d503ce8cbf1f9891;hp=2f7445fd6760fa34bf96b8f65f93df2eab471d30;hpb=c3214d7d27899529e67f9e57850167775eaf675d;p=lilypond.git diff --git a/lily/context-specced-music-iterator.cc b/lily/context-specced-music-iterator.cc index 2f7445fd67..bb8851f5b2 100644 --- a/lily/context-specced-music-iterator.cc +++ b/lily/context-specced-music-iterator.cc @@ -1,20 +1,21 @@ -/* +/* context-specced-music-iterator.cc -- implement - Context_specced_music_iterator + Context_specced_music_iterator source file of the GNU LilyPond music typesetter - (c) 2002--2004 Han-Wen Nienhuys - + (c) 2002--2009 Han-Wen Nienhuys */ #include "music-wrapper-iterator.hh" #include "context.hh" +#include "music.hh" + class Context_specced_music_iterator : public Music_wrapper_iterator { public: - DECLARE_SCHEME_CALLBACK (constructor,()); + DECLARE_SCHEME_CALLBACK (constructor, ()); virtual void construct_children (); }; @@ -23,22 +24,26 @@ Context_specced_music_iterator::construct_children () { SCM ct = get_music ()->get_property ("context-type"); - String c_id; + string c_id; SCM ci = get_music ()->get_property ("context-id"); - if (gh_string_p (ci)) + if (scm_is_string (ci)) c_id = ly_scm2string (ci); SCM ops = get_music ()->get_property ("property-operations"); - - Context * a - = get_outlet ()->find_create_context (ct, c_id, ops); + + Context *a = 0; + + if (to_boolean (get_music ()->get_property ("create-new"))) + a = get_outlet ()->create_unique_context (ct, c_id, ops); + else + 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); + set_context (a); Music_wrapper_iterator::construct_children (); }