/*
- change-iterator.cc -- implement Change_iterator
+ This file is part of LilyPond, the GNU music typesetter.
- source file of the GNU LilyPond music typesetter
+ Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
- (c) 1997--2009 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
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ LilyPond is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
#include "change-iterator.hh"
string to_id = ly_scm2string (get_music ()->get_property ("change-to-id"));
string warn1 = _f ("cannot change `%s' to `%s'", to_type, to_id)
- + ": " + reason;
+ + ": " + reason;
/*
GUHG!
*/
- string warn2= "Change_iterator::process (): "
- + get_outlet ()->context_name () + " = `"
- + get_outlet ()->id_string () + "': ";
+ string warn2 = "Change_iterator::process (): "
+ + get_outlet ()->context_name () + " = `"
+ + get_outlet ()->id_string () + "': ";
warning (warn2);
get_music ()->origin ()->warning (warn1);
}
if (current)
if (last)
{
- Context *dest = 0;
- Context *where = get_outlet ();
- while (!dest && where)
- {
- dest = find_context_below (where, to_type, to_id);
- where = where->get_parent_context ();
- }
-
- if (dest)
- {
- send_stream_event (last, "ChangeParent", get_music ()->origin (),
- ly_symbol2scm ("context"), dest->self_scm ());
- }
- else
- /* FIXME: constant error message. */
- get_music ()->origin ()->warning (_ ("cannot find context to switch to"));
+ Context *dest = 0;
+ Context *where = get_outlet ();
+ while (!dest && where)
+ {
+ dest = find_context_below (where, to_type, to_id);
+ where = where->get_parent_context ();
+ }
+
+ if (dest)
+ {
+ send_stream_event (last, "ChangeParent", get_music ()->origin (),
+ ly_symbol2scm ("context"), dest->self_scm ());
+ }
+ else
+ /* FIXME: constant error message. */
+ get_music ()->origin ()->warning (_ ("cannot find context to switch to"));
}
else
{
- /* We could change the current translator's id, but that would make
- errors hard to catch.
+ /* We could change the current translator's id, but that would make
+ errors hard to catch.
- last->translator_id_string () = get_change
- ()->change_to_id_string (); */
- error (_f ("not changing to same context type: %s", ly_symbol2string (to_type).c_str ()));
+ last->translator_id_string () = get_change
+ ()->change_to_id_string (); */
+ error (_f ("not changing to same context type: %s", ly_symbol2string (to_type).c_str ()));
}
else
/* FIXME: uncomprehensable message */