lily/engraver-group-engraver.cc

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