lily/staff-grouper-interface.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2009--2011 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 /* Checks whether the child grob is in the "interior" of this staff-grouper.
  27    This is the case if the next spaceable, living child after the given one
  28    belongs to the group.
  29 */
  30 bool
  31 Staff_grouper_interface::maybe_pure_within_group (Grob *me, Grob *child, bool pure, int start, int end)
  32 {
  33   extract_grob_set (me, "elements", elts);
  34
  35   vector<Grob*>::const_iterator i = find (elts, child);
  36
  37   if (i == elts.end ())
  38     return false;
  39
  40   for (++i; i != elts.end (); ++i)
  41     if (Page_layout_problem::is_spaceable (*i)
  42         && ((pure && !Hara_kiri_group_spanner::request_suicide (*i, start, end))
  43             || (!pure && (*i)->is_live ())))
  44       return me == unsmob_grob ((*i)->get_object ("staff-grouper"));
  45
  46   // If there was no spaceable, living child after me, I don't
  47   // count as within the group.
  48   return false;
  49 }
  50
  51 ADD_INTERFACE (Staff_grouper_interface,
  52                "A grob that collects staves together.",
  53
  54                /* properties */
  55                "staff-staff-spacing "
  56                "staffgroup-staff-spacing "
  57                );
  58