-
-bool
-Translator_group::try_music_on_nongroup_children (Music *m )
-{
- SCM tab = get_property ("acceptHashTable");
- SCM name = scm_sloppy_assq (ly_symbol2scm ("name"),
- m->get_property_alist (false));
-
- if (!gh_pair_p (name))
- return false;
-
- name = gh_cdr (name);
- SCM accept_list = scm_hashq_ref (tab, name, SCM_UNDEFINED);
- if (accept_list == SCM_BOOL_F)
- {
- accept_list = find_accept_translators (simple_trans_list_,
- m->get_mus_property ("types"));
- scm_hashq_set_x (tab, name, accept_list);
- }
-
- for (SCM p = accept_list; gh_pair_p (p); p = ly_cdr (p))
- {
- Translator * t = unsmob_translator (ly_car (p));
- if (t && t->try_music (m))
- return true;
- }
- return false;
-}
-
-SCM
-Translator_group::properties_as_alist () const
-{
- return properties_dict()->to_alist();
-}
-