2003 -> 2004

[lilypond.git] / lily / include / translator.hh

diff --git a/lily/include/translator.hh b/lily/include/translator.hh
index 81b95bbdf76500f7f5f44b2e2f2c070dc9e35d65..16a77c6beefbb33829fec7c90d0cf478d000bd00 100644 (file)
--- a/lily/include/translator.hh
+++ b/lily/include/translator.hh
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 
@@ -38,7 +38,7 @@ class Translator
 public:
   Music_output_def * output_def_;
   
-  bool is_alias_b (SCM) const;
+  bool is_alias (SCM) const;
   Translator (Translator const &);
 
   
@@ -54,13 +54,25 @@ public:
   virtual Moment now_mom () const;  
 
   /*
-    ugh: bubbled up from Translator_group. 
+    ugh: bubbled up.
    */
-  SCM simple_trans_list_;
-  SCM trans_group_list_;
   SCM definition_;
   SCM properties_scm_;
+  SCM trans_group_list_;
+  SCM accepts_list_;
+  virtual SCM get_simple_trans_list ();
+public:
   DECLARE_SMOBS (Translator, dummy);
+private:
+  /*
+    ugh: bubbled up from Translator_group. 
+   */
+
+protected:                     // should be private.
+  SCM simple_trans_list_;
+  friend class Context_def;
+  // ugir.
+  //   friend SCM Translator_group::get_simple_trans_list ();
 
 
 public:
@@ -128,6 +140,6 @@ classname::static_translator_description () const \
 
 void add_translator (Translator*trans);
 
-Translator*get_translator (String s);
+Translator*get_translator (SCM s);
 DECLARE_UNSMOB(Translator,translator);
 #endif // TRANSLATOR_HH