X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstaff-symbol-engraver.cc;h=fad9f0437900d5765301d6eb82376b9ce714d38e;hb=97a0169312a260933246ab224e4f8b0969871dd5;hp=520bcc701ddef5a33301b8a0502d4b76e0b35ac9;hpb=a4d7106c75b325441063fd9ba9c4131979784aa5;p=lilypond.git diff --git a/lily/staff-symbol-engraver.cc b/lily/staff-symbol-engraver.cc index 520bcc701d..fad9f04379 100644 --- a/lily/staff-symbol-engraver.cc +++ b/lily/staff-symbol-engraver.cc @@ -1,80 +1,186 @@ /* - staff-symbol-engraver.cc -- implement Staff_symbol_engraver + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 1997--2015 Han-Wen Nienhuys - (c) 1997--2000 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 "score.hh" -#include "paper-column.hh" -#include "paper-def.hh" -#include "side-position-interface.hh" #include "engraver.hh" -#include "moment.hh" +#include "international.hh" +#include "spanner.hh" +#include "stream-event.hh" +#include "warn.hh" -/** - Manage the staff symbol. - */ -class Staff_symbol_engraver : public Engraver { - Spanner *span_p_; +#include "translator.icc" + +class Staff_symbol_engraver : public Engraver +{ public: - VIRTUAL_COPY_CONS(Translator); - Staff_symbol_engraver(); - + TRANSLATOR_DECLARATIONS (Staff_symbol_engraver); + protected: - virtual ~Staff_symbol_engraver(); - virtual void acknowledge_element (Score_element_info); - virtual void do_removal_processing(); - virtual void do_creation_processing(); + Drul_array span_events_; + Spanner *span_; + Spanner *finished_span_; + bool first_start_; + +protected: + virtual void start_spanner (); + virtual void stop_spanner (); + + void stop_translation_timestep (); + virtual ~Staff_symbol_engraver (); + void acknowledge_grob (Grob_info); + void listen_staff_span (Stream_event *); + virtual void finalize (); + void process_music (); + virtual void derived_mark () const; }; +void +Staff_symbol_engraver::derived_mark () const +{ + for (LEFT_and_RIGHT (d)) + { + if (span_events_[d]) + scm_gc_mark (span_events_[d]->self_scm ()); + } +} + +Staff_symbol_engraver::~Staff_symbol_engraver () +{ + if (span_) + { + // Somehow finalize() was not called? + programming_error ("Have a pending spanner in destructor."); + } +} + +Staff_symbol_engraver::Staff_symbol_engraver (Context *c) + : Engraver (c) +{ + finished_span_ = 0; + first_start_ = true; + span_ = 0; + span_events_.set (0, 0); +} + +void +Staff_symbol_engraver::listen_staff_span (Stream_event *ev) +{ + Direction d = to_dir (ev->get_property ("span-direction")); + if (d) + ASSIGN_EVENT_ONCE (span_events_[d], ev); + else + programming_error ("staff-span event has no direction"); +} + +void +Staff_symbol_engraver::process_music () +{ + if (span_events_[STOP]) + { + finished_span_ = span_; + span_ = 0; + if (first_start_) + first_start_ = false; + } + + if (span_events_[START] + || (first_start_ && !span_events_[STOP])) + start_spanner (); +} -Staff_symbol_engraver::~Staff_symbol_engraver() +void +Staff_symbol_engraver::start_spanner () { - assert (!span_p_); + if (!span_) + { + span_ = make_spanner ("StaffSymbol", SCM_EOL); + span_->set_bound (LEFT, + unsmob (get_property ("currentCommandColumn"))); + } } -Staff_symbol_engraver::Staff_symbol_engraver() +void +Staff_symbol_engraver::stop_spanner () { - span_p_ = 0; + if (!finished_span_) + return; + + if (!finished_span_->get_bound (RIGHT)) + finished_span_->set_bound (RIGHT, unsmob (get_property ("currentCommandColumn"))); + + announce_end_grob (finished_span_, + span_events_[STOP] + ? span_events_[STOP]->self_scm () + : SCM_EOL); + + finished_span_ = 0; } void -Staff_symbol_engraver::do_creation_processing() +Staff_symbol_engraver::stop_translation_timestep () { - span_p_ = new Spanner (get_property ("StaffSymbol")); - - span_p_->set_bound(LEFT, unsmob_element (get_property ("currentCommandColumn"))); + if ((span_events_[START] || first_start_) + && span_) + first_start_ = false; - announce_element (span_p_, 0); + span_events_.set (0, 0); + stop_spanner (); } void -Staff_symbol_engraver::do_removal_processing() +Staff_symbol_engraver::finalize () { - span_p_->set_bound(RIGHT,unsmob_element (get_property ("currentCommandColumn"))); - typeset_element (span_p_); - span_p_ =0; + finished_span_ = span_; + span_ = 0; + stop_spanner (); } +/* + Todo: staff-symbol-referencer iface. +*/ void -Staff_symbol_engraver::acknowledge_element (Score_element_info s) +Staff_symbol_engraver::acknowledge_grob (Grob_info s) { - ////// assert (span_p_); - ////// ik weet 't zo onderhand echt niet meer - ///// if (!span_p_) - ///// do_creation_processing (); - if (!span_p_) + if (span_ || finished_span_) { - status_ = VIRGIN; - creation_processing (); + Spanner *my = span_ ? span_ : finished_span_; + s.grob ()->set_object ("staff-symbol", my->self_scm ()); } - s.elem_l_->set_elt_property ("staff-symbol", span_p_->self_scm ()); - s.elem_l_->add_dependency (span_p_); // UGH. UGH. UGH } -ADD_THIS_TRANSLATOR(Staff_symbol_engraver); +void +Staff_symbol_engraver::boot () +{ + ADD_LISTENER (Staff_symbol_engraver, staff_span); + ADD_ACKNOWLEDGER (Staff_symbol_engraver, grob); +} + +ADD_TRANSLATOR (Staff_symbol_engraver, + /* doc */ + "Create the constellation of five (default) staff lines.", + + /* create */ + "StaffSymbol ", + + /* read */ + "", + /* write */ + "" + );