Merge commit 'origin/dev/jneeman' into systems-per-page

[lilypond.git] / lily / translator-dispatch-list.cc

diff --git a/lily/translator-dispatch-list.cc b/lily/translator-dispatch-list.cc
index 91978565972d57f843fbec9685b86537e46ed59f..bf8c70e0038975943bfcf13d6d2b47373398d9d0 100644 (file)
--- 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 <hanwen@xs4all.nl>
+  (c) 2005--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #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 ("#<Engraver_dispatch_list>", p);
   return 1;
 }