#include "context-def.hh"
#include "context.hh"
#include "warn.hh"
-#include "music-output-def.hh"
+#include "output-def.hh"
#include "scm-hash.hh"
#include "main.hh"
#include "ly-smobs.icc"
Context::is_removable () const
{
return context_list_ == SCM_EOL && ! iterator_count_ &&
- !dynamic_cast<Score_context const*> (this)
- ;
+ !dynamic_cast<Score_context const*> (this);
}
void
Context::check_removal ()
{
- for (SCM p = context_list_; ly_c_pair_p (p); p = ly_cdr (p))
+ for (SCM p = context_list_; scm_is_pair (p); p = ly_cdr (p))
{
Context *trg = unsmob_context (ly_car (p));
if (n == ly_symbol2scm ("Bottom"))
{
Context* tg = get_default_interpreter ();
- tg->id_string () = id;
+ tg->id_string_ = id;
return tg;
}
if (i == path.size () -1)
{
- new_group->id_string () = id;
+ new_group->id_string_ = id;
}
current->add_context (new_group);
SCM
Context::default_child_context_name () const
{
- return ly_c_pair_p (accepts_list_)
+ return scm_is_pair (accepts_list_)
? ly_car (scm_last_pair (accepts_list_))
: SCM_EOL;
}
bool
Context::is_bottom_context () const
{
- return !ly_c_symbol_p (default_child_context_name ());
+ return !scm_is_symbol (default_child_context_name ());
}
Context*
if (!is_bottom_context ())
{
SCM nm = default_child_context_name ();
- SCM st = get_output_def ()->find_context_def (nm);
+ SCM st = find_context_def (get_output_def (), nm);
Context_def *t = unsmob_context_def (st);
if (!t)
Context::is_alias (SCM sym) const
{
if (sym == ly_symbol2scm ("Bottom")
- && !ly_c_pair_p (accepts_list_))
+ && !scm_is_pair (accepts_list_))
return true;
if (sym == unsmob_context_def (definition_)->get_context_name ())
return true;
Context * found = 0;
for (SCM s = where->children_contexts ();
- !found && ly_c_pair_p (s); s = ly_cdr (s))
+ !found && scm_is_pair (s); s = ly_cdr (s))
{
Context * tr = unsmob_context (ly_car (s));
return 0;
}
-Music_output_def *
+Output_def *
Context::get_output_def () const
{
return (daddy_context_)