release: 1.5.19

[lilypond.git] / lily / engraver-group-engraver.cc

diff --git a/lily/engraver-group-engraver.cc b/lily/engraver-group-engraver.cc
index 0a47bb8420dec903fce1706a8ce937063f42f409..c0cc4eb51d9592a2dd22b8664046f26efd9e0a30 100644 (file)
--- a/lily/engraver-group-engraver.cc
+++ b/lily/engraver-group-engraver.cc
@@ -13,9 +13,6 @@
 #include "paper-score.hh"
 #include "grob.hh"
 
-
-ADD_THIS_TRANSLATOR (Engraver_group_engraver);
-
 void
 Engraver_group_engraver::announce_grob (Grob_info info)
 {
@@ -28,24 +25,59 @@ void
 Engraver_group_engraver::create_grobs ()
 {
 
-  for (SCM p = simple_trans_list_; gh_pair_p (p); p = gh_cdr (p))
+  for (SCM p = simple_trans_list_; gh_pair_p (p); p = ly_cdr (p))
     {
-      Translator * t = unsmob_translator (gh_car (p));
+      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 ;
+  
+  SCM tab = get_property ("acknowledgeHashTable");
+  SCM name_sym = ly_symbol2scm ("name");
+  SCM meta_sym = ly_symbol2scm ("meta");  
+
+  
   for (int j =0; j < announce_info_arr_.size (); j++)
     {
       Grob_info info = announce_info_arr_[j];
-      for (SCM p = simple_trans_list_; gh_pair_p (p); p = gh_cdr (p))
+      
+      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
+       {
+         /*
+           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 (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 (gh_car (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);
@@ -56,9 +88,9 @@ Engraver_group_engraver::acknowledge_grobs ()
 void
 Engraver_group_engraver::do_announces ()
 {
-  for (SCM p = trans_group_list_; gh_pair_p (p); p =gh_cdr (p))
+  for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
     {
-      Translator * t = unsmob_translator (gh_car (p));
+      Translator * t = unsmob_translator (ly_car (p));
       dynamic_cast<Engraver_group_engraver*> (t)->do_announces ();
     }
 
@@ -80,23 +112,72 @@ Engraver_group_engraver::do_announces ()
 void
 Engraver_group_engraver::process_music ()
 {
-   for (SCM p = simple_trans_list_; gh_pair_p (p); p =gh_cdr (p))
+   for (SCM p = simple_trans_list_; gh_pair_p (p); p =ly_cdr (p))
     {
-      Translator * t = unsmob_translator (gh_car (p));
+      Translator * t = unsmob_translator (ly_car (p));
       Engraver * eng = dynamic_cast<Engraver*> (t);
 
       if (eng)
        eng->process_music ();
     }
-   for (SCM p = trans_group_list_; gh_pair_p (p); p =gh_cdr (p))
+   for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
     {
-      Translator * t = unsmob_translator (gh_car (p));
+      Translator * t = unsmob_translator (ly_car (p));
       Engraver*eng = dynamic_cast<Engraver*> (t);
       if (eng)
        eng->process_music ();
     }
 }
 
+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;
+}