virtual void initialize ();
virtual void finalize ();
public:
- ~Property_engraver();
- Property_engraver();
- VIRTUAL_COPY_CONS(Translator);
+ ~Property_engraver ();
+ Property_engraver ();
+ VIRTUAL_COPY_CONS (Translator);
};
-Property_engraver::Property_engraver()
+Property_engraver::Property_engraver ()
{
prop_dict_ = 0;
}
void
-Property_engraver::finalize()
+Property_engraver::finalize ()
{
}
Property_engraver::~Property_engraver ()
{
if (prop_dict_)
- scm_unprotect_object (prop_dict_->self_scm ());
+ scm_gc_unprotect_object (prop_dict_->self_scm ());
}
void
SCM type_p = gh_cadr (entry);
SCM elt_prop_sym = gh_caddr (entry);
- SCM preset = scm_assq(elt_prop_sym, e->mutable_property_alist_);
+ SCM preset = scm_assq (elt_prop_sym, e->mutable_property_alist_);
if (preset != SCM_BOOL_F)
continue;
if (val == SCM_EOL)
; // Not defined in context.
- else if (gh_apply (type_p, scm_listify (val, SCM_UNDEFINED))
+ else if (gh_apply (type_p, scm_list_n (val, SCM_UNDEFINED))
== SCM_BOOL_T) // defined and right type: do it
{
e->set_grob_property (elt_prop_sym, val);
SCM meta = e->get_grob_property ("meta");
SCM name = scm_assoc (ly_symbol2scm ("name"), meta);
- warning (_f ("%s is deprecated. Use\n \\property %s.%s \\override #'%s = #%s",
+ warning (_f ("`%s' is deprecated. Use\n \\property %s.%s \\override #'%s = #%s",
ly_symbol2string (prop_sym).ch_C (),
origin->type_str_.ch_C (),
ly_scm2string (gh_cdr (name)).ch_C (),
if (val != SCM_EOL)
{ // not the right type: error message.
SCM errport = scm_current_error_port ();
- SCM typefunc = scm_eval2 (ly_symbol2scm ("type-name"), SCM_EOL);
+ SCM typefunc = scm_primitive_eval (ly_symbol2scm ("type-name"));
SCM type_name = gh_call1 (typefunc, type_p);
warning (_f ("Wrong type for property: %s, type: %s, value found: %s, type: %s",
ly_symbol2string (prop_sym).ch_C (),
}
}
-ADD_THIS_TRANSLATOR(Property_engraver);
+ADD_THIS_TRANSLATOR (Property_engraver);