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 for (int i = 0; i < dispatch_entries_.size (); i++)
22 Engraver_dispatch_entry const &e (dispatch_entries_[i]);
23 if (e.engraver_ == gi.origin_translator ())
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);
63 return found ? retval : SCM_BOOL_F;
67 Engraver_dispatch_list::mark_smob (SCM x)
75 Engraver_dispatch_list::print_smob (SCM x, SCM p, scm_print_state *)
78 scm_puts ("#<Engraver_dispatch_list>", p);
82 IMPLEMENT_SIMPLE_SMOBS(Engraver_dispatch_list);
83 IMPLEMENT_DEFAULT_EQUAL_P(Engraver_dispatch_list);