Home
main.c - scc - simple c99 compiler
HTML git clone git://git.simple-cc.org/scc
DIR Log
DIR Files
DIR Refs
DIR Submodules
DIR README
DIR LICENSE
---
main.c (1502B)
---
1 #include <setjmp.h>
2 #include <stdio.h>
3 #include <stdlib.h>
4 #include <string.h>
5 #include <errno.h>
6
7 #include <scc/arg.h>
8 #include <scc/scc.h>
9
10 #include "cc1.h"
11
12 char *argv0;
13
14 int warnings;
15 jmp_buf recover;
16
17 int onlycpp, onlyheader;
18
19
20 extern int failure;
21
22 static void
23 defmacro(char *macro)
24 {
25 char *p = strchr(macro, '=');
26
27 if (p)
28 *p++ = '\0';
29 else
30 p = "1";
31
32 defdefine(macro, p, "command-line");
33 }
34
35 static void
36 usage(void)
37 {
38 fputs("usage: cc1 [-Ewd] [-D def[=val]]... [-U def]... "
39 "[-I dir]... [-a architecture] [input]\n", stderr);
40 exit(1);
41 }
42
43 int
44 main(int argc, char *argv[])
45 {
46 int i;
47 static struct items uflags, dflags, iflags;
48
49 ARGBEGIN {
50 case 'a':
51 architecture = EARGF(usage());
52 break;
53 case 'D':
54 newitem(&dflags, EARGF(usage()));
55 break;
56 case 'M':
57 onlyheader = 1;
58 break;
59 case 'E':
60 onlycpp = 1;
61 break;
62 case 'I':
63 newitem(&iflags, EARGF(usage()));
64 break;
65 case 'U':
66 newitem(&uflags, EARGF(usage()));
67 break;
68 case 'd':
69 DBGON();
70 break;
71 case 'w':
72 warnings = 1;
73 break;
74 default:
75 usage();
76 } ARGEND
77
78 if (argc > 1)
79 usage();
80
81 isyms();
82 icode();
83 iarch();
84 icpp();
85
86 for (i = 0; i < iflags.n; ++i)
87 incdir(iflags.s[i]);
88
89 for (i = 0; i < dflags.n; ++i)
90 defmacro(dflags.s[i]);
91
92 for (i = 0; i < uflags.n; ++i)
93 undefmacro(uflags.s[i]);
94
95 if (*argv)
96 addinput(IFILE, *argv, FAIL);
97 else
98 addinput(ISTDIN, NULL, FAIL);
99
100 if (onlycpp || onlyheader) {
101 outcpp();
102 } else {
103 next();
104 while (yytoken != EOFTOK)
105 decl();
106 }
107
108 return failure;
109 }