2 engravergroup.cc -- implement Engraver_group_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "flower-proto.hh"
10 #include "engraver-group-engraver.hh"
11 #include "engraver.hh"
13 #include "paper-score.hh"
17 Engraver_group_engraver::announce_grob (Grob_info info)
19 announce_infos_.push (info);
20 Engraver::announce_grob (info);
24 Engraver_group_engraver::process_acknowledged_grobs_in_simple_children ()
26 for (SCM p = simple_trans_list_; gh_pair_p (p); p = ly_cdr (p))
28 Translator * t = unsmob_translator (ly_car (p));
29 Engraver * eng = dynamic_cast<Engraver*> (t);
31 eng->process_acknowledged_grobs ();
37 Done: eliminating useless broadcast/acknowledge
40 One cause for translation slowness: grob broadcasted/acknowledges
41 (b/a): every grob is b/a-ed to all peer-engravers and all
42 parent-engravers. This means that lots of (often) useless b/a is done
43 for large scores (the top-level engravers gets to know every detail of
44 every voice, thread, etc. Measurements indicate this is 10% of the
49 old: (pre 1.5.13) 10.28
60 The cost of this B/A is # of useless engravers * cost of one ack,
61 which is rather low, since cost of one ack is only an interface check.
62 The cost of precomputing engraver lists has two elts: computing the
63 list itself, GC for the structure, looking up the list during the
67 SCM find_acknowledge_engravers (SCM gravlist, SCM meta);
68 SCM find_accept_engravers (SCM gravlist, SCM music_descr);
71 Engraver_group_engraver::acknowledge_grobs ()
73 if (!announce_infos_.size ())
76 SCM tab = get_property ("acknowledgeHashTable");
77 SCM name_sym = ly_symbol2scm ("name");
78 SCM meta_sym = ly_symbol2scm ("meta");
81 for (int j =0; j < announce_infos_.size (); j++)
83 Grob_info info = announce_infos_[j];
85 SCM meta = info.grob_->internal_get_grob_property (meta_sym);
86 SCM nm = scm_assoc (name_sym, meta);
92 it's tempting to put an assert for
93 immutable_property_alist_ == '(), but in fact, some
94 engravers (clef-engraver) add some more information to the
95 immutable_property_alist_ (after it has been '()-ed).
97 We ignore the grob anyway. He who has no name, shall not
103 SCM acklist = scm_hashq_ref (tab, nm, SCM_UNDEFINED);
104 if (acklist == SCM_BOOL_F)
106 acklist= find_acknowledge_engravers (gh_cons (self_scm (), simple_trans_list_), meta);
107 scm_hashq_set_x (tab, nm, acklist);
110 for (SCM p = acklist; gh_pair_p (p); p = ly_cdr (p))
112 Translator * t = unsmob_translator (ly_car (p));
113 Engraver * eng = dynamic_cast<Engraver*> (t);
114 if (eng && eng!= info.origin_trans_)
115 eng->acknowledge_grob (info);
121 Engraver_group_engraver::do_announces ()
123 for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
125 Translator * t = unsmob_translator (ly_car (p));
126 dynamic_cast<Engraver_group_engraver*> (t)->do_announces ();
129 process_acknowledged_grobs_in_simple_children ();
133 acknowledge_grobs ();
134 announce_infos_.clear ();
135 process_acknowledged_grobs_in_simple_children ();
137 while (announce_infos_.size ());
143 order is : top to bottom (as opposed to do_announces)
146 Engraver_group_engraver::process_music ()
148 for (SCM p = simple_trans_list_; gh_pair_p (p); p =ly_cdr (p))
150 Translator * t = unsmob_translator (ly_car (p));
151 Engraver * eng = dynamic_cast<Engraver*> (t);
154 eng->process_music ();
156 for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
158 Translator * t = unsmob_translator (ly_car (p));
159 Engraver*eng = dynamic_cast<Engraver*> (t);
161 eng->process_music ();
166 Engraver_group_engraver::initialize ()
172 SCM tab = scm_make_vector (gh_int2scm (61), SCM_BOOL_F);
173 set_property ("acknowledgeHashTable", tab);
175 Translator_group::initialize ();
178 Engraver_group_engraver::Engraver_group_engraver() {}
180 ENTER_DESCRIPTION(Engraver_group_engraver,
181 /* descr */ "A group of engravers taken together",
183 /* accepts */ "general-music",
193 bool engraver_valid (Translator*tr, SCM ifaces)
195 SCM ack_ifs = scm_assoc (ly_symbol2scm ("interfaces-acked"), tr->translator_description());
196 ack_ifs = gh_cdr (ack_ifs);
197 for (SCM s = ifaces; ly_pair_p (s); s = ly_cdr (s))
198 if (scm_memq (ly_car (s), ack_ifs) != SCM_BOOL_F)
206 find_acknowledge_engravers (SCM gravlist, SCM meta_alist)
208 SCM ifaces = gh_cdr (scm_assoc (ly_symbol2scm ("interfaces"), meta_alist));
211 for (SCM s = gravlist; ly_pair_p (s); s = ly_cdr (s))
213 Translator* tr = unsmob_translator (ly_car (s));
214 if (engraver_valid (tr, ifaces))
215 l = scm_cons (tr->self_scm (), l);
217 l = scm_reverse_x (l, SCM_EOL);