+void
+Instrument_name_engraver::process_music ()
+{
+ /*
+ Also create text if barlines in other groups. This allows
+ a name to be attached to lyrics or chords.
+ */
+ if (scm_is_string (get_property ("whichBar")))
+ create_text ();
+}
+
+ADD_TRANSLATOR (Instrument_name_engraver,
+/* descr */ " Prints the name of the instrument (specified by "
+" @code{Staff.instrument} and @code{Staff.instr}) "
+"at the left of the staff. ",
+/* creats*/ "InstrumentName",
+/* accepts */ "",
+/* acks */ "bar-line-interface axis-group-interface",
+/* reads */ "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);
+
+}