source file of the GNU LilyPond music typesetter
- (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "flower-proto.hh"
void
-Engraver_group_engraver::create_grobs ()
+Engraver_group_engraver::create_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));
}
}
+/*
+
+ Done: eliminating useless broadcast/acknowledge
+
+
+One cause for translation slowness: grob broadcasted/acknowledges
+ (b/a): every grob is b/a-ed to all peer-engravers and all
+parent-engravers. This means that lots of (often) useless b/a is done
+for large scores (the top-level engravers gets to know every detail of
+every voice, thread, etc. Measurements indicate this is 10% of the
+ interpretation time:
+
+ standchen
+
+old: (pre 1.5.13) 10.28
+new: 8.73
+speedup: 15 %
+
+Coriolan:
+
+new: 197.59
+old: 219.12 seconds
+speedup: 10%
+
+
+The cost of this B/A is # of useless engravers * cost of one ack,
+which is rather low, since cost of one ack is only an interface check.
+The cost of precomputing engraver lists has two elts: computing the
+list itself, GC for the structure, looking up the list during the
+acks.
+
+*/
SCM find_acknowledge_engravers (SCM gravlist, SCM meta);
void
Engraver_group_engraver::acknowledge_grobs ()
if (!announce_info_arr_.size ())
return ;
- SCM tab =get_property (ly_symbol2scm ("acknowledgeHashTable"));
+ SCM tab = get_property ("acknowledgeHashTable");
SCM name_sym = ly_symbol2scm ("name");
SCM meta_sym = ly_symbol2scm ("meta");
{
Grob_info info = announce_info_arr_[j];
- SCM meta = info.grob_l_->get_grob_property (meta_sym);
+ SCM meta = info.grob_l_->internal_get_grob_property (meta_sym);
SCM nm = scm_assoc (name_sym, meta);
if (gh_pair_p (nm))
nm = ly_cdr (nm);
SCM acklist = scm_hashq_ref (tab, nm, SCM_UNDEFINED);
if (acklist == SCM_BOOL_F)
{
- acklist= find_acknowledge_engravers (simple_trans_list_, meta);
+ acklist= find_acknowledge_engravers (gh_cons (self_scm (), simple_trans_list_), meta);
scm_hashq_set_x (tab, nm, acklist);
}
dynamic_cast<Engraver_group_engraver*> (t)->do_announces ();
}
- create_grobs ();
+ create_grobs_in_simple_children ();
while (announce_info_arr_.size ())
{
acknowledge_grobs ();
announce_info_arr_.clear ();
- create_grobs ();
+ create_grobs_in_simple_children ();
}
}
}
}
-void find_all_acknowledge_engravers (SCM tab, SCM gravlist, SCM allgrobs);
-
void
Engraver_group_engraver::initialize ()
{
SCM tab = scm_make_vector (gh_int2scm (61), SCM_BOOL_F); // magic ->
- set_property (ly_symbol2scm ("acknowledgeHashTable"), tab);
+ set_property ("acknowledgeHashTable", tab);
Translator_group::initialize ();
}
ENTER_DESCRIPTION(Engraver_group_engraver,
/* descr */ "A group of engravers taken together",
/* creats*/ "",
-/* acks */ "grob-interface",
+/* acks */ "",
/* reads */ "",
/* write */ "");