source file of the GNU LilyPond music typesetter
- (c) 1997--1998 Han-Wen Nienhuys <hanwen@stack.nl>
+ (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-#include "swallow-perf.hh"
+#include "performer.hh"
+class Swallow_performer : public Performer
+{
+public:
+ TRANSLATOR_DECLARATIONS(Swallow_performer);
+protected:
+ virtual bool try_music (Music*);
+};
-IMPLEMENT_IS_TYPE_B1(Swallow_performer, Performer);
-ADD_THIS_TRANSLATOR(Swallow_performer);
+bool
+Swallow_performer::try_music (Music *m)
+{
+ if (m->is_mus_type ("busy-playing-event")
+ || m->is_mus_type ("melisma-playing-event"))
+ return false;
+ else
+ return true;
+}
+
+Swallow_performer::Swallow_performer()
+{}
+
+ENTER_DESCRIPTION(Swallow_performer,
+/* descr */ "",
+/* creats*/ "",
+/* accepts */ "general-music",
+/* acks */ "",
+/* reads */ "",
+/* write */ "");