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