main.c - scc - simple c99 compiler
(HTM) git clone git://git.simple-cc.org/scc
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) Submodules
(DIR) README
(DIR) LICENSE
---
main.c (2862B)
---
1 #include <errno.h>
2 #include <stdarg.h>
3 #include <stdio.h>
4 #include <stdlib.h>
5 #include <string.h>
6
7 #include <scc/mach.h>
8
9 #include "ld.h"
10
11 #define MAX_LIB_PATHS 12
12
13 int sflag; /* discard all the symbols */
14 int xflag; /* discard local symbols */
15 int Xflag; /* discard locals starting with 'L' */
16 int rflag; /* preserve relocation bits */
17 int dflag; /* define common even with rflag */
18 int gflag; /* preserve debug symbols */
19 int nmagic; /* nmagic output */
20
21 char *filename, *membname;
22
23 Segment text = {.type = 'T'};
24 Segment rodata = {.type = 'R'};
25 Segment data = {.type = 'D'};
26 Segment bss = {.type = 'B'};
27 Segment debug = {.type = 'N'};
28
29 char *libpaths[MAX_LIB_PATHS];
30
31 char *output = "a.out", *entry = "start";
32 static int status;
33
34 void
35 error(char *fmt, ...)
36 {
37 va_list va;
38
39 va_start(va, fmt);
40 fprintf(stderr, "ld: %s: ", filename);
41 if (membname)
42 fprintf(stderr, "%s: ", membname);
43 vfprintf(stderr, fmt, va);
44 putc('\n', stderr);
45 va_end(va);
46
47 status = EXIT_FAILURE;
48 }
49
50 static void
51 cleanup(void)
52 {
53 if (status != EXIT_FAILURE)
54 remove(output);
55 }
56
57 /*
58 * pass1: Get the list of object files that are going to be linked.
59 * pass2: Calculate the size of every segment.
60 * pass3: Rebase all symbols in sections
61 * pass4: Create the temporary files per section
62 * pass5: Create the temporary files per segment
63 */
64 static void
65 ld(int argc, char*argv[])
66 {
67 pass1(argc, argv);
68 pass2(argc, argv);
69 /*
70 pass3(argc, argv);
71 pass4(argc, argv);
72 pass5(argc, argv);
73 */
74 debugsym();
75 debugsec();
76 }
77
78 static void
79 usage(void)
80 {
81 fputs("usage: ld [options] file ...\n", stderr);
82 exit(EXIT_FAILURE);
83 }
84
85 static void
86 Lpath(char *path)
87 {
88 char **bp, **end;
89
90 end = &libpaths[MAX_LIB_PATHS];
91 for (bp = libpaths; bp < end && *bp; ++bp)
92 ;
93 if (bp == end) {
94 fputs("ld: too many -L options\n", stderr);
95 exit(1);
96 }
97 *bp = path;
98 }
99
100 char *
101 nextarg(char **argp, char ***argv)
102 {
103 char *ap = *argp, **av = *argv;
104
105 if (ap[1]) {
106 *argp += strlen(ap);
107 return ap+1;
108 }
109
110 if (av[1]) {
111 *argv = ++av;
112 return *av;
113 }
114
115 usage();
116 }
117
118 int
119 main(int argc, char *argv[])
120 {
121 int files = 0;
122 char *ap, **av;
123
124 for (av = argv+1; *av; ++av) {
125 if (av[0][0] != '-') {
126 files = 1;
127 continue;
128 }
129 for (ap = &av[0][1]; *ap; ++ap) {
130 switch (*ap) {
131 case 's':
132 sflag = 1;
133 break;
134 case 'x':
135 xflag = 1;
136 break;
137 case 'X':
138 Xflag = 1;
139 break;
140 case 'i':
141 case 'r':
142 rflag = 1;
143 break;
144 case 'd':
145 dflag = 1;
146 break;
147 case 'n':
148 nmagic = 1;
149 break;
150 case 'l':
151 case 'u':
152 nextarg(&ap, &av);
153 break;
154 case 'L':
155 Lpath(nextarg(&ap, &av));
156 break;
157 case 'o':
158 output = nextarg(&ap, &av);
159 break;
160 case 'e':
161 entry = nextarg(&ap, &av);
162 break;
163 default:
164 usage();
165 }
166 }
167 }
168
169 if (!files)
170 usage();
171
172 atexit(cleanup);
173 ld(argc, argv);
174
175 return status;
176 }