source file of the GNU LilyPond music typesetter
-(c) 2001--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+(c) 2001--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+
#include "staff-symbol.hh"
#include "engraver.hh"
#include "grob.hh"
-#include "translator-group.hh"
+#include "context.hh"
class Staff_collecting_engraver : public Engraver
{
public:
- TRANSLATOR_DECLARATIONS(Staff_collecting_engraver);
+ TRANSLATOR_DECLARATIONS (Staff_collecting_engraver);
virtual void acknowledge_grob (Grob_info);
};
if (Staff_symbol::has_interface (gi.grob_))
{
SCM staffs = get_property ("stavesFound");
- staffs = gh_cons (gi.grob_->self_scm (), staffs);
+ staffs = scm_cons (gi.grob_->self_scm (), staffs);
- daddy_trans_->set_property ("stavesFound", staffs);
+ context ()->set_property ("stavesFound", staffs);
}
}
-ENTER_DESCRIPTION(Staff_collecting_engraver,
+ADD_TRANSLATOR (Staff_collecting_engraver,
/* descr */ "Maintain the stavesFound variable",
/* creats*/ "",
-/* accepts */ "general-music",
+/* accepts */ "",
/* acks */ "staff-symbol-interface",
/* reads */ "stavesFound",
/* write */ "stavesFound");