#include "translator.icc"
-Scheme_engraver::Scheme_engraver ()
+Scheme_engraver::Scheme_engraver (SCM definition)
{
stop_translation_timestep_function_ = SCM_EOL;
start_translation_timestep_function_ = SCM_EOL;
must_be_last_ = false;
per_instance_listeners_ = SCM_EOL;
+
+ init_from_scheme (definition);
}
Scheme_engraver::~Scheme_engraver ()
ADD_ACKNOWLEDGER (Scheme_engraver, grob);
ADD_END_ACKNOWLEDGER (Scheme_engraver, grob);
-ADD_TRANSLATOR (Scheme_engraver,
- /* doc */
- "Implement engravers in Scheme. Interprets arguments to"
- " @code{\\consists} as callbacks.",
-
- /* create */
- "",
-
- /* read */
- "",
-
- /* write */
- ""
- );
+ADD_TRANSLATOR_FAMILY (Scheme_engraver);