lily/group-interface.cc

   1 /*
   2   group-interface.cc --  implement Group_interface
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "group-interface.hh"
  10 #include "grob.hh"
  11
  12
  13 void
  14 Group_interface::add_thing (Grob*me, String name, SCM s)
  15 {
  16   me->set_grob_property (name.ch_C (),
  17                             gh_cons (s, me->get_grob_property (name.ch_C ())));
  18 }
  19
  20
  21 int
  22 Group_interface::count (Grob *me, String name)
  23 {
  24   return scm_ilength (me->get_grob_property (name.ch_C ()));
  25 }
  26
  27
  28 void
  29 Pointer_group_interface::add_element (Grob*me, String name, Grob*p)
  30 {
  31   Group_interface::add_thing (me, name, p->self_scm ());
  32 }