]> git.donarmstrong.com Git - lilypond.git/blob - lily/swallow-perf.cc
*** empty log message ***
[lilypond.git] / lily / swallow-perf.cc
1 /*
2   swallow-perf.cc -- implement Swallow_performer
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "performer.hh"
10
11 class Swallow_performer : public Performer
12 {
13 public:
14   TRANSLATOR_DECLARATIONS (Swallow_performer);
15 protected:
16   virtual bool try_music (Music*);
17 };
18
19 bool
20 Swallow_performer::try_music (Music *m)
21 {
22   if (m->is_mus_type ("busy-playing-event")
23       || m->is_mus_type ("melisma-playing-event"))
24     return false;
25   else
26     return true; 
27 }
28
29 Swallow_performer::Swallow_performer ()
30 {}
31
32 ADD_TRANSLATOR (Swallow_performer,
33 /* descr */       "",
34 /* creats*/       "",
35 /* accepts */     "general-music",
36 /* acks  */      "",
37 /* reads */       "",
38 /* write */       "");