2 group-interface.cc -- implement Pointer_group_interface
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "group-interface.hh"
10 #include "score-element.hh"
15 Pointer_group_interface::Pointer_group_interface (Score_element * e)
22 Pointer_group_interface::Pointer_group_interface (Score_element *e, String s)
24 elt_l_ =(Score_element*)e;
32 Pointer_group_interface::has_interface ()
34 SCM el = elt_l_->get_elt_property (name_.ch_C());
36 return el == SCM_EOL || gh_pair_p (el);
41 Pointer_group_interface::add_element (Score_element*p)
43 elt_l_->set_elt_property (name_.ch_C(),
44 gh_cons (p->self_scm (),
45 elt_l_->get_elt_property (name_.ch_C())));
49 Pointer_group_interface::count ()
51 return scm_ilength (elt_l_->get_elt_property (name_.ch_C()));