1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
/*
change-iterator.cc -- implement Change_iterator
source file of the GNU LilyPond music typesetter
(c) 1997--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "change-iterator.hh"
#include "context.hh"
#include "input.hh"
#include "international.hh"
#include "music.hh"
#include "warn.hh"
void
Change_iterator::error (string reason)
{
string to_type = ly_symbol2string (get_music ()->get_property ("change-to-type"));
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;
/*
GUHG!
*/
string warn2= "Change_iterator::process (): "
+ get_outlet ()->context_name () + " = `"
+ get_outlet ()->id_string () + "': ";
warning (warn2);
get_music ()->origin ()->warning (warn1);
}
/*
move to construct_children ?
*/
void
Change_iterator::process (Moment m)
{
Context *current = get_outlet ();
Context *last = 0;
SCM to_type = get_music ()->get_property ("change-to-type");
string to_id = ly_scm2string (get_music ()->get_property ("change-to-id"));
/* find the type of translator that we're changing.
If \translator Staff = bass, then look for Staff = *
*/
while (current && !current->is_alias (to_type))
{
last = current;
current = current->get_parent_context ();
}
if (current && current->id_string () == to_id)
{
string msg;
msg += _f (cannot change, already in translator: %s", to_id);
}
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"));
}
else
{
/* 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 ()));
}
else
/* FIXME: uncomprehensable message */
error (_ ("none of these in my family"));
Simple_music_iterator::process (m);
}
IMPLEMENT_CTOR_CALLBACK (Change_iterator);
|
