lily/auto-change-iterator.cc

   1 /*
   2   auto-change-iterator.cc -- implement  Auto_change_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "context.hh"
  10 #include "direction.hh"
  11 #include "international.hh"
  12 #include "music-wrapper-iterator.hh"
  13
  14 class Auto_change_iterator : public Music_wrapper_iterator
  15 {
  16 public:
  17   DECLARE_SCHEME_CALLBACK (constructor, ());
  18
  19   Auto_change_iterator ();
  20
  21 protected:
  22   virtual void do_quit ();
  23   virtual void construct_children ();
  24   virtual void process (Moment);
  25   vector<Pitch> pending_pitch (Moment) const;
  26 private:
  27   SCM split_list_;
  28   Direction where_dir_;
  29   void change_to (Music_iterator *, SCM, string);
  30   Moment start_moment_;
  31
  32   Context_handle up_;
  33   Context_handle down_;
  34 };
  35
  36 void
  37 Auto_change_iterator::change_to (Music_iterator *it, SCM to_type_sym,
  38                                  string to_id)
  39 {
  40   Context *current = it->get_outlet ();
  41   Context *last = 0;
  42
  43   /*
  44     Cut & Paste from Change_iterator (ugh).
  45
  46     TODO: abstract this function
  47   */
  48
  49   /* find the type  of translator that we're changing.
  50
  51   If \translator Staff = bass, then look for Staff = *
  52   */
  53   while (current && !current->is_alias (to_type_sym))
  54     {
  55       last = current;
  56       current = current->get_parent_context ();
  57     }
  58
  59   if (current && current->id_string () == to_id)
  60     {
  61       string msg;
  62       msg += _f ("can't change, already in translator: %s", to_id);
  63     }
  64
  65   if (current)
  66     {
  67       if (last)
  68         {
  69           Context *dest
  70             = it->get_outlet ()->find_create_context (to_type_sym, to_id, SCM_EOL);
  71           current->remove_context (last);
  72           dest->add_context (last);
  73         }
  74       else
  75         {
  76           /*
  77             We could change the current translator's id, but that would make
  78             errors hard to catch
  79
  80           */
  81           ;
  82         }
  83     }
  84 }
  85
  86 void
  87 Auto_change_iterator::process (Moment m)
  88 {
  89   Music_wrapper_iterator::process (m);
  90
  91   Moment now = get_outlet ()->now_mom ();
  92   Moment *splitm = 0;
  93
  94   for (; scm_is_pair (split_list_); split_list_ = scm_cdr (split_list_))
  95     {
  96       splitm = unsmob_moment (scm_caar (split_list_));
  97       if ((*splitm + start_moment_) > now)
  98         break;
  99
 100       SCM tag = scm_cdar (split_list_);
 101       Direction d = to_dir (tag);
 102
 103       if (d && d != where_dir_)
 104         {
 105           where_dir_ = d;
 106           string to_id = (d >= 0) ? "up" : "down";
 107           change_to (child_iter_,
 108                      ly_symbol2scm ("Staff"),
 109                      to_id);
 110         }
 111     }
 112 }
 113
 114 Auto_change_iterator::Auto_change_iterator ()
 115 {
 116   where_dir_ = CENTER;
 117   split_list_ = SCM_EOL;
 118 }
 119
 120 void
 121 Auto_change_iterator::construct_children ()
 122 {
 123   split_list_ = get_music ()->get_property ("split-list");
 124   start_moment_ = get_outlet ()->now_mom ();
 125
 126   SCM props = get_outlet ()->get_property ("trebleStaffProperties");
 127   Context *up = get_outlet ()->find_create_context (ly_symbol2scm ("Staff"),
 128                                                     "up", props);
 129
 130   props = get_outlet ()->get_property ("bassStaffProperties");
 131   Context *down = get_outlet ()->find_create_context (ly_symbol2scm ("Staff"),
 132                                                       "down", props);
 133
 134   up_.set_context (up);
 135   down_.set_context (down);
 136
 137   Context *voice = up->find_create_context (ly_symbol2scm ("Voice"),
 138                                             "", SCM_EOL);
 139   set_context (voice);
 140   Music_wrapper_iterator::construct_children ();
 141 }
 142
 143 void
 144 Auto_change_iterator::do_quit ()
 145 {
 146   up_.set_context (0);
 147   down_.set_context (0);
 148 }
 149
 150 IMPLEMENT_CTOR_CALLBACK (Auto_change_iterator);