- return this;
-}
-
-void
-Translator_group::each (Method_pointer method)
-{
- for (Cons<Translator> *p = trans_p_list_.head_; p; p = p->next_)
- (p->car_->*method) ();
-}
-
-
-void
-Translator_group::each (Const_method_pointer method) const
-{
- for (Cons<Translator> *p = trans_p_list_.head_; p; p = p->next_)
- (p->car_->*method) ();
-}
-
-void
-Translator_group::do_print() const
-{
-#ifndef NPRINT
- if (!flower_dstream)
- return ;
-
- gh_display (properties_dict_->self_scm ());
- if (status == ORPHAN)
- {
- DEBUG_OUT << "consists of: ";
- for (int i=0; i < consists_str_arr_.size (); i++)
- DEBUG_OUT << consists_str_arr_[i] << ", ";
- DEBUG_OUT << "\naccepts: ";
- for (int i=0; i < accepts_str_arr_.size (); i++)
- DEBUG_OUT << accepts_str_arr_[i] << ", ";
- }
- else
- {
- if (id_str_.length_i ())
- DEBUG_OUT << "ID: " << id_str_ ;
- DEBUG_OUT << " iterators: " << iterator_count_<< '\n';
- }
- each (&Translator::print);
-#endif
-}
-
-void
-Translator_group::do_pre_move_processing ()
-{
- each (&Translator::pre_move_processing);
-}
-
-void
-Translator_group::do_post_move_processing ()
-{
- each (&Translator::post_move_processing);
-}
-
-void
-Translator_group::do_process_music ()
-{
- each (&Translator::process_music);
-}
-
-void
-Translator_group::do_creation_processing ()
-{
- each (&Translator::creation_processing);
-}