+void
+Translator::connect_to_context (Context *c)
+{
+ for (SCM r = get_listener_list (); scm_is_pair (r); r = scm_cdr (r))
+ {
+ SCM event_class = scm_caar (r);
+ SCM callback = scm_cdar (r);
+
+ c->events_below ()->add_listener (get_listener (callback),
+ event_class);
+ }
+}
+
+void
+Translator::disconnect_from_context (Context *c)
+{
+ for (SCM r = get_listener_list (); scm_is_pair (r); r = scm_cdr (r))
+ {
+ SCM event_class = scm_caar (r);
+ SCM callback = scm_cdar (r);
+
+ c->events_below ()->remove_listener (get_listener (callback),
+ event_class);
+ }
+}
+
+SCM
+Translator::event_class_symbol (const char *ev_class)
+{
+ /* ev_class is the C++ identifier name. Convert to scm symbol */
+ string name = string (ev_class);
+ name = replace_all (&name, '_', '-');
+ name += "-event";
+
+ return scm_from_ascii_symbol (name.c_str ());
+}
+
+/*
+ Helps the individual static_translator_description methods of translators.
+*/
+SCM
+Translator::static_translator_description (const char *grobs,
+ const char *desc,
+ SCM listener_list,
+ const char *read,
+ const char *write) const
+{
+ SCM static_properties = SCM_EOL;
+
+ static_properties = scm_acons (ly_symbol2scm ("grobs-created"),
+ parse_symbol_list (grobs), static_properties);
+
+ static_properties = scm_acons (ly_symbol2scm ("description"),
+ scm_from_utf8_string (desc), static_properties);
+
+ SCM list = SCM_EOL;
+ for (; scm_is_pair (listener_list); listener_list = scm_cdr (listener_list))
+ list = scm_cons (scm_caar (listener_list), list);
+ static_properties = scm_acons (ly_symbol2scm ("events-accepted"),
+ list, static_properties);
+
+ static_properties = scm_acons (ly_symbol2scm ("properties-read"),
+ parse_symbol_list (read), static_properties);
+
+ static_properties = scm_acons (ly_symbol2scm ("properties-written"),
+ parse_symbol_list (write), static_properties);
+
+ return static_properties;
+}
+