lily/recording-group-engraver.cc

   1 /*
   2   recording-group-engraver.cc -- implement Recording_group_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2003--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "recording-group-engraver.hh"
  10 #include "context.hh"
  11
  12 void
  13 Recording_group_engraver::derived_mark () const
  14 {
  15   Engraver_group::derived_mark ();
  16   scm_gc_mark (now_events_);
  17   scm_gc_mark (accumulator_);
  18 }
  19
  20 Recording_group_engraver::Recording_group_engraver ()
  21 {
  22   accumulator_ = SCM_EOL;
  23   now_events_ = SCM_EOL;
  24 }
  25
  26 void
  27 Recording_group_engraver::add_music (SCM music, SCM success)
  28 {
  29   now_events_ = scm_cons (scm_cons (music, success), now_events_);
  30 }
  31
  32 void
  33 Recording_group_engraver::stop_translation_timestep ()
  34 {
  35   accumulator_ = scm_acons (scm_cons (context ()->now_mom ().smobbed_copy (),
  36                                       context ()->get_property ("instrumentTransposition")),
  37                             now_events_,
  38                             accumulator_);
  39   now_events_ = SCM_EOL;
  40 }
  41
  42 void
  43 Recording_group_engraver::finalize ()
  44 {
  45   SCM proc = context ()->get_property ("recordEventSequence");
  46
  47   if (ly_is_procedure (proc))
  48     scm_call_2 (proc, context ()->self_scm (), scm_cdr (accumulator_));
  49 }
  50
  51 bool
  52 Recording_group_engraver::try_music (Music *m)
  53 {
  54   bool retval = Translator_group::try_music (m);
  55
  56   add_music (m->self_scm (), ly_bool2scm (retval));
  57   return retval;
  58 }
  59
  60 void
  61 recording_engraver (Translator_group *tg)
  62 {
  63   Recording_group_engraver *rg = dynamic_cast<Recording_group_engraver *> (tg);
  64   rg->stop_translation_timestep ();
  65 }
  66
  67 void
  68 Recording_group_engraver::fetch_precomputable_methods (Translator_group_void_method ptrs[])
  69 {
  70   Translator_group::fetch_precomputable_methods (ptrs);
  71   ptrs[STOP_TRANSLATION_TIMESTEP] = &recording_engraver;
  72 }
  73
  74 ADD_TRANSLATOR_GROUP (Recording_group_engraver,
  75                       "Engraver_group that records all music events "
  76                       "for this context. Calls the procedure "
  77                       "in @code{recordEventSequence} when finished.",
  78                       "",
  79                       "",
  80                       "recordEventSequence",
  81                       "");