-typedef struct translator_listener_record {
- Listener (*get_listener_) (void *);
- SCM event_class_;
- struct translator_listener_record *next_;
-} translator_listener_record;
-
-#define TRANSLATOR_DECLARATIONS(NAME) \
-private: \
- static translator_listener_record *listener_list_; \
- public: \
- NAME (); \
- VIRTUAL_COPY_CONSTRUCTOR (Translator, NAME); \
- static SCM static_description_; \
- static Drul_array<vector<Acknowledge_information> > acknowledge_static_array_drul_; \
- virtual void fetch_precomputable_methods (Translator_void_method_ptr methods[]); \
- virtual SCM static_translator_description () const; \
- virtual SCM translator_description () const; \
- virtual Engraver_void_function_engraver_grob_info get_acknowledger (SCM sym) \
- { \
- return static_get_acknowledger (sym); \
- } \
- virtual Engraver_void_function_engraver_grob_info get_end_acknowledger (SCM sym) \
- { \
- return static_get_end_acknowledger (sym); \
- } \
- static Engraver_void_function_engraver_grob_info static_get_acknowledger (SCM sym); \
- static Engraver_void_function_engraver_grob_info static_get_end_acknowledger(SCM); \
-public: \
- virtual translator_listener_record *get_listener_list () const \
- { \
- return listener_list_; \
- } \
- /* end #define */
-
-#define DECLARE_TRANSLATOR_LISTENER(m) \
-public: \
-inline void listen_ ## m (Stream_event *); \
-/* Should be private */ \
-static void _internal_declare_ ## m (); \
-private: \
-static Listener _get_ ## m ## _listener (void *); \
-DECLARE_LISTENER (_listen_scm_ ## m);