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::size () const
23 Grob_array::item (int i)
25 return dynamic_cast<Item*> (grobs_.elem (i));
30 Grob_array::spanner (int i)
32 return dynamic_cast<Spanner*> (grobs_.elem (i));
36 Grob_array::grob (int i)
38 return grobs_.elem (i);
42 Grob_array::add (Grob *grob)
48 Grob_array::array_reference ()
54 Link_array<Grob> const &
55 Grob_array::array () const
62 Grob_array::mark_smob (SCM s)
65 // see System::derived_mark()
66 Grob_array *ga = unsmob_grob_array (s);
67 for (int i = 0; i < ga->grobs_.size(); i++)
68 scm_gc_mark (ga->grobs_[i]->self_scm ());
74 Grob_array::print_smob (SCM arr, SCM port, scm_print_state*)
76 scm_puts ("#<Grob_array", port);
78 Grob_array * grob_arr = unsmob (arr);
79 for (int i = 0; i < grob_arr->size(); i++)
81 scm_display (grob_arr->grob (i)->self_scm (), port);
82 scm_puts (" " , port);
90 Grob_array::make_array ()
93 return ga.smobbed_copy ();
103 Grob_array::is_empty () const
105 return grobs_.is_empty ();
109 Grob_array::set_array (Link_array<Grob> const &src)
114 IMPLEMENT_SIMPLE_SMOBS (Grob_array);
115 IMPLEMENT_TYPE_P (Grob_array, "ly:grob-array?");
116 IMPLEMENT_DEFAULT_EQUAL_P (Grob_array);
120 grob_list_to_grob_array (SCM lst)
122 SCM arr_scm = Grob_array::make_array ();
123 Grob_array *ga = unsmob_grob_array (arr_scm);
124 for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
126 ga->add (unsmob_grob (scm_car (s)));