]> git.donarmstrong.com Git - lilypond.git/blob - lily/grob-array.cc
(parse_symbol_list): Bugfix.
[lilypond.git] / lily / grob-array.cc
1 /*
2   grob-array.cc -- implement Grob_array
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "grob-array.hh"
10 #include "item.hh"
11 #include "spanner.hh"
12
13 #include "ly-smobs.icc"
14
15 Item *
16 Grob_array::item (int i)
17 {
18   return dynamic_cast<Item *> (grobs_.elem (i));
19 }
20
21 Spanner *
22 Grob_array::spanner (int i)
23 {
24   return dynamic_cast<Spanner *> (grobs_.elem (i));
25 }
26
27 Grob_array::Grob_array ()
28 {
29   ordered_ = false;
30 }
31
32 Link_array<Grob> &
33 Grob_array::array_reference ()
34 {
35   return grobs_;
36 }
37
38 Link_array<Grob> const &
39 Grob_array::array () const
40 {
41   return grobs_;
42 }
43
44 SCM
45 Grob_array::mark_smob (SCM s)
46 {
47   (void) s;
48
49 #if 0  /* see System::derived_mark () const */
50   Grob_array *ga = unsmob_grob_array (s);
51   for (int i = 0; i < ga->grobs_.size (); i++)
52     scm_gc_mark (ga->grobs_[i]->self_scm ());
53 #endif
54   return SCM_UNDEFINED;
55 }
56
57 int
58 Grob_array::print_smob (SCM arr, SCM port, scm_print_state*)
59 {
60   scm_puts ("#<Grob_array", port);
61
62   Grob_array *grob_arr = unsmob (arr);
63   for (int i = 0; i < grob_arr->size (); i++)
64     {
65       scm_display (grob_arr->grob (i)->self_scm (), port);
66       scm_puts (" ", port);
67     }
68   scm_puts (">", port);
69   return 1;
70 }
71
72 SCM
73 Grob_array::make_array ()
74 {
75   Grob_array ga;
76   return ga.smobbed_copy ();
77 }
78
79 void
80 Grob_array::clear ()
81 {
82   grobs_.clear ();
83 }
84
85 bool
86 Grob_array::is_empty () const
87 {
88   return grobs_.is_empty ();
89 }
90
91 void
92 Grob_array::set_array (Link_array<Grob> const &src)
93 {
94   grobs_ = src;
95 }
96
97 IMPLEMENT_SIMPLE_SMOBS (Grob_array);
98 IMPLEMENT_TYPE_P (Grob_array, "ly:grob-array?");
99
100 IMPLEMENT_DEFAULT_EQUAL_P (Grob_array);
101
102 SCM
103 grob_list_to_grob_array (SCM lst)
104 {
105   SCM arr_scm = Grob_array::make_array ();
106   Grob_array *ga = unsmob_grob_array (arr_scm);
107   for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
108     {
109       ga->add (unsmob_grob (scm_car (s)));
110     }
111   return arr_scm;
112 }