X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstaff-collecting-engraver.cc;h=6bfe49420be4596c41b24df3babfbd0b77d4ba40;hb=9e781b7dc83b60a543ce218aa1a5f139f74c760f;hp=f885cc6149a3260f1e4c2347d359d4551e76ec21;hpb=7aabfb20c46e0a1de41698ddc6859ccd3a6dea85;p=lilypond.git diff --git a/lily/staff-collecting-engraver.cc b/lily/staff-collecting-engraver.cc index f885cc6149..6bfe49420b 100644 --- a/lily/staff-collecting-engraver.cc +++ b/lily/staff-collecting-engraver.cc @@ -1,46 +1,72 @@ -/* -staff-collecting-engraver.cc -- implement Staff_collecting_engraver +/* + This file is part of LilyPond, the GNU music typesetter. -source file of the GNU LilyPond music typesetter + Copyright (C) 2001--2014 Han-Wen Nienhuys -(c) 2001--2003 Han-Wen Nienhuys + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . +*/ - */ #include "staff-symbol.hh" #include "engraver.hh" #include "grob.hh" -#include "translator-group.hh" +#include "context.hh" class Staff_collecting_engraver : public Engraver { public: - TRANSLATOR_DECLARATIONS(Staff_collecting_engraver); - virtual void acknowledge_grob (Grob_info); + TRANSLATOR_DECLARATIONS (Staff_collecting_engraver); + DECLARE_ACKNOWLEDGER (staff_symbol); + DECLARE_END_ACKNOWLEDGER (staff_symbol); }; Staff_collecting_engraver::Staff_collecting_engraver () { - } void -Staff_collecting_engraver::acknowledge_grob (Grob_info gi) +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_end_staff_symbol (Grob_info gi) { - if (Staff_symbol::has_interface (gi.grob_)) - { - SCM staffs = get_property ("stavesFound"); - staffs = gh_cons (gi.grob_->self_scm (), staffs); + SCM staffs = get_property ("stavesFound"); + staffs = scm_delq (gi.grob ()->self_scm (), staffs); - daddy_trans_->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, + /* doc */ + "Maintain the @code{stavesFound} variable.", + + /* create */ + "", -ENTER_DESCRIPTION(Staff_collecting_engraver, -/* descr */ "Maintain the stavesFound variable", + /* read */ + "stavesFound ", -/* creats*/ "", -/* accepts */ "", -/* acks */ "staff-symbol-interface", -/* reads */ "stavesFound", -/* write */ "stavesFound"); + /* write */ + "stavesFound " + );