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