lily/engraver-group-engraver.cc

   1 /*
   2   engravergroup.cc -- implement Engraver_group_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "flower-proto.hh"
  10 #include "engraver-group-engraver.hh"
  11 #include "engraver.hh"
  12 #include "debug.hh"
  13 #include "paper-score.hh"
  14 #include "grob.hh"
  15
  16 void
  17 Engraver_group_engraver::announce_grob (Grob_info info)
  18 {
  19   announce_info_arr_.push (info);
  20   Engraver::announce_grob (info);
  21 }
  22
  23
  24 void
  25 Engraver_group_engraver::create_grobs_in_simple_children ()
  26 {
  27   for (SCM p = simple_trans_list_; gh_pair_p (p); p = ly_cdr (p))
  28     {
  29       Translator * t = unsmob_translator (ly_car (p));
  30       Engraver * eng = dynamic_cast<Engraver*> (t);
  31       if (eng)
  32         eng->create_grobs ();
  33     }
  34 }
  35
  36 /*
  37   TODO: use this mechanism for the current Engraver_group_engraver as well.
  38
  39  */
  40 SCM find_acknowledge_engravers (SCM gravlist, SCM meta);
  41 void
  42 Engraver_group_engraver::acknowledge_grobs ()
  43 {
  44   if (!announce_info_arr_.size ())
  45     return ;
  46
  47   SCM tab = get_property ("acknowledgeHashTable");
  48   SCM name_sym = ly_symbol2scm ("name");
  49   SCM meta_sym = ly_symbol2scm ("meta");
  50
  51
  52   for (int j =0; j < announce_info_arr_.size (); j++)
  53     {
  54       Grob_info info = announce_info_arr_[j];
  55
  56       SCM meta = info.grob_l_->internal_get_grob_property (meta_sym);
  57       SCM nm = scm_assoc (name_sym, meta);
  58       if (gh_pair_p (nm))
  59         nm = ly_cdr (nm);
  60       else
  61         {
  62           /*
  63             it's tempting to put an assert for
  64             immutable_property_alist_ == '(), but in fact, some
  65             engravers (clef-engraver) add some more information to the
  66             immutable_property_alist_ (after it has been '()-ed).
  67
  68             We ignore the grob anyway. He who has no name, shall not
  69             be helped.  */
  70
  71           continue;
  72         }
  73
  74       SCM acklist = scm_hashq_ref (tab, nm, SCM_UNDEFINED);
  75       if (acklist == SCM_BOOL_F)
  76         {
  77           acklist= find_acknowledge_engravers (gh_cons (self_scm (), simple_trans_list_), meta);
  78           scm_hashq_set_x (tab, nm, acklist);
  79         }
  80
  81       for (SCM p = acklist; gh_pair_p (p); p = ly_cdr (p))
  82         {
  83           Translator * t = unsmob_translator (ly_car (p));
  84           Engraver * eng = dynamic_cast<Engraver*> (t);
  85           if (eng && eng!= info.origin_trans_l_)
  86             eng->acknowledge_grob (info);
  87         }
  88     }
  89 }
  90
  91 void
  92 Engraver_group_engraver::do_announces ()
  93 {
  94   for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
  95     {
  96       Translator * t = unsmob_translator (ly_car (p));
  97       dynamic_cast<Engraver_group_engraver*> (t)->do_announces ();
  98     }
  99
 100   create_grobs_in_simple_children ();
 101
 102   while (announce_info_arr_.size ())
 103     {
 104       acknowledge_grobs ();
 105       announce_info_arr_.clear ();
 106       create_grobs_in_simple_children ();
 107     }
 108 }
 109
 110 #include <iostream.h>
 111
 112 /*
 113   order is : top to bottom (as opposed to do_announces)
 114  */
 115 void
 116 Engraver_group_engraver::process_music ()
 117 {
 118    for (SCM p = simple_trans_list_; gh_pair_p (p); p =ly_cdr (p))
 119     {
 120       Translator * t = unsmob_translator (ly_car (p));
 121       Engraver * eng = dynamic_cast<Engraver*> (t);
 122
 123       if (eng)
 124         eng->process_music ();
 125     }
 126    for (SCM p = trans_group_list_; gh_pair_p (p); p =ly_cdr (p))
 127     {
 128       Translator * t = unsmob_translator (ly_car (p));
 129       Engraver*eng = dynamic_cast<Engraver*> (t);
 130       if (eng)
 131         eng->process_music ();
 132     }
 133 }
 134
 135 void
 136 Engraver_group_engraver::initialize ()
 137 {
 138   SCM tab = scm_make_vector (gh_int2scm (61), SCM_BOOL_F); // magic ->
 139   set_property ("acknowledgeHashTable", tab);
 140
 141   Translator_group::initialize ();
 142 }
 143
 144 Engraver_group_engraver::Engraver_group_engraver() {}
 145
 146 ENTER_DESCRIPTION(Engraver_group_engraver,
 147 /* descr */       "A group of engravers taken together",
 148 /* creats*/       "",
 149 /* acks  */       "",
 150 /* reads */       "",
 151 /* write */       "");
 152
 153
 154
 155 /*****************/
 156
 157
 158 bool engraver_valid (Translator*tr, SCM ifaces)
 159 {
 160   SCM ack_ifs = scm_assoc (ly_symbol2scm ("interfaces-acked"), tr->translator_description());
 161   ack_ifs = gh_cdr (ack_ifs);
 162   for (SCM s = ifaces; ly_pair_p (s); s = ly_cdr (s))
 163     if (scm_memq (ly_car (s), ack_ifs) != SCM_BOOL_F)
 164       return true;
 165   return false;
 166 }
 167
 168
 169 SCM
 170 find_acknowledge_engravers (SCM gravlist, SCM meta_alist)
 171 {
 172   SCM ifaces = gh_cdr (scm_assoc (ly_symbol2scm ("interfaces"), meta_alist));
 173
 174   SCM l = SCM_EOL;
 175   for (SCM s = gravlist; ly_pair_p (s);  s = ly_cdr (s))
 176     {
 177       Translator* tr = unsmob_translator (ly_car (s));
 178       if (engraver_valid (tr, ifaces))
 179         l = scm_cons (tr->self_scm (), l);
 180     }
 181   l = scm_reverse_x (l, SCM_EOL);
 182
 183   return l;
 184 }