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--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #ifndef GROUP_INTERFACE_HH
  11 #define GROUP_INTERFACE_HH
  12
  13 #include "grob.hh"
  14 #include "string.hh"
  15 /**
  16    Look at Score element ELT as thing which has a list property called
  17    NAME_. Normally the list would contain Grobs, but
  18    sometimes it can be different things.
  19
  20    todo: reename as list_interface?
  21 */
  22
  23 struct Group_interface
  24 {
  25 public:
  26   static int count (Grob*  , String);
  27   static void add_thing (Grob*, SCM, SCM);
  28   static void add_thing (Grob*, String nm, SCM);
  29 };
  30
  31 struct Pointer_group_interface : public Group_interface {
  32 public:
  33   static void add_grob (Grob*, SCM nm, Grob*e);
  34 };
  35
  36 template<class T>
  37 Link_array<T>
  38 Pointer_group_interface__extract_grobs (Grob const *elt, T *, const char* name)
  39 {
  40   Link_array<T> arr;
  41
  42   for (SCM s = elt->get_property (name); scm_is_pair (s); s = scm_cdr (s))
  43     {
  44       SCM e = scm_car (s);
  45       arr.push (dynamic_cast<T*> (unsmob_grob (e)));
  46     }
  47
  48   arr.reverse ();
  49   return arr;
  50 }
  51
  52
  53
  54
  55 #endif /* GROUP_INTERFACE_HH */
  56