tiny_basic/token.l at master · ivanalgo/tiny_basic · GitHub

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

%{
#include <string>
#include <vector>

#include <stdlib.h>
#include "parser.hpp"
#include "syntax.hpp"

using namespace std;

%}

%option noyywrap
%option yylineno

number [0-9]+
var [a-zA-Z][a-zA-Z0-9]*
newline \n
space [ \t]+

if "if"
else "else"
then "then"
while "while"
do "do"
print "print"

lop_equal "=="
lop_nequal "!="

%%

"if" {
	return IF;
}

"else" {
	return ELSE;
}

"THEN" {
	return THEN;
}

"endif" {
	return ENDIF;
}

"endwhile" {
	return ENDWHILE;
}

"while" {
	return WHILE;
}

"do" {
	return DO;
}

"print" {
	return PRINT;
}

"function" {
	return FUNC;
}

"endfunc" {
	return ENDFUNC;
}

{number} {
	yylval.tree = new imm_node(atoi(yytext));
	return NUM;
}

{var} {
	yylval.var = new string(yytext);

	return VAR;
}

{space} {
	//ignore
}

{lop_equal} {
	return token_lop_equal;
}

{lop_nequal} {
	return token_lop_nequal;
}

{newline} {
	return NEWLINE;
}

[(),=+-] {
	return *yytext;
}

"." {
	printf("lex: invalid: %s\n", yytext);
}

%%