conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

scan real numbers

This commit is contained in:
Yuichi Nishiwaki 2013-10-15 23:25:31 +09:00
parent 0515b8ba2a
commit 7f04cad34d
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/scan.l
View File

@ -19,7 +19,9 @@ struct parser_control {
[ \t\n\r] /* skip whitespace */ [ \t\n\r] /* skip whitespace */
"(" return tLPAREN; "(" return tLPAREN;
")" return tRPAREN; ")" return tRPAREN;
[1-9][0-9]* { yylval.datum = pic_float_value(atoi(yytext)); return tNUMBER; } [0-9]+ { yylval.datum = pic_float_value(atoi(yytext)); return tNUMBER; }
\.[0-9]+ { yylval.datum = pic_float_value(atof(yytext)); return tNUMBER; }
[0-9]+\.[0-9]* { yylval.datum = pic_float_value(atof(yytext)); return tNUMBER; }
[a-z0-9A-Z+-/*]+ { yylval.datum = pic_intern_cstr(p->pic, yytext); return tSYMBOL; } [a-z0-9A-Z+-/*]+ { yylval.datum = pic_intern_cstr(p->pic, yytext); return tSYMBOL; }
%% %%