source file of the GNU LilyPond music typesetter
- (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 2000--2001 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "engraver.hh"
VIRTUAL_COPY_CONS (Translator);
protected:
- virtual void acknowledge_element (Score_element_info);
+ virtual void acknowledge_grob (Grob_info);
};
ADD_THIS_TRANSLATOR (Thread_devnull_engraver);
void
-Thread_devnull_engraver::acknowledge_element (Score_element_info i)
+Thread_devnull_engraver::acknowledge_grob (Grob_info i)
{
- if (daddy_trans_l_->id_str_ == "two"
- && (to_boolean (get_property ("unison"))
- || to_boolean (get_property ("unisilence")))
- && to_boolean (get_property ("soloADue")))
- i.elem_l_->suicide ();
+ SCM s = get_property ("devNullThread");
+#if 0
+ /* No need, next if will never be true */
+ if (s == ly_symbol2scm ("never"))
+ return;
+#endif
+
+ if (s == ly_symbol2scm ("allways")
+ || (s == SCM_EOL
+ && daddy_trans_l_->id_str_.left_str (3) == "two"
+ && (to_boolean (get_property ("unison"))
+ || to_boolean (get_property ("unisilence")))
+ && to_boolean (get_property ("soloADue"))))
+ {
+ /* Ugh, we can suicide them, but they remain living */
+ i.elem_l_->suicide ();
+ }
}