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
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
#ifndef SEMANTICS_H
#define SEMANTICS_H
#include "const.h"
typedef struct CNode CNode;
typedef struct CTable *CTable_t;
typedef struct CType CType;
typedef CType *CType_t;
typedef struct CVar CVar;
typedef CVar *CVar_t;
typedef struct CSymbol CSymbol;
typedef CSymbol *CSymbol_t;
typedef struct CDef CDef;
typedef CDef *CDef_t;
struct CVar {
const char *name;
CVar_t next; /* next in the linked list */
CType_t type;
int start;
CNode *ast;
};
CVar_t cvar_create(const char *name, CType_t type, CNode *ast);
void cvar_print(CVar_t cv);
struct CType {
enum {
CINT,
CCHAR,
CVOID,
CSTRUCT,
CUNION,
CARR,
CPTR,
CFUNC
} type;
const char *name;
union {
struct {
CTable_t fields; /* for a struct or union */
CVar_t flist;
} st;
CType_t ref; /* for a pointer */
struct {
CType_t elem;
int len;
} arr; /* for an array */
struct {
CVar_t params;
CVar_t local;
CType_t ret;
CNode *body;
} func; /* for a function */
} rec;
int size; /* memory footprint */
CNode *ast;
};
CType_t ctype_create(const char *name, int type, CNode *ast);
void ctype_debug_print(CType_t ct);
typedef unsigned int (*Hashfunc_t) (const char *);
typedef const char *(*Printfunc_t) (void *);
typedef struct CTNode CTNode;
struct CTNode {
const char *key;
void *val;
CTNode *next;
int lvl;
};
typedef struct CTable {
CTNode *head[MAX_TABLE_SIZE];
Hashfunc_t hfunc;
Printfunc_t pfunc;
} CTable;
CTable_t ctable_create(Hashfunc_t hfunc, Printfunc_t pfunc);
void ctable_destroy(CTable_t ct);
void *ctable_lookup(CTable_t ct, const char *key);
int ctable_insert(CTable_t ct, const char *key, void *val, int lvl);
void ctable_clip(CTable_t ct, const char *key, int max_lvl);
void ctable_debug_print(CTable_t ct);
typedef struct CSElem CSElem;
struct CSElem {
CSymbol_t sym;
CSElem *next;
};
typedef struct CSNode CSNode;
struct CSNode {
CSElem *symlist;
CSNode *next;
};
typedef struct CScope CScope;
typedef CScope *CScope_t;
struct CScope {
int lvl;
CType_t func;
int inside_loop;
CSNode *top;
CTable_t ids; /* ordinary identifiers */
CTable_t tags; /* union & struct tags */
CTable_t ext_link; /* external linkage */
};
typedef struct ExpType {
CType_t type;
int lval;
} ExpType;
struct CSymbol {
enum {
CTYPE,
CVAR,
CDEF
} kind;
union {
CType_t type;
CVar_t var;
CDef_t def;
} rec;
};
const char *csymbol_print(void *csym);
const char *csym_getname(CSymbol_t csym);
struct CDef {
const char *name;
CType_t type;
CNode *ast;
};
CDef_t cdef_create(const char *name, CType_t type, CNode *ast);
CScope_t cscope_create(void);
CSymbol_t cscope_lookup(CScope_t cs, const char *name, int nspace);
int cscope_push_var(CScope_t cs, CVar_t var, int nspace);
int cscope_push_def(CScope_t cs, CDef_t def, int nspace);
int cscope_push_type(CScope_t cs, CType_t type, int nspace);
void cscope_enter(CScope_t cs);
void cscope_exit(CScope_t cs);
void cscope_debug_print(CScope_t cs);
unsigned int bkdr_hash(const char *str);
const char *ctable_cvar_print(void *var);
void semantics_check(CNode *ast);
enum DefState{
FORCE_ID,
IN_TYPEDEF,
NONE
};
int is_identifier(const char *name);
void push(const char *name);
void cibic_init(void);
void block_enter(void);
void block_exit(void);
void def_enter(enum DefState kind);
void def_exit(void);
#endif
|