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 daddy_grav_l ()->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);
35 if (!i.origin_trans_l_)
36 i.origin_trans_l_ = this;
37 daddy_grav_l ()->announce_grob (i);
43 Engraver::typeset_grob (Grob*p)
45 daddy_grav_l ()->typeset_grob (p);
49 Engraver_group_engraver*
50 Engraver::daddy_grav_l () const
52 return (daddy_trans_l_)
53 ? dynamic_cast<Engraver_group_engraver *> (daddy_trans_l_)
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_l_)->top_engraver ();
80 programming_error ("No score engraver!");
84 ENTER_DESCRIPTION(Engraver,