]> git.donarmstrong.com Git - lilypond.git/blob - lily/include/group-interface.hh
* Documentation/user/GNUmakefile
[lilypond.git] / lily / include / group-interface.hh
1 /*   
2   group-interface.hh -- declare 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
10 #ifndef GROUP_INTERFACE_HH
11 #define GROUP_INTERFACE_HH
12
13 #include "lily-proto.hh"
14 #include "string.hh"
15 #include "lily-guile.hh"
16
17 #include "grob.hh"
18 /**
19    Look at Score element ELT as thing which has a list property called
20    NAME_. Normally the list would contain Grobs, but
21    sometimes it can be different things.
22
23    todo: reename as list_interface?
24 */
25
26 struct Group_interface
27 {
28 public:
29   static int count (Grob*  , String);
30   static void add_thing (Grob*, SCM, SCM);
31   static void add_thing (Grob*, String nm, SCM);
32 };
33
34 struct Pointer_group_interface : public Group_interface {
35 public:
36   static void add_grob (Grob*, SCM nm, Grob*e);
37 };
38
39 template<class T>
40 Link_array<T>
41 Pointer_group_interface__extract_grobs (Grob const *elt, T *, const char* name)
42 {
43   Link_array<T> arr;
44
45   for (SCM s = elt->get_grob_property (name); gh_pair_p (s); s = gh_cdr (s))
46     {
47       SCM e = gh_car (s);
48       arr.push (dynamic_cast<T*> (unsmob_grob (e)));
49     }
50
51   arr.reverse ();
52   return arr;
53 }
54
55
56
57
58 #endif /* GROUP_INTERFACE_HH */
59