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 /*
  13   TODO: Junk this class, extract events directly instead.
  14 */
  15 void
  16 Recording_group_engraver::derived_mark () const
  17 {
  18   Engraver_group::derived_mark ();
  19   scm_gc_mark (now_events_);
  20   scm_gc_mark (accumulator_);
  21 }
  22
  23 Recording_group_engraver::Recording_group_engraver ()
  24 {
  25   accumulator_ = SCM_EOL;
  26   now_events_ = SCM_EOL;
  27 }
  28
  29 void
  30 Recording_group_engraver::add_music (SCM music, SCM success)
  31 {
  32   now_events_ = scm_cons (scm_cons (music, success), now_events_);
  33 }
  34
  35 void
  36 Recording_group_engraver::stop_translation_timestep ()
  37 {
  38   accumulator_ = scm_acons (scm_cons (context ()->now_mom ().smobbed_copy (),
  39                                       context ()->get_property ("instrumentTransposition")),
  40                             now_events_,
  41                             accumulator_);
  42   now_events_ = SCM_EOL;
  43 }
  44
  45 void
  46 Recording_group_engraver::finalize ()
  47 {
  48   SCM proc = context ()->get_property ("recordEventSequence");
  49
  50   if (ly_is_procedure (proc))
  51     scm_call_2 (proc, context ()->self_scm (), scm_cdr (accumulator_));
  52 }
  53
  54 bool
  55 Recording_group_engraver::try_music (Music *m)
  56 {
  57   bool retval = Translator_group::try_music (m);
  58
  59   add_music (m->self_scm (), ly_bool2scm (retval));
  60   return retval;
  61 }
  62
  63 void
  64 recording_engraver (Translator_group *tg)
  65 {
  66   Recording_group_engraver *rg = dynamic_cast<Recording_group_engraver *> (tg);
  67   rg->stop_translation_timestep ();
  68 }
  69
  70 void
  71 Recording_group_engraver::fetch_precomputable_methods (Translator_group_void_method ptrs[])
  72 {
  73   Translator_group::fetch_precomputable_methods (ptrs);
  74   ptrs[STOP_TRANSLATION_TIMESTEP] = &recording_engraver;
  75 }
  76
  77 ADD_TRANSLATOR_GROUP (Recording_group_engraver,
  78                       "Engraver_group that records all music events "
  79                       "for this context. Calls the procedure "
  80                       "in @code{recordEventSequence} when finished.",
  81                       "",
  82                       "",
  83                       "recordEventSequence",
  84                       "");