picrin/src/scan.l

49 lines
896 B
Plaintext
Raw Normal View History

2013-10-11 02:18:37 -04:00
%{
2013-10-11 23:07:28 -04:00
#include <stdlib.h>
2013-10-11 02:18:37 -04:00
#include "picrin.h"
#include "y.tab.h"
struct parser_control {
pic_state *pic;
pic_value value;
2013-10-19 14:05:42 -04:00
bool incomp;
2013-10-11 02:18:37 -04:00
};
#define YY_DECL int yylex (struct parser_control *p)
%}
2013-10-19 14:05:42 -04:00
%option noinput
2013-10-12 05:46:41 -04:00
%option nounput
2013-10-16 00:17:01 -04:00
/* boolean */
boolean #t|#f|#true|#false
2013-10-15 21:19:16 -04:00
/* symbol */
2013-10-17 05:14:18 -04:00
identifier [a-z0-9A-Z+-/*?<=>_.]+
2013-10-15 21:19:16 -04:00
/* number */
digit [0-9]
real {sign}{ureal}|{infnan}
ureal {digit}+|\.{digit}+|{digit}+\.{digit}*
sign [+-]?
2013-10-16 00:17:01 -04:00
infnan "+inf.0"|"-inf.0"|"+nan.0"|"-nan.0"
2013-10-15 21:19:16 -04:00
2013-10-11 02:18:37 -04:00
%%
2013-10-12 05:46:11 -04:00
[ \t\n\r] /* skip whitespace */
2013-10-17 05:14:18 -04:00
"." return tDOT;
2013-10-15 10:25:31 -04:00
"(" return tLPAREN;
")" return tRPAREN;
2013-10-16 00:17:01 -04:00
{boolean} { yylval.datum = pic_bool_value(strcmp(yytext, "#t") == 0 || strcmp(yytext, "#true") == 0); return tBOOLEAN; }
2013-10-15 21:19:16 -04:00
{real} { yylval.datum = pic_float_value(atof(yytext)); return tNUMBER; }
{identifier} { yylval.datum = pic_intern_cstr(p->pic, yytext); return tSYMBOL; }
2013-10-11 02:18:37 -04:00
%%
int
yywrap()
{
return 1;
}