-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathlex.l
More file actions
54 lines (39 loc) · 1.17 KB
/
lex.l
File metadata and controls
54 lines (39 loc) · 1.17 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
%option nodefault yylineno
%{
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "y.tab.h"
%}
%%
"def" { return DEF; }
"return" { strcpy(yylval.data, yytext); return RETURN; }
"while" { strcpy(yylval.data, yytext); return WHILE; }
"for" { return FOR; }
"in" { return IN; }
"append" { return APPEND; }
"print" { return PRINT; }
"if" { return IF; }
"elif" { return ELIF; }
"else" { return ELSE; }
"range" { return RANGE; }
"(" { return LPAREN; }
")" { return RPAREN; }
":" { return COLON; }
"->" { return ARROW; }
"[" { return LBRACKET; }
"]" { return RBRACKET; }
"," { return COMMA; }
"." { return DOT; }
"=="|"<="|">="|"!="|"\+="|[=+*<>%] { strcpy(yylval.data, yytext); return OP; }
[0-9]+"."[0-9]+ { strcpy(yylval.data, yytext); return FLOAT; }
[0-9]+ { strcpy(yylval.data, yytext); return INT; }
"#"[^\n]* { strcpy(yylval.data, yytext); return COMMENT; }
\"[^\"]*\" { strcpy(yylval.data, yytext); return STRING; }
[a-zA-Z_][a-zA-Z0-9_]* { strcpy(yylval.data, yytext); return IDENT; }
[ \t\r\n]+ ;
. { printf("Unknown char: %s\n", yytext); }
%%
int yywrap(void) {
return 1;
}