source file of the GNU LilyPond music typesetter
- (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "flower-proto.hh"
#include "engraver-group-engraver.hh"
#include "engraver.hh"
-#include "debug.hh"
+#include "warn.hh"
#include "paper-score.hh"
#include "grob.hh"
void
Engraver_group_engraver::announce_grob (Grob_info info)
{
- announce_info_arr_.push (info);
+ announce_infos_.push (info);
Engraver::announce_grob (info);
}
-
void
-Engraver_group_engraver::create_grobs_in_simple_children ()
+Engraver_group_engraver::process_acknowledged_grobs_in_simple_children ()
{
for (SCM p = simple_trans_list_; gh_pair_p (p); p = ly_cdr (p))
{
Translator * t = unsmob_translator (ly_car (p));
Engraver * eng = dynamic_cast<Engraver*> (t);
if (eng)
- eng->create_grobs ();
+ eng->process_acknowledged_grobs ();
}
}
*/
SCM find_acknowledge_engravers (SCM gravlist, SCM meta);
+SCM find_accept_engravers (SCM gravlist, SCM music_descr);
+
void
Engraver_group_engraver::acknowledge_grobs ()
{
- if (!announce_info_arr_.size ())
+ if (!announce_infos_.size ())
return ;
SCM tab = get_property ("acknowledgeHashTable");
SCM meta_sym = ly_symbol2scm ("meta");
- for (int j =0; j < announce_info_arr_.size (); j++)
+ for (int j =0; j < announce_infos_.size (); j++)
{
- Grob_info info = announce_info_arr_[j];
+ Grob_info info = announce_infos_[j];
- SCM meta = info.grob_l_->internal_get_grob_property (meta_sym);
+ SCM meta = info.grob_->internal_get_grob_property (meta_sym);
SCM nm = scm_assoc (name_sym, meta);
if (gh_pair_p (nm))
nm = ly_cdr (nm);
{
Translator * t = unsmob_translator (ly_car (p));
Engraver * eng = dynamic_cast<Engraver*> (t);
- if (eng && eng!= info.origin_trans_l_)
+ if (eng && eng!= info.origin_trans_)
eng->acknowledge_grob (info);
}
}
dynamic_cast<Engraver_group_engraver*> (t)->do_announces ();
}
- // create_grobs_in_simple_children ();
+ process_acknowledged_grobs_in_simple_children ();
- while (announce_info_arr_.size ())
+ do
{
acknowledge_grobs ();
- announce_info_arr_.clear ();
- create_grobs_in_simple_children ();
+ announce_infos_.clear ();
+ process_acknowledged_grobs_in_simple_children ();
}
+ while (announce_infos_.size ());
}
void
Engraver_group_engraver::initialize ()
{
- SCM tab = scm_make_vector (gh_int2scm (61), SCM_BOOL_F); // magic ->
+ /*
+ docme: why bool_f.
+
+ */
+ SCM tab = scm_make_vector (gh_int2scm (61), SCM_BOOL_F);
set_property ("acknowledgeHashTable", tab);
Translator_group::initialize ();
ENTER_DESCRIPTION(Engraver_group_engraver,
/* descr */ "A group of engravers taken together",
/* creats*/ "",
-/* acks */ "",
+/* accepts */ "",
+/* acks */ "",
/* reads */ "",
/* write */ "");
}
+
SCM
find_acknowledge_engravers (SCM gravlist, SCM meta_alist)
{
return l;
}
+
+