%token MIDI "\\midi"
%token NAME "\\name"
%token NOTEMODE "\\notemode"
-%token OBJECTID "\\objectid"
+%token OBJECTID "\\objectid"
%token OCTAVE "\\octave"
%token ONCE "\\once"
%token OVERRIDE "\\override"
}
| score_block {
Score *score = $1;
-
+
SCM proc = PARSER->lexer_->lookup_identifier ("toplevel-score-handler");
scm_call_2 (proc, PARSER->self_scm (), score->self_scm ());
score->unprotect ();
PARSER->lexer_->add_scope ($$);
}
| lilypond_header_body assignment {
-
+
}
;
}
}
| context_def_spec_body context_mod {
- unsmob_context_def ($$)->add_context_mod ($2);
+ unsmob_context_def ($$)->add_context_mod ($2);
}
;
if ($2->lookup_variable (ly_symbol2scm ("is-paper")) == SCM_BOOL_T)
{
PARSER->parser_error (@2, _("\\paper cannot be used in \\score, use \\layout instead"));
-
+
}
else
{
| '=' simple_string {
$$ = $2;
}
- ;
+ ;
prefix_composite_music:
simple_music_property_def:
OVERRIDE context_prop_spec property_path '=' scalar {
- $$ = scm_append (scm_list_2 (scm_list_n (scm_car ($2),
+ $$ = scm_append (scm_list_2 (scm_list_n (scm_car ($2),
ly_symbol2scm ("OverrideProperty"),
scm_cadr ($2),
$5, SCM_UNDEFINED),
SCM dur = unsmob_duration ($2)->smobbed_copy ();
SCM es = m->get_property ("elements");
SCM postevs = scm_reverse_x ($3, SCM_EOL);
-
+
for (SCM s = es; scm_is_pair (s); s = scm_cdr (s))
unsmob_music (scm_car (s))->set_property ("duration", dur);
es = ly_append2 (es, postevs);
Music *key = MY_MAKE_MUSIC ("KeyChangeEvent", @$);
if (scm_ilength ($3) > 0)
- {
+ {
key->set_property ("pitch-alist", $3);
key->set_property ("tonic", Pitch (0, 0, 0).smobbed_copy ());
key->transpose (* unsmob_pitch ($2));
$$ = scm_cons ($2, $$);
}
;
-
+
post_event:
direction_less_event {
$$ = $1;
a->set_property ("tremolo-type", scm_from_int ($1));
$$ = a->unprotect ();
}
- ;
-
+ ;
+
direction_reqd_event:
gen_text_def {
$$ = $1;
n = MY_MAKE_MUSIC ("RestEvent", @$);
else
n = MY_MAKE_MUSIC ("NoteEvent", @$);
-
+
n->set_property ("pitch", $1);
n->set_property ("duration", $5);
n->set_property ("duration", $2);
n->set_property ("drum-type", $1);
- $$ = n->unprotect ();
+ $$ = n->unprotect ();
}
| RESTNAME optional_notemode_duration {
Music *ev = 0;
}
else {
ev = MY_MAKE_MUSIC ("RestEvent", @$);
-
+
}
ev->set_property ("duration", $2);
$$ = ev->unprotect ();
simple_chord_elements:
simple_element {
$$ = scm_list_1 ($1);
- }
+ }
| new_chord {
if (!PARSER->lexer_->is_chord_state ())
PARSER->parser_error (@1, _ ("have to be in Chord mode for chords"));
unsmob_music (scm_car (s))->set_property ("duration", $2);
}
$$ = $1;
- }
+ }
;
lyric_element:
chord_items:
/**/ {
- $$ = SCM_EOL;
+ $$ = SCM_EOL;
}
| chord_items chord_item {
$$ = scm_cons ($2, $$);
| bare_unsigned CHORD_MINUS {
$$ = make_chord_step ($1, FLAT_ALTERATION);
}
- ;
+ ;
/*
UTILITIES
$$ = $1;
}
;
-
+
exclamations:
{ $$ = 0; }
markup_composed_list:
markup_head_1_list markup_braced_list {
$$ = scm_call_2 (ly_lily_module_constant ("map-markup-command-list"), $1, $2);
-
+
}
;
$$ = scm_list_3 ($1, $2, $3);
}
;
-
+
markup:
markup_head_1_list simple_markup {
SCM mapper = ly_lily_module_constant ("map-markup-command-list");
*destination = def->self_scm ();
def->unprotect ();
-
+
return CONTEXT_DEF_IDENTIFIER;
} else if (unsmob_score (sid)) {
Score *score = new Score (*unsmob_score (sid));
} else if (unsmob_output_def (sid)) {
Output_def *p = unsmob_output_def (sid);
p = p->clone ();
-
+
*destination = p->self_scm ();
p->unprotect ();
return OUTPUT_DEF_IDENTIFIER;
return MARKUP_IDENTIFIER;
}
- return -1;
+ return -1;
}
SCM
{
Music *relative = MY_MAKE_MUSIC ("RelativeOctaveMusic", loc);
relative->set_property ("element", music);
-
+
Music *m = unsmob_music (music);
Pitch last = m->to_relative_octave (start);
if (lily_1_8_relative)