lily/staff-grouper-interface.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2009--2015 Joe Neeman <joeneeman@gmail.com>
   5
   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.
  10
  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.
  15
  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/>.
  18 */
  19
  20 #include "staff-grouper-interface.hh"
  21
  22 #include "hara-kiri-group-spanner.hh"
  23 #include "page-layout-problem.hh"
  24 #include "pointer-group-interface.hh"
  25
  26 using std::vector;
  27
  28 /* Checks whether the child grob is in the "interior" of this staff-grouper.
  29    This is the case if the next spaceable, living child after the given one
  30    belongs to the group.
  31 */
  32 bool
  33 Staff_grouper_interface::maybe_pure_within_group (Grob *me, Grob *child, bool pure, int start, int end)
  34 {
  35   extract_grob_set (me, "elements", elts);
  36
  37   vector<Grob *>::const_iterator i = find (elts, child);
  38
  39   if (i == elts.end ())
  40     return false;
  41
  42   for (++i; i != elts.end (); ++i)
  43     if (Page_layout_problem::is_spaceable (*i)
  44         && ((pure && !Hara_kiri_group_spanner::request_suicide (*i, start, end))
  45             || (!pure && (*i)->is_live ())))
  46       return me == unsmob<Grob> ((*i)->get_object ("staff-grouper"));
  47
  48   // If there was no spaceable, living child after me, I don't
  49   // count as within the group.
  50   return false;
  51 }
  52
  53 ADD_INTERFACE (Staff_grouper_interface,
  54                "A grob that collects staves together.",
  55
  56                /* properties */
  57                "staff-staff-spacing "
  58                "staffgroup-staff-spacing "
  59               );
  60