]> git.donarmstrong.com Git - lilypond.git/blob - lily/quote-iterator.cc
Basic-notation reorg and misc small fixes.
[lilypond.git] / lily / quote-iterator.cc
1 /*
2   quote-iterator.cc -- implement Quote_iterator
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "music-wrapper-iterator.hh"
10
11 #include "context.hh"
12 #include "input.hh"
13 #include "international.hh"
14 #include "lily-guile.hh"
15 #include "music-sequence.hh"
16 #include "music.hh"
17 #include "warn.hh"
18
19 class Quote_iterator : public Music_wrapper_iterator
20 {
21 public:
22   Quote_iterator ();
23   Moment vector_moment (int idx) const;
24   Context_handle quote_outlet_;
25
26   Moment start_moment_;
27   Moment stop_moment_;
28   SCM event_vector_;
29   int event_idx_;
30   int end_idx_;
31   
32   SCM transposed_musics_;
33
34   DECLARE_SCHEME_CALLBACK (constructor, ());
35   bool quote_ok () const;
36   bool accept_music_type (Music *) const;
37
38 protected:
39   virtual void derived_mark () const;
40   virtual void construct_children ();
41   virtual Moment pending_moment () const;
42   virtual void process (Moment);
43   virtual void do_quit ();
44   virtual bool ok () const;
45 };
46
47 void
48 Quote_iterator::do_quit ()
49 {
50   Music_wrapper_iterator::do_quit ();
51   quote_outlet_.set_context (0);
52 }
53
54 bool
55 Quote_iterator::accept_music_type (Music *mus) const
56 {
57   SCM accept = get_outlet ()->get_property ("quotedEventTypes");
58   for (SCM s = mus->get_property ("types");
59        scm_is_pair (s); s = scm_cdr (s))
60     {
61       if (scm_memq (scm_car (s), accept) != SCM_BOOL_F)
62         return true;
63     }
64
65   return false;
66 }
67
68 void
69 Quote_iterator::derived_mark () const
70 {
71   Music_wrapper_iterator::derived_mark ();
72   scm_gc_mark (transposed_musics_);
73 }
74
75 Quote_iterator::Quote_iterator ()
76 {
77   transposed_musics_ = SCM_EOL;
78   event_vector_ = SCM_EOL;
79   event_idx_ = 0;
80   end_idx_ = 0;
81 }
82
83 int
84 binsearch_scm_vector (SCM vec, SCM key, bool (*is_less) (SCM a, SCM b))
85 {
86   int lo = 0;
87   int hi = scm_c_vector_length (vec);
88
89   /* binary search */
90   do
91     {
92       int cmp = (lo + hi) / 2;
93
94       SCM when = scm_caar (scm_c_vector_ref (vec, cmp));
95       bool result = (*is_less) (key, when);
96       if (result)
97         hi = cmp;
98       else
99         lo = cmp;
100     }
101   while (hi - lo > 1);
102
103   return lo;
104 }
105
106 void
107 Quote_iterator::construct_children ()
108 {
109   Music_wrapper_iterator::construct_children ();
110       
111   SCM name = get_music ()->get_property ("quoted-context-type");
112   SCM id = get_music ()->get_property ("quoted-context-id");
113
114   if (scm_is_string (id)
115       && scm_is_symbol (name))
116     {
117       Context *cue_context = get_outlet ()->find_create_context (name,
118                                                                  ly_scm2string (id), SCM_EOL);
119       quote_outlet_.set_context (cue_context);
120     }
121   else
122     quote_outlet_.set_context (get_outlet ());
123
124   event_vector_ = get_music ()->get_property ("quoted-events");
125
126   /*
127     We have to delay initting event_idx_ , since we have to
128     take starting grace notes into account. Those may offset
129     event_idx_.
130   */
131   event_idx_ = -1;
132 }
133
134 bool
135 Quote_iterator::ok () const
136 {
137   return
138     Music_wrapper_iterator::ok ()
139     || quote_ok ();
140 }
141
142 bool
143 Quote_iterator::quote_ok () const
144 {
145   return (event_idx_ >= 0
146           && scm_is_vector (event_vector_)
147           && event_idx_ <= end_idx_
148
149           /*
150             Don't quote the grace notes leading to an unquoted note.
151           */
152           && vector_moment (event_idx_).main_part_ < stop_moment_.main_part_);
153 }
154
155 Moment
156 Quote_iterator::pending_moment () const
157 {
158   Rational infty;
159   infty.set_infinite (1);
160   Moment m (infty);
161
162   if (Music_wrapper_iterator::ok ())
163     m = min (m, Music_wrapper_iterator::pending_moment ());
164
165   /*
166     In case event_idx_ < 0, we're not initted yet, and the wrapped
167     music expression determines the starting moment.
168   */
169   if (quote_ok ())
170     m = min (m, vector_moment (event_idx_) - start_moment_);
171
172   return m;
173 }
174
175 Moment
176 Quote_iterator::vector_moment (int idx) const
177 {
178   SCM entry = scm_c_vector_ref (event_vector_, idx);
179   return *unsmob_moment (scm_caar (entry));
180 }
181
182 void
183 Quote_iterator::process (Moment m)
184 {
185   if (Music_wrapper_iterator::ok ())
186     Music_wrapper_iterator::process (m);
187
188   if (!scm_is_vector (event_vector_))
189     return;
190
191   if (event_idx_ < 0)
192     {
193       event_idx_ = binsearch_scm_vector (event_vector_,
194                                          get_outlet ()->now_mom ().smobbed_copy (),
195                                          &moment_less);
196       start_moment_ = get_outlet ()->now_mom () - music_start_mom ();
197       stop_moment_ = start_moment_ + get_music ()->get_length ();
198
199       end_idx_ = binsearch_scm_vector (event_vector_,
200                                        stop_moment_.smobbed_copy (),
201                                        &moment_less);
202     }
203
204   m += start_moment_;
205   while (event_idx_ <= end_idx_)
206     {
207       Moment em = vector_moment (event_idx_);
208       if (em > m)
209         return;
210
211       if (em == m)
212         break;
213
214       event_idx_++;
215     }
216
217   if (quote_ok ())
218     {
219       SCM entry = scm_c_vector_ref (event_vector_, event_idx_);
220       Pitch *quote_pitch = unsmob_pitch (scm_cdar (entry));
221
222       /*
223         The pitch that sounds like central C
224       */
225       Pitch *me_pitch = unsmob_pitch (get_music ()->get_property ("quoted-transposition"));
226       if (!me_pitch)
227         me_pitch = unsmob_pitch (get_outlet ()->get_property ("instrumentTransposition"));
228
229       for (SCM s = scm_cdr (entry); scm_is_pair (s); s = scm_cdr (s))
230         {
231           SCM ev_acc = scm_car (s);
232
233           Music *mus = unsmob_music (scm_car (ev_acc));
234           if (!mus)
235             programming_error ("no music found in quote");
236           else if (accept_music_type (mus))
237             {
238               if (quote_pitch || me_pitch)
239                 {
240                   Pitch qp, mp;
241                   if (quote_pitch)
242                     qp = *quote_pitch;
243                   if (me_pitch)
244                     mp = *me_pitch;
245
246                   Pitch diff = pitch_interval (qp, mp);
247
248                   SCM copy = ly_music_deep_copy (mus->self_scm ());
249                   mus = unsmob_music (copy);
250
251                   transposed_musics_ = scm_cons (copy, transposed_musics_);
252                   mus->transpose (diff);
253                 }
254
255               bool b = quote_outlet_.get_outlet ()->try_music (mus);
256               if (!b)
257                 mus->origin ()->warning (_f ("in quotation: junking event %s",
258                                              mus->name ()));
259             }
260         }
261
262       event_idx_++;
263     }
264 }
265
266 IMPLEMENT_CTOR_CALLBACK (Quote_iterator);