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  /* see System::derived_mark () const */
  53   Grob_array *ga = unsmob_grob_array (s);
  54   for (int i = 0; i < ga->grobs_.size(); i++)
  55     scm_gc_mark (ga->grobs_[i]->self_scm ());
  56 #endif
  57   return SCM_UNDEFINED;
  58 }
  59
  60 int
  61 Grob_array::print_smob (SCM arr, SCM port, scm_print_state*)
  62 {
  63   scm_puts ("#<Grob_array", port);
  64
  65   Grob_array * grob_arr = unsmob (arr);
  66   for (int i = 0; i < grob_arr->size(); i++)
  67     {
  68       scm_display (grob_arr->grob (i)->self_scm (), port);
  69       scm_puts (" " , port);
  70     }
  71   scm_puts (">", port);
  72   return 1;
  73 }
  74
  75
  76 SCM
  77 Grob_array::make_array ()
  78 {
  79   Grob_array ga;
  80   return ga.smobbed_copy ();
  81 }
  82
  83 void
  84 Grob_array::clear ()
  85 {
  86   grobs_.clear ();
  87 }
  88
  89 bool
  90 Grob_array::is_empty () const
  91 {
  92   return grobs_.is_empty ();
  93 }
  94
  95 void
  96 Grob_array::set_array (Link_array<Grob> const &src)
  97 {
  98   grobs_ = src;
  99 }
 100
 101 IMPLEMENT_SIMPLE_SMOBS (Grob_array);
 102 IMPLEMENT_TYPE_P (Grob_array, "ly:grob-array?");
 103
 104 IMPLEMENT_DEFAULT_EQUAL_P (Grob_array);
 105
 106
 107 SCM
 108 grob_list_to_grob_array (SCM lst)
 109 {
 110   SCM arr_scm = Grob_array::make_array ();
 111   Grob_array *ga = unsmob_grob_array (arr_scm);
 112   for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
 113     {
 114       ga->add (unsmob_grob (scm_car (s)));
 115     }
 116   return arr_scm;
 117 }