2 translator.hh -- declare Translator
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
13 #include "global-ctor.hh"
15 #include "lily-proto.hh"
16 #include "virtual-methods.hh"
17 #include "lily-guile.hh"
21 #define get_property(x) internal_get_property(ly_symbol2scm(x))
24 #define TRANSLATOR_DECLARATIONS(NAME) \
27 VIRTUAL_COPY_CONS (Translator); \
28 static SCM static_description_; \
29 virtual SCM static_translator_description () const; \
30 virtual SCM translator_description () const;
33 Translate music into grobs.
39 Music_output_def * output_def_;
41 bool is_alias (SCM) const;
42 Translator (Translator const &);
45 Translator_group * daddy_trans_ ;
46 void removal_processing ();
48 ask daddy for a feature
50 Music_output_def *get_output_def () const;
52 SCM internal_get_property (SCM symbol) const;
54 virtual Moment now_mom () const;
61 SCM trans_group_list_;
63 virtual SCM get_simple_trans_list ();
65 DECLARE_SMOBS (Translator, dummy);
68 ugh: bubbled up from Translator_group.
71 protected: // should be private.
72 SCM simple_trans_list_;
73 friend class Context_def;
75 // friend SCM Translator_group::get_simple_trans_list ();
79 Global_translator * top_translator () const;
80 TRANSLATOR_DECLARATIONS(Translator);
81 virtual bool try_music (Music *req);
82 virtual void stop_translation_timestep ();
83 virtual void start_translation_timestep ();
84 virtual void do_announces () ;
85 virtual void initialize () ;
86 virtual void finalize ();
91 A macro to automate administration of translators.
93 #define ADD_THIS_TRANSLATOR(T) \
94 SCM T::static_description_ = SCM_EOL;\
95 static void _ ## T ## _adder () {\
97 T::static_description_ = t->static_translator_description ();\
98 scm_permanent_object (T::static_description_);\
101 SCM T::translator_description() const\
103 return static_description_;\
105 ADD_GLOBAL_CTOR (_ ## T ## _adder);
110 #define ENTER_DESCRIPTION(classname,desc,grobs,accepted,acked,read,write) \
111 ADD_THIS_TRANSLATOR (classname);\
113 classname::static_translator_description () const \
115 SCM static_properties= SCM_EOL; \
116 /* static_properties= acons (name ,gh_str02scm (Translator::name (self_scm ())), \
117 static_properties_); \
119 static_properties= scm_acons (ly_symbol2scm ("grobs-created"), \
120 parse_symbol_list (grobs), static_properties); \
122 static_properties= scm_acons (ly_symbol2scm ("description"), \
123 scm_makfrom0str (desc), static_properties); \
125 static_properties= scm_acons (ly_symbol2scm ("interfaces-acked"), \
126 parse_symbol_list (acked), static_properties); \
127 static_properties= scm_acons (ly_symbol2scm ("events-accepted"), \
128 parse_symbol_list (accepted), static_properties); \
130 static_properties= scm_acons (ly_symbol2scm ("properties-read"), \
131 parse_symbol_list (read), static_properties); \
133 static_properties= scm_acons (ly_symbol2scm ("properties-written"), \
134 parse_symbol_list (write), static_properties); \
136 return static_properties; \
141 void add_translator (Translator*trans);
143 Translator*get_translator (SCM s);
144 DECLARE_UNSMOB(Translator,translator);
145 #endif // TRANSLATOR_HH