2 grob-array.cc -- implement Grob_array
4 source file of the GNU LilyPond music typesetter
6 (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "grob-array.hh"
14 #include "ly-smobs.icc"
17 Grob_array::item (int i)
19 return dynamic_cast<Item*> (grobs_.elem (i));
23 Grob_array::spanner (int i)
25 return dynamic_cast<Spanner*> (grobs_.elem (i));
28 Grob_array::Grob_array ()
34 Grob_array::array_reference ()
40 Link_array<Grob> const &
41 Grob_array::array () const
48 Grob_array::mark_smob (SCM s)
53 // see System::derived_mark()
54 Grob_array *ga = unsmob_grob_array (s);
55 for (int i = 0; i < ga->grobs_.size(); i++)
56 scm_gc_mark (ga->grobs_[i]->self_scm ());
62 Grob_array::print_smob (SCM arr, SCM port, scm_print_state*)
64 scm_puts ("#<Grob_array", port);
66 Grob_array * grob_arr = unsmob (arr);
67 for (int i = 0; i < grob_arr->size(); i++)
69 scm_display (grob_arr->grob (i)->self_scm (), port);
70 scm_puts (" " , port);
78 Grob_array::make_array ()
81 return ga.smobbed_copy ();
91 Grob_array::is_empty () const
93 return grobs_.is_empty ();
97 Grob_array::set_array (Link_array<Grob> const &src)
102 IMPLEMENT_SIMPLE_SMOBS (Grob_array);
103 IMPLEMENT_TYPE_P (Grob_array, "ly:grob-array?");
105 IMPLEMENT_DEFAULT_EQUAL_P (Grob_array);
109 grob_list_to_grob_array (SCM lst)
111 SCM arr_scm = Grob_array::make_array ();
112 Grob_array *ga = unsmob_grob_array (arr_scm);
113 for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
115 ga->add (unsmob_grob (scm_car (s)));