-
Notifications
You must be signed in to change notification settings - Fork 0
/
lval.c
57 lines (50 loc) · 1.03 KB
/
lval.c
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
#include "parsing.h"
typedef struct {
int type;
long num;
int err;
} lval;
/*Create enumeration of possible lval types*/
enum {
LVAL_NUM,
LVAL_ERR
};
/*Create enumeration of possible error types*/
enum {
LERR_DIV_ZERO,
LERR_BAD_OP,
LERR_BAD_NUM
};
/* Create a new number type lval */
lval lval_num(long x) {
lval v;
v.type = LVAL_NUM;
v.num = x;
return v;
}
/* Create a new error type lval */
lval lval_err(int x) {
lval v;
v.type = LVAL_ERR;
v.err = x;
return v;
}
void lval_print(lval v) {
switch (v.type) {
case LVAL_NUM: printf("%li", v.num); break;
case LVAL_ERR:
if (v.err == LERR_DIV_ZERO) {
printf("Error: Division by Zero!");
} else if (v.err == LERR_BAD_OP) {
printf("Error: Invalid operator!");
} else if (v.err == LERR_BAD_NUM) {
printf("Error: Invalid number!");
}
break;
}
}
void lval_println(lval v)
{
lval_print(v);
printf("\n");
}