source file of the GNU LilyPond music typesetter
- (c) 2003--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2003--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "recording-group-engraver.hh"
#include "context.hh"
-
void
Recording_group_engraver::derived_mark () const
{
- Engraver_group_engraver::derived_mark ();
+ Engraver_group::derived_mark ();
scm_gc_mark (now_events_);
scm_gc_mark (accumulator_);
}
void
Recording_group_engraver::finalize ()
{
- SCM proc = context()->get_property ("recordEventSequence");
+ SCM proc = context ()->get_property ("recordEventSequence");
if (ly_is_procedure (proc))
scm_call_2 (proc, context ()->self_scm (), scm_cdr (accumulator_));
void
recording_engraver (Translator_group *tg)
{
- Recording_group_engraver *rg = dynamic_cast<Recording_group_engraver*> (tg);
+ Recording_group_engraver *rg = dynamic_cast<Recording_group_engraver *> (tg);
rg->stop_translation_timestep ();
}
ptrs[STOP_TRANSLATION_TIMESTEP] = &recording_engraver;
}
-#include "translator.icc"
-
ADD_TRANSLATOR_GROUP (Recording_group_engraver,
- "Engraver_group_engraver that records all music events "
- "for this context. Calls the procedure "
- "in @code{recordEventSequence} when finished.",
- "",
- "",
- "",
- "recordEventSequence",
- "");
+ "Engraver_group that records all music events "
+ "for this context. Calls the procedure "
+ "in @code{recordEventSequence} when finished.",
+ "",
+ "",
+ "recordEventSequence",
+ "");