annotate lwasm/main.c @ 352:f5b77989f675

Added PRAGMA and *PRAGMA
author lost@starbug
date Tue, 30 Mar 2010 20:56:54 -0600
parents a82c55070624
children d96c30e60ddf
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
1 /*
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
2 main.c
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
3
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
4 Copyright © 2010 William Astle
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
5
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
6 This file is part of LWTOOLS.
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
7
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
8 LWTOOLS is free software: you can redistribute it and/or modify it under the
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
9 terms of the GNU General Public License as published by the Free Software
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
10 Foundation, either version 3 of the License, or (at your option) any later
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
11 version.
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
12
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
13 This program is distributed in the hope that it will be useful, but WITHOUT
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
16 more details.
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
17
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
18 You should have received a copy of the GNU General Public License along with
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
19 this program. If not, see <http://www.gnu.org/licenses/>.
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
20 */
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
21
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
22 #include <config.h>
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
23
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
24 #include <argp.h>
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
25 #include <stdio.h>
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
26 #include <stdlib.h>
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
27
329
c15cca3ae6a2 Created first pass of input layer
lost
parents: 328
diff changeset
28 #include <lw_alloc.h>
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
29 #include <lw_string.h>
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
30 #include <lw_stringlist.h>
335
9f58e3bca6e3 checkpoint
lost
parents: 332
diff changeset
31 #include <lw_expr.h>
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
32
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
33 #include "lwasm.h"
330
81c005b82775 More tinkering with input subsystem
lost
parents: 329
diff changeset
34 #include "input.h"
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
35
352
f5b77989f675 Added PRAGMA and *PRAGMA
lost@starbug
parents: 346
diff changeset
36 extern int parse_pragma_string(asmstate_t *as, char *str, int ignoreerr);
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
37
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
38 /* command line option handling */
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
39 const char *argp_program_version = "lwasm from " PACKAGE_STRING;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
40 const char *argp_program_bug_address = PACKAGE_BUGREPORT;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
41 char *program_name;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
42
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
43 static struct argp_option options[] =
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
44 {
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
45 { "output", 'o', "FILE", 0, "Output to FILE"},
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
46 { "debug", 'd', 0, 0, "Set debug mode"},
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
47 { "format", 'f', "TYPE", 0, "Select output format: decb, raw, obj, os9"},
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
48 { "list", 'l', "FILE", OPTION_ARG_OPTIONAL, "Generate list [to FILE]"},
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
49 { "decb", 'b', 0, 0, "Generate DECB .bin format output, equivalent of --format=decb"},
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
50 { "raw", 'r', 0, 0, "Generate raw binary format output, equivalent of --format=raw"},
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
51 { "obj", 0x100, 0, 0, "Generate proprietary object file format for later linking, equivalent of --format=obj" },
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
52 { "depend", 0x101, 0, 0, "Output a dependency list to stdout; do not do any actual output though assembly is completed as usual" },
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
53 { "pragma", 'p', "PRAGMA", 0, "Set an assembler pragma to any value understood by the \"pragma\" pseudo op"},
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
54 { "6809", '9', 0, 0, "Set assembler to 6809 only mode" },
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
55 { "6309", '3', 0, 0, "Set assembler to 6309 mode (default)" },
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
56 { "includedir", 'I', "PATH", 0, "Add entry to include path" },
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
57 { 0 }
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
58 };
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
59
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
60
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
61 static error_t parse_opts(int key, char *arg, struct argp_state *state)
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
62 {
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
63 asmstate_t *as = state -> input;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
64
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
65 switch (key)
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
66 {
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
67 case 'I':
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
68 lw_stringlist_addstring(as -> include_list, arg);
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
69 break;
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
70
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
71 case 'o':
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
72 if (as -> output_file)
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
73 lw_free(as -> output_file);
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
74 as -> output_file = lw_strdup(arg);
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
75 break;
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
76
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
77 case 'd':
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
78 as -> debug_level++;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
79 break;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
80
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
81 case 'l':
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
82 if (as -> list_file)
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
83 lw_free(as -> list_file);
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
84 if (!arg)
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
85 as -> list_file = NULL;
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
86 else
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
87 as -> list_file = lw_strdup(arg);
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
88 as -> flags |= FLAG_LIST;
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
89 break;
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
90
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
91 case 'b':
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
92 as -> output_format = OUTPUT_DECB;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
93 break;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
94
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
95 case 'r':
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
96 as -> output_format = OUTPUT_RAW;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
97 break;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
98
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
99 case 0x100:
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
100 as -> output_format = OUTPUT_OBJ;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
101 break;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
102
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
103 case 0x101:
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
104 as -> flags |= FLAG_DEPEND;
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
105 break;
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
106
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
107 case 'f':
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
108 if (!strcasecmp(arg, "decb"))
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
109 as -> output_format = OUTPUT_DECB;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
110 else if (!strcasecmp(arg, "raw"))
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
111 as -> output_format = OUTPUT_RAW;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
112 else if (!strcasecmp(arg, "obj"))
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
113 as -> output_format = OUTPUT_OBJ;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
114 else if (!strcasecmp(arg, "os9"))
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
115 {
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
116 as -> pragmas |= PRAGMA_DOLLARNOTLOCAL;
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
117 as -> output_format = OUTPUT_OS9;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
118 }
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
119 else
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
120 {
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
121 fprintf(stderr, "Invalid output format: %s\n", arg);
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
122 exit(1);
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
123 }
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
124 break;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
125
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
126 case 'p':
352
f5b77989f675 Added PRAGMA and *PRAGMA
lost@starbug
parents: 346
diff changeset
127 if (parse_pragma_string(as, arg, 0) == 0)
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
128 {
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
129 fprintf(stderr, "Unrecognized pragma string: %s\n", arg);
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
130 exit(1);
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
131 }
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
132 break;
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
133
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
134 case '9':
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
135 as -> target = TARGET_6809;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
136 break;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
137
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
138 case '3':
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
139 as -> target = TARGET_6309;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
140 break;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
141
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
142 case ARGP_KEY_END:
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
143 break;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
144
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
145 case ARGP_KEY_ARG:
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
146 lw_stringlist_addstring(as -> input_files, arg);
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
147 break;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
148
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
149 default:
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
150 return ARGP_ERR_UNKNOWN;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
151 }
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
152 return 0;
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
153 }
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
154
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
155 static struct argp argp =
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
156 {
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
157 options,
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
158 parse_opts,
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
159 "<input file>",
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
160 "LWASM, a HD6309 and MC6809 cross-assembler"
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
161 };
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
162
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
163 /*
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
164 main function; parse command line, set up assembler state, and run the
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
165 assembler on the first file
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
166 */
332
67224d8d1024 Basic input layer works
lost
parents: 330
diff changeset
167 extern void do_pass1(asmstate_t *as);
346
a82c55070624 Added expression parsing infrastructure and misc fixes
lost@starbug
parents: 345
diff changeset
168 extern lw_expr_t lwasm_evaluate_special(int t, void *ptr, void *priv);
a82c55070624 Added expression parsing infrastructure and misc fixes
lost@starbug
parents: 345
diff changeset
169 extern lw_expr_t lwasm_evaluate_var(char *var, void *priv);
a82c55070624 Added expression parsing infrastructure and misc fixes
lost@starbug
parents: 345
diff changeset
170 extern lw_expr_t lwasm_parse_term(char **p, void *priv);
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
171 int main(int argc, char **argv)
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
172 {
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
173 /* assembler state */
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
174 asmstate_t asmstate = { 0 };
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
175 program_name = argv[0];
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
176
337
04c80c51b16a Checkpoint development
lost
parents: 335
diff changeset
177 lw_expr_set_special_handler(lwasm_evaluate_special);
04c80c51b16a Checkpoint development
lost
parents: 335
diff changeset
178 lw_expr_set_var_handler(lwasm_evaluate_var);
04c80c51b16a Checkpoint development
lost
parents: 335
diff changeset
179
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
180 /* initialize assembler state */
329
c15cca3ae6a2 Created first pass of input layer
lost
parents: 328
diff changeset
181 asmstate.include_list = lw_stringlist_create();
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
182 asmstate.input_files = lw_stringlist_create();
345
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols
lost@starbug
parents: 342
diff changeset
183 asmstate.nextcontext = 1;
325
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
184
619fd6ad4ab9 Completed command line parsing
lost
parents: 323
diff changeset
185 /* parse command line arguments */
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
186 argp_parse(&argp, argc, argv, 0, 0, &asmstate);
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
187
328
591d01b343b9 checkpoint - input layer
lost
parents: 325
diff changeset
188 if (!asmstate.output_file)
591d01b343b9 checkpoint - input layer
lost
parents: 325
diff changeset
189 {
591d01b343b9 checkpoint - input layer
lost
parents: 325
diff changeset
190 asmstate.output_file = lw_strdup("a.out");
591d01b343b9 checkpoint - input layer
lost
parents: 325
diff changeset
191 }
591d01b343b9 checkpoint - input layer
lost
parents: 325
diff changeset
192
330
81c005b82775 More tinkering with input subsystem
lost
parents: 329
diff changeset
193 input_init(&asmstate);
81c005b82775 More tinkering with input subsystem
lost
parents: 329
diff changeset
194
337
04c80c51b16a Checkpoint development
lost
parents: 335
diff changeset
195 do_pass1(&asmstate);
323
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
196 exit(0);
473ed9b353eb Started framework for lwasm binary
lost
parents:
diff changeset
197 }