release: 1.5.17

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

diff --git a/lily/include/translator-def.hh b/lily/include/translator-def.hh
index c985222a40281e5318dc72251b8bcee6208ee5c4..fd6d42fd77b8e80ffd574d5a961d76a3651a3b9c 100644 (file)
--- a/lily/include/translator-def.hh
+++ b/lily/include/translator-def.hh
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
@@ -14,16 +14,28 @@
 #include "smobs.hh"
 #include "input.hh"
 
+/*
+  The definition of a interpretation context as given in the
+  input. The lists are stored in order of definition.
+*/
 struct Translator_def : public Input
 {
+private:
+  /*
+    these lists store the definition, in opposite order of entry
+  */
+  
   SCM consists_name_list_;
   SCM end_consists_name_list_;
   SCM accepts_name_list_;
   SCM property_ops_;
+public:
   SCM type_name_;
+  SCM type_aliases_;
   SCM translator_group_type_;
 
   SCM modify_definition (SCM, SCM, bool);
+  SCM default_child_context_name ();
   
   void set_acceptor (SCM accepts, bool add);
   void add_element (SCM name);
@@ -36,20 +48,23 @@ struct Translator_def : public Input
   Link_array<Translator_def> path_to_acceptable_translator (SCM type_str, Music_output_def* odef) const;
   Translator_group * instantiate (Music_output_def*);
 
+  SCM to_alist () const;
+
   static SCM make_scm () ;
   static void apply_pushpop_property (Translator_group*, SCM syms, SCM eprop, SCM val);
 
   SCM clone_scm ()const;
-  DECLARE_SMOBS(Translator_def,foo);
-private:
+  void apply_property_operations (Translator_group*);
 
+private:
+  DECLARE_SMOBS (Translator_def,foo);
   Translator_def ();
   Translator_def (Translator_def const&);
 
 
 };
 
-Translator_def* unsmob_translator_def (SCM);
+DECLARE_UNSMOB(Translator_def,translator_def);
 
 
 #endif /* TRANSLATOR_DEF_HH */