#include "scm-hash.hh"
-Scheme_engraver::Scheme_engraver (SCM definition)
+Preinit_Scheme_engraver::Preinit_Scheme_engraver ()
{
initialize_function_ = SCM_EOL;
finalize_function_ = SCM_EOL;
interface_acknowledger_hash_.set (SCM_EOL, SCM_EOL);
- must_be_last_ = false;
per_instance_listeners_ = SCM_EOL;
for (int i = 0; i < TRANSLATOR_METHOD_PRECOMPUTE_COUNT; i++)
precomputable_methods_[i] = SCM_UNDEFINED;
-
- init_from_scheme (definition);
}
Scheme_engraver::~Scheme_engraver ()
ptrs[i] = precomputable_methods_[i];
}
-void
-Scheme_engraver::init_from_scheme (SCM definition)
+Scheme_engraver::Scheme_engraver (SCM definition, Context *c)
+ : Engraver (c)
{
precomputable_methods_[START_TRANSLATION_TIMESTEP]
= callable (ly_symbol2scm ("start-translation-timestep"), definition);