]> git.donarmstrong.com Git - lilypond.git/blob - lily/include/translator-def.hh
release commit
[lilypond.git] / lily / include / translator-def.hh
1 /*   
2   translator-def.hh -- declare Context_def
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c)  2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #ifndef TRANSLATOR_DEF_HH
11 #define TRANSLATOR_DEF_HH
12
13 #include "lily-proto.hh"
14 #include "smobs.hh"
15 #include "input.hh"
16
17 /*
18   The definition of a interpretation context as given in the
19   input. The lists are stored in order of definition.
20 */
21 struct Context_def : public Input
22 {
23 private:
24   /*
25     these lists store the definition, in opposite order of entry
26   */
27   SCM translator_mods_;
28   SCM accept_mods_;
29   SCM property_ops_;
30
31   SCM description_;
32   SCM context_name_;
33   SCM context_aliases_;
34   SCM translator_group_type_;
35   
36 public:
37   void add_context_mod (SCM);
38   SCM default_child_context_name ();
39   SCM get_context_name () const;
40   SCM get_accepted ()  const;
41   SCM get_property_ops ()  const { return property_ops_; }
42   SCM get_translator_names (SCM) const;
43   void set_acceptor (SCM accepts, bool add);
44
45   Link_array<Context_def> path_to_acceptable_translator (SCM type_string, Music_output_def* odef) const;
46   Translator_group * instantiate (Music_output_def*, SCM extra_ops);
47
48   SCM to_alist () const;
49   bool is_alias (SCM) const;
50   static SCM make_scm () ;
51
52   SCM clone_scm ()const;
53   void apply_default_property_operations (Translator_group*);
54 private:
55   DECLARE_SMOBS (Context_def,foo);
56   Context_def ();
57   Context_def (Context_def const&);
58 };
59
60 DECLARE_UNSMOB(Context_def,context_def);
61
62
63 #endif /* TRANSLATOR_DEF_HH */
64