X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Ftranslator.icc;h=9bd6163fea45eec75a60c3cbdb8682517ba50caf;hb=97a0169312a260933246ab224e4f8b0969871dd5;hp=087fb4da19f4ed30345d884efe4fcb1189c7758c;hpb=18d9bcf40f630efefdeb42e3d15653c7aae73ec3;p=lilypond.git diff --git a/lily/include/translator.icc b/lily/include/translator.icc index 087fb4da19..9bd6163fea 100644 --- a/lily/include/translator.icc +++ b/lily/include/translator.icc @@ -20,9 +20,9 @@ #ifndef TRANSLATOR_ICC #define TRANSLATOR_ICC -#include "listener.hh" +#include "callback.hh" #include "std-vector.hh" -#include "translator.hh" +#include "engraver.hh" /* TODO: derive "foo-bar-interface" from Foo_bar classname. @@ -32,129 +32,96 @@ A macro to automate administration of translators. */ #define ADD_THIS_TRANSLATOR(T) \ - SCM T::static_description_ = SCM_EOL; \ static void _ ## T ## _adder () \ { \ - T *t = new T; \ - T::static_description_ = \ - scm_permanent_object (t->static_translator_description ()); \ - add_translator (t); \ + T::boot (); \ + add_translator_creator (Translator_creator::alloc()->unprotect (), \ + scm_from_ascii_symbol (#T), \ + T::static_translator_description ()); \ } \ - SCM T::translator_description () const \ - { \ - return static_description_; \ - } \ - ADD_GLOBAL_CTOR (_ ## T ## _adder); \ + ADD_GLOBAL_CTOR (_ ## T ## _adder); \ /* end define */ -#define DEFINE_TRANSLATOR_LISTENER_LIST(T) \ - translator_listener_record *T::listener_list_; \ +#define DEFINE_TRANSLATOR_LISTENER_LIST(T) \ + Protected_scm T::listener_list_ (SCM_EOL); \ /* end define */ #define DEFINE_ACKNOWLEDGERS(classname) \ - Drul_array< vector > classname::acknowledge_static_array_drul_; \ - Translator::Grob_info_callback \ - classname::static_get_acknowledger (SCM sym) \ - { \ - return generic_get_acknowledger (sym, &acknowledge_static_array_drul_[START]); \ - } \ - Translator::Grob_info_callback \ - classname::static_get_end_acknowledger (SCM sym) \ + Drul_array classname::acknowledge_static_array_drul_; \ + SCM \ + classname::static_get_acknowledger (SCM sym, Direction start_end) \ { \ - return generic_get_acknowledger (sym, &acknowledge_static_array_drul_[STOP]); \ + return generic_get_acknowledger \ + (sym, acknowledge_static_array_drul_[start_end]); \ } \ /* end define */ -#define DEFINE_TRANSLATOR_DOC(classname, desc, grobs, read, write) \ +#define DEFINE_TRANSLATOR_DOC(classname, desc, grobs, read, write) \ SCM \ - classname::static_translator_description () const \ + classname::static_translator_description () \ { \ return Translator::static_translator_description (grobs, desc, listener_list_, read, write); \ } #define ADD_TRANSLATOR(classname, desc, grobs, read, write) \ IMPLEMENT_FETCH_PRECOMPUTABLE_METHODS (classname); \ + DEFINE_ACKNOWLEDGERS(classname); \ ADD_THIS_TRANSLATOR (classname); \ - DEFINE_TRANSLATOR_DOC(classname, desc, grobs, read, write) \ - DEFINE_ACKNOWLEDGERS(classname) \ - DEFINE_TRANSLATOR_LISTENER_LIST(classname) \ + DEFINE_TRANSLATOR_DOC(classname, desc, grobs, read, write); \ + DEFINE_TRANSLATOR_LISTENER_LIST(classname); #define IMPLEMENT_FETCH_PRECOMPUTABLE_METHODS(T) \ void \ - T::fetch_precomputable_methods (Translator::Callback ptrs[]) \ + T::fetch_precomputable_methods (SCM ptrs[]) \ { \ ptrs[START_TRANSLATION_TIMESTEP] = \ - (&T::start_translation_timestep \ - == &Translator::start_translation_timestep) \ - ? 0 \ - : static_cast (&T::start_translation_timestep); \ - \ - ptrs[STOP_TRANSLATION_TIMESTEP] = \ - (& T::stop_translation_timestep == & Translator::stop_translation_timestep) \ - ? 0 \ - : static_cast (&T::stop_translation_timestep); \ - \ - ptrs[PROCESS_MUSIC] = \ - (&T::process_music == &Translator::process_music) \ - ? 0 \ - : static_cast (&T::process_music); \ - \ - ptrs[PROCESS_ACKNOWLEDGED] = \ - (&T::process_acknowledged == &Translator::process_acknowledged) \ - ? 0 \ - : static_cast (&T::process_acknowledged); \ + method_finder <&T::start_translation_timestep> (); \ + \ + ptrs[STOP_TRANSLATION_TIMESTEP] = \ + method_finder <&T::stop_translation_timestep> (); \ + \ + ptrs[PROCESS_MUSIC] = \ + method_finder <&T::process_music> (); \ + \ + ptrs[PROCESS_ACKNOWLEDGED] = \ + method_finder <&T::process_acknowledged> (); \ } -void add_acknowledger (Translator::Grob_info_callback ptr, +void add_acknowledger (SCM ptr, char const *func_name, - vector *ack_array); + SCM &ack_hash); -Translator::Grob_info_callback -generic_get_acknowledger (SCM sym, - vector const *ack_array); +#define ADD_ACKNOWLEDGER_FOR(CLASS, NAME, GROB) \ + add_acknowledger (method_finder<&CLASS::acknowledge_ ## NAME> (), \ + #GROB, acknowledge_static_array_drul_[START]) -#define ADD_ACKNOWLEDGER(CLASS, NAME) \ - void CLASS ## NAME ## _ack_adder () \ - { \ - add_acknowledger (static_cast (&CLASS::acknowledge_ ## NAME), #NAME, &CLASS::acknowledge_static_array_drul_[START]); \ - } \ - ADD_SCM_INIT_FUNC (CLASS ## NAME ## _ack_adder_initclass, CLASS ## NAME ## _ack_adder); +#define ADD_ACKNOWLEDGER(CLASS, NAME) ADD_ACKNOWLEDGER_FOR (CLASS, NAME, NAME) -#define ADD_END_ACKNOWLEDGER(CLASS, NAME) \ - void CLASS ## NAME ## _end_ack_adder () \ - { \ - add_acknowledger (static_cast (&CLASS::acknowledge_end_ ## NAME), #NAME, &CLASS::acknowledge_static_array_drul_[STOP]); \ - } \ - ADD_SCM_INIT_FUNC (CLASS ## NAME ## _end_ack_adder_initclass, CLASS ## NAME ## _end_ack_adder); +// ADD_END_ACKNOWLEDGER_FOR requires your NAME to actually be +// end_whatever if you are utilizing acknowledge_end_whatever as a +// different end acknowledger. +#define ADD_END_ACKNOWLEDGER_FOR(CLASS, NAME, GROB) \ + add_acknowledger (method_finder<&CLASS::acknowledge_ ## NAME> (), \ + #GROB, acknowledge_static_array_drul_[STOP]) + +#define ADD_END_ACKNOWLEDGER(CLASS, NAME) \ + ADD_END_ACKNOWLEDGER_FOR (CLASS, end_ ## NAME, NAME) /* Implement the method cl::listen_##m, and make it listen to stream events of class m. + + At macro call time, neither creator instances (which are anonymous + and only accessible via the translator registry) nor translator + instances exist, so the only named place where we can store it is in + a static member of the translator class. */ -#define IMPLEMENT_TRANSLATOR_LISTENER(cl, m) \ -void \ -cl :: _internal_declare_ ## m () \ -{ \ - static translator_listener_record r; \ - add_translator_listener (&listener_list_, &r, _get_ ## m ## _listener, #m); \ -} \ - \ -ADD_SCM_INIT_FUNC (cl ## _declare_event_ ## m, cl::_internal_declare_ ## m); \ - \ -Listener \ - cl :: _get_ ## m ## _listener (void *me, SCM unused) \ -{ \ - cl *obj = (cl *) me; \ - (void) unused; \ - return obj->GET_LISTENER (cl, _listen_scm_ ## m); \ -} \ - \ -void \ -cl::_listen_scm_ ## m (SCM sev) \ -{ \ - Stream_event *ev = Stream_event::unsmob (sev); \ - protect_event (sev); \ - listen_ ## m (ev); \ -} +#define ADD_LISTENER_FOR(cl, m, ev) \ + listener_list_ = scm_acons \ + (event_class_symbol (#ev), \ + method_finder<&cl::listen_ ## m> (), \ + listener_list_) + +#define ADD_LISTENER(cl, m) ADD_LISTENER_FOR (cl, m, m) #endif /* TRANSLATOR_ICC */