Future/bison
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/bison.git synced 2026-03-20 09:43:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

examples: bistro: don't be lazy with switch

Browse Source 
* examples/c/bistromathic/parse.y (yylex): Use the switch to
discriminate all the cases.
This commit is contained in:
Akim Demaille
2020-04-14 07:59:51 +02:00
parent 758172a8b9
commit fc18b4313a
1 changed files with 36 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
examples/c/bistromathic/parse.y
View File

@@ -235,43 +235,49 @@ yylex (const char **line, YYSTYPE *yylval, YYLTYPE *yylloc)
case '(': return TOK_LPAREN; case '(': return TOK_LPAREN;
case ')': return TOK_RPAREN; case ')': return TOK_RPAREN;
case 0: return TOK_YYEOF; case '\0': return TOK_YYEOF;
default:
// Numbers. // Numbers.
if (c == '.' || isdigit (c)) case '.':
{ case '0': case '1': case '2': case '3': case '4':
int nchars = 0; case '5': case '6': case '7': case '8': case '9':
sscanf (*line - 1, "%lf%n", &yylval->TOK_NUM, &nchars); {
int nchars = 0;
sscanf (*line - 1, "%lf%n", &yylval->TOK_NUM, &nchars);
*line += nchars - 1; *line += nchars - 1;
yylloc->last_column += nchars - 1; yylloc->last_column += nchars - 1;
return TOK_NUM; return TOK_NUM;
} }
// Identifiers. // Identifiers.
else if (islower (c)) case 'a': case 'b': case 'c': case 'd': case 'e':
{ case 'f': case 'g': case 'h': case 'i': case 'j':
int nchars = 0; case 'k': case 'l': case 'm': case 'n': case 'o':
char buf[100]; case 'p': case 'q': case 'r': case 's': case 't':
sscanf (*line - 1, "%99[a-z]%n", buf, &nchars); case 'u': case 'v': case 'w': case 'x': case 'y':
*line += nchars - 1; case 'z':
yylloc->last_column += nchars - 1; {
if (strcmp (buf, "exit") == 0) int nchars = 0;
return TOK_EXIT; char buf[100];
else sscanf (*line - 1, "%99[a-z]%n", buf, &nchars);
{ *line += nchars - 1;
symrec *s = getsym (buf); yylloc->last_column += nchars - 1;
if (!s) if (strcmp (buf, "exit") == 0)
s = putsym (buf, TOK_VAR); return TOK_EXIT;
yylval->TOK_VAR = s; else
return s->type; {
} symrec *s = getsym (buf);
} if (!s)
s = putsym (buf, TOK_VAR);
yylval->TOK_VAR = s;
return s->type;
}
}
// Stray characters. // Stray characters.
else default:
{ yyerror (yylloc, "error: invalid character");
yyerror (yylloc, "error: invalid character"); return yylex (line, yylval, yylloc);
return yylex (line, yylval, yylloc);
}
} }
} }