2 change-iterator.cc -- implement Change_iterator
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "change-iterator.hh"
13 #include "international.hh"
18 Change_iterator::error (string reason
)
20 string to_type
= ly_symbol2string (get_music ()->get_property ("change-to-type"));
21 string to_id
= ly_scm2string (get_music ()->get_property ("change-to-id"));
23 string warn1
= _f ("cannot change `%s' to `%s'", to_type
, to_id
)
29 string warn2
= "Change_iterator::process (): "
30 + get_outlet ()->context_name () + " = `"
31 + get_outlet ()->id_string () + "': ";
33 get_music ()->origin ()->warning (warn1
);
37 move to construct_children ?
40 Change_iterator::process (Moment m
)
42 Context
*current
= get_outlet ();
45 SCM to_type
= get_music ()->get_property ("change-to-type");
46 string to_id
= ly_scm2string (get_music ()->get_property ("change-to-id"));
48 /* find the type of translator that we're changing.
50 If \translator Staff = bass, then look for Staff = *
52 while (current
&& !current
->is_alias (to_type
))
55 current
= current
->get_parent_context ();
58 if (current
&& current
->id_string () == to_id
)
61 msg
+= _f ("cannot change, already in translator: %s", to_id
);
68 Context
*where
= get_outlet ();
69 while (!dest
&& where
)
71 dest
= find_context_below (where
, to_type
, to_id
);
72 where
= where
->get_parent_context ();
77 send_stream_event (last
, "ChangeParent", get_music ()->origin (),
78 ly_symbol2scm ("context"), dest
->self_scm ());
81 /* FIXME: constant error message. */
82 get_music ()->origin ()->warning (_ ("cannot find context to switch to"));
86 /* We could change the current translator's id, but that would make
89 last->translator_id_string () = get_change
90 ()->change_to_id_string (); */
91 error (_f ("not changing to same context type: %s", ly_symbol2string (to_type
).c_str ()));
94 /* FIXME: uncomprehensable message */
95 error (_ ("none of these in my family"));
97 Simple_music_iterator::process (m
);
100 IMPLEMENT_CTOR_CALLBACK (Change_iterator
);