%token <scm> MARKUP_HEAD_SCM0_SCM1_SCM2
%token <scm> MARKUP_LIST_HEAD_EMPTY
%token <scm> MARKUP_LIST_HEAD_LIST0
+%token <scm> MARKUP_LIST_HEAD_SCM0
%token <scm> MARKUP_LIST_HEAD_SCM0_LIST1
%token <scm> MARKUP_LIST_HEAD_SCM0_SCM1_LIST2
%token <scm> MARKUP_IDENTIFIER
$$->user_key_ = ly_scm2string ($2);
}
| score_body lilypond_header {
- $$->header_ = $2;
+ $$->set_header ($2);
}
| score_body output_def {
if ($2->lookup_variable (ly_symbol2scm ("is-paper")) == SCM_BOOL_T)
tempo_event:
TEMPO steno_duration '=' bare_unsigned {
- $$ = MAKE_SYNTAX ("tempo", @$, $2, scm_int2num ($4));
- }
+ $$ = MAKE_SYNTAX ("tempo", @$, SCM_BOOL_F, $2, scm_int2num ($4));
+ }
+ | TEMPO string steno_duration '=' bare_unsigned {
+ $$ = MAKE_SYNTAX ("tempo", @$, make_simple_markup($2), $3, scm_int2num ($5));
+ }
+ | TEMPO full_markup steno_duration '=' bare_unsigned {
+ $$ = MAKE_SYNTAX ("tempo", @$, $2, $3, scm_int2num ($5));
+ }
+ | TEMPO string {
+ $$ = MAKE_SYNTAX ("tempoText", @$, make_simple_markup($2) );
+ }
+ | TEMPO full_markup {
+ $$ = MAKE_SYNTAX ("tempoText", @$, $2 );
+ }
;
/*
{
m->set_property ("no-continuation", SCM_BOOL_T);
}
+ else if ($2 == ly_symbol2scm ("backslash"))
+ {
+ m->set_property ("augmented-slash", SCM_BOOL_T);
+ }
}
;
| '/' {
$$ = ly_symbol2scm ("slash");
}
+ | E_BACKSLASH {
+ $$ = ly_symbol2scm ("backslash");
+ }
;
br_bass_figure:
| MARKUP_LIST_HEAD_LIST0 markup_list {
$$ = scm_list_2 ($1, $2);
}
+ | MARKUP_LIST_HEAD_SCM0 embedded_scm {
+ $$ = scm_list_2 ($1, $2);
+ }
| MARKUP_LIST_HEAD_SCM0_LIST1 embedded_scm markup_list {
$$ = scm_list_3 ($1, $2, $3);
}