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
  16 int
  17 Music_output_def::get_next_default_count () const
  18 {
  19   return 0;
  20 }
  21
  22 IMPLEMENT_IS_TYPE_B(Music_output_def);
  23
  24 Music_output_def::Music_output_def ()
  25 {
  26   scope_p_ = new Scope;
  27   translator_p_dict_p_ = new Scope;
  28 }
  29
  30 Music_output_def::~Music_output_def ()
  31 {
  32   delete scope_p_;
  33   delete translator_p_dict_p_;
  34 }
  35
  36 Music_output_def::Music_output_def (Music_output_def const &s)
  37 {
  38   scope_p_ = new Scope (*s.scope_p_);
  39   translator_p_dict_p_ = new Scope (*s.translator_p_dict_p_);
  40
  41   for (Dictionary_iter<Identifier*> i (*translator_p_dict_p_);  i.ok (); i++)
  42     {
  43       Translator * t = i.val ()->access_Translator (false);
  44       t-> output_def_l_ = this;
  45     }
  46 }
  47
  48 void
  49 Music_output_def::assign_translator (Translator*tp)
  50 {
  51   String s =tp->type_str_;
  52   if (translator_p_dict_p_->elem_b (s))
  53     delete translator_p_dict_p_->elem (s);
  54
  55   (*translator_p_dict_p_)[s] = new Translator_identifier (tp, 0);
  56   tp ->output_def_l_ = this;
  57 }
  58
  59 Translator*
  60 Music_output_def::find_translator_l (String name) const
  61 {
  62   if (translator_p_dict_p_->elem_b (name))
  63     return (*translator_p_dict_p_)[name]->access_Translator ();
  64
  65   if (global_translator_dict_p->elem_b (name))
  66     return (*global_translator_dict_p)[name];
  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 (_("Can't find Score context"));
  78   t = t->clone ();
  79   Global_translator *g = t->access_Translator_group ()->global_l ();
  80   t->add_processing ();
  81
  82   return g;
  83 }
  84
  85 void
  86 Music_output_def::print () const
  87 {
  88 #ifndef NPRINT
  89   translator_p_dict_p_->print ();
  90   scope_p_->print( );
  91 #endif
  92 }
  93
  94 String
  95 Music_output_def::get_default_output () const
  96 {
  97   if (!scope_p_->elem_b ("output"))
  98     return "";
  99   Identifier * id = (*scope_p_) ["output"];
 100
 101   String *p = id->access_String ();
 102   return p ? *p : String ("");
 103 }