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
|
#include <stdio.h>
#include <getopt.h>
#include <stdlib.h>
#include "cibic.tab.h"
#include "ast.h"
#include "ssa.h"
#include "semantics.h"
extern char linebuff[];
extern char *lptr;
extern int yyparse();
extern FILE *yyin;
char *fname;
int yywrap() {
return 1;
}
void print_error(char *err_msg, char *lb, int row, int col, int warn) {
*lptr = '\0';
fprintf(stderr, "%d:%d: %s: %s\n",
row, col, warn ? "warning" : "error", err_msg);
if (lb)
{
fprintf(stderr, "%s\n", lb);
while (--col) fprintf(stderr, "%c", ' ');
fprintf(stderr, "^\n");
}
if (!warn) exit(1);
}
int yyerror(char *err_msg) {
print_error(err_msg, linebuff,
yylloc.first_line, yylloc.first_column, 0);
return 0;
}
void print_ast() {
if (fname)
fprintf(stderr, "AST for file: \"%s\"\n", fname);
else
fprintf(stderr, "AST for stdin\n");
cibic_init();
yyparse();
cnode_debug_print(ast_root, 1);
}
void print_sem() {
cibic_init();
yyparse();
semantics_check(ast_root);
/* cnode_debug_print(ast_root, 1); */
}
void print_ssa() {
cibic_init();
yyparse();
semantics_check(ast_root);
ssa_generate();
}
void print_help() {
fprintf(stderr,
"CBIC: C Implemented Bare and Ingenuous Compiler\n\n"
"Copyright (C) 2014 Ted Yin\n"
"License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>\n"
"There is NO WARRANTY, to the extent permitted by law.\n"
"Usage: [options] filename\n"
"Options:\n"
"\t --ast \t\t Print AST Construction\n"
"\t --help \t Show this info\n"
);
}
static struct option lopts[] = {
{ "ast", no_argument, 0, 'a'},
{ "help", no_argument, 0, 'h'},
{ "sem", no_argument, 0, 'm'},
{0, 0, 0, 0}
};
enum {
PRINT_AST,
PRINT_HELP,
PRINT_SEM,
PRINT_SSA
} mode = PRINT_SSA;
int main(int argc, char **argv) {
int option_index = 0;
while (1)
{
int c = getopt_long(argc, argv, "ah", lopts, &option_index);
if (c == -1)
break;
switch (c)
{
case 0: break;
case 'a': mode = PRINT_AST; break;
case 'h': print_help(); return 0;
case 'm': mode = PRINT_SEM; break;
}
}
if (optind == argc - 1)
{
fname = argv[argc - 1];
yyin = fopen(fname, "r");
if (!yyin)
{
fprintf(stderr, "Error while opening file.\n");
return 1;
}
}
else if (optind == argc)
{
fname = NULL;
yyin = stdin;
}
else
{
fprintf(stderr, "Only one source file is exepected.\n");
return 1;
}
switch (mode)
{
case PRINT_AST: print_ast(); break;
case PRINT_HELP: print_help(); break;
case PRINT_SEM: print_sem(); break;
default: print_ssa();
}
return 0;
}
|