2 engraver.cc -- implement Engraver
4 Sourcefile of GNU LilyPond music type setter
6 (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "engraver.hh"
11 #include "engraver-group-engraver.hh"
14 #include "score-engraver.hh"
18 Engraver::announce_grob (Grob_info inf
)
20 get_daddy_grav ()->announce_grob (inf
);
24 Engraver::announce_grob (Grob
* e
, SCM cause
)
27 TODO: junk grob-info, and make a cause grob-property to store
31 if (unsmob_music (cause
) || unsmob_grob (cause
))
32 e
->set_grob_property ("cause", cause
);
36 i
.origin_trans_
= this;
37 get_daddy_grav ()->announce_grob (i
);
43 Engraver::typeset_grob (Grob
*p
)
45 get_daddy_grav ()->typeset_grob (p
);
49 Engraver_group_engraver
*
50 Engraver::get_daddy_grav () const
53 ? dynamic_cast<Engraver_group_engraver
*> (daddy_trans_
)
58 Engraver::process_music ()
69 Engraver::top_engraver () const
74 if (dynamic_cast<Score_engraver
*>((Engraver
*)this))
75 return dynamic_cast<Score_engraver
*> ((Engraver
*)this);
78 return dynamic_cast<Engraver
*> (daddy_trans_
)->top_engraver ();
80 programming_error ("No score engraver!");
84 ENTER_DESCRIPTION(Engraver
,