2 engraver-group-engraver.cc -- implement Engraver_group_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "engraver-group-engraver.hh"
12 #include "paper-score.hh"
15 #include "translator-dispatch-list.hh"
18 Engraver_group_engraver::announce_grob (Grob_info info)
20 announce_infos_.push (info);
22 Engraver_group_engraver * dad_eng =
23 context_->get_parent_context ()
24 ? dynamic_cast<Engraver_group_engraver*> (context_->get_parent_context ()->implementation ())
27 dad_eng->announce_grob (info);
31 Engraver_group_engraver::acknowledge_grobs ()
33 if (!announce_infos_.size ())
36 SCM name_sym = ly_symbol2scm ("name");
37 SCM meta_sym = ly_symbol2scm ("meta");
39 for (int j = 0; j < announce_infos_.size (); j++)
41 Grob_info info = announce_infos_[j];
43 SCM meta = info.grob ()->internal_get_property (meta_sym);
44 SCM nm = scm_assoc (name_sym, meta);
50 SCM acklist = scm_hashq_ref (acknowledge_hash_table_, nm, SCM_BOOL_F);
51 Engraver_dispatch_list *dispatch
52 = Engraver_dispatch_list::unsmob (acklist);
54 if (acklist == SCM_BOOL_F)
57 = scm_cdr (scm_assoc (ly_symbol2scm ("interfaces"), meta));
58 acklist = Engraver_dispatch_list::create (get_simple_trans_list (),
62 = Engraver_dispatch_list::unsmob (acklist);
64 scm_hashq_set_x (acknowledge_hash_table_, nm, acklist);
70 dispatch->apply (info);
76 Ugh. This is slightly expensive. We could/should cache the value of
80 Engraver_group_engraver::pending_grob_count () const
82 int count = announce_infos_.size ();
83 for (SCM s = context_->children_contexts ();
84 scm_is_pair (s); s = scm_cdr (s))
86 Context *c = unsmob_context (scm_car (s));
87 Engraver_group_engraver *group
88 = dynamic_cast<Engraver_group_engraver *> (c->implementation ());
91 count += group->pending_grob_count ();
97 Engraver_group_engraver::do_announces ()
101 for (SCM s = context ()->children_contexts ();
102 scm_is_pair (s); s = scm_cdr (s))
104 Context *c = unsmob_context (scm_car (s));
105 Engraver_group_engraver *group
106 = dynamic_cast<Engraver_group_engraver *> (c->implementation ());
108 group->do_announces ();
113 precomputed_translator_foreach (PROCESS_ACKNOWLEDGED);
114 if (announce_infos_.size () == 0)
117 acknowledge_grobs ();
118 announce_infos_.clear ();
121 while (pending_grob_count () > 0);
125 Engraver_group_engraver::Engraver_group_engraver ()
127 acknowledge_hash_table_ = SCM_EOL;
128 acknowledge_hash_table_ = scm_c_make_hash_table (61);
131 #include "translator.icc"
133 ADD_TRANSLATOR_GROUP (Engraver_group_engraver,
134 /* descr */ "A group of engravers taken together",
143 Engraver_group_engraver::derived_mark () const
145 scm_gc_mark (acknowledge_hash_table_);