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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
#include "code.h"
#include <string.h>
#include <time.h>
#include "graphs.h"
#include "mem.h"
#include "print.h"
void fill_node_int(struct node** node, int i) {
unsigned int used_count = (*node)->used_count;
free_node(*node, used_count, 0);
(*node)->kind = NODE_INT;
(*node)->var1 = my_calloc(1, sizeof(int));
*((int*) (*node)->var1) = i;
use_node(*node, used_count);
}
void fill_node_bool(struct node** node, int i) {
fill_node_int(node, i ? 1 : 0);
}
void fill_node_name(struct node** node, char* s) {
unsigned int used_count = (*node)->used_count;
free_node(*node, used_count, 0);
(*node)->kind = NODE_NAME;
(*node)->var1 = my_calloc(1, strlen(s) + 1);
strcpy((*node)->var1, s);
use_node(*node, used_count);
}
void code_time(struct node** result) {
fill_node_int(result, (int) time(NULL));
}
void code_trace(struct node** result, struct node *p, struct node *r) {
print_node(p);
printf("\n");
use_node(r, (*result)->used_count);
free_node(*result, (*result)->used_count, 1);
*result = r;
}
void code_add(struct node** result, struct node* a, struct node* b) {
if (a->kind != NODE_INT || b->kind != NODE_INT)
fill_node_name(result, "add on non-ints");
else
fill_node_int(result, *((int*) b->var1) + *((int*) a->var1));
}
void code_mul(struct node** result, struct node* a, struct node* b) {
if (a->kind != NODE_INT || b->kind != NODE_INT)
fill_node_name(result, "mul on non-ints");
else
fill_node_int(result, *((int*) a->var1) * *((int*) b->var1));
}
void code_sub(struct node** result, struct node* a, struct node* b) {
if (a->kind != NODE_INT || b->kind != NODE_INT)
fill_node_name(result, "sub on non-ints");
else
fill_node_int(result, *((int*) b->var1) - *((int*) a->var1));
}
void code_eq(struct node** result, struct node* a, struct node* b) {
if (a->kind != NODE_INT || b->kind != NODE_INT)
fill_node_name(result, "eq on non-ints");
else
fill_node_bool(result, *((int*) a->var1) == *((int*) b->var1));
}
void code_gt(struct node** result, struct node* a, struct node* b) {
if (a->kind != NODE_INT || b->kind != NODE_INT)
fill_node_name(result, "gt on non-ints");
else
fill_node_bool(result, *((int*) a->var1) > *((int*) b->var1));
}
void code_ge(struct node** result, struct node* a, struct node* b) {
if (a->kind != NODE_INT || b->kind != NODE_INT)
fill_node_name(result, "ge on non-ints");
else
fill_node_bool(result, *((int*) a->var1) >= *((int*) b->var1));
}
void code_lt(struct node** result, struct node* a, struct node* b) {
if (a->kind != NODE_INT || b->kind != NODE_INT)
fill_node_name(result, "lt on non-ints");
else
fill_node_bool(result, *((int*) a->var1) < *((int*) b->var1));
}
void code_le(struct node** result, struct node* a, struct node* b) {
if (a->kind != NODE_INT || b->kind != NODE_INT)
fill_node_name(result, "le on non-ints");
else
fill_node_bool(result, *((int*) a->var1) <= *((int*) b->var1));
}
void code_ne(struct node** result, struct node* a, struct node* b) {
if (a->kind != NODE_INT || b->kind != NODE_INT)
fill_node_name(result, "ne on non-ints");
else
fill_node_bool(result, *((int*) a->var1) != *((int*) b->var1));
}
unsigned char code_find(char* name, void** function) {
if (!strcmp(name, "time")) {
*function = (void(*)(void)) code_time;
return 0;
} else if (!strcmp(name, "trace")) {
*function = (void(*)(void)) code_trace;
return 2;
} else if (!strcmp(name, "add")) {
*function = (void(*)(void)) code_add;
return 2;
} else if (!strcmp(name, "mul")) {
*function = (void(*)(void)) code_mul;
return 2;
} else if (!strcmp(name, "sub")) {
*function = (void(*)(void)) code_sub;
return 2;
} else if (!strcmp(name, "eq")) {
*function = (void(*)(void)) code_eq;
return 2;
} else if (!strcmp(name, "ge")) {
*function = (void(*)(void)) code_ge;
return 2;
} else if (!strcmp(name, "gt")) {
*function = (void(*)(void)) code_gt;
return 2;
} else if (!strcmp(name, "le")) {
*function = (void(*)(void)) code_le;
return 2;
} else if (!strcmp(name, "lt")) {
*function = (void(*)(void)) code_lt;
return 2;
} else if (!strcmp(name, "ne")) {
*function = (void(*)(void)) code_ne;
return 2;
}
*function = NULL;
return 0;
}
|
