X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftime-signature-engraver.cc;h=e4e76e17d685154c2868ab75c2efd8d8feae5dbe;hb=97a0169312a260933246ab224e4f8b0969871dd5;hp=521d3ca2d9fd2aac5905724a8e0ba4ef74180d2d;hpb=958e95822083954cad00e0a598eb9f12ceba67b9;p=lilypond.git diff --git a/lily/time-signature-engraver.cc b/lily/time-signature-engraver.cc index 521d3ca2d9..e4e76e17d6 100644 --- a/lily/time-signature-engraver.cc +++ b/lily/time-signature-engraver.cc @@ -43,7 +43,7 @@ protected: void process_music (); public: TRANSLATOR_DECLARATIONS (Time_signature_engraver); - DECLARE_TRANSLATOR_LISTENER (time_signature); + void listen_time_signature (Stream_event *); }; void @@ -53,14 +53,14 @@ Time_signature_engraver::derived_mark () const scm_gc_mark (time_cause_); } -Time_signature_engraver::Time_signature_engraver () +Time_signature_engraver::Time_signature_engraver (Context *c) + : Engraver (c) { time_signature_ = 0; time_cause_ = SCM_EOL; last_time_fraction_ = SCM_BOOL_F; } -IMPLEMENT_TRANSLATOR_LISTENER (Time_signature_engraver, time_signature); void Time_signature_engraver::listen_time_signature (Stream_event *ev) { @@ -74,8 +74,7 @@ Time_signature_engraver::process_music () return; SCM fr = get_property ("timeSignatureFraction"); - if (last_time_fraction_ != fr - && scm_is_pair (fr)) + if (!scm_is_eq (last_time_fraction_, fr) && scm_is_pair (fr)) { time_signature_ = make_item ("TimeSignature", time_cause_); time_signature_->set_property ("fraction", fr); @@ -116,7 +115,11 @@ Time_signature_engraver::stop_translation_timestep () time_cause_ = SCM_EOL; } -#include "translator.icc" +void +Time_signature_engraver::boot () +{ + ADD_LISTENER (Time_signature_engraver, time_signature); +} ADD_TRANSLATOR (Time_signature_engraver, /* doc */