X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fcontext.hh;h=33e8f8c9a03e6257dfc9326bf856c436c8423a67;hb=37ca1f80bf5401accd17056938f4f7b2c147ddb2;hp=39babf7b669751f9c2204b0701ace74159c621bf;hpb=91f01637f31c7d904fd8016b49184e935bf1c8ab;p=lilypond.git diff --git a/lily/include/context.hh b/lily/include/context.hh index 39babf7b66..33e8f8c9a0 100644 --- a/lily/include/context.hh +++ b/lily/include/context.hh @@ -85,6 +85,7 @@ public: Context *where_defined (SCM name_sym, SCM *value) const; void unset_property (SCM var_sym); + void instrumented_set_property (SCM, SCM, const char*, int, const char*); void internal_set_property (SCM var_sym, SCM value); Context *create_context (Context_def *, string, SCM); @@ -113,8 +114,7 @@ public: string id, SCM ops); Context *create_unique_context (SCM context_name, string context_id, SCM ops); - vector path_to_acceptable_context (SCM alias, - Output_def *) const; + vector path_to_acceptable_context (SCM alias) const; }; /* @@ -122,8 +122,11 @@ public: */ void apply_property_operations (Context *tg, SCM pre_init_ops); +void execute_revert_property (Context *context, + SCM context_property, + SCM grob_property_path); void execute_pushpop_property (Context *trg, SCM prop, SCM eltprop, SCM val); -void execute_general_pushpop_property (Context *context, +void sloppy_general_pushpop_property (Context *context, SCM context_property, SCM grob_property_path, SCM val); SCM updated_grob_properties (Context *tg, SCM sym); Context *find_context_below (Context *where, @@ -146,5 +149,9 @@ void set_context_property_on_children (Context *trans, SCM sym, SCM val); ctx->internal_send_stream_event (ly_symbol2scm (type), origin, props); \ } +SCM nested_property_alist (SCM alist, SCM prop_path, SCM value); +SCM nested_property_revert_alist (SCM alist, SCM prop_path); +SCM evict_from_alist (SCM, SCM, SCM); + #endif /* CONTEXT_HH */