lily/music-output-def.cc

   1 /*
   2   music-output-def.cc -- implement Music_output_def
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "scope.hh"
  10 #include "debug.hh"
  11 #include "music-output-def.hh"
  12 #include "global-translator.hh"
  13
  14 #include "identifier.hh"
  15 #include "main.hh"
  16 #include "lily-guile.hh"
  17
  18 int
  19 Music_output_def::get_next_default_count () const
  20 {
  21   return 0;
  22 }
  23
  24
  25
  26 Music_output_def::Music_output_def ()
  27 {
  28   scope_p_ = new Scope;
  29   translator_p_dict_p_ = new Scope;
  30 }
  31
  32 Music_output_def::~Music_output_def ()
  33 {
  34   delete scope_p_;
  35   delete translator_p_dict_p_;
  36 }
  37
  38 Music_output_def::Music_output_def (Music_output_def const &s)
  39 {
  40   scope_p_ = new Scope (*s.scope_p_);
  41   translator_p_dict_p_ = new Scope (*s.translator_p_dict_p_);
  42 }
  43
  44 void
  45 Music_output_def::assign_translator (Translator_group*tp)
  46 {
  47   String s =tp->type_str_;
  48   if (s.empty_b ())
  49     {
  50       tp->warning (_("Interpretation context with empty type"));
  51     }
  52
  53   translator_p_dict_p_->set (s, new Translator_group_identifier (tp, 0));
  54 }
  55
  56 Translator*
  57 Music_output_def::find_translator_l (String name) const
  58 {
  59   if (translator_p_dict_p_->elem_b (name))
  60     return translator_p_dict_p_->elem (name)->access_content_Translator_group (false);
  61
  62   map<String, Translator*>::const_iterator ki
  63     =global_translator_dict_p->find (name);
  64
  65   if (ki != global_translator_dict_p->end ())
  66     return (*ki).second ;
  67
  68   return 0;
  69 }
  70
  71
  72 Global_translator *
  73 Music_output_def::get_global_translator_p ()
  74 {
  75   Translator * t = find_translator_l ("Score");
  76   if (!t)
  77     error (_f ("can't find `%s' context", "Score"));
  78   t = t->clone ();
  79   t->output_def_l_ = this;
  80   Global_translator *g = dynamic_cast <Global_translator *> (t);
  81   t->add_processing ();
  82
  83   return g;
  84 }
  85
  86 void
  87 Music_output_def::print () const
  88 {
  89 }
  90
  91 String
  92 Music_output_def::get_default_output () const
  93 {
  94   if (safe_global_b || !scope_p_->elem_b ("output"))
  95     return "";
  96   SCM s =  scope_p_->scm_elem ("output");
  97
  98
  99
 100   return gh_string_p (s) ? ly_scm2string (s) : String ("");
 101 }
 102