lily/translator.cc

   1 /*
   2   translator.cc -- implement Translator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "translator.hh"
  10
  11 #include "warn.hh"
  12 #include "translator-group.hh"
  13 #include "context-def.hh"
  14 #include "global-context.hh"
  15
  16 #include "translator.icc"
  17 #include "ly-smobs.icc"
  18
  19 Translator::~Translator ()
  20 {
  21 }
  22
  23 void
  24 Translator::init ()
  25 {
  26   must_be_last_ = false;
  27   self_scm_ = SCM_EOL;
  28   daddy_context_ = 0;
  29   smobify_self ();
  30 }
  31
  32
  33 void
  34 Translator::process_music ()
  35 {
  36 }
  37
  38 void
  39 Translator::process_acknowledged ()
  40 {
  41 }
  42
  43 Translator::Translator ()
  44 {
  45   init ();
  46 }
  47
  48 Translator::Translator (Translator const &src)
  49 {
  50   init ();
  51   must_be_last_ = src.must_be_last_;
  52 }
  53
  54 bool
  55 Translator::try_music (Music *)
  56 {
  57   return false;
  58 }
  59
  60 Moment
  61 Translator::now_mom () const
  62 {
  63   return daddy_context_->now_mom ();
  64 }
  65
  66 Output_def *
  67 Translator::get_output_def () const
  68 {
  69   return daddy_context_->get_output_def ();
  70 }
  71
  72 Translator_group *
  73 Translator::get_daddy_translator () const
  74 {
  75   return daddy_context_->implementation ();
  76 }
  77
  78 SCM
  79 Translator::internal_get_property (SCM sym) const
  80 {
  81   return daddy_context_->internal_get_property (sym);
  82 }
  83
  84 void
  85 Translator::stop_translation_timestep ()
  86 {
  87 }
  88
  89 /*
  90   this function has 2 properties
  91
  92   - It is called before try_music ()
  93
  94   - It is called before any user information enters the translators.
  95   (i.e. any \property or event is not processed yet.)
  96 */
  97 void
  98 Translator::start_translation_timestep ()
  99 {
 100 }
 101
 102 void
 103 Translator::initialize ()
 104 {
 105 }
 106
 107 void
 108 Translator::finalize ()
 109 {
 110 }
 111
 112 /*
 113   SMOBS
 114 */
 115 SCM
 116 Translator::mark_smob (SCM sm)
 117 {
 118   Translator *me = (Translator *) SCM_CELL_WORD_1 (sm);
 119   me->derived_mark ();
 120   return SCM_EOL;
 121 }
 122
 123 Global_context *
 124 Translator::get_global_context () const
 125 {
 126   return daddy_context_->get_global_context ();
 127 }
 128
 129 Score_context *
 130 Translator::get_score_context () const
 131 {
 132   return daddy_context_->get_score_context ();
 133 }
 134
 135 IMPLEMENT_SMOBS (Translator);
 136 IMPLEMENT_DEFAULT_EQUAL_P (Translator);
 137 IMPLEMENT_TYPE_P (Translator, "ly:translator?");
 138
 139 bool
 140 Translator::must_be_last () const
 141 {
 142   return must_be_last_;
 143 }
 144
 145 void
 146 Translator::derived_mark () const
 147 {
 148 }
 149
 150 int
 151 Translator::print_smob (SCM s, SCM port, scm_print_state *)
 152 {
 153   Translator *me = (Translator *) SCM_CELL_WORD_1 (s);
 154   scm_puts ("#<Translator ", port);
 155   scm_puts (classname (me), port);
 156   scm_puts (" >", port);
 157   return 1;
 158 }
 159
 160 void
 161 add_acknowledger (Engraver_void_function_engraver_grob_info ptr,
 162                   const char *func_name,
 163                   Array<Acknowledge_information> *ack_array)
 164 {
 165   Acknowledge_information inf;
 166   inf.function_ = ptr;
 167
 168   String interface_name(func_name);
 169
 170   interface_name = interface_name.substitute ('_', '-');
 171   interface_name += "-interface";
 172
 173   inf.symbol_ = scm_gc_protect_object (ly_symbol2scm (interface_name.to_str0 ()));
 174   ack_array->push (inf);
 175 }
 176
 177 Engraver_void_function_engraver_grob_info
 178 generic_get_acknowledger (SCM sym, Array<Acknowledge_information> const *ack_array)
 179 {
 180   for (int i = 0; i < ack_array->size(); i++)
 181     {
 182       if (ack_array->elem (i).symbol_ == sym)
 183         {
 184           return ack_array->elem(i).function_;
 185         }
 186     }
 187   return 0;
 188 }
 189
 190 ADD_TRANSLATOR(Translator,
 191                "Base class. Unused",
 192                "",
 193                "",
 194                "",
 195                "",
 196                "");