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   Translator *origin = gi.origin_translator ();
  21   for (int i = 0; i < dispatch_entries_.size (); i++)
  22     {
  23       Engraver_dispatch_entry const &e (dispatch_entries_[i]);
  24       if (e.engraver_ == origin)
  25         continue;
  26
  27       (*e.function_) (e.engraver_, gi);
  28     }
  29 }
  30
  31 SCM
  32 Engraver_dispatch_list::create (SCM trans_list,
  33                                 SCM iface_list)
  34 {
  35   SCM retval = Engraver_dispatch_list().smobbed_copy ();
  36   Engraver_dispatch_list * list = Engraver_dispatch_list::unsmob (retval);
  37
  38   Engraver_dispatch_entry entry;
  39   bool found = false;
  40   for (SCM s = trans_list; scm_is_pair (s); s = scm_cdr (s))
  41     {
  42       Engraver * eng
  43         = dynamic_cast<Engraver*> (unsmob_translator (scm_car (s)));
  44
  45       if (!eng)
  46         continue;
  47
  48       entry.engraver_ = eng;
  49       for (SCM i =  iface_list; scm_is_pair (i); i = scm_cdr (i))
  50         {
  51           Engraver_void_function_engraver_grob_info ptr
  52             = eng->get_acknowledger (scm_car (i));
  53           if (ptr)
  54             {
  55               entry.function_ = ptr;
  56               list->dispatch_entries_.push (entry);
  57               found = true;
  58             }
  59
  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
  75 int
  76 Engraver_dispatch_list::print_smob (SCM x, SCM p, scm_print_state *)
  77 {
  78   (void)x;
  79   scm_puts ("#<Engraver_dispatch_list>", p);
  80   return 1;
  81 }
  82
  83 IMPLEMENT_SIMPLE_SMOBS(Engraver_dispatch_list);
  84 IMPLEMENT_DEFAULT_EQUAL_P(Engraver_dispatch_list);