lilypond-1.3.16
[lilypond.git] / lily / extender-engraver.cc
blob32e6f01f389b56234eda968dc53273ccdbbf42f1
1 /*
2 extender-engraver.cc -- implement Extender_engraver
4 (c) 1999 Glen Prideaux <glenprideaux@iname.com>,
5 Han-Wen Nienhuys, Jan Nieuwenhuizen.
7 */
9 #include "proto.hh"
10 #include "musical-request.hh"
11 #include "extender-engraver.hh"
12 #include "extender-spanner.hh"
13 #include "paper-column.hh"
14 #include "text-item.hh"
15 #include "extender-engraver.hh"
17 ADD_THIS_TRANSLATOR (Extender_engraver);
19 Extender_engraver::Extender_engraver ()
21 current_lyric_l_ = 0;
22 last_lyric_l_ = 0;
23 extender_spanner_p_ = 0;
24 req_l_ = 0;
27 void
28 Extender_engraver::acknowledge_element (Score_element_info i)
30 if (Text_item* t = dynamic_cast<Text_item*> (i.elem_l_))
32 current_lyric_l_ = t;
33 if (extender_spanner_p_
34 && !extender_spanner_p_->spanned_drul_[RIGHT]
37 extender_spanner_p_->set_textitem (RIGHT, t);
43 bool
44 Extender_engraver::do_try_music (Music* r)
46 if (Extender_req* p = dynamic_cast <Extender_req *> (r))
48 if (req_l_)
49 return false;
51 req_l_ = p;
52 return true;
54 return false;
57 void
58 Extender_engraver::do_removal_processing ()
60 if (extender_spanner_p_)
62 req_l_->warning (_ ("unterminated extender"));
63 extender_spanner_p_->set_bounds(RIGHT, get_staff_info ().command_pcol_l ());
67 void
68 Extender_engraver::do_process_requests ()
70 if (req_l_)
72 if (!last_lyric_l_)
74 req_l_->warning (_ ("Nothing to connect extender to on the left. Ignoring extender request."));
75 return;
78 extender_spanner_p_ = new Extender_spanner;
79 extender_spanner_p_->set_textitem (LEFT, last_lyric_l_);
80 announce_element (Score_element_info (extender_spanner_p_, req_l_));
85 void
86 Extender_engraver::do_pre_move_processing ()
88 if (extender_spanner_p_)
90 typeset_element (extender_spanner_p_);
91 extender_spanner_p_ = 0;
94 if (current_lyric_l_)
96 last_lyric_l_ = current_lyric_l_;
97 current_lyric_l_ =0;
101 void
102 Extender_engraver::do_post_move_processing ()
104 req_l_ = 0;