/*   
  context-def.hh -- declare Context_def
  
  source file of the GNU LilyPond music typesetter
  
  (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
  
 */

#ifndef CONTEXT_DEF_HH
#define CONTEXT_DEF_HH

#include "lily-proto.hh"
#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 Context_def : public Input
{
private:
  /*
    these lists store the definition, in opposite order of entry
  */
  SCM translator_mods_;
  SCM accept_mods_;
  SCM property_ops_;
  SCM description_;
  SCM context_name_;
  SCM context_aliases_;
  SCM translator_group_type_;
  
public:
  void add_context_mod (SCM);
  SCM default_child_context_name ();
  SCM get_context_name () const;
  SCM get_accepted (SCM) const;
  SCM get_property_ops () const { return property_ops_; }
  SCM get_translator_names (SCM) const;
  void set_acceptor (SCM accepts, bool add);

  Link_array<Context_def> path_to_acceptable_context (SCM type_string,
						      Output_def*) const;
  Context * instantiate (SCM extra_ops);

  SCM to_alist () const;
  static SCM make_scm ();

  SCM clone_scm () const;
  void apply_default_property_operations (Context*);

private:
  DECLARE_SMOBS (Context_def, foo);
  Context_def ();
  Context_def (Context_def const&);
};

DECLARE_UNSMOB (Context_def, context_def);

#endif /* CONTEXT_DEF_HH */

