X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fevent-chord-iterator.cc;h=08ee9b620e410a38683df548fd667f1dd566b2e8;hb=78b1072d477435d5f2725b7e3c6c40af8d90f1ab;hp=20be73257bc0a819fd5f95a93374aff5f2d4ab75;hpb=c668a48a83d7cdc70e97cb25069427c59d75c31a;p=lilypond.git diff --git a/lily/event-chord-iterator.cc b/lily/event-chord-iterator.cc index 20be73257b..08ee9b620e 100644 --- a/lily/event-chord-iterator.cc +++ b/lily/event-chord-iterator.cc @@ -3,57 +3,46 @@ source file of the GNU LilyPond music typesetter - (c) 1997--2004 Han-Wen Nienhuys + (c) 1997--2007 Han-Wen Nienhuys */ #include "event-chord-iterator.hh" #include "context.hh" +#include "dispatcher.hh" +#include "duration.hh" +#include "input.hh" +#include "international.hh" +#include "music.hh" #include "warn.hh" -#include "event.hh" Event_chord_iterator::Event_chord_iterator () { } -Context * -Event_chord_iterator::get_req_translator () -{ - assert (get_outlet ()); - if (get_outlet ()->is_bottom_context ()) - return get_outlet (); - - set_context (get_outlet ()->get_default_interpreter ()); - return get_outlet (); -} - void Event_chord_iterator::construct_children () { Simple_music_iterator::construct_children (); - get_req_translator (); + descend_to_bottom_context (); } -Event_chord* -Event_chord_iterator::get_elt () const -{ - return (Event_chord*) get_music (); -} - - void Event_chord_iterator::process (Moment m) { if (last_processed_mom_ < Moment (0)) { for (SCM s = get_music ()->get_property ("elements"); - scm_is_pair (s); s = scm_cdr (s)) + scm_is_pair (s); s = scm_cdr (s)) { Music *mus = unsmob_music (scm_car (s)); - - bool gotcha = try_music (mus); - if (!gotcha) - mus->origin ()->warning (_f ("Junking event: `%s'", mus->name ())); + report_event (mus); + } + for (SCM s = get_music ()->get_property ("events"); + scm_is_pair (s); s = scm_cdr (s)) + { + Stream_event *ev = unsmob_stream_event (scm_car (s)); + get_outlet ()->event_source ()->broadcast (ev); } } Simple_music_iterator::process (m);