2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2010--2015 Joe Neeman <joeneeman@gmail.com>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
21 #include "dispatcher.hh"
22 #include "engraver.hh"
24 #include "grob-array.hh"
25 #include "international.hh"
27 #include "translator.icc"
29 class Keep_alive_together_engraver: public Engraver
31 vector<Grob *> group_spanners_;
34 TRANSLATOR_DECLARATIONS (Keep_alive_together_engraver);
35 void acknowledge_hara_kiri_group_spanner (Grob_info);
37 virtual void finalize ();
40 Keep_alive_together_engraver::Keep_alive_together_engraver ()
45 Keep_alive_together_engraver::acknowledge_hara_kiri_group_spanner (Grob_info i)
47 group_spanners_.push_back (i.grob ());
51 Keep_alive_together_engraver::finalize ()
53 for (vsize i = 0; i < group_spanners_.size (); ++i)
55 SCM this_layer = group_spanners_[i]->get_property ("remove-layer");
56 if (scm_is_false (this_layer))
59 SCM live_scm = Grob_array::make_array ();
60 Grob_array *live = unsmob<Grob_array> (live_scm);
61 SCM dead_scm = Grob_array::make_array ();
62 Grob_array *dead = unsmob<Grob_array> (dead_scm);
64 for (vsize j = 0; j < group_spanners_.size (); ++j)
69 if (scm_is_symbol (this_layer))
71 if (scm_is_eq (this_layer, ly_symbol2scm ("any")))
73 // layer is kept alive by any other layer
74 live->add (group_spanners_[j]);
77 else if (scm_is_eq (this_layer, ly_symbol2scm ("above")))
79 // layer is kept alive by the layer preceding it
81 live->add (group_spanners_[j]);
84 else if (scm_is_eq (this_layer, ly_symbol2scm ("below")))
86 // layer is kept alive by the layer following it
88 live->add (group_spanners_[j]);
93 group_spanners_[i]->warning (_f ("unknown remove-layer value `%s'",
94 ly_symbol2string (this_layer).c_str ()));
99 SCM that_layer = group_spanners_[j]->get_property ("remove-layer");
101 if (scm_is_false (that_layer))
103 if (!scm_is_integer (this_layer))
105 // unset layers are kept alive by all but ignored layers
106 live->add (group_spanners_[j]);
109 // an explicit layer is only affected by explicit layers
110 if (!scm_is_integer (that_layer))
112 if (scm_is_true (scm_num_eq_p (that_layer, this_layer)))
113 live->add (group_spanners_[j]);
114 else if (scm_is_true (scm_less_p (that_layer, this_layer)))
115 dead->add (group_spanners_[j]);
118 group_spanners_[i]->set_object ("keep-alive-with", live_scm);
120 group_spanners_[i]->set_object ("make-dead-when", dead_scm);
126 Keep_alive_together_engraver::boot ()
128 ADD_ACKNOWLEDGER (Keep_alive_together_engraver, hara_kiri_group_spanner);
131 ADD_TRANSLATOR (Keep_alive_together_engraver,
133 "This engraver collects all @code{Hara_kiri_group_spanner}s "
134 "that are created in contexts at or below its own. "
135 "These spanners are then tied together so that one will "
136 "be removed only if all are removed. For example, "
137 "if a @code{StaffGroup} uses this engraver, then the staves "
138 "in the group will all be visible as long as there is a note "
139 "in at least one of them.",