]> git.donarmstrong.com Git - lilypond.git/blob - lily/engraver.cc
release: 1.3.83
[lilypond.git] / lily / engraver.cc
1 /*
2   engraver.cc -- implement Engraver
3
4   Sourcefile of GNU LilyPond music type setter
5
6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "music-list.hh"
10 #include "musical-request.hh"
11 #include "engraver.hh"
12 #include "engraver-group-engraver.hh"
13 #include "debug.hh"
14 #include "paper-def.hh"
15 #include "score-element.hh"
16 #include "group-interface.hh"
17
18
19 void
20 Engraver::announce_element (Score_element_info inf)
21 {
22   daddy_grav_l()->announce_element (inf);
23 }
24
25 void
26 Engraver::announce_element (Score_element* e, Music *m)
27 {
28   if (m && m->origin ()->location_str ().length_i ())
29     {
30       e->set_elt_property ("origin", m->get_mus_property ("origin"));
31     }
32   
33   Score_element_info i (e, m);
34   if (!i.origin_trans_l_)
35     i.origin_trans_l_ = this;
36   daddy_grav_l()->announce_element (i);
37 }
38
39
40  
41 void
42 Engraver::typeset_element (Score_element*p)
43 {
44   daddy_grav_l()->typeset_element (p);
45 }
46
47
48 Paper_def*
49 Engraver::paper_l () const
50 {
51   return dynamic_cast<Paper_def*>(output_def_l_);
52 }
53
54 Engraver_group_engraver*
55 Engraver::daddy_grav_l () const
56 {
57   return (daddy_trans_l_ )
58        ? dynamic_cast<Engraver_group_engraver *> (daddy_trans_l_)
59        : 0;
60 }