2
translator-group-ctors.cc -- implement Translator_group factory.
4
source file of the GNU LilyPond music typesetter
6
(c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
9
#include "score-engraver.hh"
10
#include "score-performer.hh"
11
#include "engraver-group.hh"
12
#include "performer-group.hh"
13
#include "recording-group-engraver.hh"
20
get_translator_group (SCM sym)
22
if (sym == ly_symbol2scm ("Engraver_group"))
23
return new Engraver_group ();
24
else if (sym == ly_symbol2scm ("Performer_group"))
25
return new Performer_group ();
26
else if (sym == ly_symbol2scm ("Score_engraver"))
27
return new Score_engraver ();
28
else if (sym == ly_symbol2scm ("Score_performer"))
29
return new Score_performer ();
30
else if (sym == ly_symbol2scm ("Recording_group_engraver"))
31
return new Recording_group_engraver ();
33
programming_error ("Couldn't find type");
34
scm_flush (scm_current_error_port ());
35
scm_display (sym, scm_current_error_port ());
36
scm_flush (scm_current_error_port ());