blob: 57a1e0cde29ebac4c5eecf196a682fbb2a728039 (
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
|
%option noyywrap
%{
#include <string.h>
#include "little.tab.h"
extern char* lextext;
extern int lexnum;
%}
DIGIT [0-9]
ID [A-Za-z_][A-Za-z_0-9]*
%%
-?{DIGIT}+ { lexnum = atoi(yytext); return NUM; }
"while" { return T_WHILE; }
"do" { return T_DO; }
"done" { return T_DONE; }
"end" { return T_END; }
"in" { return T_IN; }
"skip" { return T_SKIP; }
"variables" {return T_VARIABLES; }
":=" {return T_ASSIGN; }
">" {return T_GT; }
";" {return T_SCOLUMN;}
"+" {return T_PLUS;}
"(" {return T_OPEN;}
")" {return T_CLOSE;}
"{" {return T_OPEN_B;}
"}" {return T_CLOSE_B;}
[ \t\n]
{ID} { if(!(lextext =(char*)malloc(yyleng*sizeof(char)))) {
printf("failed memory allocation for variable %s", yytext);
exit(-1);
}
memcpy(lextext, yytext, yyleng);
return(ID);
}
%%
|
