lily/engraver.cc

   1 /*
   2   engraver.cc -- implement Engraver
   3
   4   Sourcefile of GNU LilyPond music type setter
   5
   6   (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "music.hh"
  10 #include "engraver.hh"
  11 #include "engraver-group-engraver.hh"
  12 #include "grob.hh"
  13 #include "score-engraver.hh"
  14 #include "warn.hh"
  15 #include "spanner.hh"
  16 #include "item.hh"
  17 #include "context.hh"
  18 #include "score-context.hh"
  19 #include "lilypond-key.hh"
  20
  21 Engraver_group_engraver*
  22 Engraver::get_daddy_engraver () const
  23 {
  24   return dynamic_cast<Engraver_group_engraver*> (get_daddy_translator ());
  25 }
  26
  27 void
  28 Engraver::announce_grob (Grob_info inf)
  29 {
  30   get_daddy_engraver ()->announce_grob (inf);
  31 }
  32
  33
  34 /*
  35   CAUSE is the object (typically a Music object)  that
  36   was the reason for making E.
  37  */
  38 void
  39 Engraver::announce_grob (Grob* e, SCM cause)
  40 {
  41   if (unsmob_music (cause) || unsmob_grob (cause))
  42     e->set_property ("cause", cause);
  43
  44   Grob_info i;
  45   i.grob_ = e;
  46   if (!i.origin_trans_)
  47     i.origin_trans_ = this;
  48
  49   Engraver * g = get_daddy_engraver ();
  50   if (g)
  51     g->announce_grob (i);
  52 }
  53
  54
  55
  56
  57
  58 Engraver::Engraver ()
  59 {
  60 }
  61
  62
  63 Score_engraver*
  64 Engraver::get_score_engraver () const
  65 {
  66   return dynamic_cast<Score_engraver*> (get_score_context ()->implementation ());
  67 }
  68
  69
  70 Object_key const*
  71 Engraver::get_grob_key (String name) const
  72 {
  73   Object_key * k = new Lilypond_grob_key (context()->get_key(),
  74                                           now_mom(),
  75                                           name);
  76
  77   return k;
  78 }
  79
  80
  81 ENTER_DESCRIPTION (Engraver,
  82                    "", "",
  83                   "",
  84                   "", "", "");
  85