- simple_music_property_def {
- if (SCM_UNBNDP ($1))
- $$ = MAKE_SYNTAX ("void-music", @1);
+ OVERRIDE grob_prop_path '=' scalar {
+ if (SCM_UNBNDP ($2))
+ $$ = MAKE_SYNTAX ("void-music", @$);
+ else {
+ $$ = MAKE_SYNTAX ("property-operation", @$,
+ scm_car ($2),
+ ly_symbol2scm ("OverrideProperty"),
+ scm_cadr ($2),
+ $4,
+ scm_cddr ($2));
+ }
+ }
+ | REVERT simple_revert_context revert_arg {
+ $$ = MAKE_SYNTAX ("property-operation", @$,
+ $2,
+ ly_symbol2scm ("RevertProperty"),
+ scm_car ($3),
+ scm_cdr ($3));
+ }
+ | SET context_prop_spec '=' scalar {
+ if (SCM_UNBNDP ($2))
+ $$ = MAKE_SYNTAX ("void-music", @$);
+ else
+ $$ = MAKE_SYNTAX ("property-operation", @$,
+ scm_car ($2),
+ ly_symbol2scm ("PropertySet"),
+ scm_cadr ($2),
+ $4);
+ }
+ | UNSET context_prop_spec {
+ if (SCM_UNBNDP ($2))
+ $$ = MAKE_SYNTAX ("void-music", @$);