-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathsemantic.cpp
81 lines (76 loc) · 2.17 KB
/
semantic.cpp
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
#include "lexical.h"
#include "syntax.h"
#include "semantic.h"
#include "external.h"
char valuesta[MAX][10] = {'\0'};
int idxofv=0;
vaStr ids[MAX];
int idxofid=0;
vaStr results[MAX];
int idxofres=0;
char res[5];
int inr='1';
void subforadd(FILE *fw)
{
res[1]=inr;
inr++;
char temp[10];
printf("Quadruples: (+ , %s , %s , %s )\n",valuesta[idxofv-2],valuesta[idxofv-1],res);
fprintf(fw,"Quadruples: ( + , %s , %s , %s )\n",valuesta[idxofv-2],valuesta[idxofv-1],res);
strcpy(results[idxofres].name,res);
strcpy(temp,valuesta[idxofv-2]);
strcat(temp,"+");
strcat(temp,valuesta[idxofv-1]);
strcpy(results[idxofres].val,temp);
strcpy(valuesta[idxofv-2],res);
idxofres++;
idxofv-=1;
}
void subformin(FILE *fw)
{
res[1]=inr;
inr++;
char temp[10];
printf("Quadruples: ( - , %s , %s , %s )\n",valuesta[idxofv-2],valuesta[idxofv-1],res);
fprintf(fw,"Quadruples: ( - , %s , %s , %s )\n",valuesta[idxofv-2],valuesta[idxofv-1],res);
strcpy(results[idxofres].name,res);
strcpy(temp,valuesta[idxofv-2]);
strcat(temp,"-");
strcat(temp,valuesta[idxofv-1]);
strcpy(results[idxofres].val,temp);
strcpy(valuesta[idxofv-2],res);
idxofres++;
idxofv-=1;
}
void subformul(FILE *fw)
{
res[1]=inr;
inr++;
char temp[10];
printf("Quadruples: ( * , %s , %s , %s )\n",valuesta[idxofv-2],valuesta[idxofv-1],res);
fprintf(fw,"Quadruples: ( * , %s , %s , %s )\n",valuesta[idxofv-2],valuesta[idxofv-1],res);
strcpy(results[idxofres].name,res);
strcpy(temp,valuesta[idxofv-2]);
strcat(temp,"*");
strcat(temp,valuesta[idxofv-1]);
strcpy(results[idxofres].val,temp);
strcpy(valuesta[idxofv-2],res);
idxofres++;
idxofv-=1;
}
void subfordif(FILE *fw)
{
res[1]=inr;
inr++;
char temp[10];
printf("Quadruples: ( / , %s , %s , %s )\n",valuesta[idxofv-2],valuesta[idxofv-1],res);
fprintf(fw,"Quadruples: ( / , %s , %s , %s )\n",valuesta[idxofv-2],valuesta[idxofv-1],res);
strcpy(results[idxofres].name,res);
strcpy(temp,valuesta[idxofv-2]);
strcat(temp,"/");
strcat(temp,valuesta[idxofv-1]);
strcpy(results[idxofres].val,temp);
strcpy(valuesta[idxofv-2],res);
idxofres++;
idxofv-=1;
}