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 "dictionary.hh"
  10 #include "scope.hh"
  11 #include "debug.hh"
  12 #include "music-output-def.hh"
  13 #include "global-translator.hh"
  14
  15 #include "identifier.hh"
  16 #include "main.hh"
  17 #include "lily-guile.hh"
  18
  19 int
  20 Music_output_def::get_next_default_count () const
  21 {
  22   return 0;
  23 }
  24
  25
  26
  27 Music_output_def::Music_output_def ()
  28 {
  29   scope_p_ = new Scope;
  30   translator_p_dict_p_ = new Scope;
  31 }
  32
  33 Music_output_def::~Music_output_def ()
  34 {
  35   delete scope_p_;
  36   delete translator_p_dict_p_;
  37 }
  38
  39 Music_output_def::Music_output_def (Music_output_def const &s)
  40 {
  41   scope_p_ = new Scope (*s.scope_p_);
  42   translator_p_dict_p_ = new Scope (*s.translator_p_dict_p_);
  43 }
  44
  45 void
  46 Music_output_def::assign_translator (Translator_group*tp)
  47 {
  48   String s =tp->type_str_;
  49   if (s.empty_b ())
  50     {
  51       tp->warning (_("Interpretation context with empty type"));
  52     }
  53
  54   SCM tr = tp->self_scm ();
  55   scm_unprotect_object (tr);
  56   translator_p_dict_p_->set (s, tr);
  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 unsmob_translator (translator_p_dict_p_->scm_elem (name));
  64
  65   map<String, Translator*>::const_iterator ki
  66     =global_translator_dict_p->find (name);
  67
  68   if (ki != global_translator_dict_p->end ())
  69     return (*ki).second ;
  70
  71   return 0;
  72 }
  73
  74
  75 Global_translator *
  76 Music_output_def::get_global_translator_p ()
  77 {
  78   Translator * t = find_translator_l ("Score");
  79   if (!t)
  80     error (_f ("can't find `%s' context", "Score"));
  81   t = t->clone ();
  82
  83   t->output_def_l_ = this;
  84   Global_translator *g = dynamic_cast <Global_translator *> (t);
  85   t->add_processing ();
  86
  87   return g;
  88 }
  89
  90 void
  91 Music_output_def::print () const
  92 {
  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   SCM s =  scope_p_->scm_elem ("output");
 101
 102
 103
 104   return gh_string_p (s) ? ly_scm2string (s) : String ("");
 105 }
 106
 107