/*
performer-group-performer.cc -- implement Performer_group_performer
- (c) 1996, 1997 Han-Wen Nienhuys <hanwen@stack.nl>
- Jan Nieuwenhuizen <jan@digicash.com>
+ source file of the GNU LilyPond music typesetter
+
+ (c) 1996--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "performer-group-performer.hh"
-#include "input-translator.hh"
+
+#include "audio-element.hh"
#include "debug.hh"
-IMPLEMENT_IS_TYPE_B2(Performer_group_performer,Performer, Translator);
-ADD_THIS_PERFORMER(Performer_group_performer);
+ADD_THIS_TRANSLATOR (Performer_group_performer);
-Performer_group_performer::Performer_group_performer()
-{
-}
-
-Performer_group_performer::~Performer_group_performer()
-{
-}
void
-Performer_group_performer::add( Performer *perf_p )
+Performer_group_performer::announce_element (Audio_element_info info)
{
- perf_p_list_.bottom().add(perf_p);
- perf_p->daddy_perf_l_ = this;
-
- if (perf_p->is_type_b(Performer_group_performer::static_name())) {
- group_l_arr_.push((Performer_group_performer*)perf_p);
- } else {
- nongroup_l_arr_ .push(perf_p);
- }
+ announce_info_arr_.push (info);
+ Performer::announce_element (info);
}
-Translator*
-Performer_group_performer::ancestor_l( int l )
-{
- if (!l || !daddy_perf_l_)
- return this;
-
- return daddy_perf_l_->ancestor_l( l - 1 );
-}
-int
-Performer_group_performer::depth_i() const
-{
- return daddy_perf_l_->depth_i() + 1;
-}
-Translator*
-Performer_group_performer::find_get_translator_l( String n,String id )
-{
- Translator * ret=0;
- Input_translator* itrans_l= itrans_l_-> recursive_find ( n );
- if (itrans_l ) {
- ret = find_performer_l(n,id);
- if (!ret) {
- Performer_group_performer * group =
- itrans_l-> get_group_performer_p();
-
- add(group);
- ret = group;
-
- if (group->itrans_l_->is_name_b( n ) )
- ret ->id_str_ = id;
- else
- return ret->find_get_translator_l(n,id);
-
- }
- } else if (daddy_perf_l_)
- ret =daddy_perf_l_->find_get_translator_l(n,id);
- else {
- warning("Can't find or create `" + n + "' called `" + id + "'\n");
- ret =0;
+void
+Performer_group_performer::create_audio_elements ()
+{
+ for (SCM p = simple_trans_list_; gh_pair_p (p); p = gh_cdr (p))
+ {
+ Translator * t = unsmob_translator (gh_car (p));
+ Performer * eng = dynamic_cast<Performer*> (t);
+ if (eng)
+ eng->create_audio_elements ();
}
- return ret;
}
-Performer_group_performer*
-Performer_group_performer::find_performer_l( String n, String id )
-{
- if (name() == n && id_str_ == id)
- return this;
- Performer_group_performer * r = 0;
- for (int i =0; !r && i< group_l_arr_.size(); i++) {
- r = group_l_arr_[i]->find_performer_l(n,id);
+void
+Performer_group_performer::acknowledge_audio_elements ()
+{
+ for (int j =0; j < announce_info_arr_.size (); j++)
+ {
+ Audio_element_info info = announce_info_arr_[j];
+
+ for (SCM p = simple_trans_list_; gh_pair_p (p); p = gh_cdr (p))
+ {
+ Translator * t = unsmob_translator (gh_car (p));
+ Performer * eng = dynamic_cast<Performer*> (t);
+ if (eng && eng!= info.origin_trans_l_)
+ eng->acknowledge_audio_element (info);
+ }
}
-
- return r;
-}
-
-Translator*
-Performer_group_performer::get_default_interpreter()
-{
- // ?
- if ( is_bottom_performer_b() )
- return daddy_perf_l_->get_default_interpreter();
-
- Performer_group_performer *perf_p= itrans_l_->
- get_default_itrans_l()->get_group_performer_p();
- add(perf_p );
- if (perf_p->is_bottom_performer_b())
- return perf_p;
- else
- return perf_p->get_default_interpreter();
}
-Moment
-Performer_group_performer::get_mom() const
+void
+Performer_group_performer::do_announces ()
{
- Moment mom = Performer::get_mom();
+ for (SCM p = trans_group_list_; gh_pair_p (p); p =gh_cdr (p))
+ {
+ Translator * t = unsmob_translator (gh_car (p));
+ dynamic_cast<Performer_group_performer*> (t)->do_announces ();
+ }
- for ( int i = 0; i < nongroup_l_arr_.size(); i++ )
- nongroup_l_arr_[ i ]->set( mom );
+
+ create_audio_elements ();
- return mom;
-}
+ while (announce_info_arr_.size ())
+ {
+ acknowledge_audio_elements ();
+ announce_info_arr_.clear ();
+ create_audio_elements ();
+ }
-bool
-Performer_group_performer::is_bottom_performer_b() const
-{
- return !itrans_l_->get_default_itrans_l();
+ if (announce_info_arr_.size ())
+ {
+ printf ("do_announces: elt: %s\n",
+ classname (announce_info_arr_[0].elem_l_));
+ announce_info_arr_.clear ();
+ }
}
-void
-Performer_group_performer::process_requests()
-{
- for ( PCursor<Performer*> i( perf_p_list_.top() ); i.ok(); i++ )
- i->process_requests();
-}
-//<ugh>
-int
-Performer_group_performer::get_track_i() const
-{
- int track_i = Performer::get_track_i();
- for ( int i = 0; i < nongroup_l_arr_.size(); i++ )
- nongroup_l_arr_[ i ]->set_track( track_i );
-
- return track_i;
-}
-void
-Performer_group_performer::set_track( int& track_i_r )
-{
- for ( PCursor<Performer*> i( perf_p_list_.top() ); i.ok(); i++ )
- i->set_track( track_i_r );
-}
-//</ugh>
-bool
-Performer_group_performer::do_try_request( Request* req_l )
-{
- bool hebbes_b =false;
- for (int i =0; !hebbes_b && i < nongroup_l_arr_.size() ; i++)
- hebbes_b =nongroup_l_arr_[i]->try_request(req_l);
- if ( !hebbes_b && daddy_perf_l_ )
- hebbes_b = daddy_perf_l_->try_request(req_l);
- return hebbes_b ;
-}
-
-void
-Performer_group_performer::do_print()const
-{
-#ifndef NPRINT
- if ( !check_debug)
- return ;
- for ( PCursor<Performer*> i( perf_p_list_.top() ); i.ok(); i++ )
- i->print();
-#endif
-}
-
-void
-Performer_group_performer::do_creation_processing()
-{
- for ( PCursor<Performer*> i( perf_p_list_.top() ); i.ok(); i++ )
- i->creation_processing();
-}
-
-void
-Performer_group_performer::do_removal_processing()
-{
- for ( PCursor<Performer*> i( perf_p_list_.top() ); i.ok(); i++ )
- i->do_removal_processing();
-}
projects / lilypond.git / blobdiff