lily/translator-group.cc

   1 /*
   2   translator-group.cc -- implement Translator_group
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "translator-group.hh"
  10
  11 #include "output-def.hh"
  12 #include "warn.hh"
  13 #include "scm-hash.hh"
  14 #include "context-def.hh"
  15 #include "context.hh"
  16 #include "main.hh"
  17 #include "music.hh"
  18
  19 Translator_group *
  20 Translator_group::get_daddy_translator () const
  21 {
  22   return context ()->get_parent_context ()->implementation ();
  23 }
  24
  25 void
  26 translator_each (SCM list, Translator_method method)
  27 {
  28   for (SCM p = list; scm_is_pair (p); p = scm_cdr (p))
  29     (unsmob_translator (scm_car (p))->*method) ();
  30 }
  31
  32 void
  33 Translator_group::initialize ()
  34 {
  35   SCM tab = scm_make_vector (scm_int2num (19), SCM_BOOL_F);
  36   context ()->set_property ("acceptHashTable", tab);
  37 }
  38
  39 bool
  40 translator_accepts_any_of (Translator *tr, SCM ifaces)
  41 {
  42   SCM ack_ifs = scm_assoc (ly_symbol2scm ("events-accepted"),
  43                            tr->translator_description ());
  44   ack_ifs = scm_cdr (ack_ifs);
  45   for (SCM s = ifaces; scm_is_pair (s); s = scm_cdr (s))
  46     if (scm_c_memq (scm_car (s), ack_ifs) != SCM_BOOL_F)
  47       return true;
  48   return false;
  49 }
  50
  51 SCM
  52 find_accept_translators (SCM gravlist, SCM ifaces)
  53 {
  54   SCM l = SCM_EOL;
  55   for (SCM s = gravlist; scm_is_pair (s); s = scm_cdr (s))
  56     {
  57       Translator *tr = unsmob_translator (scm_car (s));
  58       if (translator_accepts_any_of (tr, ifaces))
  59         l = scm_cons (tr->self_scm (), l);
  60     }
  61   l = scm_reverse_x (l, SCM_EOL);
  62
  63   return l;
  64 }
  65
  66 bool
  67 Translator_group::try_music (Music *m)
  68 {
  69   SCM tab = get_property ("acceptHashTable");
  70   SCM name = scm_sloppy_assq (ly_symbol2scm ("name"),
  71                               m->get_property_alist (false));
  72
  73   if (!scm_is_pair (name))
  74     return false;
  75
  76   name = scm_cdr (name);
  77   SCM accept_list = scm_hashq_ref (tab, name, SCM_UNDEFINED);
  78   if (accept_list == SCM_BOOL_F)
  79     {
  80       accept_list = find_accept_translators (get_simple_trans_list (),
  81                                              m->get_property ("types"));
  82       scm_hashq_set_x (tab, name, accept_list);
  83     }
  84
  85   for (SCM p = accept_list; scm_is_pair (p); p = scm_cdr (p))
  86     {
  87       Translator *t = unsmob_translator (scm_car (p));
  88       if (t && t->try_music (m))
  89         return true;
  90     }
  91   return false;
  92 }
  93
  94 SCM
  95 Translator_group::get_simple_trans_list ()
  96 {
  97   return simple_trans_list_;
  98 }
  99
 100
 101 void
 102 recurse_over_translators (Context *c, Translator_method ptr, Direction dir)
 103 {
 104   Translator_group *tg
 105     = dynamic_cast<Translator_group *> (c->implementation ());
 106
 107   if (dir == DOWN)
 108     {
 109       translator_each (tg->get_simple_trans_list (),
 110                        ptr);
 111
 112       (tg->*ptr) ();
 113     }
 114
 115   for (SCM s = c->children_contexts (); scm_is_pair (s);
 116        s = scm_cdr (s))
 117     {
 118       recurse_over_translators (unsmob_context (scm_car (s)), ptr, dir);
 119     }
 120
 121   if (dir == UP)
 122     {
 123       translator_each (tg->get_simple_trans_list (),
 124                        ptr);
 125
 126       (tg->*ptr) ();
 127     }
 128 }
 129
 130 Translator_group::Translator_group ()
 131 {
 132   simple_trans_list_ = SCM_EOL;
 133 }
 134
 135 void
 136 Translator_group::derived_mark () const
 137 {
 138   scm_gc_mark (simple_trans_list_);
 139 }