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 "scm-hash.hh"
  10
  11 #include "dictionary.hh"
  12 #include "scope.hh"
  13 #include "debug.hh"
  14 #include "music-output-def.hh"
  15 #include "global-translator.hh"
  16 #include "translator-def.hh"
  17 #include "main.hh"
  18 #include "lily-guile.hh"
  19
  20 #include "ly-smobs.icc"
  21
  22 int
  23 Music_output_def::get_next_default_count () const
  24 {
  25   return 0;
  26 }
  27
  28 Music_output_def::Music_output_def ()
  29 {
  30   style_sheet_ = SCM_EOL;
  31   scaled_fonts_ = SCM_EOL;
  32
  33   variable_tab_ = new Scheme_hash_table;
  34   translator_tab_ = new Scheme_hash_table;
  35   scope_p_ = new Scope (variable_tab_);
  36   translator_p_dict_p_ = new Scope (translator_tab_);
  37
  38   smobify_self ();
  39   scm_unprotect_object (variable_tab_->self_scm ());
  40   scm_unprotect_object (translator_tab_->self_scm ());
  41 }
  42
  43 Music_output_def::~Music_output_def ()
  44 {
  45 }
  46
  47 Music_output_def::Music_output_def (Music_output_def const &s)
  48 {
  49   variable_tab_ = new Scheme_hash_table (*s.variable_tab_);
  50   translator_tab_ = new Scheme_hash_table (*s.translator_tab_);
  51
  52   style_sheet_ = SCM_EOL;
  53   scaled_fonts_ = SCM_EOL;
  54   smobify_self ();
  55   scm_unprotect_object (variable_tab_->self_scm ());
  56   scm_unprotect_object (translator_tab_->self_scm ());
  57
  58
  59   scope_p_ = new Scope (variable_tab_);
  60   translator_p_dict_p_ = new Scope (translator_tab_);
  61
  62   style_sheet_ = scm_list_copy (s.style_sheet_);
  63   scaled_fonts_ = scm_list_copy (s.scaled_fonts_);
  64 }
  65
  66
  67 IMPLEMENT_SMOBS(Music_output_def);
  68 IMPLEMENT_UNSMOB(Music_output_def,music_output_def);
  69 IMPLEMENT_DEFAULT_EQUAL_P(Music_output_def);
  70
  71 SCM
  72 Music_output_def::mark_smob (SCM m)
  73 {
  74   Music_output_def * mo = (Music_output_def*) SCM_CELL_WORD_1 (m);
  75   scm_gc_mark (mo->style_sheet_);
  76   scm_gc_mark (mo->translator_tab_->self_scm());
  77   scm_gc_mark (mo->variable_tab_->self_scm());
  78
  79   return mo->scaled_fonts_;
  80 }
  81
  82 void
  83 Music_output_def::assign_translator (SCM transdef)
  84 {
  85   Translator_def *tp = unsmob_translator_def (transdef);
  86   assert (tp);
  87
  88   String s = ly_scm2string (tp->type_name_);
  89   translator_p_dict_p_->set (s, transdef);
  90 }
  91
  92 /*
  93   find the translator for NAME. NAME may be a string or a symbol.
  94  */
  95 SCM
  96 Music_output_def::find_translator_l (SCM name) const
  97 {
  98   if (gh_string_p (name))
  99     name = scm_string_to_symbol (name);
 100
 101   SCM val  =SCM_EOL;
 102   translator_tab_->try_retrieve (name, &val);
 103   return val;
 104 }
 105
 106
 107 Global_translator *
 108 Music_output_def::get_global_translator_p ()
 109 {
 110   SCM key = ly_symbol2scm ("Score");
 111   Translator_def * t = unsmob_translator_def (find_translator_l (key));
 112
 113   if (!t)
 114     error (_f ("can't find `%s' context", "Score"));
 115
 116   Translator_group * tg = t->instantiate (this);
 117
 118   tg->initialize ();
 119
 120   return dynamic_cast <Global_translator *> (tg);
 121 }
 122
 123
 124
 125 String
 126 Music_output_def::get_default_output () const
 127 {
 128   if (safe_global_b || !scope_p_->elem_b ("output"))
 129     return "";
 130   SCM s =  scope_p_->scm_elem ("output");
 131
 132   return gh_string_p (s) ? ly_scm2string (s) : String ("");
 133 }
 134
 135
 136
 137 int
 138 Music_output_def::print_smob (SCM s, SCM p, scm_print_state *)
 139 {
 140   scm_puts ("#<Music_output_def>", p);
 141   return 1;
 142 }
 143
 144 /*
 145   ugh: should move into Music_output_def (complication: .midi and .tex
 146   need separate counts.)  */
 147 String
 148 Music_output_def::base_output_str ()
 149 {
 150   String str = get_default_output ();
 151
 152   if (str.empty_b ())
 153     {
 154       str = default_outname_base_global;
 155       int def = get_next_default_count ();
 156       if (def)
 157         str += "-" + to_str (def);
 158     }
 159
 160   return str;
 161 }