lily/translator-group-ctors.cc

   1 /*
   2   translator-group-ctors.cc -- implement Translator_group factory.
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "score-engraver.hh"
  10 #include "score-performer.hh"
  11 #include "engraver-group.hh"
  12 #include "performer-group.hh"
  13 #include "warn.hh"
  14
  15 /*
  16   Quick & dirty.
  17 */
  18 Translator_group *
  19 get_translator_group (SCM sym)
  20 {
  21   if (sym == ly_symbol2scm ("Engraver_group"))
  22     return new Engraver_group ();
  23   else if (sym == ly_symbol2scm ("Performer_group"))
  24     return new Performer_group ();
  25   else if (sym == ly_symbol2scm ("Score_engraver"))
  26     return new Score_engraver ();
  27   else if (sym == ly_symbol2scm ("Score_performer"))
  28     return new Score_performer ();
  29
  30   programming_error ("Couldn't find type");
  31   scm_flush (scm_current_error_port ());
  32   scm_display (sym, scm_current_error_port ());
  33   scm_flush (scm_current_error_port ());
  34
  35   assert (0);
  36   return 0;
  37 }