+ a name to be attached to lyrics or chords.
+ */
+ if (scm_is_string (get_property ("whichBar"))
+ || first_)
+ create_text ();
+}
+
+#include "translator.icc"
+
+ADD_ACKNOWLEDGER (Instrument_name_engraver, bar_line);
+ADD_ACKNOWLEDGER (Instrument_name_engraver, axis_group);
+
+ADD_TRANSLATOR (Instrument_name_engraver,
+ /* doc */ " Prints the name of the instrument (specified by "
+ " @code{Staff.instrument} and @code{Staff.instr}) "
+ "at the left of the staff. ",
+ /* create */ "InstrumentName",
+ /* accept */ "",
+ /* read */ "instrument instr",
+ /* write */ "");
+
+/****************************************************************/
+
+class Vocal_name_engraver : public Instrument_name_engraver
+{
+public:
+ TRANSLATOR_DECLARATIONS (Vocal_name_engraver);
+ virtual void create_text ();
+};
+
+Vocal_name_engraver::Vocal_name_engraver ()
+{
+}
+
+void
+Vocal_name_engraver::create_text ()
+{
+ if (text_)
+ return;
+
+ SCM txt = get_property ("vocalName");
+
+ if (now_mom () > Moment (0))
+ txt = get_property ("vocNam");
+
+ /*
+ UGH.
+ */
+ if (txt == SCM_EOL)
+ return;
+
+ text_ = make_item ("VocalName", SCM_EOL);
+
+ if (text_->get_property ("text") != txt)
+ text_->set_property ("text", txt);