X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Ftranslator.icc;h=775f5b9370b899c74e4114de68ada02ee5a7667e;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=bff828bcad9eafa42e4118dc7cc134093b9e7181;hpb=8e58d9bf219537b7c6655319d7e57e417b435d51;p=lilypond.git

diff --git a/lily/include/translator.icc b/lily/include/translator.icc
index bff828bcad..775f5b9370 100644
--- a/lily/include/translator.icc
+++ b/lily/include/translator.icc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2005--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #ifndef TRANSLATOR_ICC
@@ -13,6 +13,10 @@
 #include "std-vector.hh"
 #include "translator.hh"
 
+/*
+  TODO: derive "foo-bar-interface" from Foo_bar classname.
+ */
+
 /**
    A macro to automate administration of translators.
 */
@@ -32,7 +36,7 @@
   }									\
   ADD_GLOBAL_CTOR (_ ## T ## _adder);
 
-#define ADD_TRANSLATOR(classname, desc, grobs, accepted, read, write)	\
+#define ADD_TRANSLATOR(classname, desc, grobs, read, write)		\
   Drul_array< vector<Acknowledge_information> > classname::acknowledge_static_array_drul_;	\
   IMPLEMENT_FETCH_PRECOMPUTABLE_METHODS (classname);			\
   ADD_THIS_TRANSLATOR (classname);					\
@@ -49,26 +53,7 @@
   SCM									\
   classname::static_translator_description () const			\
   {									\
-    SCM static_properties = SCM_EOL;					\
-    /*  static_properties = acons (name , gh_str02scm (Translator::name (self_scm ())),	\
-	static_properties_);						\
-    */									\
-    static_properties = scm_acons (ly_symbol2scm ("grobs-created"),	\
-				   parse_symbol_list (grobs), static_properties); \
-									\
-    static_properties = scm_acons (ly_symbol2scm ("description"),	\
-				   scm_makfrom0str (desc), static_properties); \
-									\
-    static_properties = scm_acons (ly_symbol2scm ("events-accepted"),	\
-				   parse_symbol_list (accepted), static_properties); \
-									\
-    static_properties = scm_acons (ly_symbol2scm ("properties-read"),	\
-				   parse_symbol_list (read), static_properties); \
-									\
-    static_properties = scm_acons (ly_symbol2scm ("properties-written"), \
-				   parse_symbol_list (write), static_properties); \
-									\
-    return static_properties;						\
+    return Translator::static_translator_description (grobs, desc, listener_list_, read, write); \
   }
 
 #define IMPLEMENT_FETCH_PRECOMPUTABLE_METHODS(T)			\