]> git.donarmstrong.com Git - lilypond.git/blob - lily/performer.cc
Run grand-replace (issue 3765)
[lilypond.git] / lily / performer.cc
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 1996--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
5   Jan Nieuwenhuizen <janneke@gnu.org>
6
7   LilyPond is free software: you can redistribute it and/or modify
8   it under the terms of the GNU General Public License as published by
9   the Free Software Foundation, either version 3 of the License, or
10   (at your option) any later version.
11
12   LilyPond is distributed in the hope that it will be useful,
13   but WITHOUT ANY WARRANTY; without even the implied warranty of
14   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15   GNU General Public License for more details.
16
17   You should have received a copy of the GNU General Public License
18   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
19 */
20
21 #include "context.hh"
22 #include "performer.hh"
23 #include "performer-group.hh"
24 #include "warn.hh"
25
26 Performer_group *
27 Performer::get_daddy_performer () const
28 {
29   return
30     dynamic_cast<Performer_group *> (get_daddy_translator ());
31 }
32
33 void
34 Performer::acknowledge_audio_element (Audio_element_info)
35 {
36 }
37
38 void
39 Performer::create_audio_elements ()
40 {
41 }
42
43 void
44 Performer::announce_element (Audio_element_info i)
45 {
46   if (!i.origin_trans_)
47     i.origin_trans_ = this;
48
49   get_daddy_performer ()->announce_element (i);
50 }
51
52 Performer *
53 unsmob_performer (SCM perf)
54 {
55   return dynamic_cast<Performer *> (unsmob_translator (perf));
56 }