X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Ftranslator-def.hh;h=ad47f9781c3c7177e28b0f443bbcad6b54f98237;hb=50a19de991aac1e93d1ff2cda6b30929661e036d;hp=167cf28551a8f957dc09dd457a6659db4dd5f9d0;hpb=b4ee6cee22686157744f382b2fdc4279f147f310;p=lilypond.git diff --git a/lily/include/translator-def.hh b/lily/include/translator-def.hh index 167cf28551..ad47f9781c 100644 --- a/lily/include/translator-def.hh +++ b/lily/include/translator-def.hh @@ -1,5 +1,5 @@ /* - translator-def.hh -- declare Translator_def + translator-def.hh -- declare Context_def source file of the GNU LilyPond music typesetter @@ -18,55 +18,46 @@ The definition of a interpretation context as given in the input. The lists are stored in order of definition. */ -struct Translator_def : public Input +struct Context_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 translator_mods_; + SCM accept_mods_; SCM property_ops_; -public: SCM description_; - /* - "type" is overloaded. - */ - SCM type_name_; - SCM type_aliases_; + SCM context_name_; + SCM context_aliases_; SCM translator_group_type_; - - SCM modify_definition (SCM, SCM, bool); - SCM default_child_context_name (); +public: + void add_context_mod (SCM); + SCM default_child_context_name (); + SCM get_context_name () const; + SCM get_accepted () const; + SCM get_property_ops () const { return property_ops_; } + SCM get_translator_names (SCM) const; void set_acceptor (SCM accepts, bool add); - void add_element (SCM name); - void remove_element (SCM name); - void add_last_element (SCM name); - void add_property_operation (SCM); - Link_array path_to_acceptable_translator (SCM type_string, Music_output_def* odef) const; - Translator_group * instantiate (Music_output_def*); + Link_array path_to_acceptable_translator (SCM type_string, Music_output_def* odef) const; + Translator_group * instantiate (Music_output_def*, SCM extra_ops); SCM to_alist () const; - + bool is_alias (SCM) const; static SCM make_scm () ; SCM clone_scm ()const; void apply_default_property_operations (Translator_group*); - private: - DECLARE_SMOBS (Translator_def,foo); - Translator_def (); - Translator_def (Translator_def const&); - - + DECLARE_SMOBS (Context_def,foo); + Context_def (); + Context_def (Context_def const&); }; -DECLARE_UNSMOB(Translator_def,translator_def); +DECLARE_UNSMOB(Context_def,context_def); #endif /* TRANSLATOR_DEF_HH */