-close_event:
- '(' {
- Music *s = MY_MAKE_MUSIC ("SlurEvent");
- $$ = s;
- s->set_spot (THIS->here_input ());
- }
- | E_OPEN {
- Music *s = MY_MAKE_MUSIC ("PhrasingSlurEvent");
- $$ = s;
- s->set_spot (THIS->here_input ());
- }
- | E_SMALLER {
- Music *s = MY_MAKE_MUSIC ("CrescendoEvent");
- $$ = s;
- s->set_spot (THIS->here_input ());
- }
- | E_BIGGER {
- Music *s = MY_MAKE_MUSIC ("DecrescendoEvent");
- $$ = s;
- s->set_spot (THIS->here_input ());
- }
- ;
-
-
-open_event:
- E_EXCLAMATION {
- Music *s = MY_MAKE_MUSIC ("CrescendoEvent");
- s->set_spot (THIS->here_input ());
-
- $$ = s;
- }
- | ')' {
- Music *s= MY_MAKE_MUSIC ("SlurEvent");
- $$ = s;
- s->set_spot (THIS->here_input ());
-
- }
- | E_CLOSE {
- Music *s= MY_MAKE_MUSIC ("PhrasingSlurEvent");
- $$ = s;
- s->set_property ("span-type",
- scm_makfrom0str ("phrasing-slur"));
- s->set_spot (THIS->here_input ());
- }
- ;
-