#include "main.hh"
#include "input-smob.hh"
-
#include "group-interface.hh"
#include "misc.hh"
#include "paper-score.hh"
#include "paper-def.hh"
#include "grob.hh"
-
#include "spanner.hh"
#include "item.hh"
#include "misc.hh"
#include "item.hh"
-
SCM
Grob::get_property_alist_chain (SCM def) const
{
- return scm_list_n (mutable_property_alist_,
- immutable_property_alist_,
- def,
- SCM_UNDEFINED);
+ return scm_list_n (mutable_property_alist_,
+ immutable_property_alist_,
+ def,
+ SCM_UNDEFINED);
}
set_prop (name,cons (thing, get_prop (name)))
- since it can reuse the handle returned by scm_assq().
+ since it can reuse the handle returned by scm_assq ().
*/
void
Grob::add_to_list_property (SCM sym, SCM thing)
mutable prop list.
*/
handle = scm_sloppy_assq (sym, immutable_property_alist_);
- SCM tail = (handle != SCM_BOOL_F) ? gh_cdr(handle) : SCM_EOL;
+ SCM tail = (handle != SCM_BOOL_F) ? gh_cdr (handle) : SCM_EOL;
SCM val = gh_cons (thing, tail);
mutable_property_alist_ = gh_cons (gh_cons (sym, val),
extern void check_interfaces_for_property (Grob const *me, SCM sym);
void
-Grob::internal_set_grob_property (SCM s, SCM v)
+Grob::internal_set_property (SCM s, SCM v)
{
/* Perhaps we simply do the assq_set, but what the heck. */
if (!live ())
if (internal_type_checking_global_b)
{
- if (type_check_assignment (s, v, ly_symbol2scm ("backend-type?")))
+ if (!type_check_assignment (s, v, ly_symbol2scm ("backend-type?")))
abort ();
check_interfaces_for_property (this, s);
}
SCM
-Grob::internal_get_grob_property (SCM sym) const
+Grob::internal_get_property (SCM sym) const
{
SCM s = scm_sloppy_assq (sym, mutable_property_alist_);
if (s != SCM_BOOL_F)
if (!type_check_assignment (sym, gh_cdr (s),
ly_symbol2scm ("backend-type?")))
abort ();
+
check_interfaces_for_property (this, sym);
}
void
Grob::substitute_mutable_properties (SCM crit, SCM orig)
{
- set_break_subsititution(crit);
+ set_break_subsititution (crit);
mutable_property_alist_ = substitute_mutable_property_alist (orig);
}