Mercurial > hg-old > index.cgi

comparison old-trunk/lwlink/main.c @ 339:eb230fa7d28e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Prepare for migration to hg
author lost
date Fri, 19 Mar 2010 02:54:14 +0000
parents
children
comparison
equal deleted inserted replaced
338:e7885b3ee266 339:eb230fa7d28e
1 /*
2 main.c
3 Copyright © 2009 William Astle
4
5 This file is part of LWLINK.
6
7 LWLINK is free software: you can redistribute it and/or modify it under the
8 terms of the GNU General Public License as published by the Free Software
9 Foundation, either version 3 of the License, or (at your option) any later
10 version.
11
12 This program is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
15 more details.
16
17 You should have received a copy of the GNU General Public License along with
18 this program. If not, see <http://www.gnu.org/licenses/>.
19
20
21 Implements the program startup code
22
23 */
24
25 #include <config.h>
26
27 #include <argp.h>
28 #include <errno.h>
29 #include <stdio.h>
30 #include <stdlib.h>
31 #include <unistd.h>
32
33 #include "lwlink.h"
34
35 char *program_name;
36
37 // command line option handling
38 const char *argp_program_version = "LWLINK from " PACKAGE_STRING;
39 const char *argp_program_bug_address = PACKAGE_BUGREPORT;
40
41 static error_t parse_opts(int key, char *arg, struct argp_state *state)
42 {
43 switch (key)
44 {
45 case 'o':
46 // output
47 outfile = arg;
48 break;
49
50 case 's':
51 // script file
52 scriptfile = arg;
53 break;
54
55 case 'd':
56 // debug
57 debug_level++;
58 break;
59
60 case 'b':
61 // decb output
62 outformat = OUTPUT_DECB;
63 break;
64
65 case 'r':
66 // raw binary output
67 outformat = OUTPUT_RAW;
68 break;
69
70 case 'f':
71 // output format
72 if (!strcasecmp(arg, "decb"))
73 outformat = OUTPUT_DECB;
74 else if (!strcasecmp(arg, "raw"))
75 outformat = OUTPUT_RAW;
76 else if (!strcasecmp(arg, "lwex0") || !strcasecmp(arg, "lwex"))
77 outformat = OUTPUT_LWEX0;
78 else
79 {
80 fprintf(stderr, "Invalid output format: %s\n", arg);
81 exit(1);
82 }
83 break;
84 case ARGP_KEY_END:
85 // done; sanity check
86 if (!outfile)
87 outfile = "a.out";
88 break;
89
90 case 'l':
91 add_input_library(arg);
92 break;
93
94 case 'L':
95 add_library_search(arg);
96 break;
97
98 case 0x100:
99 add_section_base(arg);
100 break;
101
102 case 'm':
103 map_file = arg;
104 break;
105
106 case ARGP_KEY_ARG:
107 add_input_file(arg);
108 break;
109
110 default:
111 return ARGP_ERR_UNKNOWN;
112 }
113 return 0;
114 }
115
116 static struct argp_option options[] =
117 {
118 { "output", 'o', "FILE", 0,
119 "Output to FILE"},
120 { "debug", 'd', 0, 0,
121 "Set debug mode"},
122 { "format", 'f', "TYPE", 0,
123 "Select output format: decb, raw, lwex"},
124 { "decb", 'b', 0, 0,
125 "Generate DECB .bin format output, equivalent of --format=decb"},
126 { "raw", 'r', 0, 0,
127 "Generate raw binary format output, equivalent of --format=raw"},
128 { "script", 's', "FILE", 0,
129 "Specify the linking script (overrides the built in defaults)"},
130 { "library", 'l', "LIBSPEC", 0,
131 "Read library libLIBSPEC.a from the search path" },
132 { "library-path", 'L', "DIR", 0,
133 "Add DIR to the library search path" },
134 { "section-base", 0x100, "SECT=BASE", 0,
135 "Load section SECT at BASE" },
136 { "map", 'm', "FILE", 0,
137 "Output informaiton about the link" },
138 { 0 }
139 };
140
141 static struct argp argp =
142 {
143 options,
144 parse_opts,
145 "<input file> ...",
146 "LWLINK, a HD6309 and MC6809 cross-linker"
147 };
148
149 extern void read_files(void);
150 extern void setup_script(void);
151 extern void resolve_files(void);
152 extern void resolve_sections(void);
153 extern void resolve_references(void);
154 extern void do_output(void);
155 extern void display_map(void);
156
157 // main function; parse command line, set up assembler state, and run the
158 // assembler on the first file
159 int main(int argc, char **argv)
160 {
161 program_name = argv[0];
162
163 argp_parse(&argp, argc, argv, 0, 0, NULL);
164 if (ninputfiles == 0)
165 {
166 fprintf(stderr, "No input files\n");
167 exit(1);
168 }
169
170 unlink(outfile);
171
172 // handle the linker script
173 setup_script();
174
175 // read the input files
176 read_files();
177
178 // trace unresolved references and determine which non-forced
179 // objects must be included
180 resolve_files();
181
182 // resolve section bases and section order
183 resolve_sections();
184
185 // resolve incomplete references
186 resolve_references();
187
188 // do the actual output
189 do_output();
190
191 // display/output the link map
192 if (map_file)
193 display_map();
194
195 exit(0);
196 }