X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftranslator-dispatch-list.cc;h=bf8c70e0038975943bfcf13d6d2b47373398d9d0;hb=cfc4cbf34569db6a6c8968694f86e36b206a9d05;hp=91978565972d57f843fbec9685b86537e46ed59f;hpb=64313890b232c731d432e5b096f30bffc3f3756d;p=lilypond.git diff --git a/lily/translator-dispatch-list.cc b/lily/translator-dispatch-list.cc index 9197856597..bf8c70e003 100644 --- a/lily/translator-dispatch-list.cc +++ b/lily/translator-dispatch-list.cc @@ -3,12 +3,10 @@ source file of the GNU LilyPond music typesetter - (c) 2005--2006 Han-Wen Nienhuys + (c) 2005--2009 Han-Wen Nienhuys */ #include "translator-dispatch-list.hh" - -#include "grob-info.hh" #include "engraver.hh" #include "ly-smobs.icc" @@ -29,7 +27,7 @@ Engraver_dispatch_list::apply (Grob_info gi) SCM Engraver_dispatch_list::create (SCM trans_list, - SCM iface_list) + SCM iface_list, Direction start_end) { SCM retval = Engraver_dispatch_list ().smobbed_copy (); Engraver_dispatch_list *list = Engraver_dispatch_list::unsmob (retval); @@ -48,7 +46,10 @@ Engraver_dispatch_list::create (SCM trans_list, for (SCM i = iface_list; scm_is_pair (i); i = scm_cdr (i)) { Engraver_void_function_engraver_grob_info ptr - = eng->get_acknowledger (scm_car (i)); + = (start_end == START) + ? eng->get_acknowledger (scm_car (i)) + : eng->get_end_acknowledger (scm_car (i)); + if (ptr) { entry.function_ = ptr; @@ -62,16 +63,16 @@ Engraver_dispatch_list::create (SCM trans_list, } SCM -Engraver_dispatch_list::mark_smob (SCM x) +Engraver_dispatch_list::mark_smob (SCM) { - (void)x; return SCM_BOOL_F; } int -Engraver_dispatch_list::print_smob (SCM x, SCM p, scm_print_state *) +Engraver_dispatch_list::print_smob (SCM /* x */, + SCM p, + scm_print_state *) { - (void)x; scm_puts ("#", p); return 1; }