2 engravergroup.cc -- implement Engraver_group_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2001 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_info_arr_.push (info);
20 Engraver::announce_grob (info);
25 Engraver_group_engraver::create_grobs ()
28 for (SCM p = simple_trans_list_; gh_pair_p (p); p = ly_cdr (p))
30 Translator * t = unsmob_translator (ly_car (p));
31 Engraver * eng = dynamic_cast<Engraver*> (t);
37 SCM find_acknowledge_engravers (SCM gravlist, SCM meta);
39 Engraver_group_engraver::acknowledge_grobs ()
41 if (!announce_info_arr_.size ())
44 SCM tab =get_property (ly_symbol2scm ("acknowledgeHashTable"));
45 SCM name_sym = ly_symbol2scm ("name");
46 SCM meta_sym = ly_symbol2scm ("meta");
49 for (int j =0; j < announce_info_arr_.size (); j++)
51 Grob_info info = announce_info_arr_[j];
53 SCM meta = info.grob_l_->get_grob_property (meta_sym);
54 SCM nm = scm_assoc (name_sym, meta);
59 assert (info.grob_l_->immutable_property_alist_ == SCM_EOL);
63 SCM acklist = scm_hashq_ref (tab, nm, SCM_UNDEFINED);
64 if (acklist == SCM_BOOL_F)
66 acklist= find_acknowledge_engravers (simple_trans_list_, meta);
67 scm_hashq_set_x (tab, nm, acklist);
70 for (SCM p = acklist; gh_pair_p (p); p = ly_cdr (p))
72 Translator * t = unsmob_translator (ly_car (p));
73 Engraver * eng = dynamic_cast<Engraver*> (t);
74 if (eng && eng!= info.origin_trans_l_)
75 eng->acknowledge_grob (info);
81 Engraver_group_engraver::do_announces ()
83 for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
85 Translator * t = unsmob_translator (ly_car (p));
86 dynamic_cast<Engraver_group_engraver*> (t)->do_announces ();
91 while (announce_info_arr_.size ())
94 announce_info_arr_.clear ();
102 order is : top to bottom (as opposed to do_announces)
105 Engraver_group_engraver::process_music ()
107 for (SCM p = simple_trans_list_; gh_pair_p (p); p =ly_cdr (p))
109 Translator * t = unsmob_translator (ly_car (p));
110 Engraver * eng = dynamic_cast<Engraver*> (t);
113 eng->process_music ();
115 for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
117 Translator * t = unsmob_translator (ly_car (p));
118 Engraver*eng = dynamic_cast<Engraver*> (t);
120 eng->process_music ();
124 void find_all_acknowledge_engravers (SCM tab, SCM gravlist, SCM allgrobs);
127 Engraver_group_engraver::initialize ()
129 SCM tab = scm_make_vector (gh_int2scm (61), SCM_BOOL_F); // magic ->
130 set_property (ly_symbol2scm ("acknowledgeHashTable"), tab);
132 Translator_group::initialize ();
135 Engraver_group_engraver::Engraver_group_engraver() {}
137 ENTER_DESCRIPTION(Engraver_group_engraver,
138 /* descr */ "A group of engravers taken together",
140 /* acks */ "grob-interface",
149 bool engraver_valid (Translator*tr, SCM ifaces)
151 SCM ack_ifs = scm_assoc (ly_symbol2scm ("interfaces-acked"), tr->translator_description());
152 ack_ifs = gh_cdr (ack_ifs);
153 for (SCM s = ifaces; ly_pair_p (s); s = ly_cdr (s))
154 if (scm_memq (ly_car (s), ack_ifs) != SCM_BOOL_F)
161 find_acknowledge_engravers (SCM gravlist, SCM meta_alist)
163 SCM ifaces = gh_cdr (scm_assoc (ly_symbol2scm ("interfaces"), meta_alist));
166 for (SCM s = gravlist; ly_pair_p (s); s = ly_cdr (s))
168 Translator* tr = unsmob_translator (ly_car (s));
169 if (engraver_valid (tr, ifaces))
170 l = scm_cons (tr->self_scm (), l);
172 l = scm_reverse_x (l, SCM_EOL);