lily/translator-dispatch-list.cc

   1 /*
   2   translator-dispatch-list.cc -- implement Translator_dispatch_list
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "translator-dispatch-list.hh"
  10
  11 #include "grob-info.hh"
  12 #include "engraver.hh"
  13
  14 #include "ly-smobs.icc"
  15
  16 void
  17 Engraver_dispatch_list::apply (Grob_info gi)
  18 {
  19   Translator *origin = gi.origin_translator ();
  20   for (vsize i = 0; i < dispatch_entries_.size (); i++)
  21     {
  22       Engraver_dispatch_entry const &e (dispatch_entries_[i]);
  23       if (e.engraver_ == origin)
  24         continue;
  25
  26       (*e.function_) (e.engraver_, gi);
  27     }
  28 }
  29
  30 SCM
  31 Engraver_dispatch_list::create (SCM trans_list,
  32                                 SCM iface_list, Direction start_end)
  33 {
  34   SCM retval = Engraver_dispatch_list ().smobbed_copy ();
  35   Engraver_dispatch_list *list = Engraver_dispatch_list::unsmob (retval);
  36
  37   Engraver_dispatch_entry entry;
  38   bool found = false;
  39   for (SCM s = trans_list; scm_is_pair (s); s = scm_cdr (s))
  40     {
  41       Engraver *eng
  42         = dynamic_cast<Engraver *> (unsmob_translator (scm_car (s)));
  43
  44       if (!eng)
  45         continue;
  46
  47       entry.engraver_ = eng;
  48       for (SCM i = iface_list; scm_is_pair (i); i = scm_cdr (i))
  49         {
  50           Engraver_void_function_engraver_grob_info ptr
  51             = (start_end == START)
  52             ? eng->get_acknowledger (scm_car (i))
  53             : eng->get_end_acknowledger (scm_car (i));
  54
  55           if (ptr)
  56             {
  57               entry.function_ = ptr;
  58               list->dispatch_entries_.push_back (entry);
  59               found = true;
  60             }
  61         }
  62     }
  63
  64   return found ? retval : SCM_EOL;
  65 }
  66
  67 SCM
  68 Engraver_dispatch_list::mark_smob (SCM x)
  69 {
  70   (void)x;
  71   return SCM_BOOL_F;
  72 }
  73
  74 int
  75 Engraver_dispatch_list::print_smob (SCM x, SCM p, scm_print_state *)
  76 {
  77   (void)x;
  78   scm_puts ("#<Engraver_dispatch_list>", p);
  79   return 1;
  80 }
  81
  82 IMPLEMENT_SIMPLE_SMOBS (Engraver_dispatch_list);
  83 IMPLEMENT_DEFAULT_EQUAL_P (Engraver_dispatch_list);