2 grob-info.cc -- implement Grob_info
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "grob-info.hh"
12 #include "translator-group.hh"
16 Grob_info::Grob_info (Translator
*t
, Grob
*g
)
22 Grob_info::Grob_info ()
29 Grob_info::music_cause ()
31 SCM cause
= grob_
->get_property ("cause");
32 return unsmob_music (cause
);
36 Grob_info::origin_contexts (Translator
*end
) const
38 Context
*t
= origin_trans_
->context ();
39 Link_array
<Context
> r
;
43 t
= t
->get_parent_context ();
45 while (t
&& t
!= end
->context ());
52 Grob_info::context () const
54 return origin_trans_
->context ();