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--1998 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 #include "dictionary-iter.hh"
  14 #include "identifier.hh"
  15 #include "main.hh"
  16
  17 int
  18 Music_output_def::get_next_default_count () const
  19 {
  20   return 0;
  21 }
  22
  23
  24
  25 Music_output_def::Music_output_def ()
  26 {
  27   scope_p_ = new Scope;
  28   translator_p_dict_p_ = new Scope;
  29 }
  30
  31 Music_output_def::~Music_output_def ()
  32 {
  33   delete scope_p_;
  34   delete translator_p_dict_p_;
  35 }
  36
  37 Music_output_def::Music_output_def (Music_output_def const &s)
  38 {
  39   scope_p_ = new Scope (*s.scope_p_);
  40   translator_p_dict_p_ = new Scope (*s.translator_p_dict_p_);
  41
  42   for (Dictionary_iter<Identifier*> i (*translator_p_dict_p_);  i.ok (); i++)
  43     {
  44       Translator * t = i.val ()->access_content_Translator (false);
  45       t-> output_def_l_ = this;
  46     }
  47 }
  48
  49 void
  50 Music_output_def::assign_translator (Translator*tp)
  51 {
  52   String s =tp->type_str_;
  53   if (translator_p_dict_p_->elem_b (s))
  54     delete translator_p_dict_p_->elem (s);
  55
  56   (*translator_p_dict_p_)[s] = new Translator_identifier (tp, 0);
  57   tp ->output_def_l_ = this;
  58 }
  59
  60 Translator*
  61 Music_output_def::find_translator_l (String name) const
  62 {
  63   if (translator_p_dict_p_->elem_b (name))
  64     return  (*translator_p_dict_p_)[name]->access_content_Translator (false);
  65
  66   if (global_translator_dict_p->elem_b (name))
  67     return (*global_translator_dict_p)[name];
  68
  69   return 0;
  70 }
  71
  72
  73 Global_translator *
  74 Music_output_def::get_global_translator_p ()
  75 {
  76   Translator * t = find_translator_l ("Score");
  77   if (!t)
  78     error (_("Can't find Score context"));
  79   t = t->clone ();
  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 #ifndef NPRINT
  90   translator_p_dict_p_->print ();
  91   scope_p_->print( );
  92 #endif
  93 }
  94
  95 String
  96 Music_output_def::get_default_output () const
  97 {
  98   if (safe_global_b || !scope_p_->elem_b ("output"))
  99     return "";
 100   Identifier * id = (*scope_p_) ["output"];
 101
 102   String *p = id->access_content_String (false);
 103   return p ? *p : String ("");
 104 }