+class Chord_name_engraver : public Engraver
+{
+ TRANSLATOR_DECLARATIONS ( Chord_name_engraver);
+protected:
+ virtual void stop_translation_timestep ();
+ virtual void process_music ();
+ virtual bool try_music (Music *);
+ virtual void finalize ();
+ virtual void derived_mark () const;
+private:
+ void add_note (Music *);
+
+ Item* chord_name_;
+ Link_array<Music> notes_;
+
+ SCM last_chord_;
+};
+
+
+
+void
+Chord_name_engraver::finalize ()
+{
+}
+
+void
+Chord_name_engraver::derived_mark() const
+{
+ scm_gc_mark (last_chord_);
+}