source file of the GNU LilyPond music typesetter
- (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+#include <stdio.h>
-#include "debug.hh"
+#include "warn.hh"
#include "music.hh"
+#include "request.hh"
+#include "music-list.hh"
#include "music-iterator.hh"
#include "global-translator.hh"
if (m > final_mom_)
return;
- if (m < now_mom_ )
+ if (m < now_mom_)
programming_error ("Trying to freeze in time.");
- for (int i=0; i < extra_mom_pq_.size(); i++)
+ for (int i=0; i < extra_mom_pq_.size (); i++)
if (extra_mom_pq_[i] == m)
return;
extra_mom_pq_.insert (m);
Moment
Global_translator::sneaky_insert_extra_moment (Moment w)
{
- while (extra_mom_pq_.size() && extra_mom_pq_.front() <= w)
- w = extra_mom_pq_.get();
+ while (extra_mom_pq_.size () && extra_mom_pq_.front () <= w)
+ w = extra_mom_pq_.get ();
return w;
}
int
-Global_translator::moments_left_i() const
+Global_translator::moments_left_i () const
{
- return extra_mom_pq_.size();
+ return extra_mom_pq_.size ();
}
void
Music_output*
-Global_translator::get_output_p()
+Global_translator::get_output_p ()
{
return 0;
}
void
-Global_translator::process ()
+Global_translator::one_time_step ()
{
}
void
void
Global_translator::run_iterator_on_me (Music_iterator * iter)
{
- while (iter->ok() || moments_left_i ())
+ if (iter-> ok ())
+ prev_mom_ = now_mom_ = iter->pending_moment ();
+
+ bool first = true;
+ while (iter->ok () || moments_left_i ())
{
Moment w;
w.set_infinite (1);
- if (iter->ok())
+ if (iter->ok ())
{
- w = iter->next_moment();
- DEBUG_OUT << "proccing: " << w << '\n';
- if (flower_dstream && !flower_dstream->silent_b ("walking"))
- iter->print();
+ w = iter->pending_moment ();
}
-
+
w = sneaky_insert_extra_moment (w);
- prepare (w);
- if (flower_dstream && !flower_dstream->silent_b ("walking"))
- print();
+ // printf ("proccing %s\n ", w.str().ch_C());
- iter->process (w);
- for (SCM i = iter->get_music (); gh_pair_p (i); i = SCM_CDR (i))
- {
- assert (gh_pair_p (i));
- SCM p = SCM_CAR (i);
- Music *m = unsmob_music (SCM_CAR (p));
- Translator *t = unsmob_translator (SCM_CDR (p));
- assert (m);
- assert (t);
- bool b = t->try_music (m);
- if (!b)
- {
- /*
- Children?
- */
- printf ("junking:\n");
- m->print ();
- t->print ();
- }
+
+ if (first)
+ {
+ first = false;
+ set_property ("measurePosition", w.smobbed_copy ());
}
+
+ prepare (w);
+ if (iter->ok ())
+ iter->process (w);
- iter->next ();
- process();
+ one_time_step ();
}
}