]> git.donarmstrong.com Git - lilypond.git/blob - lily/engraver.cc
* lily/include/grob-info.hh: origin_contexts() now does not
[lilypond.git] / lily / engraver.cc
1 /*
2   engraver.cc -- implement Engraver
3
4   Sourcefile of GNU LilyPond music type setter
5
6   (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "music.hh"
10 #include "engraver.hh"
11 #include "engraver-group-engraver.hh"
12 #include "grob.hh"
13 #include "score-engraver.hh"
14 #include "warn.hh"
15 #include "spanner.hh"
16 #include "item.hh"
17 #include "context.hh"
18 #include "score-context.hh"
19
20 Engraver_group_engraver*
21 Engraver::get_daddy_engraver () const
22 {
23   return dynamic_cast<Engraver_group_engraver*> (get_daddy_translator ());
24 }
25
26 void
27 Engraver::announce_grob (Grob_info inf)
28 {
29   get_daddy_engraver ()->announce_grob (inf);
30 }
31
32
33 /*
34   CAUSE is the object (typically a Music object)  that
35   was the reason for making E.
36  */
37 void
38 Engraver::announce_grob (Grob* e, SCM cause)
39 {
40   /*
41     TODO: junk grob-info, and make a cause grob-property to store
42     `causes' generically.
43   */
44   if (unsmob_music (cause) || unsmob_grob (cause))
45     e->set_grob_property ("cause", cause);
46
47   Grob_info i;
48   i.grob_ = e;
49   if (!i.origin_trans_)
50     i.origin_trans_ = this;
51
52   get_daddy_engraver ()->announce_grob (i);
53 }
54
55
56  
57 void
58 Engraver::typeset_grob (Grob*p)
59 {
60   Engraver *dad = get_daddy_engraver ();
61   dad->typeset_grob (p);
62 }
63
64
65
66 void
67 Engraver::process_music ()
68 {
69   
70 }
71 Engraver::Engraver()
72 {
73 }
74
75
76 Score_engraver* 
77 Engraver::get_score_engraver () const
78 {
79   SCM t = get_score_context ()->implementation_;
80   return dynamic_cast<Score_engraver*> (unsmob_translator (t));
81 }
82
83
84 void
85 Engraver::do_announces ()
86 {
87 }
88
89 ENTER_DESCRIPTION(Engraver,
90                    "", "",
91                   "",
92                   "", "", "");
93