]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/music-iterator.cc
release: 1.3.27
[lilypond.git] / lily / music-iterator.cc
index e84f0525bf8a266677003f427437309e55eeac3a..edbb722e24993471aa7357f20b9df7ad7ee49e91 100644 (file)
 /*
-  music-iterator.cc -- implement {Music,Chord,Voice}_iterator
+  music-iterator.cc -- implement Music_iterator
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+  (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
+/*
+  UGH. too many includes.
+ */
+#include "debug.hh"
 #include "music-list.hh"
 #include "music-iterator.hh"
-#include "register.hh"
-#include "register-group.hh"
-#include "interpreter.hh"
-
-IMPLEMENT_STATIC_NAME(Music_iterator);
-IMPLEMENT_IS_TYPE_B(Music_iterator);
-
-Register_group_register * 
-Music_iterator::get_req_acceptor_l()
-{
-    assert(report_to_reg_l_);
-    if (report_to_reg_l_->interpreter_l() )
-       return report_to_reg_l_;
-
-    report_to_reg_l_ =  report_to_reg_l_->get_default_interpreter();
-    return report_to_reg_l_;
-}
+#include "property-iterator.hh"
+#include "request-chord-iterator.hh"
+#include "sequential-music-iterator.hh"
+#include "simultaneous-music-iterator.hh"
+#include "translator-group.hh"
+#include "translation-property.hh"
+#include "change-iterator.hh"
+#include "change-translator.hh"
+#include "music-wrapper.hh"
+#include "music-wrapper-iterator.hh"
+#include "time-scaled-music-iterator.hh"
+#include "time-scaled-music.hh"
+#include "context-specced-music.hh"
+#include "repeated-music.hh"
+#include "folded-repeat-iterator.hh"
+#include "unfolded-repeat-iterator.hh"
+#include "grace-iterator.hh"
+#include "grace-music.hh"
+#include "lyric-combine-music.hh"
+#include "lyric-combine-music-iterator.hh"
+#include "auto-change-music.hh"
+#include "auto-change-iterator.hh"
+#include "request.hh"
+#include "request-iterator.hh"
+#include "output-property.hh"
 
 void
-Music_iterator::construct_children()
-{
-
-}
-
-Music_iterator::~Music_iterator(){
-}
-
-Moment
-Music_iterator::next_moment()const
+Music_iterator::do_print() const
 {
-    return 0;
 }
 
 void
-Music_iterator::next(Moment)
+Music_iterator::print() const
 {
-    first_b_ = false;
+#ifndef NPRINT
+  if (!flower_dstream)
+    return ;
+  DEBUG_OUT << classname(this) << "{";
+  Translator_group *t =     report_to_l();
+  DEBUG_OUT << "report to " << t->type_str_ << " = " << t->id_str_ << "\n";
+  if (ok())
+    DEBUG_OUT << "next at " << next_moment() << " ";
+  else
+    DEBUG_OUT << "not feeling well today..";
+  do_print();
+  DEBUG_OUT << "}\n";
+#endif
 }
 
-bool
-Music_iterator::ok()const
+Translator_group*
+Music_iterator::get_req_translator_l()
 {
-    return first_b_;
-}
+  assert (report_to_l());
+  if (report_to_l()->is_bottom_translator_b ())
+    return report_to_l();
 
-Music_iterator*
-Music_iterator::static_get_iterator_p(Music *m,
-                                     Register_group_register *report_l)
-{
-    Music_iterator * p =0;
-    if (m->is_type_b( Change_reg::static_name()))
-       p = new Change_iterator((Change_reg*)m);
-    else if (m->is_type_b( Voice_element::static_name()))
-       p = new Voice_element_iterator( (Voice_element*) m);
-    else if (m->is_type_b( Chord::static_name())) 
-       p =  new Chord_iterator( (Chord*) m);
-    else if (m->is_type_b( Voice::static_name())) 
-       p =  new Voice_iterator(  (Voice*) m);
-    else if (m->is_type_b( Request::static_name() ))
-       p =  new Request_iterator(  (Request*) m );
-    
-     if ( m->is_type_b( Music_list::static_name())) {
-       Music_list* ml = (Music_list*) m;
-       if (ml -> type_str_ != "") {
-           p->report_to_reg_l_ =
-               report_l->find_get_reg_l(ml-> type_str_, ml->id_str_);
-           
-       } 
-    } 
-     if (! p->report_to_reg_l_ )
-       p ->report_to_reg_l_ = report_l;
-    
-    return p;
+  set_translator (report_to_l()->get_default_interpreter ());
+  return report_to_l();
 }
 
-Music_iterator*
-Music_iterator::get_iterator_p(Music*m)const
-{
-    Music_iterator*p = static_get_iterator_p(m,report_to_reg_l_);
-    p->daddy_iter_l_ = (Music_iterator*)this;
-    p->construct_children();
-    return p;
-}
 
-Music_iterator::Music_iterator()
+Translator_group* 
+Music_iterator::report_to_l() const
 {
-    daddy_iter_l_ =0;
-    report_to_reg_l_ = 0;
-    first_b_ = true;
+  return handle_.report_to_l ();
 }
 
-/* ************** */
-
-Chord_iterator::Chord_iterator(Chord const *chord_C)
-{
-    chord_C_ = chord_C;
-}
 
 void
-Chord_iterator::construct_children()
+Music_iterator::set_translator (Translator_group*trans)
 {
-    int j =0;
-    for(iter(chord_C_->music_p_list_.top(), i); i.ok(); j++, i++) {
-       
-       Music_iterator * mi =  get_iterator_p( i.ptr());
-       report_to_reg_l_ = mi->report_to_reg_l_->ancestor_l( chord_C_->multi_level_i_ );
-       children_p_list_.bottom().add( mi );
-    }
+  handle_.set_translator (trans);
 }
 
 void
-Chord_iterator::next(Moment until)
-{
-    for (iter(children_p_list_.top(), i); i.ok(); ) {
-       if  (i->next_moment() == until) {
-           i->next(until);
-       }
-       if (!i->ok()) 
-           i.del();
-       else
-           i++;
-    }
-    Music_iterator::next(until);
-
-    assert(!ok() || next_moment() > until);
-}
-
-IMPLEMENT_STATIC_NAME(Chord_iterator);
-IMPLEMENT_IS_TYPE_B1(Chord_iterator,Music_iterator);
-
-Moment
-Chord_iterator::next_moment()const
+Music_iterator::construct_children()
 {
-    Moment next_ = INFTY;
-    for (iter(children_p_list_.top(), i); i.ok(); i++) 
-       next_ = next_ <? i->next_moment() ;
-    return next_;
 }
 
-
-
-bool
-Chord_iterator::ok()const
+Music_iterator::~Music_iterator()
 {
-    return children_p_list_.size();
 }
 
-/* ************** */
-
-Voice_iterator::Voice_iterator(Voice const*v)
-    : PCursor<Music*> ( v->music_p_list_)
+Moment
+Music_iterator::next_moment() const
 {
-    here_mom_ = v->offset_mom_;
-    voice_C_ = v;
-    iter_p_ =0;
+  return 0;
 }
 
-void
-Voice_iterator::construct_children()
-{
-    if (ok()) {
-       
-       iter_p_ = Music_iterator::get_iterator_p( ptr() );      
-       report_to_reg_l_ = 
-           iter_p_->report_to_reg_l_->ancestor_l( voice_C_ ->multi_level_i_ );
-    }
-}
 
 void
-Voice_iterator::next_element()
+Music_iterator::process_and_next (Moment m)
 {
-    delete iter_p_ ;
-    iter_p_ =0;
-    here_mom_ += ptr()->time_int().length();
-    PCursor<Music*>::next();
-    construct_children();
+  do_process_and_next (m);
 }
 
-Voice_iterator::~Voice_iterator()
-{
-    delete iter_p_;
-}
-
-IMPLEMENT_STATIC_NAME(Voice_iterator);
-IMPLEMENT_IS_TYPE_B1(Voice_iterator,Music_iterator);
-
 void
-Voice_iterator::next(Moment until)
-{
-    while (ok()) {
-       Moment local_until = until - here_mom_;
-       while ( iter_p_ && iter_p_->ok() ) {
-           Moment here = iter_p_->next_moment();
-           if (here != local_until)
-               return;
-           iter_p_->next(local_until);
-       }
-       if (!iter_p_)
-           iter_p_ = Music_iterator::get_iterator_p( ptr() );
-       else if (!iter_p_->ok() )
-           next_element();
-    }
-    Music_iterator::next(until);
-    assert(!ok() || next_moment() > until);
-}
-
-Moment
-Voice_iterator::next_moment()const
+Music_iterator::do_process_and_next (Moment)
 {
-    return iter_p_->next_moment() + here_mom_;
+  first_b_ = false;
 }
 
 bool
-Voice_iterator::ok()const
+Music_iterator::ok() const
 {
-    return PCursor<Music*>::ok();
+  return first_b_;
 }
 
-/* ***************** */
+Music_iterator*
+Music_iterator::static_get_iterator_p (Music const *m)
+{
+  Music_iterator * p =0;
+
+  /* It would be nice to do this decentrally, but the order of this is
+     significant.  */
+  if (dynamic_cast<Request_chord  const *> (m))
+    p = new Request_chord_iterator;
+  else if (dynamic_cast<Lyric_combine_music const*> (m))
+    p = new Lyric_combine_music_iterator;
+  else if (dynamic_cast<Simultaneous_music  const *> (m)) 
+    p =  new Simultaneous_music_iterator;
+  else if (dynamic_cast<Sequential_music  const *> (m)) 
+    p =  new Sequential_music_iterator;
+  else if (dynamic_cast<Translation_property  const *> (m))
+    p = new Property_iterator;
+  else if (dynamic_cast<Change_translator  const *> (m))
+    p = new Change_iterator;
+  else if (dynamic_cast<Time_scaled_music  const *> (m))
+    p = new Time_scaled_music_iterator;
+  else if (dynamic_cast<Grace_music const*> (m))
+    p = new Grace_iterator;
+  else if (dynamic_cast<Auto_change_music const*> (m))
+    p = new Auto_change_iterator;
+  else if (dynamic_cast<Music_wrapper  const *> (m))
+    p = new Music_wrapper_iterator;
+  else if (Repeated_music const * n = dynamic_cast<Repeated_music const *> (m))
+    {
+      if (n->fold_b_)
+       p = new Folded_repeat_iterator;
+      else
+       p = new Unfolded_repeat_iterator;
+    }
+  else
+    {
+      p = new Simple_music_iterator ;
+    }
 
-Request_iterator::Request_iterator(Request const*c)
-{
-    req_l_ = (Request*)c;
+  p->music_l_ = m;
+  return p;
 }
 
 void
-Request_iterator::next(Moment m)
+Music_iterator::init_translator (Music const *m, Translator_group  *report_l)
 {
-    if ( !daddy_iter_l_->report_to_reg_l_->
-        interpreter_l()->interpret_request_b(req_l_) )
-       req_l_->warning("Junking request: " + String(req_l_->name()));
+  music_l_ = m;
+  if (Context_specced_music const * csm =dynamic_cast<Context_specced_music const*>(m))
+    {
+      Translator_group* a =report_l->
+       find_create_translator_l (csm->translator_type_str_, csm->translator_id_str_);
 
-    
-    Music_iterator::next(m);
-}
+      set_translator (a);
+      
+    }
 
-IMPLEMENT_STATIC_NAME(Request_iterator);
-IMPLEMENT_IS_TYPE_B1(Request_iterator, Music_iterator);
+  if (! report_to_l())
+    set_translator (report_l);
+}
 
-/* ****************** */
 
-Change_iterator::Change_iterator(Change_reg * ch)
+Music_iterator*
+Music_iterator::get_iterator_p (Music const*m) const
 {
-    change_l_ = ch;
+  Music_iterator*p = static_get_iterator_p (m);
+  p->init_translator (m, report_to_l());
+  
+  p->construct_children();
+  return p;
 }
 
-IMPLEMENT_STATIC_NAME(Change_iterator);
-IMPLEMENT_IS_TYPE_B1(Change_iterator,Music_iterator);
-
-/*
-  TODO: pop/pushgroup
- */
-void
-Change_iterator::next(Moment mom)
+Music_iterator::Music_iterator()
 {
-    Register_group_register *group_l =
-       report_to_reg_l_->find_get_reg_l(change_l_->type_str_, 
-                                        change_l_->id_str_);
-
-    report_to_reg_l_->daddy_reg_l_->remove_register_p(report_to_reg_l_);
-    group_l->add(report_to_reg_l_);
-
-    Music_iterator::next(mom);
+  first_b_ = true;
 }
 
-
-
-/* ******************** */
-
-IMPLEMENT_STATIC_NAME(Voice_element_iterator);
-IMPLEMENT_IS_TYPE_B1(Voice_element_iterator,Chord_iterator);
-
-void
-Voice_element_iterator::construct_children()
+Music_iterator*
+Music_iterator::try_music (Music const *m) const
 {
-    if ( daddy_iter_l_ 
-        && daddy_iter_l_->is_type_b(Voice_iterator::static_name() )) {
-       report_to_reg_l_ = daddy_iter_l_-> get_req_acceptor_l();
-    } else if (daddy_iter_l_
-              && daddy_iter_l_-> is_type_b( Chord_iterator::static_name() )) {
-
-       get_req_acceptor_l();
-    }
-    Chord_iterator::construct_children();
+  bool b = report_to_l ()->try_music ((Music*)m); // ugh
+  Music_iterator * it = b ? (Music_iterator*) this : 0;        // ugh
+  if (!it)
+    it = try_music_in_children (m);
+  return it;
 }
 
-Voice_element_iterator::Voice_element_iterator(Voice_element*el_l)
-    : Chord_iterator(el_l)
+Music_iterator*
+Music_iterator::try_music_in_children (Music const *  ) const
 {
-    
+  return 0;
 }
+