- return r;
-}
-
-
-
-
-Translator_group*
-Translator_group::find_create_translator_l (String n, String id)
-{
- Translator_group * existing = find_existing_translator_l (n,id);
- if (existing)
- return existing;
-
- Link_array<Translator_def> path
- = unsmob_translator_def (definition_)->path_to_acceptable_translator (ly_str02scm ((char*)n.ch_C()), output_def_l ());
-
- if (path.size ())
- {
- Translator_group * current = this;
-
- // start at 1. The first one (index 0) will be us.
- for (int i=0; i < path.size (); i++)
- {
- Translator_group * new_group = path[i]->instantiate (output_def_l_);
-
- current->add_group_translator (new_group);
- current = new_group;
- }
- current->id_str_ = id;
- return current;
- }
-
- Translator_group *ret = 0;
- if (daddy_trans_l_)
- ret = daddy_trans_l_->find_create_translator_l (n,id);
- else
- {
- warning (_f ("can't find or create `%s' called `%s'", n, id));
- ret =0;
- }
- return ret;
-}
-
-bool
-Translator_group::try_music_on_nongroup_children (Music *m)
-{
- bool hebbes_b =false;
-
- for (SCM p = simple_trans_list_; !hebbes_b && gh_pair_p (p); p = gh_cdr (p))
- {
- hebbes_b = unsmob_translator (gh_car (p))->try_music (m);
- }
- return hebbes_b;