-bool
-Translator::try_music (Music * r)
-{
- if (status < MOVE_INITED)
- post_move_processing ();
+ The method should only be called from the macro
+ IMPLEMENT_TRANSLATOR_LISTENER.
+ */
+void
+Translator::add_translator_listener (translator_listener_record **listener_list,
+ translator_listener_record *r,
+ Listener (*get_listener) (void *),
+ 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 = name + "-event";
+ /* It's OK to use scm_gc_protect_object for protection, because r is
+ statically allocated. */
+ r->event_class_ = scm_gc_protect_object (scm_str2symbol (name.c_str ()));
+ r->get_listener_ = get_listener;
+ r->next_ = *listener_list;
+ *listener_list = r;
+}