lily/translator.cc

   1 /*
   2   translator.cc -- implement Translator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9
  10 #include "translator.hh"
  11 #include "warn.hh"
  12 #include "translator-group.hh"
  13 #include "translator-def.hh"
  14
  15 #include "moment.hh"
  16 #include "ly-smobs.icc"
  17
  18
  19 Translator::~Translator ()
  20 {
  21 }
  22
  23 void
  24 Translator::init ()
  25 {
  26   simple_trans_list_ = SCM_EOL;
  27   trans_group_list_ = SCM_EOL;
  28   properties_scm_ = SCM_EOL;
  29   definition_ = SCM_EOL;
  30   daddy_trans_ =0;
  31 }
  32
  33 Translator::Translator ()
  34 {
  35   self_scm_ = SCM_EOL;
  36   init ();
  37   output_def_ = 0;
  38   smobify_self ();
  39 }
  40
  41 Translator::Translator (Translator const &s)
  42 {
  43   self_scm_ = SCM_EOL;
  44   init ();
  45   output_def_ = s.output_def_;
  46   type_string_ = s.type_string_;
  47
  48   smobify_self ();
  49 }
  50
  51 bool
  52 Translator::is_alias_b (String s) const
  53 {
  54   bool b  = s == type_string_;
  55
  56   for (SCM a = unsmob_translator_def (definition_)->type_aliases_;
  57        !b && gh_pair_p (a); a = ly_cdr (a))
  58     b = b || s == ly_scm2string (ly_car (a));
  59
  60   return b;
  61 }
  62
  63 bool
  64 Translator::try_music (Music *)
  65 {
  66   return false;
  67 }
  68
  69
  70 Moment
  71 Translator::now_mom () const
  72 {
  73   return daddy_trans_->now_mom ();
  74 }
  75
  76 void
  77 Translator::removal_processing ()
  78 {
  79   finalize ();
  80 }
  81
  82 void
  83 Translator::do_announces ()
  84 {
  85 }
  86
  87 Music_output_def *
  88 Translator::get_output_def () const
  89 {
  90   return output_def_;
  91 }
  92
  93 SCM
  94 Translator::internal_get_property (SCM sym) const
  95 {
  96   return daddy_trans_->internal_get_property (sym);
  97 }
  98
  99 void
 100 Translator:: stop_translation_timestep ()
 101 {
 102 }
 103
 104 void
 105 Translator::start_translation_timestep ()
 106 {
 107 }
 108
 109 void
 110 Translator::initialize ()
 111 {
 112 }
 113
 114 void
 115 Translator::finalize ()
 116 {
 117 }
 118
 119
 120 /*
 121
 122   SMOBS
 123
 124 */
 125 SCM
 126 Translator::mark_smob (SCM sm)
 127 {
 128   Translator * me = (Translator*) SCM_CELL_WORD_1 (sm);
 129   scm_gc_mark (me->simple_trans_list_);
 130   scm_gc_mark (me->trans_group_list_);
 131   scm_gc_mark (me->definition_);
 132   scm_gc_mark (me->properties_scm_);
 133
 134   return me->properties_scm_;
 135 }
 136
 137 SCM
 138 Translator::translator_description () const
 139 {
 140   return SCM_EOL;
 141 }
 142
 143 SCM
 144 Translator::static_translator_description ()const
 145 {
 146   return SCM_EOL;
 147 }
 148
 149
 150 IMPLEMENT_SMOBS (Translator);
 151 IMPLEMENT_DEFAULT_EQUAL_P (Translator);