]> git.donarmstrong.com Git - lilypond.git/blob - lily/bar-engraver.cc
LSR: update.
[lilypond.git] / lily / bar-engraver.cc
1 /*
2   bar-engraver.cc -- implement Bar_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
7   Jan Nieuwenhuizen <janneke@gnu.org>
8 */
9
10 #include "bar-line.hh"
11 #include "context.hh"
12 #include "score-engraver.hh"
13 #include "warn.hh"
14 #include "item.hh"
15 #include "spanner.hh"
16
17 #include "translator.icc"
18
19 /*
20   generate bars. Either user ("|:"), or default (new measure)
21 */
22 class Bar_engraver : public Engraver
23 {
24 public:
25   TRANSLATOR_DECLARATIONS (Bar_engraver);
26   void request_bar (string type_string);
27
28 protected:
29   void stop_translation_timestep ();
30   void process_acknowledged ();
31
32   DECLARE_END_ACKNOWLEDGER (spanner);
33
34 private:
35   void create_bar ();
36
37   Item *bar_;
38   vector<Spanner*> spanners_;
39 };
40
41 Bar_engraver::Bar_engraver ()
42 {
43   bar_ = 0;
44 }
45
46 void
47 Bar_engraver::create_bar ()
48 {
49   if (!bar_)
50     {
51       bar_ = make_item ("BarLine", SCM_EOL);
52       SCM gl = get_property ("whichBar");
53       if (scm_equal_p (gl, bar_->get_property ("glyph")) != SCM_BOOL_T)
54         bar_->set_property ("glyph", gl);
55     }
56 }
57
58 /*
59   Bar_engraver should come *after* any engravers that
60   modify whichBar
61
62   This is a little hairy : whichBar may be set by
63   Repeat_acknowledge_engraver::process_music, which is at score
64   context. This means that grobs could should be created after
65   process_music. We do stuff process_acknowledged (), just to be
66   on the safe side.
67 */
68
69 void
70 Bar_engraver::process_acknowledged ()
71 {
72   if (!bar_ && scm_is_string (get_property ("whichBar")))
73     create_bar ();
74
75   if (bar_)
76     for (vsize i = 0; i < spanners_.size (); i++)
77       spanners_[i]->set_bound (RIGHT, bar_);
78 }
79
80 /*
81   lines may only be broken if there is a barline in all staves
82 */
83 void
84 Bar_engraver::stop_translation_timestep ()
85 {
86   if (!bar_)
87     context ()->get_score_context ()->set_property ("forbidBreak", SCM_BOOL_T);
88
89   bar_ = 0;
90   spanners_.clear ();
91 }
92
93 void
94 Bar_engraver::acknowledge_end_spanner (Grob_info gi)
95 {
96   Grob *g = gi.grob ();
97
98   if (to_boolean (g->get_property ("to-barline")))
99     spanners_.push_back (dynamic_cast<Spanner*> (g));
100 }
101
102 ADD_END_ACKNOWLEDGER (Bar_engraver, spanner);
103
104 ADD_TRANSLATOR (Bar_engraver,
105                 /* doc */
106                 "Create barlines.  This engraver is controlled through the"
107                 " @code{whichBar} property.  If it has no bar line to create,"
108                 " it will forbid a linebreak at this point.",
109
110                 /* create */
111                 "BarLine ",
112
113                 /* read */
114                 "whichBar ",
115
116                 /* write */
117                 "forbidBreak "
118                 );