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