]> git.donarmstrong.com Git - lilypond.git/blob - lily/swallow-perf.cc
a2e3aa7b85b3306a77914ae290eb2d52de5e55af
[lilypond.git] / lily / swallow-perf.cc
1 /*
2   swallow-performer.cc -- implement Swallow_performer
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "performer.hh"
10 #include "music.hh"
11
12 class Swallow_performer : public Performer
13 {
14 public:
15   TRANSLATOR_DECLARATIONS (Swallow_performer);
16 protected:
17   virtual bool try_music (Music *);
18 };
19
20 bool
21 Swallow_performer::try_music (Music *m)
22 {
23   if (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 #include "translator.icc"
33
34 ADD_TRANSLATOR (Swallow_performer,
35                 /* doc */ "",
36                 /* create */ "",
37                 /* accept */ "general-music",
38                 /* read */ "",
39                 /* write */ "");