X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstaff-collecting-engraver.cc;h=97711c89b55c75ba594b709295033f60dd88f9bd;hb=97a0169312a260933246ab224e4f8b0969871dd5;hp=5d3e154baba54c9fa6edfe60e9bc0f6cf3205c20;hpb=14d74ac262744d16fc753ee41042d32860d58633;p=lilypond.git diff --git a/lily/staff-collecting-engraver.cc b/lily/staff-collecting-engraver.cc index 5d3e154bab..97711c89b5 100644 --- a/lily/staff-collecting-engraver.cc +++ b/lily/staff-collecting-engraver.cc @@ -1,11 +1,21 @@ -/* -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--2015 Han-Wen Nienhuys -(c) 2001--2004 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" @@ -16,32 +26,53 @@ class Staff_collecting_engraver : public Engraver { public: TRANSLATOR_DECLARATIONS (Staff_collecting_engraver); - virtual void acknowledge_grob (Grob_info); + void acknowledge_staff_symbol (Grob_info); + void acknowledge_end_staff_symbol (Grob_info); }; -Staff_collecting_engraver::Staff_collecting_engraver () +Staff_collecting_engraver::Staff_collecting_engraver (Context *c) + : Engraver (c) { - } void -Staff_collecting_engraver::acknowledge_grob (Grob_info gi) +Staff_collecting_engraver::acknowledge_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_cons (gi.grob ()->self_scm (), staffs); - context ()->set_property ("stavesFound", staffs); - } + context ()->set_property ("stavesFound", staffs); } +void +Staff_collecting_engraver::acknowledge_end_staff_symbol (Grob_info gi) +{ + SCM staffs = get_property ("stavesFound"); + staffs = scm_delq (gi.grob ()->self_scm (), staffs); + + context ()->set_property ("stavesFound", staffs); +} + +#include "translator.icc" + + +void +Staff_collecting_engraver::boot () +{ + 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 @code{stavesFound} variable.", + + /* create */ + "", + + /* read */ + "stavesFound ", -/* creats*/ "", -/* accepts */ "", -/* acks */ "staff-symbol-interface", -/* reads */ "stavesFound", -/* write */ "stavesFound"); + /* write */ + "stavesFound " + );