2 global-translator.cc -- implement Global_translator
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
12 #include "music-list.hh"
13 #include "music-iterator.hh"
14 #include "global-translator.hh"
16 Global_translator::Global_translator ()
21 Global_translator::add_moment_to_process (Moment m)
27 programming_error ("Trying to freeze in time.");
29 for (int i=0; i < extra_mom_pq_.size(); i++)
30 if (extra_mom_pq_[i] == m)
32 extra_mom_pq_.insert (m);
36 Global_translator::sneaky_insert_extra_moment (Moment w)
38 while (extra_mom_pq_.size() && extra_mom_pq_.front() <= w)
39 w = extra_mom_pq_.get();
44 Global_translator::moments_left_i() const
46 return extra_mom_pq_.size();
50 Global_translator::prepare (Moment m)
57 Global_translator::now_mom () const
65 Global_translator::get_output_p()
71 Global_translator::process ()
75 Global_translator::start ()
79 Global_translator::finish ()
84 Global_translator::run_iterator_on_me (Music_iterator * iter)
87 while (iter->ok () || moments_left_i ())
93 w = iter->next_moment();
100 DEBUG_OUT << "proccing: " << w << '\n';
101 if (flower_dstream && !flower_dstream->silent_b ("walking"))
105 w = sneaky_insert_extra_moment (w);
108 if (flower_dstream && !flower_dstream->silent_b ("walking"))
114 Urg, this is request_chord_iterator.
116 for (SCM i = iter->get_music (); gh_pair_p (i); i = SCM_CDR (i))
118 assert (gh_pair_p (i));
120 Music *m = unsmob_music (SCM_CAR (p));
121 Translator *t = unsmob_translator (SCM_CDR (p));
124 for (SCM s = dynamic_cast<Music_sequence *> (m)->music_list ();
125 gh_pair_p (s); s = SCM_CDR (s))
127 Music *m = unsmob_music (SCM_CAR (s));
128 if (Request* r = dynamic_cast<Request*> (m))
130 bool b = t->try_music (m);
132 m->origin ()->warning (_f ("Junking request: `%s'",
136 m->origin ()->warning (_f ("Huh? Not a Request: `%s'",
139 if (! dynamic_cast<Music_sequence *> (m))
141 bool b = t->try_music (m);
147 printf ("junking:\n");