2 translator-dispatch-list.cc -- implement Translator_dispatch_list
4 source file of the GNU LilyPond music typesetter
6 (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "translator-dispatch-list.hh"
11 #include "grob-info.hh"
12 #include "engraver.hh"
14 #include "ly-smobs.icc"
17 Engraver_dispatch_list::apply (Grob_info gi)
19 Translator *origin = gi.origin_translator ();
20 for (int i = 0; i < dispatch_entries_.size (); i++)
22 Engraver_dispatch_entry const &e (dispatch_entries_[i]);
23 if (e.engraver_ == origin)
26 (*e.function_) (e.engraver_, gi);
31 Engraver_dispatch_list::create (SCM trans_list,
34 SCM retval = Engraver_dispatch_list ().smobbed_copy ();
35 Engraver_dispatch_list *list = Engraver_dispatch_list::unsmob (retval);
37 Engraver_dispatch_entry entry;
39 for (SCM s = trans_list; scm_is_pair (s); s = scm_cdr (s))
42 = dynamic_cast<Engraver *> (unsmob_translator (scm_car (s)));
47 entry.engraver_ = eng;
48 for (SCM i = iface_list; scm_is_pair (i); i = scm_cdr (i))
50 Engraver_void_function_engraver_grob_info ptr
51 = eng->get_acknowledger (scm_car (i));
54 entry.function_ = ptr;
55 list->dispatch_entries_.push (entry);
61 return found ? retval : SCM_EOL;
65 Engraver_dispatch_list::mark_smob (SCM x)
72 Engraver_dispatch_list::print_smob (SCM x, SCM p, scm_print_state *)
75 scm_puts ("#<Engraver_dispatch_list>", p);
79 IMPLEMENT_SIMPLE_SMOBS (Engraver_dispatch_list);
80 IMPLEMENT_DEFAULT_EQUAL_P (Engraver_dispatch_list);