-
-
-
-
-/*
- STUBS
-*/
-void
-Translator_group::stop_translation_timestep ()
-{
- each (&Translator::stop_translation_timestep);
-}
-
-void
-Translator_group::start_translation_timestep ()
-{
- each (&Translator::start_translation_timestep);
-}
-
-void
-Translator_group::do_announces ()
-{
- each (&Translator::announces);
-}
-
-void
-Translator_group::initialize ()
-{
- each (&Translator::initialize);
-}
-
-void
-Translator_group::finalize ()
-{
- each (&Translator::removal_processing);
-}
-
-
-SCM
-ly_get_trans_property (SCM context, SCM name)
-{
- Translator *t = unsmob_translator (context);
- Translator_group* tr= dynamic_cast<Translator_group*> (t);
- if (!t || !tr)
- {
- /* programming_error? */
- warning (_ ("ly-get-trans-property: expecting a Translator_group argument"));
- return SCM_EOL;
- }
- return tr->internal_get_property (name);
-
-}
-SCM
-ly_set_trans_property (SCM context, SCM name, SCM val)