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--2006 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 (vsize i)
  17 {
  18   return dynamic_cast<Item *> (grobs_.at (i));
  19 }
  20
  21 Spanner *
  22 Grob_array::spanner (vsize i)
  23 {
  24   return dynamic_cast<Spanner *> (grobs_.at (i));
  25 }
  26
  27 Grob_array::Grob_array ()
  28 {
  29   ordered_ = true;
  30 }
  31
  32 vector<Grob*> &
  33 Grob_array::array_reference ()
  34 {
  35   return grobs_;
  36 }
  37
  38 vector<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 (vsize 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 (vsize 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 void
  86 Grob_array::remove_duplicates ()
  87 {
  88   assert (!ordered_);
  89
  90   vector_sort (grobs_, less<Grob*> ());
  91   ::uniq (grobs_);
  92 }
  93
  94 bool
  95 Grob_array::empty () const
  96 {
  97   return grobs_.empty ();
  98 }
  99
 100 void
 101 Grob_array::set_array (vector<Grob*> const &src)
 102 {
 103   grobs_ = src;
 104 }
 105
 106 IMPLEMENT_SIMPLE_SMOBS (Grob_array);
 107 IMPLEMENT_TYPE_P (Grob_array, "ly:grob-array?");
 108
 109 IMPLEMENT_DEFAULT_EQUAL_P (Grob_array);
 110
 111 SCM
 112 grob_list_to_grob_array (SCM lst)
 113 {
 114   SCM arr_scm = Grob_array::make_array ();
 115   Grob_array *ga = unsmob_grob_array (arr_scm);
 116   for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
 117     ga->add (unsmob_grob (scm_car (s)));
 118   return arr_scm;
 119 }
 120