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

read signed real numbers

This commit is contained in:
Yuichi Nishiwaki 2013-10-16 10:19:16 +09:00
parent 4340c23f20
commit 40a971230d
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/scan.l
View File

@ -14,15 +14,23 @@ struct parser_control {
%option nounput %option nounput
/* symbol */
identifier [a-z0-9A-Z+-/*?<=>_]+
/* number */
digit [0-9]
real {sign}{ureal}|{infnan}
ureal {digit}+|\.{digit}+|{digit}+\.{digit}*
sign [+-]?
infnan (\+inf\.0|-inf\.0|\+nan\.0|-nan\.0)
%% %%
[ \t\n\r] /* skip whitespace */ [ \t\n\r] /* skip whitespace */
"(" return tLPAREN; "(" return tLPAREN;
")" return tRPAREN; ")" return tRPAREN;
[0-9]+ { yylval.datum = pic_float_value(atoi(yytext)); return tNUMBER; } {real} { yylval.datum = pic_float_value(atof(yytext)); return tNUMBER; }
\.[0-9]+ { yylval.datum = pic_float_value(atof(yytext)); return tNUMBER; } {identifier} { yylval.datum = pic_intern_cstr(p->pic, yytext); return tSYMBOL; }
[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; }
%% %%