lily/performer-group-performer.cc

   1 /*
   2   performer-group-performer.cc -- implement Performer_group_performer
   3
   4   (c) 1996, 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   5                  Jan Nieuwenhuizen <jan@digicash.com>
   6  */
   7
   8 #include "performer-group-performer.hh"
   9 #include "input-translator.hh"
  10 #include "debug.hh"
  11
  12 IMPLEMENT_IS_TYPE_B2(Performer_group_performer,Performer, Translator);
  13
  14 ADD_THIS_PERFORMER(Performer_group_performer);
  15
  16 Performer_group_performer::Performer_group_performer()
  17 {
  18 }
  19
  20 Performer_group_performer::~Performer_group_performer()
  21 {
  22 }
  23
  24 void
  25 Performer_group_performer::add( Performer *perf_p )
  26 {
  27     perf_p_list_.bottom().add(perf_p);
  28     perf_p->daddy_perf_l_ = this;
  29
  30     if (perf_p->is_type_b(Performer_group_performer::static_name())) {
  31         group_l_arr_.push((Performer_group_performer*)perf_p);
  32     } else {
  33         nongroup_l_arr_ .push(perf_p);
  34     }
  35 }
  36
  37 Translator*
  38 Performer_group_performer::ancestor_l( int l )
  39 {
  40     if (!l || !daddy_perf_l_)
  41         return this;
  42
  43     return daddy_perf_l_->ancestor_l( l - 1 );
  44 }
  45
  46 int
  47 Performer_group_performer::depth_i() const
  48 {
  49     return daddy_perf_l_->depth_i() + 1;
  50 }
  51
  52 Translator*
  53 Performer_group_performer::find_get_translator_l( String n,String id )
  54 {
  55     Translator * ret=0;
  56     Input_translator* itrans_l= itrans_l_-> recursive_find ( n );
  57     if (itrans_l ) {
  58         ret = find_performer_l(n,id);
  59         if (!ret) {
  60             Performer_group_performer * group =
  61                 itrans_l-> get_group_performer_p();
  62
  63             add(group);
  64             ret = group;
  65
  66             if (group->itrans_l_->is_name_b( n ) )
  67                 ret ->id_str_ = id;
  68             else
  69                 return ret->find_get_translator_l(n,id);
  70
  71         }
  72     } else if (daddy_perf_l_)
  73         ret =daddy_perf_l_->find_get_translator_l(n,id);
  74     else {
  75         warning("Can't find or create `" + n + "' called `" + id + "'\n");
  76         ret =0;
  77     }
  78     return ret;
  79 }
  80
  81 Performer_group_performer*
  82 Performer_group_performer::find_performer_l( String n, String id )
  83 {
  84     if (name() == n && id_str_ == id)
  85         return this;
  86     Performer_group_performer * r = 0;
  87     for (int i =0; !r && i<  group_l_arr_.size(); i++) {
  88         r = group_l_arr_[i]->find_performer_l(n,id);
  89     }
  90
  91     return r;
  92 }
  93
  94 Translator*
  95 Performer_group_performer::get_default_interpreter()
  96 {
  97     // ?
  98     if ( is_bottom_performer_b() )
  99         return daddy_perf_l_->get_default_interpreter();
 100
 101     Performer_group_performer *perf_p= itrans_l_->
 102         get_default_itrans_l()->get_group_performer_p();
 103     add(perf_p );
 104     if (perf_p->is_bottom_performer_b())
 105         return perf_p;
 106     else
 107         return perf_p->get_default_interpreter();
 108 }
 109
 110 Moment
 111 Performer_group_performer::get_mom() const
 112 {
 113     Moment mom = Performer::get_mom();
 114
 115     for ( int i = 0; i < nongroup_l_arr_.size(); i++ )
 116         nongroup_l_arr_[ i ]->set( mom );
 117
 118     return mom;
 119 }
 120
 121 bool
 122 Performer_group_performer::is_bottom_performer_b() const
 123 {
 124     return !itrans_l_->get_default_itrans_l();
 125 }
 126
 127
 128 void
 129 Performer_group_performer::process_requests()
 130 {
 131     for ( PCursor<Performer*> i( perf_p_list_.top() ); i.ok(); i++ )
 132         i->process_requests();
 133 }
 134
 135 bool
 136 Performer_group_performer::do_try_request( Request* req_l )
 137 {
 138     bool hebbes_b =false;
 139     for (int i =0; !hebbes_b && i < nongroup_l_arr_.size() ; i++)
 140         hebbes_b =nongroup_l_arr_[i]->try_request(req_l);
 141     if ( !hebbes_b && daddy_perf_l_ )
 142         hebbes_b = daddy_perf_l_->try_request(req_l);
 143     return hebbes_b ;
 144 }
 145
 146 void
 147 Performer_group_performer::do_print()const
 148 {
 149 #ifndef NPRINT
 150     for ( PCursor<Performer*> i( perf_p_list_.top() ); i.ok(); i++ )
 151         i->print();
 152 #endif
 153 }
 154
 155 void
 156 Performer_group_performer::do_creation_processing()
 157 {
 158     for ( PCursor<Performer*> i( perf_p_list_.top() ); i.ok(); i++ )
 159         i->creation_processing();
 160 }
 161
 162 void
 163 Performer_group_performer::do_removal_processing()
 164 {
 165     for ( PCursor<Performer*> i( perf_p_list_.top() ); i.ok(); i++ )
 166         i->do_removal_processing();
 167 }