X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fgroup-interface.hh;h=2a94f0783adc9f7f1825f1eece178f8ed2f80ab3;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=7a07bccd6dbb298b9b5f03cbf123f6ed9d5361ab;hpb=0817e0513d1016ff22a633b6fee20ddba2a062f2;p=lilypond.git

diff --git a/lily/include/group-interface.hh b/lily/include/group-interface.hh
index 7a07bccd6d..2a94f0783a 100644
--- a/lily/include/group-interface.hh
+++ b/lily/include/group-interface.hh
@@ -1,20 +1,16 @@
-/*   
+/*
   group-interface.hh -- declare Group_interface
-  
+
   source file of the GNU LilyPond music typesetter
-  
-  (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-  
- */
+
+  (c) 1999--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
+*/
 
 #ifndef GROUP_INTERFACE_HH
 #define GROUP_INTERFACE_HH
 
-#include "lily-proto.hh"
-#include "string.hh"
-#include "lily-guile.hh"
-
 #include "grob.hh"
+#include "std-string.hh"
 /**
    Look at Score element ELT as thing which has a list property called
    NAME_. Normally the list would contain Grobs, but
@@ -26,35 +22,9 @@
 struct Group_interface
 {
 public:
-  static int count (Grob*  , String);
-  static void add_thing (Grob*, String nm, SCM);
-};
-
-struct Pointer_group_interface : public Group_interface {
-public:
-  static void add_element (Grob*, String nm, Grob*e);
+  static int count (Grob *, SCM);
+  static void add_thing (Grob *, SCM, SCM);
 };
-/** 
-  Put all score elements of ELT's property called NAME into an array,
-  and return it.  */
-template<class T>
-Link_array<T>
-Pointer_group_interface__extract_elements (Grob const *elt, T *, const char* name)
-{
-  Link_array<T> arr;
-
-  for (SCM s = elt->get_grob_property (name); gh_pair_p (s); s = gh_cdr (s))
-    {
-      SCM e = gh_car (s);
-      arr.push (dynamic_cast<T*> (unsmob_grob (e)));
-    }
-
-  arr.reverse ();
-  return arr;
-}
-
-
-
 
 #endif /* GROUP_INTERFACE_HH */