]> git.donarmstrong.com Git - lilypond.git/blob - lily/audio-element-info.cc
*** empty log message ***
[lilypond.git] / lily / audio-element-info.cc
1 /*
2   Audio-element-info.cc -- implement Audio_element_info
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "audio-element-info.hh"
10
11 #include "translator-group.hh"
12 #include "context.hh"
13
14 Audio_element_info::Audio_element_info (Audio_element*s, Music *r)
15 {
16   elem_ = s;
17   origin_trans_ = 0;
18   event_ = r;
19 }
20
21
22 Audio_element_info::Audio_element_info ()
23 {
24   elem_ = 0;
25   event_ = 0;
26   origin_trans_ = 0;
27 }
28
29
30 Link_array<Context>
31 Audio_element_info::origin_contexts (Translator* end) const
32 {
33   Context * t = origin_trans_->context ();
34   Link_array<Context> r;
35   do {
36     r.push (t);
37     t = t->get_parent_context ();
38   } while (t && t != end->context ());
39   
40   return r;
41 }