lily/translator.cc

   1 /*
   2   translator.cc -- implement Translator
   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
  10 #include "translator.hh"
  11 #include "debug.hh"
  12 #include "translator-group.hh"
  13
  14 #include "moment.hh"
  15 #include "ly-smobs.icc"
  16
  17 char const*
  18 Translator::name() const
  19 {
  20   return classname(this);
  21 }
  22
  23 Translator::~Translator ()
  24 {
  25 }
  26
  27 void
  28 Translator::init ()
  29 {
  30   simple_trans_list_ = SCM_EOL;
  31   trans_group_list_ = SCM_EOL;
  32   properties_scm_ = SCM_EOL;
  33   definition_ = SCM_EOL;
  34   daddy_trans_l_ =0;
  35 }
  36
  37 Translator::Translator ()
  38 {
  39   init ();
  40   output_def_l_ = 0;
  41   smobify_self ();
  42
  43 }
  44
  45 Translator::Translator (Translator const &s)
  46   : Input (s)
  47 {
  48   init ();
  49   output_def_l_ = s.output_def_l_;
  50   type_str_ = s.type_str_;
  51
  52   smobify_self ();
  53 }
  54
  55 bool
  56 Translator::is_alias_b (String s) const
  57 {
  58   return s == type_str_;
  59 }
  60
  61 bool
  62 Translator::try_music (Music *)
  63 {
  64   return false;
  65 }
  66
  67
  68 Moment
  69 Translator::now_mom () const
  70 {
  71   return daddy_trans_l_->now_mom ();
  72 }
  73
  74
  75 void
  76 Translator::add_processing ()
  77 {
  78   do_add_processing ();
  79 }
  80
  81 void
  82 Translator::do_add_processing ()
  83 {
  84 }
  85
  86
  87 void
  88 Translator::post_move_processing ()
  89 {
  90   start_translation_timestep ();
  91 }
  92
  93 void
  94 Translator::removal_processing ()
  95 {
  96   do_removal_processing ();
  97 }
  98
  99
 100 void
 101 Translator::announces ()
 102 {
 103   do_announces ();
 104 }
 105
 106
 107 void
 108 Translator::pre_move_processing ()
 109 {
 110   stop_translation_timestep ();
 111 }
 112
 113
 114
 115 Music_output_def *
 116 Translator::output_def_l () const
 117 {
 118   return output_def_l_;
 119 }
 120
 121 SCM
 122 Translator::get_property (char const * id) const
 123 {
 124   return daddy_trans_l_->get_property (ly_symbol2scm (id));
 125 }
 126
 127 SCM
 128 Translator::get_property (SCM sym) const
 129 {
 130   return daddy_trans_l_->get_property (sym);
 131 }
 132
 133 void
 134 Translator:: stop_translation_timestep ()
 135 {
 136 }
 137
 138 void
 139 Translator::start_translation_timestep ()
 140 {
 141 }
 142
 143 void
 144 Translator::do_announces ()
 145 {
 146 }
 147
 148 void
 149 Translator::do_creation_processing ()
 150 {
 151 }
 152
 153 void
 154 Translator::do_removal_processing ()
 155 {
 156 }
 157
 158
 159 /*
 160
 161   SMOBS
 162
 163 */
 164 SCM
 165 Translator::mark_smob (SCM sm)
 166 {
 167   Translator * me = (Translator*) SCM_CELL_WORD_1(sm);
 168   scm_gc_mark (me->simple_trans_list_);
 169   scm_gc_mark (me->trans_group_list_);
 170   scm_gc_mark (me->definition_);
 171   scm_gc_mark (me->properties_scm_);
 172
 173   return me->properties_scm_;
 174 }
 175
 176
 177 int
 178 Translator::print_smob (SCM s, SCM port, scm_print_state *)
 179 {
 180   Translator *sc = (Translator *) gh_cdr (s);
 181
 182   scm_puts ("#<Translator ", port);
 183   scm_puts ((char *)sc->name (), port);
 184   scm_display (sc->simple_trans_list_, port);
 185   /*
 186     don't try to print properties, that is too much hassle.
 187    */
 188   scm_puts (" >", port);
 189
 190
 191
 192   return 1;
 193 }
 194
 195
 196
 197 IMPLEMENT_UNSMOB(Translator, translator);
 198 IMPLEMENT_SMOBS(Translator);
 199 IMPLEMENT_DEFAULT_EQUAL_P(Translator);