lily/context-specced-music-iterator.cc

   1 /*
   2   context-specced-music-iterator.cc -- implement
   3     Context_specced_music_iterator
   4
   5   source file of the GNU LilyPond music typesetter
   6
   7   (c) 2002--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   8
   9 */
  10
  11 #include "music-wrapper-iterator.hh"
  12 #include "translator-group.hh"
  13
  14 class Context_specced_music_iterator : public Music_wrapper_iterator
  15 {
  16 public:
  17   VIRTUAL_COPY_CONS(Music_iterator);
  18   DECLARE_SCHEME_CALLBACK(constructor,());
  19   virtual void construct_children ();
  20 };
  21
  22 void
  23 Context_specced_music_iterator::construct_children ()
  24 {
  25   SCM ct = get_music ()->get_mus_property ("context-type");
  26
  27   String c_id;
  28   SCM ci = get_music ()->get_mus_property ("context-id");
  29   if (gh_string_p (ci))
  30     c_id = ly_scm2string (ci);
  31
  32   Translator_group* a
  33     =report_to ()->find_create_translator (ct, c_id);
  34
  35   set_translator (a);
  36
  37   Music_wrapper_iterator::construct_children();
  38 }
  39 IMPLEMENT_CTOR_CALLBACK(Context_specced_music_iterator);