X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fengraver-group-engraver.cc;h=d68e0579c15e4d0e2918e36a45f3b304666bf9e4;hb=f4c0b9541aceba91c49b08207e7fa9a1adb0d2c7;hp=a3e71087cdf75aeb20ea0820fc25b286db9d48f9;hpb=b638d530ac5a32a832646cdd2b680ce52d0764f0;p=lilypond.git diff --git a/lily/engraver-group-engraver.cc b/lily/engraver-group-engraver.cc index a3e71087cd..d68e0579c1 100644 --- a/lily/engraver-group-engraver.cc +++ b/lily/engraver-group-engraver.cc @@ -1,74 +1,214 @@ /* - engravergroup.cc -- implement Engraver_group_engraver + engraver-group-engraver.cc -- implement Engraver_group_engraver source file of the GNU LilyPond music typesetter - (c) 1997--2000 Han-Wen Nienhuys + (c) 1997--2005 Han-Wen Nienhuys */ -#include "proto.hh" #include "engraver-group-engraver.hh" -#include "engraver.hh" -#include "debug.hh" -#include "paper-score.hh" -#include "score-element.hh" - -ADD_THIS_TRANSLATOR(Engraver_group_engraver); +#include "flower-proto.hh" +#include "warn.hh" +#include "paper-score.hh" +#include "grob.hh" +#include "context.hh" void -Engraver_group_engraver::announce_element (Score_element_info info) +Engraver_group_engraver::announce_grob (Grob_info info) { - announce_info_arr_.push (info); - Engraver::announce_element (info); + announce_infos_.push (info); + get_daddy_engraver ()->announce_grob (info); } +SCM find_acknowledge_engravers (SCM gravlist, SCM meta); +SCM find_accept_engravers (SCM gravlist, SCM music_descr); + void -Engraver_group_engraver::do_announces() +Engraver_group_engraver::acknowledge_grobs () { - for (Cons *p = trans_p_list_.head_; p; p = p->next_) + if (!announce_infos_.size ()) + return; + + SCM tab = get_property ("acknowledgeHashTable"); + SCM name_sym = ly_symbol2scm ("name"); + SCM meta_sym = ly_symbol2scm ("meta"); + + for (int j = 0; j < announce_infos_.size (); j++) { - if (Engraver_group_engraver *trg = dynamic_cast (p->car_)) - trg->do_announces (); + Grob_info info = announce_infos_[j]; + + SCM meta = info.grob ()->internal_get_property (meta_sym); + SCM nm = scm_assoc (name_sym, meta); + if (scm_is_pair (nm)) + nm = scm_cdr (nm); + else + { + /* + it's tempting to put an assert for + immutable_property_alist_ == '(), but in fact, some + engravers (clef-engraver) add some more information to the + immutable_property_alist_ (after it has been '()-ed). + + We ignore the grob anyway. He who has no name, shall not + be helped. */ + + continue; + } + + SCM acklist = scm_hashq_ref (tab, nm, SCM_UNDEFINED); + if (acklist == SCM_BOOL_F) + { + acklist = find_acknowledge_engravers (scm_cons (self_scm (), get_simple_trans_list ()), meta); + scm_hashq_set_x (tab, nm, acklist); + } + + for (SCM p = acklist; scm_is_pair (p); p = scm_cdr (p)) + { + Translator *t = unsmob_translator (scm_car (p)); + Engraver *eng = dynamic_cast (t); + if (eng && eng != info.origin_translator ()) + eng->acknowledge_grob (info); + } } +} - Request dummy_req; +/* + Ugh. This is slightly expensive. We could/should cache the value of + the group count? +*/ +int +Engraver_group_engraver::pending_grob_count () const +{ + int count = announce_infos_.size (); + for (SCM s = context ()->children_contexts (); + scm_is_pair (s); s = scm_cdr (s)) + { + Context *c = unsmob_context (scm_car (s)); + Engraver_group_engraver *group + = dynamic_cast (c->implementation ()); - while (announce_info_arr_.size ()) + if (group) + count += group->pending_grob_count (); + } + return count; +} + +void +Engraver_group_engraver::do_announces () +{ + do { - for (int j =0; j < announce_info_arr_.size(); j++) + for (SCM s = context ()->children_contexts (); + scm_is_pair (s); s = scm_cdr (s)) { - Score_element_info info = announce_info_arr_[j]; - - if (!info.req_l_) - info.req_l_ = &dummy_req; - - for (Cons *p = trans_p_list_.head_; p; p = p->next_) - { - if (!dynamic_cast (p->car_)) - { - Engraver * eng = dynamic_cast (p->car_); - if (eng && eng!= info.origin_trans_l_arr (this)[0]) - eng->acknowledge_element (info); - } - } + Context *c = unsmob_context (scm_car (s)); + Engraver_group_engraver *group + = dynamic_cast (c->implementation ()); + if (group) + group->do_announces (); } - - announce_info_arr_.clear (); - for (Cons *p = trans_p_list_.head_; p; p = p->next_) + + while (1) { - if (!dynamic_cast (p->car_)) - { - Engraver * eng = dynamic_cast (p->car_); - if (eng) - eng->process_acknowledged (); - } + engraver_each (get_simple_trans_list (), + &Engraver::process_acknowledged_grobs); + + if (announce_infos_.size () == 0) + break; + + acknowledge_grobs (); + announce_infos_.clear (); } } + while (pending_grob_count () > 0); +} + +void +Engraver_group_engraver::initialize () +{ + SCM tab = scm_make_vector (scm_int2num (61), SCM_BOOL_F); + context ()->set_property ("acknowledgeHashTable", tab); + + Translator_group::initialize (); +} + +Engraver_group_engraver::Engraver_group_engraver () {} + +ADD_TRANSLATOR (Engraver_group_engraver, + /* descr */ "A group of engravers taken together", + /* creats*/ "", + /* accepts */ "", + /* acks */ "", + /* reads */ "", + /* write */ ""); + +/*****************/ + +bool +engraver_valid (Translator *tr, SCM ifaces) +{ + SCM ack_ifs = scm_assoc (ly_symbol2scm ("interfaces-acked"), tr->translator_description ()); + ack_ifs = scm_cdr (ack_ifs); + for (SCM s = ifaces; scm_is_pair (s); s = scm_cdr (s)) + if (scm_c_memq (scm_car (s), ack_ifs) != SCM_BOOL_F) + return true; + return false; +} + +SCM +find_acknowledge_engravers (SCM gravlist, SCM meta_alist) +{ + SCM ifaces = scm_cdr (scm_assoc (ly_symbol2scm ("interfaces"), meta_alist)); + + SCM l = SCM_EOL; + for (SCM s = gravlist; scm_is_pair (s); s = scm_cdr (s)) + { + Translator *tr = unsmob_translator (scm_car (s)); + if (engraver_valid (tr, ifaces)) + l = scm_cons (tr->self_scm (), l); + } + l = scm_reverse_x (l, SCM_EOL); + + return l; } +/* c&p engraver-group.cc */ +void +recurse_down_engravers (Context *c, Engraver_method ptr, bool context_first) +{ + Engraver_group_engraver *tg + = dynamic_cast (c->implementation ()); + if (!context_first) + { + engraver_each (tg->get_simple_trans_list (), + ptr); + (tg->*ptr) (); + } + for (SCM s = c->children_contexts (); scm_is_pair (s); + s = scm_cdr (s)) + { + recurse_down_engravers (unsmob_context (scm_car (s)), ptr, context_first); + } + if (context_first) + { + engraver_each (tg->get_simple_trans_list (), + ptr); + (tg->*ptr) (); + } +} +void +engraver_each (SCM list, Engraver_method method) +{ + for (SCM p = list; scm_is_pair (p); p = scm_cdr (p)) + { + Engraver *e = dynamic_cast (unsmob_translator (scm_car (p))); + if (e) + (e->*method) (); + } +}