AA {A}|_
N [0-9]
ANY_CHAR (.|\n)
-WORD {A}([-_]{A}|{A})*
-COMMAND \\{WORD}
+SYMBOL {A}([-_]{A}|{A})*
+COMMAND \\{SYMBOL}
/* SPECIAL category is for every letter that needs to get passed to
* the parser rather than being redefinable by the user */
SPECIAL [-+*/=<>{}!?_^'',.:]
/* Flex picks the longest matching pattern including trailing
* contexts. Without the backup pattern, r-. does not trigger the
- * {RESTNAME} rule but rather the {WORD}/[-_] rule coming later,
+ * {RESTNAME} rule but rather the {SYMBOL}/[-_] rule coming later,
* needed for avoiding backup states.
*/
}
<notes,figures>{
- {WORD}/[-_] | // backup rule
- {WORD} {
+ {SYMBOL}/[-_] | // backup rule
+ {SYMBOL} {
return scan_bare_word (YYText_utf8 ());
}
\\\" {
s = lyric_fudge (s);
yylval = ly_string2scm (s);
- return WORD;
+ return SYMBOL;
}
/* This should really just cover {} */
[{}] {
}
}
<chords>{
- {WORD}/[-_] | // backup rule
- {WORD} {
+ {SYMBOL}/[-_] | // backup rule
+ {SYMBOL} {
return scan_bare_word (YYText_utf8 ());
}
\\\" {
string s (YYText_utf8 ());
yylval = ly_string2scm (s);
- return WORD;
+ return SYMBOL;
}
[{}] {
yylval = SCM_UNSPECIFIED;
}
<INITIAL>{
- {WORD}/[-_] | // backup rule
- {WORD} {
+ {SYMBOL}/[-_] | // backup rule
+ {SYMBOL} {
return scan_bare_word (YYText_utf8 ());
}
\\\" {
yylval = ly_string2scm (str);
- return STRING; // WORD would cause additional processing
+ return STRING; // SYMBOL would cause additional processing
}
int
return state;
}
yylval = ly_string2scm (str);
- return WORD;
+ return SYMBOL;
}
int
%token STRING
%token SYMBOL_LIST
%token TONICNAME_PITCH
-%token WORD
+%token SYMBOL
%left '-' '+'
*/
assignment_id:
STRING
- | WORD
+ | SYMBOL
;
assignment:
symbol_list_part_bare:
- WORD
+ SYMBOL
{
$$ = try_word_variants (Lily::key_list_p, $1);
if (SCM_UNBNDP ($$)) {
else
MYREPARSE (@4, $2, SCM_ARG, $4);
}
- | EXPECT_OPTIONAL EXPECT_SCM function_arglist_nonbackup WORD
+ | EXPECT_OPTIONAL EXPECT_SCM function_arglist_nonbackup SYMBOL
{
$$ = $3;
SCM res = try_word_variants ($2, $4);
MYBACKUP (STRING, $4, @4);
}
}
- | EXPECT_OPTIONAL EXPECT_SCM function_arglist_backup WORD
+ | EXPECT_OPTIONAL EXPECT_SCM function_arglist_backup SYMBOL
{
SCM res = try_word_variants ($2, $4);
if (!SCM_UNBNDP (res))
// know the predicate to be false.
MYREPARSE (@3, $1, SCM_ARG, $3);
}
- | EXPECT_SCM function_arglist_optional WORD
+ | EXPECT_SCM function_arglist_optional SYMBOL
{
$$ = $2;
SCM res = try_word_variants ($1, $3);
| context_def_mod STRING {
$$ = scm_list_2 ($1, $2);
}
- | context_def_mod WORD {
+ | context_def_mod SYMBOL {
$$ = scm_list_2 ($1, $2);
}
| context_def_mod embedded_scm
string:
STRING
- | WORD
+ | SYMBOL
| full_markup
;
text:
STRING
- | WORD
+ | SYMBOL
| full_markup
| embedded_scm_bare
{
;
simple_string: STRING
- | WORD
+ | SYMBOL
| embedded_scm_bare
{
if (scm_is_string ($1)) {
STRING {
$$ = scm_string_to_symbol ($1);
}
- | WORD
+ | SYMBOL
{
if (!is_regular_identifier ($1, false))
parser->parser_error (@1, (_ ("symbol expected")));
make_simple_markup ($1));
$$ = t->unprotect ();
}
- | WORD {
+ | SYMBOL {
// Flag a warning? could be unintentional
Music *t = MY_MAKE_MUSIC ("TextScriptEvent", @$);
t->set_property ("text",
bass_number:
UNSIGNED
| STRING
- | WORD
+ | SYMBOL
| full_markup
| embedded_scm_bare
{
parser->parser_error (@1, _ ("markup outside of text script or \\lyricmode"));
$$ = $1;
}
- | WORD {
+ | SYMBOL {
if (!parser->lexer_->is_lyric_state ())
parser->parser_error (@1, _f ("not a note name: %s", ly_scm2string ($1)));
$$ = $1;
STRING {
$$ = make_simple_markup ($1);
}
- | WORD {
+ | SYMBOL {
$$ = make_simple_markup ($1);
}
| SCORE {