Mercurial > hg-old > index.cgi
annotate lwasm/main.c @ 254:c7a41b4c89b3 2.x
Added struct support to LWASM
| author | lost |
|---|---|
| date | Sat, 19 Dec 2009 06:38:43 +0000 |
| parents | a58f49a77441 |
| children | e27279180a73 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 main.c | |
|
4
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
3 Copyright © 2008 William Astle |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
4 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
5 This file is part of LWASM. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
6 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
7 LWASM is free software: you can redistribute it and/or modify it under the |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
8 terms of the GNU General Public License as published by the Free Software |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
9 Foundation, either version 3 of the License, or (at your option) any later |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
10 version. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
11 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
12 This program is distributed in the hope that it will be useful, but WITHOUT |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
15 more details. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
16 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
17 You should have received a copy of the GNU General Public License along with |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
18 this program. If not, see <http://www.gnu.org/licenses/>. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
19 |
| 0 | 20 |
| 21 Implements the program startup code | |
| 22 | |
| 23 */ | |
| 24 | |
| 212 | 25 #include <config.h> |
|
5
287a6905a63c
Moved config.h to src/ and switched version strings to use autotools version
lost
parents:
4
diff
changeset
|
26 |
| 0 | 27 #include <argp.h> |
| 28 #include <errno.h> | |
| 29 #include <stdio.h> | |
| 30 #include <stdlib.h> | |
|
182
833d392fec82
Arranged for lwasm and lwlink to remove the output file in case they fail
lost
parents:
151
diff
changeset
|
31 #include <unistd.h> |
| 0 | 32 |
| 33 #include "lwasm.h" | |
| 34 | |
| 35 // external declarations | |
|
13
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
5
diff
changeset
|
36 extern void lwasm_pass1(asmstate_t *as); |
|
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
5
diff
changeset
|
37 extern void lwasm_pass2(asmstate_t *as); |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
19
diff
changeset
|
38 extern void lwasm_list(asmstate_t *as); |
| 46 | 39 extern void lwasm_output(asmstate_t *as); |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
40 extern void pseudo_pragma_real(asmstate_t *as, lwasm_line_t *cl, char **optr, int error); |
| 0 | 41 |
| 42 // command line option handling | |
| 142 | 43 const char *argp_program_version = "LWASM from " PACKAGE_STRING; |
|
5
287a6905a63c
Moved config.h to src/ and switched version strings to use autotools version
lost
parents:
4
diff
changeset
|
44 const char *argp_program_bug_address = PACKAGE_BUGREPORT; |
| 0 | 45 |
| 46 static error_t parse_opts(int key, char *arg, struct argp_state *state) | |
| 47 { | |
| 48 asmstate_t *as = state -> input; | |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
49 char *p; |
| 0 | 50 |
| 51 switch (key) | |
| 52 { | |
| 53 case 'o': | |
| 54 // output | |
| 55 if (as -> outfile) | |
| 56 { | |
| 57 } | |
| 58 as -> outfile = arg; | |
| 59 break; | |
| 60 | |
| 61 case 'd': | |
| 62 // debug | |
| 38 | 63 debug_level++; |
| 0 | 64 break; |
| 65 | |
| 66 case 'l': | |
| 67 // list | |
| 68 if (arg) | |
| 69 as -> listfile = arg; | |
| 70 else | |
| 71 as -> listfile = "-"; | |
| 72 break; | |
| 73 | |
| 74 case 'b': | |
| 75 // decb output | |
| 76 as -> outformat = OUTPUT_DECB; | |
| 77 break; | |
| 78 | |
| 79 case 'r': | |
| 80 // raw binary output | |
| 81 as -> outformat = OUTPUT_RAW; | |
| 82 break; | |
|
13
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
5
diff
changeset
|
83 |
|
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
5
diff
changeset
|
84 case 0x100: |
|
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
5
diff
changeset
|
85 // proprietary object format |
|
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
5
diff
changeset
|
86 as -> outformat = OUTPUT_OBJ; |
| 19 | 87 break; |
| 88 | |
| 89 case 'f': | |
| 90 // output format | |
| 91 if (!strcasecmp(arg, "decb")) | |
| 92 as -> outformat = OUTPUT_DECB; | |
| 93 else if (!strcasecmp(arg, "raw")) | |
| 94 as -> outformat = OUTPUT_RAW; | |
| 95 else if (!strcasecmp(arg, "obj")) | |
| 96 as -> outformat = OUTPUT_OBJ; | |
|
236
a58f49a77441
Added os9 target, pragma to control whether $ localizes a symbol, and fixed some condition nesting bugs
lost
parents:
230
diff
changeset
|
97 else if (!strcasecmp(arg, "os9")) |
|
a58f49a77441
Added os9 target, pragma to control whether $ localizes a symbol, and fixed some condition nesting bugs
lost
parents:
230
diff
changeset
|
98 { |
|
a58f49a77441
Added os9 target, pragma to control whether $ localizes a symbol, and fixed some condition nesting bugs
lost
parents:
230
diff
changeset
|
99 as -> pragmas |= PRAGMA_DOLLARNOTLOCAL; |
|
a58f49a77441
Added os9 target, pragma to control whether $ localizes a symbol, and fixed some condition nesting bugs
lost
parents:
230
diff
changeset
|
100 as -> outformat = OUTPUT_OS9; |
|
a58f49a77441
Added os9 target, pragma to control whether $ localizes a symbol, and fixed some condition nesting bugs
lost
parents:
230
diff
changeset
|
101 } |
| 19 | 102 else |
| 103 { | |
| 104 fprintf(stderr, "Invalid output format: %s\n", arg); | |
| 105 exit(1); | |
| 106 } | |
| 107 break; | |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
108 |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
109 case 'p': |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
110 // pragmas |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
111 p = arg; |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
112 pseudo_pragma_real(as, NULL, &p, 2); |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
113 if (!p) |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
114 { |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
115 fprintf(stderr, "Invalid pragma string: %s\n", arg); |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
116 exit(1); |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
117 } |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
118 break; |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
119 |
|
230
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
120 case '9': |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
121 as -> no6309 = 1; |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
122 break; |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
123 |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
124 case '3': |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
125 as -> no6309 = 0; |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
126 break; |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
127 |
| 0 | 128 case ARGP_KEY_END: |
| 129 // done; sanity check | |
| 130 if (!as -> outfile) | |
| 131 as -> outfile = "a.out"; | |
| 132 break; | |
| 133 | |
| 134 case ARGP_KEY_ARG: | |
| 135 // non-option arg | |
| 136 if (as -> infile) | |
| 137 argp_usage(state); | |
| 138 as -> infile = arg; | |
| 139 break; | |
| 140 | |
| 141 default: | |
| 142 return ARGP_ERR_UNKNOWN; | |
| 143 } | |
| 144 return 0; | |
| 145 } | |
| 146 | |
| 147 static struct argp_option options[] = | |
| 148 { | |
| 149 { "output", 'o', "FILE", 0, | |
| 150 "Output to FILE"}, | |
| 151 { "debug", 'd', 0, 0, | |
| 152 "Set debug mode"}, | |
| 19 | 153 { "format", 'f', "TYPE", 0, |
|
236
a58f49a77441
Added os9 target, pragma to control whether $ localizes a symbol, and fixed some condition nesting bugs
lost
parents:
230
diff
changeset
|
154 "Select output format: decb, raw, obj, os9"}, |
| 0 | 155 { "list", 'l', "FILE", OPTION_ARG_OPTIONAL, |
| 156 "Generate list [to FILE]"}, | |
| 157 { "decb", 'b', 0, 0, | |
| 19 | 158 "Generate DECB .bin format output, equivalent of --format=decb"}, |
| 0 | 159 { "raw", 'r', 0, 0, |
| 19 | 160 "Generate raw binary format output, equivalent of --format=raw"}, |
| 74 | 161 { "obj", 0x100, 0, 0, |
| 19 | 162 "Generate proprietary object file format for later linking, equivalent of --format=obj" }, |
|
143
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
163 { "pragma", 'p', "PRAGMA", 0, |
|
0ee5f65bccf9
Added pragma to allow all undefined symbols to be considered external and also added a --pragma command line option
lost
parents:
142
diff
changeset
|
164 "Set an assembler pragma to any value understood by the \"pragma\" pseudo op"}, |
|
230
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
165 { "6809", '9', 0, 0, |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
166 "Set assembler to 6809 only mode" }, |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
167 { "6309", '3', 0, 0, |
|
0df2a39a268c
Added --6809/--6309 switches and some cleanups in error reporting
lost
parents:
212
diff
changeset
|
168 "Set assembler to 6309 mode (default)" }, |
| 0 | 169 { 0 } |
| 170 }; | |
| 171 | |
| 172 static struct argp argp = | |
| 173 { | |
| 174 options, | |
| 175 parse_opts, | |
| 176 "<input file>", | |
| 177 "LWASM, a HD6309 and MC6809 cross-assembler" | |
| 178 }; | |
| 179 | |
| 212 | 180 char *program_name; |
| 181 | |
| 0 | 182 // main function; parse command line, set up assembler state, and run the |
| 183 // assembler on the first file | |
| 184 int main(int argc, char **argv) | |
| 185 { | |
| 212 | 186 |
| 187 program_name = argv[0]; | |
| 188 | |
| 0 | 189 // assembler state |
| 190 asmstate_t asmstate = { 0 }; | |
| 191 | |
| 192 argp_parse(&argp, argc, argv, 0, 0, &asmstate); | |
| 193 | |
| 19 | 194 if (!asmstate.infile) |
| 195 { | |
| 196 fprintf(stderr, "No input files specified.\n"); | |
| 197 exit(1); | |
| 198 } | |
| 199 | |
|
182
833d392fec82
Arranged for lwasm and lwlink to remove the output file in case they fail
lost
parents:
151
diff
changeset
|
200 // lose the output file if it already exists... |
|
833d392fec82
Arranged for lwasm and lwlink to remove the output file in case they fail
lost
parents:
151
diff
changeset
|
201 unlink(asmstate.outfile); |
|
833d392fec82
Arranged for lwasm and lwlink to remove the output file in case they fail
lost
parents:
151
diff
changeset
|
202 |
| 0 | 203 /* pass 1 - collect the symbols and assign addresses where possible */ |
| 204 /* pass 1 also resolves included files, etc. */ | |
| 205 /* that means files are read exactly once unless included multiple times */ | |
|
13
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
5
diff
changeset
|
206 lwasm_pass1(&asmstate); |
| 0 | 207 |
| 208 // pass 2: actually generate the code; if any phasing errors appear | |
| 209 // at this stage, we have a bug | |
|
13
05d4115b4860
Started work on new expression evaluator system and major code re-work for next release
lost
parents:
5
diff
changeset
|
210 lwasm_pass2(&asmstate); |
| 0 | 211 |
| 212 // now make a pretty listing | |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
19
diff
changeset
|
213 lwasm_list(&asmstate); |
| 0 | 214 |
| 215 // now write the code out to the output file | |
| 46 | 216 lwasm_output(&asmstate); |
| 0 | 217 |
| 218 if (asmstate.errorcount > 0) | |
| 219 exit(1); | |
| 220 | |
| 221 exit(0); | |
| 222 } | |
| 223 |