#include "context-def.hh"
#include "dispatcher.hh"
+#include "global-context.hh"
#include "international.hh"
#include "ly-smobs.icc"
#include "main.hh"
#include "profile.hh"
#include "program-option.hh"
#include "scm-hash.hh"
-#include "score-context.hh"
#include "translator-group.hh"
#include "warn.hh"
}
/*
- Don't go up to Global_context, because global goes down to
- Score_context
+ Don't go up to Global_context, because global goes down to the
+ Score context
*/
Context *ret = 0;
if (daddy_context_ && !dynamic_cast<Global_context *> (daddy_context_))
}
/*
- Don't go up to Global_context, because global goes down to
- Score_context
+ Don't go up to Global_context, because global goes down to the
+ Score context
*/
Context *ret = 0;
if (daddy_context_ && !dynamic_cast<Global_context *> (daddy_context_))
if (val != SCM_EOL)
ok = type_check_assignment (sym, val, ly_symbol2scm ("translation-type?"));
if (ok)
- internal_set_property (sym, val);
+ set_property (sym, val);
}
}
Stream_event *e = new Stream_event (type, origin);
for (int i = 0; props[i]; i += 2)
{
- e->internal_set_property (props[i], props[i+1]);
+ e->set_property (props[i], props[i+1]);
}
event_source_->broadcast (e);
e->unprotect ();
}
void
-Context::internal_set_property (SCM sym, SCM val)
+Context::internal_set_property (SCM sym, SCM val
+#ifndef NDEBUG
+ , char const *file, int line, char const *fun
+#endif
+ )
{
#ifndef NDEBUG
+ (void) file;
+ (void) line;
+ (void) fun;
+#endif
+
if (do_internal_type_checking_global)
assert (type_check_assignment (sym, val, ly_symbol2scm ("translation-type?")));
-#endif
properties_dict ()->set (sym, val);
}
Context::remove_context (SCM)
{
/* ugh, the translator group should listen to RemoveContext events by itself */
- implementation ()->disconnect_from_context ();
+ Translator_group *impl = implementation ();
+ if (impl)
+ impl->disconnect_from_context ();
disconnect_from_parent ();
}
return ly_symbol2string (context_name_symbol ());
}
-Score_context *
+Context *
Context::get_score_context () const
{
- if (Score_context *sc = dynamic_cast<Score_context *> ((Context *) this))
- return sc;
- else if (daddy_context_)
+ if (daddy_context_)
return daddy_context_->get_score_context ();
else
return 0;
scm_gc_mark (me->definition_mods_);
scm_gc_mark (me->properties_scm_);
scm_gc_mark (me->accepts_list_);
+
if (me->implementation_)
scm_gc_mark (me->implementation_->self_scm ());
- if (me->event_source_) scm_gc_mark (me->event_source_->self_scm ());
- if (me->events_below_) scm_gc_mark (me->events_below_->self_scm ());
+
+ if (me->event_source_)
+ scm_gc_mark (me->event_source_->self_scm ());
+
+ if (me->events_below_)
+ scm_gc_mark (me->events_below_->self_scm ());
return me->properties_scm_;
}
IMPLEMENT_DEFAULT_EQUAL_P (Context);
IMPLEMENT_TYPE_P (Context, "ly:context?");
-bool
-Context::try_music (Music *m)
-{
- Translator_group *t = implementation ();
- if (!t)
- return false;
-
- bool b = t->try_music (m);
- if (!b && daddy_context_)
- b = daddy_context_->try_music (m);
-
- return b;
-}
-
Global_context *
Context::get_global_context () const
{
void
set_context_property_on_children (Context *trans, SCM sym, SCM val)
{
- trans->internal_set_property (sym, ly_deep_copy (val));
+ trans->set_property (sym, ly_deep_copy (val));
for (SCM p = trans->children_contexts (); scm_is_pair (p); p = scm_cdr (p))
{
Context *trg = unsmob_context (scm_car (p));