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--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "group-interface.hh"
  10 #include "grob.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 void
  20 Group_interface::add_thing (Grob*me, String name, SCM thing)
  21 {
  22   add_thing (me, ly_symbol2scm (name.to_str0 ()), thing);
  23 }
  24
  25 int
  26 Group_interface::count (Grob *me, String name)
  27 {
  28   return scm_ilength (me->get_grob_property (name.to_str0 ()));
  29 }
  30
  31
  32 void
  33 Pointer_group_interface::add_grob (Grob*me, SCM name, Grob*p)
  34 {
  35   Group_interface::add_thing (me, name, p->self_scm ());
  36 }