2 translator-group-ctors.cc -- implement Translator_group factory.
4 source file of the GNU LilyPond music typesetter
6 (c) 2005 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 ());