blob: 8a8c5b78ca81a2c7cd0b879e0c291e98c4bcce50 (
plain)
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
|
%option noyywrap yylineno
%{
#include "parser.tab.h"
%}
DIGIT [0-9]
IDENT [A-Za-z][A-Za-z0-9]*
WHITESPACE [ \t\r\n]+
%%
\/\*([^*]|\*+[^*/])*\*+\/ { /* ignore comments */ }
"skip" { return T_SKIP; }
"if" { return T_IF; }
"then" { return T_THEN; }
"else" { return T_ELSE; }
"end" { return T_END; }
"while" { return T_WHILE; }
"do" { return T_DO; }
"var" { return T_VAR; }
"in" { return T_IN; }
"procedure" { return T_PROC; }
"begin" { return T_BEGIN; }
"(" { return T_LPAREN; }
")" { return T_RPAREN; }
";" { return T_SEM; }
"," { return T_COM; }
":=" { return T_ASSIGN; }
"+" { return T_PLUS; }
"-" { return T_MINUS; }
"*" { return T_STAR; }
"or" { return T_OR; }
"and" { return T_AND; }
"not" { return T_NOT; }
"=" { return T_EQ; }
"#" { return T_NE; }
"<=" { return T_LE; }
"<" { return T_LT; }
">=" { return T_GE; }
">" { return T_GT; }
"true" { return T_TRUE; }
"false" { return T_FALSE; }
{DIGIT}+ { yylval.num = atoi(yytext); return T_NUM; }
{IDENT} { yylval.id = strdup(yytext); return T_ID; }
{WHITESPACE} { /* ignore whitespace */ }
. { fprintf(stderr, "Unknown char: %s\n", yytext); }
%%
|
