lily/staff-collecting-engraver.cc

   1 /*
   2   staff-collecting-engraver.cc -- implement Staff_collecting_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2001--2005  Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "staff-symbol.hh"
  10 #include "engraver.hh"
  11 #include "grob.hh"
  12 #include "context.hh"
  13
  14 class Staff_collecting_engraver : public Engraver
  15 {
  16 public:
  17   TRANSLATOR_DECLARATIONS (Staff_collecting_engraver);
  18   virtual void acknowledge_grob (Grob_info);
  19 };
  20
  21 Staff_collecting_engraver::Staff_collecting_engraver ()
  22 {
  23 }
  24
  25 void
  26 Staff_collecting_engraver::acknowledge_grob (Grob_info gi)
  27 {
  28   if (Staff_symbol::has_interface (gi.grob ()))
  29     {
  30       SCM staffs = get_property ("stavesFound");
  31       staffs = scm_cons (gi.grob ()->self_scm (), staffs);
  32
  33       context ()->set_property ("stavesFound", staffs);
  34     }
  35 }
  36
  37 ADD_TRANSLATOR (Staff_collecting_engraver,
  38                 /* descr */ "Maintain the stavesFound variable",
  39
  40                 /* creats*/ "",
  41                 /* accepts */ "",
  42                 /* acks  */ "staff-symbol-interface",
  43                 /* reads */ "stavesFound",
  44                 /* write */ "stavesFound");