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
  10 #include "translator-dispatch-list.hh"
  11
  12 #include "grob-info.hh"
  13 #include "engraver.hh"
  14
  15 #include "ly-smobs.icc"
  16
  17 void
  18 Engraver_dispatch_list::apply (Grob_info gi)
  19 {
  20   for (int i = 0; i < dispatch_entries_.size (); i++)
  21     {
  22       Engraver_dispatch_entry const &e (dispatch_entries_[i]);
  23       if (e.engraver_ == gi.origin_translator ())
  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
  62
  63   return found ? retval : SCM_EOL;
  64 }
  65
  66 SCM
  67 Engraver_dispatch_list::mark_smob (SCM x)
  68 {
  69   (void)x;
  70   return SCM_BOOL_F;
  71 }
  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);