/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
ly_symbol2scm ("Prepare"));
events_below ()->register_as_listener (event_source_);
- Context_def *globaldef = unsmob_context_def (definition_);
+ Context_def *globaldef = Context_def::unsmob (definition_);
if (!globaldef)
programming_error ("no `Global' context found");
else
globaldef->apply_default_property_operations (this);
- SCM p = get_property ("EventClasses");
-
- ancestor_lookup_ = scm_make_hash_table (scm_length (p));
- for (;scm_is_pair (p); p = scm_cdr (p))
- scm_hashq_set_x (ancestor_lookup_, scm_caar (p), scm_car (p));
-
- accepts_list_ = scm_list_1 (ly_symbol2scm ("Score"));
+ default_child_ = ly_symbol2scm ("Score");
+ accepts_list_ = scm_list_1 (default_child_);
}
Output_def *
void
Global_context::prepare (SCM sev)
{
- Stream_event *ev = unsmob_stream_event (sev);
- Moment *mom = unsmob_moment (ev->get_property ("moment"));
+ Stream_event *ev = Stream_event::unsmob (sev);
+ Moment *mom = Moment::unsmob (ev->get_property ("moment"));
assert (mom);
Global_context::get_score_context () const
{
return (scm_is_pair (context_list_))
- ? unsmob_context (scm_car (context_list_))
+ ? Context::unsmob (scm_car (context_list_))
: 0;
}
if (w == prev_mom_)
{
- programming_error ("Moment is not increasing. Aborting interpretation.");
+ programming_error ("Moment is not increasing."
+ " Aborting interpretation.");
break;
}
SCM lst = get_property ("finalizations");
set_property ("finalizations", SCM_EOL);
for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
-
- /* TODO: make safe. */
- scm_primitive_eval (scm_car (s));
+ scm_apply_0 (scm_caar (s), scm_cdar (s));
}
/* Add a function to execute before stepping to the next time step. */
}
Context *
-Global_context::get_default_interpreter (string /* context_id */)
+Global_context::get_default_interpreter (const string &/* context_id */)
{
if (get_score_context ())
return get_score_context ()->get_default_interpreter ();
}
Global_context *
-unsmob_global_context (SCM x)
+Global_context::unsmob (SCM x)
{
- return dynamic_cast<Global_context *> (unsmob_context (x));
+ return dynamic_cast<Global_context *> (Context::unsmob (x));
}