* lily/object-key-dumper-scheme.cc: new file.

[lilypond.git] / lily / include / group-interface.hh

diff --git a/lily/include/group-interface.hh b/lily/include/group-interface.hh
index 7a07bccd6dbb298b9b5f03cbf123f6ed9d5361ab..6d544f27ee6ed398464a2e096d510530853b77ce 100644 (file)
--- a/lily/include/group-interface.hh
+++ b/lily/include/group-interface.hh
@@ -3,18 +3,15 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1999--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
 #ifndef GROUP_INTERFACE_HH
 #define GROUP_INTERFACE_HH
 
-#include "lily-proto.hh"
-#include "string.hh"
-#include "lily-guile.hh"
-
 #include "grob.hh"
+#include "string.hh"
 /**
    Look at Score element ELT as thing which has a list property called
    NAME_. Normally the list would contain Grobs, but
@@ -27,25 +24,24 @@ struct Group_interface
 {
 public:
   static int count (Grob*  , String);
+  static void add_thing (Grob*, SCM, SCM);
   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 void add_grob (Grob*, SCM nm, Grob*e);
 };
-/** 
-  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)
+Pointer_group_interface__extract_grobs (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))
+  for (SCM s = elt->get_property (name); scm_is_pair (s); s = scm_cdr (s))
     {
-      SCM e = gh_car (s);
+      SCM e = scm_car (s);
       arr.push (dynamic_cast<T*> (unsmob_grob (e)));
     }