- SCM nm = unsmob_translator_def (definition_)->default_child_context_name ();
- SCM st = output_def_l ()->find_translator_l (nm);
-
- Translator_def *t = unsmob_translator_def (st);
- if (!t)
- {
- warning (_f ("can't find or create: `%s'", ly_scm2string (nm).ch_C()));
- t = unsmob_translator_def (this->definition_);
- }
- Translator_group *tg = t->instantiate (output_def_l_);
- add_group_translator (tg);
-
- if (!tg->is_bottom_translator_b ())
- return tg->get_default_interpreter ();
- else
- return tg;
- }
- return this;
-}
-
-static void
-static_each (SCM list, Method_pointer method)
-{
- for (SCM p = list; gh_pair_p (p); p = gh_cdr(p))
- (unsmob_translator (gh_car (p))->*method) ();
-
-}
-
-void
-Translator_group::each (Method_pointer method)
-{
- static_each (simple_trans_list_, method);
- static_each (trans_group_list_, method);
-}
-