-
Notifications
You must be signed in to change notification settings - Fork 1
/
lex.l
66 lines (55 loc) · 2.69 KB
/
lex.l
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
55
56
57
58
59
60
61
62
63
64
65
66
%{
#include "y.tab.h"
%}
DIGIT [0-9]
ALPHA [A-Za-z]
SIGN [\+\-]
NUMBER {DIGIT}+
%%
[ \n] ;
[[:space:][:blank:]] ;
char return CHAR;
int return INT;
double return DOUBLE;
program return PROGRAM;
bool return BOOL;
for return FOR;
to return TO;
down return DOWN;
while return WHILE;
until return UNTIL;
if return IF;
then return THEN;
else return ELSE;
switch return SWITCH;
case return CASE;
of return OF;
break return BREAK;
repeat return REPEAT;
continue return CONTINUE;
return return RETURN;
write return WRITE;
read return READ;
true return TRUE;
false return FALSE;
in return IN;
end return END;
do return DO;
(_|{ALPHA})({ALPHA}|{DIGIT}|_)* return ID;
{SIGN}?{NUMBER} return IntNumber;
{SIGN}?{NUMBER}*[.]{NUMBER}+ return RealNumber;
{SIGN}?{NUMBER}+[.]{NUMBER}* return RealNumber;
{SIGN}?{NUMBER}+[eE]{SIGN}?{NUMBER}+ return RealNumber;
\"[^"\n]+\" return STRING;
'[^'\n]' return CHARACTER;
"<=" return LTE;
">=" return GTE;
"==" return EQU;
"!=" return NEQ;
".." return RANGE_DOTS;
"&&" return LOGIC_AND;
"||" return LOGIC_OR;
%%
int yywrap(void){
return 1;
}