X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstaff-collecting-engraver.cc;h=72b1bf51cd5a5d7cb95502e470e1e65da331faa6;hb=794a037c19a838dd56ceb59e2280059fb80d944a;hp=ad8ca8546af9166f6c8f18b60e4660362d37dfa6;hpb=58bcc84c9480dae1b21bc24d8396b91fe19e0131;p=lilypond.git diff --git a/lily/staff-collecting-engraver.cc b/lily/staff-collecting-engraver.cc index ad8ca8546a..72b1bf51cd 100644 --- a/lily/staff-collecting-engraver.cc +++ b/lily/staff-collecting-engraver.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 2001--2005 Han-Wen Nienhuys + (c) 2001--2007 Han-Wen Nienhuys */ #include "staff-symbol.hh" @@ -15,31 +15,40 @@ class Staff_collecting_engraver : public Engraver { public: TRANSLATOR_DECLARATIONS (Staff_collecting_engraver); - virtual void acknowledge_grob (Grob_info); + DECLARE_ACKNOWLEDGER (staff_symbol); + DECLARE_END_ACKNOWLEDGER (staff_symbol); }; Staff_collecting_engraver::Staff_collecting_engraver () { +} + +void +Staff_collecting_engraver::acknowledge_staff_symbol (Grob_info gi) +{ + SCM staffs = get_property ("stavesFound"); + staffs = scm_cons (gi.grob ()->self_scm (), staffs); + context ()->set_property ("stavesFound", staffs); } void -Staff_collecting_engraver::acknowledge_grob (Grob_info gi) +Staff_collecting_engraver::acknowledge_end_staff_symbol (Grob_info gi) { - if (Staff_symbol::has_interface (gi.grob_)) - { - SCM staffs = get_property ("stavesFound"); - staffs = scm_cons (gi.grob_->self_scm (), staffs); + SCM staffs = get_property ("stavesFound"); + staffs = scm_delq (gi.grob ()->self_scm (), staffs); - context ()->set_property ("stavesFound", staffs); - } + context ()->set_property ("stavesFound", staffs); } +#include "translator.icc" + +ADD_ACKNOWLEDGER (Staff_collecting_engraver, staff_symbol); +ADD_END_ACKNOWLEDGER (Staff_collecting_engraver, staff_symbol); + ADD_TRANSLATOR (Staff_collecting_engraver, - /* descr */ "Maintain the stavesFound variable", + /* doc */ "Maintain the stavesFound variable", - /* creats*/ "", - /* accepts */ "", - /* acks */ "staff-symbol-interface", - /* reads */ "stavesFound", + /* create */ "", + /* read */ "stavesFound", /* write */ "stavesFound");