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
  10 #include "grob-array.hh"
  11 #include "item.hh"
  12 #include "spanner.hh"
  13
  14 #include "ly-smobs.icc"
  15
  16 int
  17 Grob_array::size () const
  18 {
  19   return grobs_.size();
  20 }
  21
  22 Item *
  23 Grob_array::item (int i)
  24 {
  25   return dynamic_cast<Item*> (grobs_.elem (i));
  26 }
  27
  28
  29 Spanner*
  30 Grob_array::spanner (int i)
  31 {
  32   return dynamic_cast<Spanner*> (grobs_.elem (i));
  33 }
  34
  35 Grob*
  36 Grob_array::grob (int i)
  37 {
  38   return grobs_.elem (i);
  39 }
  40
  41 void
  42 Grob_array::add (Grob *grob)
  43 {
  44   grobs_.push (grob);
  45 }
  46
  47 Link_array<Grob> &
  48 Grob_array::array_reference ()
  49 {
  50   return grobs_;
  51 }
  52
  53
  54 Link_array<Grob> const &
  55 Grob_array::array () const
  56 {
  57   return grobs_;
  58 }
  59
  60
  61 SCM
  62 Grob_array::mark_smob (SCM s)
  63 {
  64 #if 0
  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 ());
  69 #endif
  70   return SCM_UNDEFINED;
  71 }
  72
  73 int
  74 Grob_array::print_smob (SCM arr, SCM port, scm_print_state*)
  75 {
  76   scm_puts ("#<Grob_array", port);
  77
  78   Grob_array * grob_arr = unsmob (arr);
  79   for (int i = 0; i < grob_arr->size(); i++)
  80     {
  81       scm_display (grob_arr->grob (i)->self_scm (), port);
  82       scm_puts (" " , port);
  83     }
  84   scm_puts (">", port);
  85   return 1;
  86 }
  87
  88
  89 SCM
  90 Grob_array::make_array ()
  91 {
  92   Grob_array ga;
  93   return ga.smobbed_copy ();
  94 }
  95
  96 void
  97 Grob_array::clear ()
  98 {
  99   grobs_.clear ();
 100 }
 101
 102 bool
 103 Grob_array::is_empty () const
 104 {
 105   return grobs_.is_empty ();
 106 }
 107
 108 void
 109 Grob_array::set_array (Link_array<Grob> const &src)
 110 {
 111   grobs_ = src;
 112 }
 113
 114 IMPLEMENT_SIMPLE_SMOBS (Grob_array);
 115 IMPLEMENT_TYPE_P (Grob_array, "ly:grob-array?");
 116 IMPLEMENT_DEFAULT_EQUAL_P (Grob_array);
 117
 118
 119 SCM
 120 grob_list_to_grob_array (SCM lst)
 121 {
 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))
 125     {
 126       ga->add (unsmob_grob (scm_car (s)));
 127     }
 128   return arr_scm;
 129 }