Mercurial > hg-old > index.cgi

comparison old-trunk/lwlink/lwlink.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 lwlink.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
22 */
23
24 #include <config.h>
25
26 #define __lwlink_c_seen__
27
28 #include <argp.h>
29 #include <errno.h>
30 #include <stdio.h>
31 #include <stdlib.h>
32 #include <string.h>
33
34 #include "lwlink.h"
35 #include "util.h"
36
37 int debug_level = 0;
38 int outformat = OUTPUT_DECB;
39 char *outfile = NULL;
40 char *scriptfile = NULL;
41 int symerr = 0;
42 char *map_file = NULL;
43
44 fileinfo_t **inputfiles = NULL;
45 int ninputfiles = 0;
46
47 int nlibdirs = 0;
48 char **libdirs = NULL;
49
50 int nscriptls = 0;
51 char **scriptls = NULL;
52
53 void add_input_file(char *fn)
54 {
55 inputfiles = lw_realloc(inputfiles, sizeof(fileinfo_t *) * (ninputfiles + 1));
56 inputfiles[ninputfiles] = lw_malloc(sizeof(fileinfo_t));
57 memset(inputfiles[ninputfiles], 0, sizeof(fileinfo_t));
58 inputfiles[ninputfiles] -> forced = 1;
59 inputfiles[ninputfiles++] -> filename = lw_strdup(fn);
60 }
61
62 void add_input_library(char *libname)
63 {
64 inputfiles = lw_realloc(inputfiles, sizeof(fileinfo_t *) * (ninputfiles + 1));
65 inputfiles[ninputfiles] = lw_malloc(sizeof(fileinfo_t));
66 memset(inputfiles[ninputfiles], 0, sizeof(fileinfo_t));
67 inputfiles[ninputfiles] -> islib = 1;
68 inputfiles[ninputfiles] -> forced = 0;
69 inputfiles[ninputfiles++] -> filename = lw_strdup(libname);
70 }
71
72 void add_library_search(char *libdir)
73 {
74 libdirs = lw_realloc(libdirs, sizeof(char*) * (nlibdirs + 1));
75 libdirs[nlibdirs] = lw_strdup(libdir);
76 nlibdirs++;
77 }
78
79 void add_section_base(char *sectspec)
80 {
81 char *base;
82 int baseaddr;
83 char *t;
84 int l;
85
86 base = strchr(sectspec, '=');
87 if (!base)
88 {
89 l = strlen(sectspec);
90 baseaddr = 0;
91 }
92 else
93 {
94 baseaddr = strtol(base + 1, NULL, 16);
95 l = base - sectspec;
96 *base = '\0';
97 }
98 baseaddr = baseaddr & 0xffff;
99
100 t = lw_malloc(l + 25);
101 sprintf(t, "section %s load %04X", sectspec, baseaddr);
102 if (base)
103 *base = '=';
104
105 scriptls = lw_realloc(scriptls, sizeof(char *) * (nscriptls + 1));
106 scriptls[nscriptls++] = t;
107 }