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 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 (int 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)
  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             = eng->get_acknowledger (scm_car (i));
  52           if (ptr)
  53             {
  54               entry.function_ = ptr;
  55               list->dispatch_entries_.push (entry);
  56               found = true;
  57             }
  58         }
  59     }
  60
  61   return found ? retval : SCM_EOL;
  62 }
  63
  64 SCM
  65 Engraver_dispatch_list::mark_smob (SCM x)
  66 {
  67   (void)x;
  68   return SCM_BOOL_F;
  69 }
  70
  71 int
  72 Engraver_dispatch_list::print_smob (SCM x, SCM p, scm_print_state *)
  73 {
  74   (void)x;
  75   scm_puts ("#<Engraver_dispatch_list>", p);
  76   return 1;
  77 }
  78
  79 IMPLEMENT_SIMPLE_SMOBS (Engraver_dispatch_list);
  80 IMPLEMENT_DEFAULT_EQUAL_P (Engraver_dispatch_list);