source file of the GNU LilyPond music typesetter
- (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-#include "proto.hh"
+#include "flower-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 "grob.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);
+ Engraver::announce_grob (info);
}
+
void
-Engraver_group_engraver::do_announces()
+Engraver_group_engraver::create_grobs ()
{
- Link_array<Translator_group> groups = group_l_arr ();
- for (int i=0; i < groups.size(); i++)
+
+ for (SCM p = simple_trans_list_; gh_pair_p (p); p = ly_cdr (p))
{
- Engraver_group_engraver * group = dynamic_cast<Engraver_group_engraver*> (groups[i]);
- if (group)
- {
- group->do_announces();
- }
+ Translator * t = unsmob_translator (ly_car (p));
+ Engraver * eng = dynamic_cast<Engraver*> (t);
+ if (eng)
+ eng->create_grobs ();
}
+}
+
+SCM find_acknowledge_engravers (SCM gravlist, SCM meta);
+void
+Engraver_group_engraver::acknowledge_grobs ()
+{
+ if (!announce_info_arr_.size ())
+ return ;
- Request dummy_req;
+ SCM tab = get_property ("acknowledgeHashTable");
+ SCM name_sym = ly_symbol2scm ("name");
+ SCM meta_sym = ly_symbol2scm ("meta");
- Link_array<Translator> nongroups = nongroup_l_arr ();
- while (announce_info_arr_.size ())
+
+ for (int j =0; j < announce_info_arr_.size (); j++)
{
- for (int j =0; j < announce_info_arr_.size(); j++)
+ Grob_info info = announce_info_arr_[j];
+
+ 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);
+ else
{
- Score_element_info info = announce_info_arr_[j];
+ /*
+ 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. */
- if (!info.req_l_)
- info.req_l_ = &dummy_req;
- for (int i=0; i < nongroups.size(); i++)
- { // Is this good enough?
- Engraver * eng = dynamic_cast<Engraver*> (nongroups[i]);
- if (eng && eng!= info.origin_trans_l_arr_[0])
- eng->acknowledge_element (info);
- }
+ continue;
}
- announce_info_arr_.clear ();
- for (int i=0; i < nongroups.size(); i++)
+
+ SCM acklist = scm_hashq_ref (tab, nm, SCM_UNDEFINED);
+ if (acklist == SCM_BOOL_F)
{
- Engraver * eng = dynamic_cast<Engraver*> (nongroups[i]);
- if (eng)
- eng->process_acknowledged ();
+ acklist= find_acknowledge_engravers (simple_trans_list_, meta);
+ scm_hashq_set_x (tab, nm, acklist);
}
+ for (SCM p = acklist; gh_pair_p (p); p = ly_cdr (p))
+ {
+ Translator * t = unsmob_translator (ly_car (p));
+ Engraver * eng = dynamic_cast<Engraver*> (t);
+ if (eng && eng!= info.origin_trans_l_)
+ eng->acknowledge_grob (info);
+ }
}
}
+void
+Engraver_group_engraver::do_announces ()
+{
+ for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
+ {
+ Translator * t = unsmob_translator (ly_car (p));
+ dynamic_cast<Engraver_group_engraver*> (t)->do_announces ();
+ }
+
+ create_grobs ();
+
+ while (announce_info_arr_.size ())
+ {
+ acknowledge_grobs ();
+ announce_info_arr_.clear ();
+ create_grobs ();
+ }
+}
-Staff_info
-Engraver_group_engraver::get_staff_info() const
+#include <iostream.h>
+
+/*
+ order is : top to bottom (as opposed to do_announces)
+ */
+void
+Engraver_group_engraver::process_music ()
{
- Staff_info inf = Engraver::get_staff_info();
+ for (SCM p = simple_trans_list_; gh_pair_p (p); p =ly_cdr (p))
+ {
+ Translator * t = unsmob_translator (ly_car (p));
+ Engraver * eng = dynamic_cast<Engraver*> (t);
- Link_array<Translator> simple_translators = nongroup_l_arr ();
- for (int i=0; i < simple_translators.size(); i++)
+ if (eng)
+ eng->process_music ();
+ }
+ for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
{
- Engraver * eng = dynamic_cast<Engraver*> (simple_translators[i]);
- if (eng)
- eng->fill_staff_info (inf);
+ Translator * t = unsmob_translator (ly_car (p));
+ Engraver*eng = dynamic_cast<Engraver*> (t);
+ if (eng)
+ eng->process_music ();
}
- return inf;
}
+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 ("acknowledgeHashTable", tab);
+
+ Translator_group::initialize ();
+}
+
+Engraver_group_engraver::Engraver_group_engraver() {}
+
+ENTER_DESCRIPTION(Engraver_group_engraver,
+/* descr */ "A group of engravers taken together",
+/* creats*/ "",
+/* acks */ "grob-interface",
+/* reads */ "",
+/* write */ "");
+
+/*****************/
+
+
+bool engraver_valid (Translator*tr, SCM ifaces)
+{
+ SCM ack_ifs = scm_assoc (ly_symbol2scm ("interfaces-acked"), tr->translator_description());
+ ack_ifs = gh_cdr (ack_ifs);
+ for (SCM s = ifaces; ly_pair_p (s); s = ly_cdr (s))
+ if (scm_memq (ly_car (s), ack_ifs) != SCM_BOOL_F)
+ return true;
+ return false;
+}
+
+
+SCM
+find_acknowledge_engravers (SCM gravlist, SCM meta_alist)
+{
+ SCM ifaces = gh_cdr (scm_assoc (ly_symbol2scm ("interfaces"), meta_alist));
+
+ SCM l = SCM_EOL;
+ for (SCM s = gravlist; ly_pair_p (s); s = ly_cdr (s))
+ {
+ Translator* tr = unsmob_translator (ly_car (s));
+ if (engraver_valid (tr, ifaces))
+ l = scm_cons (tr->self_scm (), l);
+ }
+ l = scm_reverse_x (l, SCM_EOL);
+
+ return l;
+}