-/*
- new-part-combine-music-iterator.cc -- implement Part_combine_iterator
+/*
+ new-part-combine-music-iterator.cc -- implement Part_combine_iterator
- source file of the GNU LilyPond music typesetter
-
- (c) 2004 Han-Wen Nienhuys
+ source file of the GNU LilyPond music typesetter
+
+ (c) 2004--2006 Han-Wen Nienhuys
*/
#include "context.hh"
-#include "event.hh"
-#include "music-sequence.hh"
+#include "dispatcher.hh"
#include "lily-guile.hh"
-#include "warn.hh"
+#include "listener.hh"
+#include "music.hh"
#include "music-iterator.hh"
-#include "interpretation-context-handle.hh"
+#include "music-sequence.hh"
+#include "warn.hh"
class Part_combine_iterator : public Music_iterator
{
public:
Part_combine_iterator ();
- DECLARE_SCHEME_CALLBACK(constructor, ());
+ DECLARE_SCHEME_CALLBACK (constructor, ());
protected:
- virtual void derived_substitute (Context *f, Context *t) ;
+ virtual void derived_substitute (Context *f, Context *t);
virtual void derived_mark () const;
Part_combine_iterator (Part_combine_iterator const &);
virtual void construct_children ();
virtual Moment pending_moment () const;
- virtual void do_quit();
+ virtual void do_quit ();
virtual void process (Moment);
- virtual Music_iterator *try_music_in_children (Music *) const;
-
virtual bool ok () const;
private:
- Music_iterator * first_iter_;
- Music_iterator * second_iter_;
+ /* used by try_process */
+ DECLARE_LISTENER (set_busy);
+ bool busy_;
+ bool notice_busy_;
+
+ bool try_process (Music_iterator *i, Moment m);
+ Music_iterator *first_iter_;
+ Music_iterator *second_iter_;
+ Moment start_moment_;
+
SCM split_list_;
- enum Status {
- APART, TOGETHER,
- SOLO1, SOLO2,
- UNISONO, UNISILENCE,
- };
+ enum Status
+ {
+ APART,
+ TOGETHER,
+ SOLO1,
+ SOLO2,
+ UNISONO,
+ UNISILENCE,
+ };
Status state_;
Status playing_state_;
/*
- TODO: this is getting of hand...
- */
- Interpretation_context_handle one_;
- Interpretation_context_handle two_;
- Interpretation_context_handle null_;
- Interpretation_context_handle shared_;
- Interpretation_context_handle solo_;
-
- void substitute_both (Context * to1,
- Context * to2);
+ Should be SOLO1 or SOLO2
+ */
+ Status last_playing_;
+
+ /*
+ TODO: this is getting of hand...
+ */
+ Context_handle one_;
+ Context_handle two_;
+ Context_handle null_;
+ Context_handle shared_;
+ Context_handle solo_;
+
+ void substitute_both (Context *to1,
+ Context *to2);
void kill_mmrest (Context *);
void chords_together ();
void unisono (bool silent);
};
+void
+Part_combine_iterator::do_quit ()
+{
+ if (first_iter_)
+ first_iter_->quit ();
+ if (second_iter_)
+ second_iter_->quit ();
+
+ null_.set_context (0);
+ one_.set_context (0);
+ two_.set_context (0);
+ shared_.set_context (0);
+ solo_.set_context (0);
+}
Part_combine_iterator::Part_combine_iterator ()
{
Part_combine_iterator::derived_mark () const
{
if (first_iter_)
- scm_gc_mark (first_iter_->self_scm());
+ scm_gc_mark (first_iter_->self_scm ());
if (second_iter_)
- scm_gc_mark(second_iter_->self_scm());
+ scm_gc_mark (second_iter_->self_scm ());
}
void
Part_combine_iterator::derived_substitute (Context *f,
- Context *t)
+ Context *t)
{
if (first_iter_)
- first_iter_->substitute_outlet (f,t);
- if (second_iter_)
- second_iter_->substitute_outlet (f,t);
-}
-
-void
-Part_combine_iterator::do_quit ()
-{
- if (first_iter_)
- first_iter_->quit();
- if (second_iter_)
- second_iter_->quit();
-
- null_.set_translator (0);
- one_ .set_translator (0);
- two_.set_translator (0);
- shared_.set_translator (0);
- solo_.set_translator (0);
+ first_iter_->substitute_outlet (f, t);
}
Moment
Moment p;
p.set_infinite (1);
if (first_iter_->ok ())
- p = p <? first_iter_->pending_moment ();
+ p = min (p, first_iter_->pending_moment ());
if (second_iter_->ok ())
- p = p <? second_iter_->pending_moment ();
+ p = min (p, second_iter_->pending_moment ());
return p;
}
playing_state_ = TOGETHER;
state_ = TOGETHER;
- substitute_both (shared_.get_outlet (), shared_.get_outlet());
+ substitute_both (shared_.get_outlet (), shared_.get_outlet ());
}
}
-
void
-Part_combine_iterator::kill_mmrest (Context * tg)
+Part_combine_iterator::kill_mmrest (Context *tg)
{
- static Music * mmrest;
+ static Music *mmrest;
if (!mmrest)
{
mmrest = make_music_by_name (ly_symbol2scm ("MultiMeasureRestEvent"));
mmrest->set_property ("duration", SCM_EOL);
}
- tg->try_music (mmrest);
+ mmrest->send_to_context (tg);
}
void
state_ = SOLO1;
substitute_both (solo_.get_outlet (),
null_.get_outlet ());
-
+
kill_mmrest (two_.get_outlet ());
kill_mmrest (shared_.get_outlet ());
if (playing_state_ != SOLO1)
{
- static Music* event;
+ static Music *event;
if (!event)
event = make_music_by_name (ly_symbol2scm ("SoloOneEvent"));
- first_iter_-> try_music_in_children (event);
+ event->send_to_context (first_iter_->get_outlet ());
}
playing_state_ = SOLO1;
}
}
void
-Part_combine_iterator::substitute_both (Context * to1,
- Context * to2)
+Part_combine_iterator::substitute_both (Context *to1,
+ Context *to2)
{
- Context *tos[] = {to1,to2};
- Music_iterator *mis[] = {first_iter_, second_iter_};
- Interpretation_context_handle *hs[] = {
+ Context *tos[] = {to1, to2};
+ Music_iterator *mis[] = {first_iter_, second_iter_};
+ Context_handle *hs[]
+ = {
&null_,
&one_, &two_,
- &shared_, &solo_,
+ &shared_, &solo_,
0
};
-
- for (int i = 0; i < 2 ; i++)
+
+ for (int i = 0; i < 2; i++)
{
- for (int j = 0; hs[j]; j++)
+ for (int j = 0; hs[j]; j++)
if (hs[j]->get_outlet () != tos[i])
- mis[i]->substitute_outlet (hs[j]->get_outlet (), tos[i]);
+ mis[i]->substitute_outlet (hs[j]->get_outlet (), tos[i]);
}
- for (int j = 0; hs[j]; j++)
+ for (int j = 0; hs[j]; j++)
{
- Context * t = hs[j]->get_outlet ();
+ Context *t = hs[j]->get_outlet ();
if (t != to1 && t != to2)
kill_mmrest (t);
}
}
-
void
Part_combine_iterator::unisono (bool silent)
{
Status newstate = (silent) ? UNISILENCE : UNISONO;
-
+
if (newstate == state_)
- return;
+ return;
else
{
- substitute_both (shared_.get_outlet (), null_.get_outlet ());
-
- kill_mmrest (two_.get_outlet ());
+ /*
+ If we're coming from SOLO2 state, we might have kill mmrests
+ in the 1st voice, so in that case, we use the second voice
+ as a basis for events.
+ */
+ Context *c1 = (last_playing_ == SOLO2) ? null_.get_outlet () : shared_.get_outlet ();
+ Context *c2 = (last_playing_ == SOLO2) ? shared_.get_outlet () : null_.get_outlet ();
+ substitute_both (c1, c2);
+ kill_mmrest ((last_playing_ == SOLO2)
+ ? one_.get_outlet () : two_.get_outlet ());
kill_mmrest (shared_.get_outlet ());
if (playing_state_ != UNISONO
&& newstate == UNISONO)
{
- static Music* event;
+ static Music *event;
if (!event)
event = make_music_by_name (ly_symbol2scm ("UnisonoEvent"));
- first_iter_-> try_music_in_children (event);
+ Context *out = (last_playing_ == SOLO2 ? second_iter_ : first_iter_)
+ ->get_outlet ();
+ event->send_to_context (out);
playing_state_ = UNISONO;
}
state_ = newstate;
else
{
state_ = SOLO2;
-
+
substitute_both (null_.get_outlet (), solo_.get_outlet ());
-
+
if (playing_state_ != SOLO2)
{
- static Music* event;
+ static Music *event;
if (!event)
event = make_music_by_name (ly_symbol2scm ("SoloTwoEvent"));
- second_iter_-> try_music_in_children (event);
+ event->send_to_context (second_iter_->get_outlet ());
playing_state_ = SOLO2;
}
}
}
}
-
void
Part_combine_iterator::construct_children ()
{
- split_list_ = get_music ()->get_property ("split-list");
- SCM lst = get_music ()->get_property ("elements");
+ start_moment_ = get_outlet ()->now_mom ();
+ split_list_ = get_music ()->get_property ("split-list");
+ SCM lst = get_music ()->get_property ("elements");
SCM props = scm_list_n (/*
used to have tweaks here.
- */
-
+ */
+
SCM_UNDEFINED);
Context *tr
- = get_outlet ()->find_create_context (ly_symbol2scm ("Voice"),
- "shared",props);
+ = get_outlet ()->find_create_context (ly_symbol2scm ("Voice"),
+ "shared", props);
- shared_.set_translator (tr);
+ shared_.set_context (tr);
/*
If we don't, we get a new staff for every Voice.
- */
- set_translator (tr);
+ */
+ set_context (tr);
Context *solo_tr
- = get_outlet ()->find_create_context (ly_symbol2scm ("Voice"),
- "solo",props);
+ = get_outlet ()->find_create_context (ly_symbol2scm ("Voice"),
+ "solo", props);
- solo_ .set_translator (solo_tr);
+ solo_.set_context (solo_tr);
Context *null
- = get_outlet ()->find_create_context (ly_symbol2scm ("Devnull"),
- "", SCM_EOL);
+ = get_outlet ()->find_create_context (ly_symbol2scm ("Devnull"),
+ "", SCM_EOL);
if (!null)
- programming_error ("No Devnull found?");
-
- null_.set_translator (null);
+ programming_error ("no Devnull found");
- Context *one = tr->find_create_context (ly_symbol2scm ("Voice"),
- "one", props);
+ null_.set_context (null);
- one_.set_translator (one);
+ Context *one = tr->find_create_context (ly_symbol2scm ("Voice"),
+ "one", props);
- set_translator (one);
- first_iter_ = unsmob_iterator (get_iterator (unsmob_music (gh_car (lst))));
+ one_.set_context (one);
+ set_context (one);
+ first_iter_ = unsmob_iterator (get_iterator (unsmob_music (scm_car (lst))));
Context *two = tr->find_create_context (ly_symbol2scm ("Voice"),
- "two", props);
- two_.set_translator (two);
- set_translator (two);
- second_iter_ = unsmob_iterator (get_iterator (unsmob_music (gh_cadr (lst))));
+ "two", props);
+ two_.set_context (two);
+ set_context (two);
+ second_iter_ = unsmob_iterator (get_iterator (unsmob_music (scm_cadr (lst))));
+ set_context (tr);
- set_translator (tr);
-
-
- char const * syms[] = {
+ char const *syms[]
+ = {
"Stem",
"DynamicLineSpanner",
"Tie",
"Script",
0
};
-
- for (char const**p = syms; *p; p++)
+
+ // Add listeners to all contexts except Devnull.
+ Context *contexts[] = {one, two, solo_tr, tr, 0};
+ for (int i = 0; contexts[i]; i++)
+ {
+ contexts[i]->event_source ()->add_listener (GET_LISTENER (set_busy), ly_symbol2scm ("MusicEvent"));
+ }
+
+ for (char const **p = syms; *p; p++)
{
SCM sym = ly_symbol2scm (*p);
execute_pushpop_property (one, sym,
- ly_symbol2scm ("direction"), gh_int2scm (1));
+ ly_symbol2scm ("direction"), scm_from_int (1));
execute_pushpop_property (two, sym,
- ly_symbol2scm ("direction"), gh_int2scm (-1));
+ ly_symbol2scm ("direction"), scm_from_int (-1));
}
+}
+
+IMPLEMENT_LISTENER (Part_combine_iterator, set_busy);
+void
+Part_combine_iterator::set_busy (SCM se)
+{
+ if (!notice_busy_)
+ return;
+
+ Stream_event *e = unsmob_stream_event (se);
+ SCM mus = e->get_property ("music");
+ Music *m = unsmob_music (mus);
+ assert (m);
+
+ if (m->is_mus_type ("note-event") || m->is_mus_type ("cluster-note-event"))
+ busy_ = true;
+}
+/*
+* Processes a moment in an iterator, and returns whether any new music was reported.
+*/
+bool
+Part_combine_iterator::try_process (Music_iterator *i, Moment m)
+{
+ busy_ = false;
+ notice_busy_ = true;
+
+ i->process (m);
+
+ notice_busy_ = false;
+ return busy_;
}
void
{
Moment now = get_outlet ()->now_mom ();
Moment *splitm = 0;
-
- for (; gh_pair_p (split_list_); split_list_ = gh_cdr (split_list_))
+
+ /* This is needed if construct_children was called before iteration
+ started */
+ if (start_moment_.main_part_.is_infinity () && start_moment_ < 0)
+ start_moment_ = now;
+
+ for (; scm_is_pair (split_list_); split_list_ = scm_cdr (split_list_))
{
- splitm = unsmob_moment (gh_caar (split_list_));
- if (*splitm > now)
- break ;
+ splitm = unsmob_moment (scm_caar (split_list_));
+ if (splitm && *splitm + start_moment_ > now)
+ break;
+
+ SCM tag = scm_cdar (split_list_);
- SCM tag = gh_cdar (split_list_);
-
if (tag == ly_symbol2scm ("chords"))
chords_together ();
else if (tag == ly_symbol2scm ("apart")
solo1 ();
else if (tag == ly_symbol2scm ("solo2"))
solo2 ();
- else if (gh_symbol_p (tag))
+ else if (scm_is_symbol (tag))
{
- String s = "Unknown split directive: "
- + (gh_symbol_p (tag) ? ly_symbol2string (tag) : String ("not a symbol"));
+ string s = "Unknown split directive: "
+ + (scm_is_symbol (tag) ? ly_symbol2string (tag) : string ("not a symbol"));
programming_error (s);
}
}
-
+
if (first_iter_->ok ())
- first_iter_->process (m);
-
- if (second_iter_->ok ())
- second_iter_->process (m);
-}
+ {
+ if (try_process (first_iter_, m))
+ last_playing_ = SOLO1;
+ }
-Music_iterator*
-Part_combine_iterator::try_music_in_children (Music *m) const
-{
- Music_iterator * i = first_iter_->try_music (m);
- if (i)
- return i;
- else
- return second_iter_->try_music (m);
+ if (second_iter_->ok ())
+ {
+ if (try_process (second_iter_, m))
+ last_playing_ = SOLO2;
+ }
}
IMPLEMENT_CTOR_CALLBACK (Part_combine_iterator);