2 Translator_group.cc -- implement Translator_group
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "music-output-def.hh"
10 #include "translator-group.hh"
11 #include "translator.hh"
14 #include "scm-hash.hh"
15 #include "context-def.hh"
21 Translator_group::get_daddy_translator () const
24 = unsmob_translator (daddy_context_
->daddy_context_
->implementation_
);
25 return dynamic_cast<Translator_group
*> (t
);
30 translator_each (SCM list
, Translator_method method
)
32 for (SCM p
= list
; gh_pair_p (p
); p
= ly_cdr (p
))
33 (unsmob_translator (ly_car (p
))->*method
) ();
38 Translator_group::initialize ()
40 SCM tab
= scm_make_vector (gh_int2scm (19), SCM_BOOL_F
);
41 daddy_context_
->set_property ("acceptHashTable", tab
);
46 translator_accepts_any_of (Translator
*tr
, SCM ifaces
)
48 SCM ack_ifs
= scm_assoc (ly_symbol2scm ("events-accepted"),
49 tr
->translator_description ());
50 ack_ifs
= gh_cdr (ack_ifs
);
51 for (SCM s
= ifaces
; ly_pair_p (s
); s
= ly_cdr (s
))
52 if (scm_c_memq (ly_car (s
), ack_ifs
) != SCM_BOOL_F
)
58 find_accept_translators (SCM gravlist
, SCM ifaces
)
61 for (SCM s
= gravlist
; ly_pair_p (s
); s
= ly_cdr (s
))
63 Translator
* tr
= unsmob_translator (ly_car (s
));
64 if (translator_accepts_any_of (tr
, ifaces
))
65 l
= scm_cons (tr
->self_scm (), l
);
67 l
= scm_reverse_x (l
, SCM_EOL
);
73 Translator_group::try_music (Music
* m
)
75 SCM tab
= get_property ("acceptHashTable");
76 SCM name
= scm_sloppy_assq (ly_symbol2scm ("name"),
77 m
->get_property_alist (false));
79 if (!gh_pair_p (name
))
83 SCM accept_list
= scm_hashq_ref (tab
, name
, SCM_UNDEFINED
);
84 if (accept_list
== SCM_BOOL_F
)
86 accept_list
= find_accept_translators (get_simple_trans_list (),
87 m
->get_property ("types"));
88 scm_hashq_set_x (tab
, name
, accept_list
);
91 for (SCM p
= accept_list
; gh_pair_p (p
); p
= ly_cdr (p
))
93 Translator
* t
= unsmob_translator (ly_car (p
));
94 if (t
&& t
->try_music (m
))
101 names_to_translators (SCM namelist
, Context
*tg
)
104 for (SCM s
= namelist
; gh_pair_p (s
) ; s
= ly_cdr (s
))
106 Translator
* t
= get_translator (ly_car (s
));
108 warning (_f ("can't find: `%s'", s
));
111 Translator
* tr
= t
->clone ();
112 SCM str
= tr
->self_scm ();
113 l
= gh_cons (str
, l
);
115 tr
->daddy_context_
= tg
;
116 scm_gc_unprotect_object (str
);
124 Translator_group::get_simple_trans_list ()
126 return simple_trans_list_
;
130 recurse_over_translators (Context
* c
, Translator_method ptr
, Direction dir
)
132 Translator_group
* tg
133 = dynamic_cast<Translator_group
*> (unsmob_translator (c
->implementation_
));
141 translator_each (tg
->get_simple_trans_list (),
147 for (SCM s
= c
->context_list_
; gh_pair_p (s
);
150 recurse_over_translators (unsmob_context (gh_car (s
)), ptr
, dir
);
155 translator_each (tg
->get_simple_trans_list (),