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>
10 #include "translator-dispatch-list.hh"
12 #include "grob-info.hh"
13 #include "engraver.hh"
15 #include "ly-smobs.icc"
18 Engraver_dispatch_list::apply (Grob_info gi)
20 Translator *origin = gi.origin_translator ();
21 for (int i = 0; i < dispatch_entries_.size (); i++)
23 Engraver_dispatch_entry const &e (dispatch_entries_[i]);
24 if (e.engraver_ == origin)
27 (*e.function_) (e.engraver_, gi);
32 Engraver_dispatch_list::create (SCM trans_list,
35 SCM retval = Engraver_dispatch_list().smobbed_copy ();
36 Engraver_dispatch_list * list = Engraver_dispatch_list::unsmob (retval);
38 Engraver_dispatch_entry entry;
40 for (SCM s = trans_list; scm_is_pair (s); s = scm_cdr (s))
43 = dynamic_cast<Engraver*> (unsmob_translator (scm_car (s)));
48 entry.engraver_ = eng;
49 for (SCM i = iface_list; scm_is_pair (i); i = scm_cdr (i))
51 Engraver_void_function_engraver_grob_info ptr
52 = eng->get_acknowledger (scm_car (i));
55 entry.function_ = ptr;
56 list->dispatch_entries_.push (entry);
64 return found ? retval : SCM_EOL;
68 Engraver_dispatch_list::mark_smob (SCM x)
76 Engraver_dispatch_list::print_smob (SCM x, SCM p, scm_print_state *)
79 scm_puts ("#<Engraver_dispatch_list>", p);
83 IMPLEMENT_SIMPLE_SMOBS(Engraver_dispatch_list);
84 IMPLEMENT_DEFAULT_EQUAL_P(Engraver_dispatch_list);