2 performer-group-performer.cc -- implement Performer_group_performer
4 source file of the GNU LilyPond music typesetter
6 (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "performer-group-performer.hh"
13 #include "audio-element.hh"
16 ADD_TRANSLATOR (Performer_group_performer,
25 Performer_group_performer::announce_element (Audio_element_info info)
27 announce_infos_.push (info);
29 = context ()->get_parent_context ()->implementation ();
31 if (Performer_group_performer *eg = dynamic_cast<Performer_group_performer *> (t))
32 eg->announce_element (info);
36 Performer_group_performer::acknowledge_audio_elements ()
38 for (int j = 0; j < announce_infos_.size (); j++)
40 Audio_element_info info = announce_infos_[j];
42 for (SCM p = get_simple_trans_list (); scm_is_pair (p); p = scm_cdr (p))
44 Translator *t = unsmob_translator (scm_car (p));
45 Performer *eng = dynamic_cast<Performer *> (t);
46 if (eng && eng != info.origin_trans_)
47 eng->acknowledge_audio_element (info);
53 Performer_group_performer::do_announces ()
57 create_audio_elements ();
58 performer_each (get_simple_trans_list (),
59 &Performer::create_audio_elements);
61 if (!announce_infos_.size ())
64 acknowledge_audio_elements ();
65 announce_infos_.clear ();
69 Performer_group_performer::Performer_group_performer ()
74 performer_each (SCM list, Performer_method method)
76 for (SCM p = list; scm_is_pair (p); p = scm_cdr (p))
78 Performer *e = dynamic_cast<Performer *> (unsmob_translator (scm_car (p)));