lily/melisma-engraver.cc

   1 /*
   2   melisma-engraver.cc --  implement Melisma_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "engraver.hh"
  11 #include "event.hh"
  12 #include "grob.hh"
  13 #include "translator-group.hh"
  14
  15 /**
  16    Signal existence of melismas.
  17  */
  18 class Melisma_engraver:public Engraver
  19 {
  20 public:
  21   TRANSLATOR_DECLARATIONS(Melisma_engraver);
  22   bool try_music (Music *);
  23 };
  24
  25
  26 bool
  27 Melisma_engraver::try_music (Music *m)
  28 {
  29   SCM melisma_properties = get_property ("melismaBusyProperties");
  30   bool busy = false;
  31
  32   for (; gh_pair_p (melisma_properties);
  33        melisma_properties = gh_cdr (melisma_properties))
  34
  35     busy = busy || to_boolean (internal_get_property (gh_car (melisma_properties)));
  36
  37   /*
  38     for the phrasing engraver we also need this.
  39    */
  40   daddy_trans_->set_property ("melismaEngraverBusy",gh_bool2scm (busy));
  41   return busy;
  42 }
  43
  44 Melisma_engraver::Melisma_engraver()
  45 {
  46 }
  47
  48 ENTER_DESCRIPTION(Melisma_engraver,
  49 /* descr */       "",
  50 /* creats*/       "",
  51 /* accepts */     "melisma-playing-event",
  52 /* acks  */      "",
  53 /* reads */       "melismaBusy melismaBusyProperties slurMelismaBusy tieMelismaBusy beamMelismaBusy",
  54 /* write */       "melismaEngraverBusy");