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--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "group-interface.hh"
  11
  12 void
  13 Group_interface::add_thing (Grob*me, SCM sym, SCM thing)
  14 {
  15   me->add_to_list_property (sym, thing);
  16 }
  17
  18
  19 int
  20 Group_interface::count (Grob *me, SCM sym)
  21 {
  22   return scm_ilength (me->internal_get_property (sym));
  23 }
  24
  25
  26 void
  27 Pointer_group_interface::add_grob (Grob*me, SCM name, Grob*p)
  28 {
  29   Group_interface::add_thing (me, name, p->self_scm ());
  30 }