2 grob-info.cc -- implement Grob_info
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "grob-info.hh"
12 #include "translator-group.hh"
14 Grob_info::Grob_info (Grob
*s
)
21 Grob_info::Grob_info ()
28 Grob_info::music_cause ()
31 SCM cause
= grob_
->get_grob_property ("cause");
32 return unsmob_music (cause
);
35 Link_array
<Translator
>
36 Grob_info::origin_transes (Translator
* end
) const
38 Translator
* t
= origin_trans_
;
39 Link_array
<Translator
> r
;
43 } while (t
&& t
!= end
->daddy_trans_
);