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 #include "translator-def.hh"
  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 (SCM transdef)
  47 {
  48   Translator_def *tp = unsmob_translator_def (transdef);
  49   assert (tp);
  50
  51   String s = ly_scm2string (tp->type_name_);
  52   translator_p_dict_p_->set (s, transdef);
  53 }
  54
  55 SCM
  56 Music_output_def::find_translator_l (SCM name) const
  57 {
  58   String s = ly_scm2string (name);
  59   if (translator_p_dict_p_->elem_b (s))
  60     return translator_p_dict_p_->scm_elem (s);
  61
  62   return SCM_EOL;
  63 }
  64
  65
  66 Global_translator *
  67 Music_output_def::get_global_translator_p ()
  68 {
  69   Translator_def * t = unsmob_translator_def (find_translator_l (gh_str02scm ("Score")));
  70   if (!t)
  71     error (_f ("can't find `%s' context", "Score"));
  72
  73   Translator_group * tg = t->instantiate (this);
  74
  75   tg->add_processing ();
  76
  77   return dynamic_cast <Global_translator *> (tg);
  78 }
  79
  80 void
  81 Music_output_def::print () const
  82 {
  83 }
  84
  85 String
  86 Music_output_def::get_default_output () const
  87 {
  88   if (safe_global_b || !scope_p_->elem_b ("output"))
  89     return "";
  90   SCM s =  scope_p_->scm_elem ("output");
  91
  92   return gh_string_p (s) ? ly_scm2string (s) : String ("");
  93 }
  94
  95