source file of the GNU LilyPond music typesetter
- (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "score-engraver.hh"
#include "paper-column-engraver.hh"
#include "paper-column.hh"
#include "paper-score.hh"
-#include "stream-event.hh"
#include "system.hh"
#include "warn.hh"
{
if (pscore_)
scm_gc_mark (pscore_->self_scm ());
- Score_translator::derived_mark ();
Engraver_group::derived_mark ();
}
pscore_ = new Paper_score (dynamic_cast<Output_def *> (context ()->get_output_def ()));
pscore_->unprotect ();
+ context ()->set_property ("output", pscore_->self_scm ());
SCM props = updated_grob_properties (context (), ly_symbol2scm ("System"));
- Object_key const *sys_key = context ()->get_grob_key ("System");
- pscore_->typeset_system (new System (props, sys_key));
+ pscore_->typeset_system (new System (props));
system_ = pscore_->root_system ();
context ()->set_property ("rootSystem", system_->self_scm ());
d->add_listener (GET_LISTENER (finish), ly_symbol2scm ("Finish"));
}
+/*
+ uncovered:
+
+ check_removal always returns false for Score contexts, it has been that way
+since I joined the project. There is a reason for this: The typeset score is
+stored in the Score_engraver, which in turn is accessed through the
+Global_context returned by ly:run-translator. So the score-translator must be
+connected to the score-context after run-translator finishes.
+
+I plan to change this: we should junk run-translator, and instead keep track
+of both context and translator in the SCM code, and access the typeset score
+directly via the created global-translator. Then it would be possible to
+disconnect score-translators at iteration time. -es
+ */
void
Score_engraver::disconnect_from_context ()
{
void
Score_engraver::finalize ()
{
- Score_translator::finalize ();
+ Engraver_group::finalize ();
typeset_all ();
}
-IMPLEMENT_LISTENER(Score_engraver, one_time_step);
+IMPLEMENT_LISTENER (Score_engraver, one_time_step);
void
Score_engraver::one_time_step (SCM)
{
elems_.clear ();
}
-SCM
-Score_engraver::get_output ()
-{
- Music_output *o = pscore_;
- return o->self_scm ();
-}
-
-bool
-Score_engraver::try_music (Music *m)
-{
- if (Engraver_group::try_music (m))
- return true;
-
- return false;
-}
-
ADD_TRANSLATOR_GROUP (Score_engraver,
/* doc */ "Top level engraver. Takes care of generating columns and the complete system (ie. System) "
"\n\n "
"that there are no beams or notes that prevent a breakpoint.) ",
/* create */
"System ",
-
- /* accept */
- "break-event",
/* read */
"currentMusicalColumn "
"currentCommandColumn "
- "verticallySpacedContexts",
+ "verticallySpacedContexts ",
/* write */
"");