* Documentation/user/refman.itely (Automatic note splitting):

[lilypond.git] / lily / global-translator.cc

diff --git a/lily/global-translator.cc b/lily/global-translator.cc
index 78fa0a0ff7a93925df3f02130222150c8b7feea5..eded9743bcd17b6dc9da549f515c3828e9a619d1 100644 (file)
--- a/lily/global-translator.cc
+++ b/lily/global-translator.cc
@@ -1,72 +1,155 @@
 /*
-  global-translator.cc -- implement 
+  global-translator.cc -- implement Global_translator
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+  (c)  1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
+#include <stdio.h>
 
+#include "warn.hh"
 #include "music.hh"
+#include "event.hh"
+#include "music-list.hh"
+#include "music-iterator.hh"
 #include "global-translator.hh"
-#include "score.hh"
-#include "score-column.hh"
 
-Global_translator::Global_translator()
+Global_translator::Global_translator ()
 {
-    score_l_ = 0;
-    last_mom_ = 0;
 }
 
-Translator*
-Global_translator::ancestor_l(int)
+void
+Global_translator::add_moment_to_process (Moment m)
 {
-    return this;
+  if (m  > final_mom_)
+    return;
+
+  if (m < now_mom_)
+    programming_error ("Trying to freeze in time.");
+  
+  for (int i=0; i <  extra_mom_pq_.size (); i++)
+    if (extra_mom_pq_[i] == m)
+      return;
+  extra_mom_pq_.insert (m);
 }
 
-void
-Global_translator::add_moment_to_process(Moment m)
+Moment
+Global_translator::sneaky_insert_extra_moment (Moment w)
 {
-    if (m  > last_mom_)
-       return;
-    
-    for (int i=0; i <  extra_mom_pq_.size(); i++)
-       if (extra_mom_pq_[i] == m)
-           return;
-    extra_mom_pq_.insert(m);
+  while (extra_mom_pq_.size () && extra_mom_pq_.front () <= w)
+    w = extra_mom_pq_.get ();
+  return w;
 }
 
 int
-Global_translator::depth_i()const
+Global_translator::get_moments_left () const
 {
-    return 0;
+  return extra_mom_pq_.size ();
 }
 
 void
-Global_translator::set_score(Score *s)
+Global_translator::prepare (Moment m)
+{
+  prev_mom_  = now_mom_;
+  now_mom_ = m;
+}
+
+Moment
+Global_translator::now_mom () const
+{
+  return now_mom_;
+}
+
+
+
+Music_output*
+Global_translator::get_output ()
 {
-    score_l_ = s;
-    last_mom_ = score_l_->music_p_->time_int().max();
+  return 0;
 }
 
 void
-Global_translator::modify_next(Moment &w)
+Global_translator::one_time_step ()
 {
-    while (extra_mom_pq_.size() && 
-       extra_mom_pq_.front() <= w)
-       
-       w =extra_mom_pq_.get();
 }
 
-int
-Global_translator::moments_left_i()const
+void
+Global_translator::start ()
+{
+}
+void
+Global_translator::finish ()
 {
-    return extra_mom_pq_.size();
 }
 
 void
-Global_translator::prepare(Moment)
+Global_translator::run_iterator_on_me (Music_iterator * iter)
 {
+  if (iter-> ok ())
+    prev_mom_ = now_mom_ = iter->pending_moment ();
+
+  bool first = true;
+  while (iter->ok () || get_moments_left ())
+    {
+      Moment w;
+      w.set_infinite (1);
+      if (iter->ok ())
+       {
+         w = iter->pending_moment ();
+       }
+
+      w = sneaky_insert_extra_moment (w);
+      if (w.main_part_.is_infinity ())
+       break ;
+      
+      
+      //      printf ("proccing %s\n ",       w.to_string ().to_str0 ());
+      if (first)
+       {
+         first = false;
+         set_property ("measurePosition", w.smobbed_copy ());
+       }
+
+      prepare (w);
+      if (iter->ok ())
+       iter->process (w);
+      
+      one_time_step ();
+    }
+}
+
+void
+Global_translator::apply_finalizations ()
+{
+  SCM lst = get_property ("finalizations");
+  set_property ("finalizations" , SCM_EOL); 
+  for (SCM s = lst ; gh_pair_p (s); s = gh_cdr (s))
+    {
+      scm_primitive_eval (gh_car (s));
+    }
+}
+
+/*
+   Add a function to execute before stepping to the next time step.
+ */
+void
+Global_translator::add_finalization (SCM x)
+{
+  SCM lst = get_property ("finalizations");
+  lst = scm_cons (x, lst);
+  set_property ("finalizations" ,lst); 
 }
 
 
-IMPLEMENT_IS_TYPE_B1(Global_translator, Translator);
+Global_translator *
+Translator::top_translator()const
+{
+  if (dynamic_cast<Global_translator*>((Translator*)this))
+    return dynamic_cast<Global_translator*> ((Translator*)this);
+
+  if (daddy_trans_)
+    return daddy_trans_->top_translator ();
+
+  programming_error ("No top translator!");
+  return 0;
+}