diff options
author | somov <somov@yandex-team.ru> | 2022-02-10 16:45:47 +0300 |
---|---|---|
committer | Daniil Cherednik <dcherednik@yandex-team.ru> | 2022-02-10 16:45:47 +0300 |
commit | a5950576e397b1909261050b8c7da16db58f10b1 (patch) | |
tree | 7ba7677f6a4c3e19e2cefab34d16df2c8963b4d4 /contrib/tools/yasm/frontends | |
parent | 81eddc8c0b55990194e112b02d127b87d54164a9 (diff) | |
download | ydb-a5950576e397b1909261050b8c7da16db58f10b1.tar.gz |
Restoring authorship annotation for <somov@yandex-team.ru>. Commit 1 of 2.
Diffstat (limited to 'contrib/tools/yasm/frontends')
-rw-r--r-- | contrib/tools/yasm/frontends/tasm/license.c | 130 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/tasm/tasm-options.c | 254 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/tasm/tasm-options.h | 138 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/tasm/tasm.c | 2018 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/vsyasm/license.c | 130 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/vsyasm/vsyasm.c | 2848 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/yasm/license.c | 130 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/yasm/yasm-options.c | 432 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/yasm/yasm-options.h | 150 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/yasm/yasm-plugin.c | 252 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/yasm/yasm-plugin.h | 68 | ||||
-rw-r--r-- | contrib/tools/yasm/frontends/yasm/yasm.c | 2834 |
12 files changed, 4692 insertions, 4692 deletions
diff --git a/contrib/tools/yasm/frontends/tasm/license.c b/contrib/tools/yasm/frontends/tasm/license.c index 35c5a04137..1259971244 100644 --- a/contrib/tools/yasm/frontends/tasm/license.c +++ b/contrib/tools/yasm/frontends/tasm/license.c @@ -1,65 +1,65 @@ -/* This file auto-generated from COPYING by genstring.py - don't edit it */ - -static const char* license_msg[] = { - "Yasm is Copyright (c) 2001-2014 Peter Johnson and other Yasm developers.", - "", - "Yasm developers and/or contributors include:", - "Peter Johnson", - "Michael Urman", - "Brian Gladman (Visual Studio build files, other fixes)", - "Stanislav Karchebny (options parser)", - "Mathieu Monnier (SSE4 instruction patches, NASM preprocessor additions)", - "Anonymous \"NASM64\" developer (NASM preprocessor fixes)", - "Stephen Polkowski (x86 instruction patches)", - "Henryk Richter (Mach-O object format)", - "Ben Skeggs (patches, bug reports)", - "Alexei Svitkine (GAS preprocessor)", - "Samuel Thibault (TASM parser and frontend)", - "", - "-----------------------------------", - "Yasm licensing overview and summary", - "-----------------------------------", - "", - "Note: This document does not provide legal advice nor is it the actual", - "license of any part of Yasm. See the individual licenses for complete", - "details. Consult a lawyer for legal advice.", - "", - "The primary license of Yasm is the 2-clause BSD license. Please use this", - "license if you plan on submitting code to the project.", - "", - "Yasm has absolutely no warranty; not even for merchantibility or fitness", - "for a particular purpose.", - "", - "-------", - "Libyasm", - "-------", - "Libyasm is 2-clause or 3-clause BSD licensed, with the exception of", - "bitvect, which is triple-licensed under the Artistic license, GPL, and", - "LGPL. Libyasm is thus GPL and LGPL compatible. In addition, this also", - "means that libyasm is free for binary-only distribution as long as the", - "terms of the 3-clause BSD license and Artistic license (as it applies to", - "bitvect) are fulfilled.", - "", - "-------", - "Modules", - "-------", - "The modules are 2-clause or 3-clause BSD licensed.", - "", - "---------", - "Frontends", - "---------", - "The frontends are 2-clause BSD licensed.", - "", - "-------------", - "License Texts", - "-------------", - "The full text of all licenses are provided in separate files in the source", - "distribution. Each source file may include the entire license (in the case", - "of the BSD and Artistic licenses), or may reference the GPL or LGPL license", - "file.", - "", - "BSD.txt - 2-clause and 3-clause BSD licenses", - "Artistic.txt - Artistic license", - "GNU_GPL-2.0 - GNU General Public License", - "GNU_LGPL-2.0 - GNU Library General Public License", -}; +/* This file auto-generated from COPYING by genstring.py - don't edit it */ + +static const char* license_msg[] = { + "Yasm is Copyright (c) 2001-2014 Peter Johnson and other Yasm developers.", + "", + "Yasm developers and/or contributors include:", + "Peter Johnson", + "Michael Urman", + "Brian Gladman (Visual Studio build files, other fixes)", + "Stanislav Karchebny (options parser)", + "Mathieu Monnier (SSE4 instruction patches, NASM preprocessor additions)", + "Anonymous \"NASM64\" developer (NASM preprocessor fixes)", + "Stephen Polkowski (x86 instruction patches)", + "Henryk Richter (Mach-O object format)", + "Ben Skeggs (patches, bug reports)", + "Alexei Svitkine (GAS preprocessor)", + "Samuel Thibault (TASM parser and frontend)", + "", + "-----------------------------------", + "Yasm licensing overview and summary", + "-----------------------------------", + "", + "Note: This document does not provide legal advice nor is it the actual", + "license of any part of Yasm. See the individual licenses for complete", + "details. Consult a lawyer for legal advice.", + "", + "The primary license of Yasm is the 2-clause BSD license. Please use this", + "license if you plan on submitting code to the project.", + "", + "Yasm has absolutely no warranty; not even for merchantibility or fitness", + "for a particular purpose.", + "", + "-------", + "Libyasm", + "-------", + "Libyasm is 2-clause or 3-clause BSD licensed, with the exception of", + "bitvect, which is triple-licensed under the Artistic license, GPL, and", + "LGPL. Libyasm is thus GPL and LGPL compatible. In addition, this also", + "means that libyasm is free for binary-only distribution as long as the", + "terms of the 3-clause BSD license and Artistic license (as it applies to", + "bitvect) are fulfilled.", + "", + "-------", + "Modules", + "-------", + "The modules are 2-clause or 3-clause BSD licensed.", + "", + "---------", + "Frontends", + "---------", + "The frontends are 2-clause BSD licensed.", + "", + "-------------", + "License Texts", + "-------------", + "The full text of all licenses are provided in separate files in the source", + "distribution. Each source file may include the entire license (in the case", + "of the BSD and Artistic licenses), or may reference the GPL or LGPL license", + "file.", + "", + "BSD.txt - 2-clause and 3-clause BSD licenses", + "Artistic.txt - Artistic license", + "GNU_GPL-2.0 - GNU General Public License", + "GNU_LGPL-2.0 - GNU Library General Public License", +}; diff --git a/contrib/tools/yasm/frontends/tasm/tasm-options.c b/contrib/tools/yasm/frontends/tasm/tasm-options.c index 57c3bdfd15..3baee28fbb 100644 --- a/contrib/tools/yasm/frontends/tasm/tasm-options.c +++ b/contrib/tools/yasm/frontends/tasm/tasm-options.c @@ -1,127 +1,127 @@ -/* - * Generic Options Support Header File - * - * Copyright (c) 2001 Stanislav Karchebny <berk@madfire.net> - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the author nor the names of other contributors - * may be used to endorse or promote products derived from this - * software without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' - * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - */ -#include <util.h> -#include <ctype.h> - -#include "tasm-options.h" - - -#ifdef __DEBUG__ -#define DEBUG(x) fprintf ## x ; -#else -#define DEBUG(x) -#endif - - -/* Options Parser */ -int -parse_cmdline(int argc, char **argv, opt_option *options, size_t nopts, - void (*print_error) (const char *fmt, ...)) -{ - int errors = 0, warnings = 0; - size_t i; - int got_it; - - DEBUG((stderr, "parse_cmdline: entered\n")); - - fail: - while (--argc) { - argv++; - - if (argv[0][0] == '/' && argv[0][1]) { /* opt */ - got_it = 0; - for (i = 0; i < nopts; i++) { - char *cmd = &argv[0][1]; - size_t len = strlen(options[i].opt); - if (yasm__strncasecmp(cmd, options[i].opt, len) == 0) { - char *param; - - param = &argv[0][1+len]; - if (options[i].takes_param) { - if (param[0] == '\0') { - print_error( - _("option `-%c' needs an argument!"), - options[i].opt); - errors++; - goto fail; - } else { - argc--; - argv++; - } - } else - param = NULL; - - if (!options[i].handler(cmd, param, options[i].extra)) - got_it = 1; - break; - } - } - if (!got_it) { - print_error(_("warning: unrecognized option `%s'"), - argv[0]); - warnings++; - } - } else { /* not an option, then it should be a file or something */ - - if (not_an_option_handler(argv[0])) - errors++; - } - } - - DEBUG((stderr, "parse_cmdline: finished\n")); - return errors; -} - -void -help_msg(const char *msg, const char *tail, opt_option *options, size_t nopts) -{ - char optbuf[100]; - size_t i; - - printf("%s", gettext(msg)); - - for (i = 0; i < nopts; i++) { - optbuf[0] = 0; - - if (options[i].takes_param) { - if (options[i].opt) - sprintf(optbuf, "/%s <%s>", options[i].opt, - options[i].param_desc ? options[i]. - param_desc : _("param")); - } else { - if (options[i].opt) - sprintf(optbuf, "/%s", options[i].opt); - } - - printf(" %-22s %s\n", optbuf, gettext(options[i].description)); - } - - printf("%s", gettext(tail)); -} +/* + * Generic Options Support Header File + * + * Copyright (c) 2001 Stanislav Karchebny <berk@madfire.net> + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. Neither the name of the author nor the names of other contributors + * may be used to endorse or promote products derived from this + * software without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ +#include <util.h> +#include <ctype.h> + +#include "tasm-options.h" + + +#ifdef __DEBUG__ +#define DEBUG(x) fprintf ## x ; +#else +#define DEBUG(x) +#endif + + +/* Options Parser */ +int +parse_cmdline(int argc, char **argv, opt_option *options, size_t nopts, + void (*print_error) (const char *fmt, ...)) +{ + int errors = 0, warnings = 0; + size_t i; + int got_it; + + DEBUG((stderr, "parse_cmdline: entered\n")); + + fail: + while (--argc) { + argv++; + + if (argv[0][0] == '/' && argv[0][1]) { /* opt */ + got_it = 0; + for (i = 0; i < nopts; i++) { + char *cmd = &argv[0][1]; + size_t len = strlen(options[i].opt); + if (yasm__strncasecmp(cmd, options[i].opt, len) == 0) { + char *param; + + param = &argv[0][1+len]; + if (options[i].takes_param) { + if (param[0] == '\0') { + print_error( + _("option `-%c' needs an argument!"), + options[i].opt); + errors++; + goto fail; + } else { + argc--; + argv++; + } + } else + param = NULL; + + if (!options[i].handler(cmd, param, options[i].extra)) + got_it = 1; + break; + } + } + if (!got_it) { + print_error(_("warning: unrecognized option `%s'"), + argv[0]); + warnings++; + } + } else { /* not an option, then it should be a file or something */ + + if (not_an_option_handler(argv[0])) + errors++; + } + } + + DEBUG((stderr, "parse_cmdline: finished\n")); + return errors; +} + +void +help_msg(const char *msg, const char *tail, opt_option *options, size_t nopts) +{ + char optbuf[100]; + size_t i; + + printf("%s", gettext(msg)); + + for (i = 0; i < nopts; i++) { + optbuf[0] = 0; + + if (options[i].takes_param) { + if (options[i].opt) + sprintf(optbuf, "/%s <%s>", options[i].opt, + options[i].param_desc ? options[i]. + param_desc : _("param")); + } else { + if (options[i].opt) + sprintf(optbuf, "/%s", options[i].opt); + } + + printf(" %-22s %s\n", optbuf, gettext(options[i].description)); + } + + printf("%s", gettext(tail)); +} diff --git a/contrib/tools/yasm/frontends/tasm/tasm-options.h b/contrib/tools/yasm/frontends/tasm/tasm-options.h index 082409fc24..f4bae6aa05 100644 --- a/contrib/tools/yasm/frontends/tasm/tasm-options.h +++ b/contrib/tools/yasm/frontends/tasm/tasm-options.h @@ -1,69 +1,69 @@ -/* - * Generic Options Support Header File - * - * Copyright (c) 2001 Stanislav Karchebny <berk@madfire.net> - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' - * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - */ -#ifndef TASM_OPTIONS_H -#define TASM_OPTIONS_H - -/* an option structure - * operate on either -sopt, --lopt, -sopt <val> or --lopt=<val> - */ -typedef struct opt_option_s -{ - /* option */ - const char *opt; - - /* !=0 if option requires parameter, 0 if not */ - int takes_param; - - int (*handler) (char *cmd, /*@null@*/ char *param, int extra); - int extra; /* extra value for handler */ - - /* description to use in help_msg() */ - /*@observer@*/ const char *description; - - /* optional description for the param taken (NULL if not present) */ - /* (short - will be printed after option sopt/lopt) */ - /*@observer@*/ /*@null@*/ const char *param_desc; -} opt_option; - -/* handle everything that is not an option */ -int not_an_option_handler(char *param); - -/* parse command line calling handlers when appropriate - * argc, argv - pass directly from main(argc,argv) - * options - array of options - * nopts - options count - */ -int parse_cmdline(int argc, char **argv, opt_option *options, size_t nopts, - void (*print_error) (const char *fmt, ...)); - -/* display help message msg followed by list of options in options and followed - * by tail - */ -void help_msg(const char *msg, const char *tail, opt_option *options, - size_t nopts); - -#endif +/* + * Generic Options Support Header File + * + * Copyright (c) 2001 Stanislav Karchebny <berk@madfire.net> + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ +#ifndef TASM_OPTIONS_H +#define TASM_OPTIONS_H + +/* an option structure + * operate on either -sopt, --lopt, -sopt <val> or --lopt=<val> + */ +typedef struct opt_option_s +{ + /* option */ + const char *opt; + + /* !=0 if option requires parameter, 0 if not */ + int takes_param; + + int (*handler) (char *cmd, /*@null@*/ char *param, int extra); + int extra; /* extra value for handler */ + + /* description to use in help_msg() */ + /*@observer@*/ const char *description; + + /* optional description for the param taken (NULL if not present) */ + /* (short - will be printed after option sopt/lopt) */ + /*@observer@*/ /*@null@*/ const char *param_desc; +} opt_option; + +/* handle everything that is not an option */ +int not_an_option_handler(char *param); + +/* parse command line calling handlers when appropriate + * argc, argv - pass directly from main(argc,argv) + * options - array of options + * nopts - options count + */ +int parse_cmdline(int argc, char **argv, opt_option *options, size_t nopts, + void (*print_error) (const char *fmt, ...)); + +/* display help message msg followed by list of options in options and followed + * by tail + */ +void help_msg(const char *msg, const char *tail, opt_option *options, + size_t nopts); + +#endif diff --git a/contrib/tools/yasm/frontends/tasm/tasm.c b/contrib/tools/yasm/frontends/tasm/tasm.c index 58954b6457..45351342f8 100644 --- a/contrib/tools/yasm/frontends/tasm/tasm.c +++ b/contrib/tools/yasm/frontends/tasm/tasm.c @@ -1,1009 +1,1009 @@ -/* - * Program entry point, command line parsing - * - * Copyright (C) 2001-2008 Peter Johnson - * Copyright (C) 2007-2008 Samuel Thibault - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' - * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - */ -#include <util.h> - -#include <ctype.h> -#include <libyasm/compat-queue.h> -#include <libyasm/bitvect.h> -#include <libyasm.h> - -#ifdef HAVE_LIBGEN_H -#include <libgen.h> -#endif - -#include "tasm-options.h" - -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) -#include "yasm-plugin.h" -#endif - -#include "license.c" - -#define DEFAULT_OBJFMT_MODULE "bin" - -#if defined(CMAKE_BUILD) && !defined(BUILD_SHARED_LIBS) -void yasm_init_plugin(void); -#endif - -/*@null@*/ /*@only@*/ static char *obj_filename = NULL, *in_filename = NULL; -/*@null@*/ /*@only@*/ static char *list_filename = NULL, *xref_filename = NULL; -/*@null@*/ /*@only@*/ static char *machine_name = NULL; -static int special_options = 0; -static int segment_ordering = 0; -static int cross_reference = 0; -static int floating_point = 0; -static int listing = 0; -static int expanded_listing = 0; -static int case_sensitivity = 0; -static int valid_length = -1; -/*@null@*/ /*@dependent@*/ static yasm_arch *cur_arch = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_arch_module * - cur_arch_module = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_parser_module * - cur_parser_module = NULL; -/*@null@*/ /*@dependent@*/ static yasm_preproc *cur_preproc = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_preproc_module * - cur_preproc_module = NULL; -/*@null@*/ static char *objfmt_keyword = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_objfmt_module * - cur_objfmt_module = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_dbgfmt_module * - cur_dbgfmt_module = NULL; -/*@null@*/ /*@dependent@*/ static yasm_listfmt *cur_listfmt = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_listfmt_module * - cur_listfmt_module = NULL; -static int warning_error = 0; /* warnings being treated as errors */ -static FILE *errfile; -/*@null@*/ /*@only@*/ static char *error_filename = NULL; - -/*@null@*/ /*@dependent@*/ static FILE *open_file(const char *filename, - const char *mode); -static void check_errors(/*@only@*/ yasm_errwarns *errwarns, - /*@only@*/ yasm_object *object, - /*@only@*/ yasm_linemap *linemap); -static void cleanup(/*@null@*/ /*@only@*/ yasm_object *object); - -/* Forward declarations: cmd line parser handlers */ -static int opt_special_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_segment_ordering_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_cross_reference_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_floating_point_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_ignore(char *cmd, /*@null@*/ char *param, int extra); -static int opt_listing_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_case_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_valid_length_handler(char *cmd, /*@null@*/ char *param, int extra); - -static int opt_warning_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_preproc_option(char *cmd, /*@null@*/ char *param, int extra); -static int opt_exe_handler(char *cmd, /*@null@*/ char *param, int extra); - -static /*@only@*/ char *replace_extension(const char *orig, /*@null@*/ - const char *ext, const char *def); -static void print_error(const char *fmt, ...); - -static /*@exits@*/ void handle_yasm_int_error(const char *file, - unsigned int line, - const char *message); -static /*@exits@*/ void handle_yasm_fatal(const char *message, va_list va); -static const char *handle_yasm_gettext(const char *msgid); -static void print_yasm_error(const char *filename, unsigned long line, - const char *msg, /*@null@*/ const char *xref_fn, - unsigned long xref_line, - /*@null@*/ const char *xref_msg); -static void print_yasm_warning(const char *filename, unsigned long line, - const char *msg); - -static void apply_preproc_builtins(void); -static void apply_preproc_standard_macros(const yasm_stdmac *stdmacs); -static void apply_preproc_saved_options(void); -static void print_list_keyword_desc(const char *name, const char *keyword); - -/* values for special_options */ -#define SPECIAL_SHOW_HELP 0x01 -#define SPECIAL_SHOW_VERSION 0x02 -#define SPECIAL_SHOW_LICENSE 0x04 - -#define SEGMENT_ORDERING_ALPHABETIC 0x01 -#define SEGMENT_ORDERING_SOURCE 0x02 - -#define FP_EMULATED 0x01 -#define FP_REAL 0x02 - -#define CASE_ALL 0x01 -#define CASE_GLOBALS 0x02 -#define CASE_NONE 0x04 - -#define DEBUG_FULL 0x01 -#define DEBUG_LINES 0x02 -#define DEBUG_NONE 0x04 - -/* command line options */ -static opt_option options[] = -{ - { "version", 0, opt_special_handler, SPECIAL_SHOW_VERSION, - N_("show version text"), NULL }, - { "license", 0, opt_special_handler, SPECIAL_SHOW_LICENSE, - N_("show license text"), NULL }, - { "a", 0, opt_segment_ordering_handler, SEGMENT_ORDERING_ALPHABETIC, - N_("Alphabetic segment ordering"), NULL }, - { "s", 0, opt_segment_ordering_handler, SEGMENT_ORDERING_SOURCE, - N_("Source segment ordering"), NULL }, - - { "c", 0, opt_cross_reference_handler, 0, - N_("Generate cross-reference in listing"), NULL }, - - { "d", 1, opt_preproc_option, 2, - N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, - - { "e", 0, opt_floating_point_handler, FP_EMULATED, - N_("Emulated floating-point instructions (not supported)"), NULL }, - { "r", 0, opt_floating_point_handler, FP_REAL, - N_("Real floating-point instructions"), NULL }, - - { "h", 0, opt_special_handler, SPECIAL_SHOW_HELP, - N_("show help text"), NULL }, - { "?", 0, opt_special_handler, SPECIAL_SHOW_HELP, - N_("show help text"), NULL }, - - { "i", 1, opt_preproc_option, 0, - N_("add include path"), N_("path") }, - - { "j", 1, opt_ignore, 0, - N_("Jam in an assemble directive CMD (eg. /jIDEAL) (not supported)"), NULL }, - - { "k", 1, opt_ignore, 0, - N_("Hash table capacity (ignored)"), N_("# symbols") }, - - { "l", 0, opt_listing_handler, 0, - N_("Generate listing"), N_("l=normal listing, la=expanded listing") }, - - { "ml", 0, opt_case_handler, CASE_ALL, - N_("Case sensitivity on all symbols"), NULL }, - { "mx", 0, opt_case_handler, CASE_GLOBALS, - N_("Case sensitivity on global symbols"), NULL }, - { "mu", 0, opt_case_handler, CASE_NONE, - N_("No case sensitivity on symbols"), NULL }, - { "mv", 0, opt_valid_length_handler, 0, - N_("Set maximum valid length for symbols"), N_("length") }, - - { "m", 1, opt_ignore, 0, - N_("Allow multiple passes to resolve forward reference (ignored)"), N_("number of passes") }, - - { "n", 0, opt_ignore, 0, - N_("Suppress symbol tables in listing"), NULL }, - - { "o", 0, opt_ignore, 0, - N_("Object code"), N_("os: standard, o: standard w/overlays, op: Phar Lap, oi: IBM") }, - - { "p", 0, opt_ignore, 0, - N_("Check for code segment overrides in protected mode"), NULL }, - { "q", 0, opt_ignore, 0, - N_("Suppress OBJ records not needed for linking (ignored)"), NULL }, - { "t", 0, opt_ignore, 0, - N_("Suppress messages if successful assembly"), NULL }, - { "u", 0, opt_ignore, 0, - N_("Set version emulation"), N_("Version") }, - { "w", 1, opt_warning_handler, 0, - N_("Set warning level"), N_("w0=none, w1=w2=warnings on, w-xxx/w+xxx=disable/enable warning xxx") }, - { "x", 0, opt_ignore, 0, - N_("Include false conditionals in listing"), NULL }, - { "zi", 0, opt_ignore, DEBUG_FULL, - N_("Full debug info"), NULL }, - { "zd", 0, opt_ignore, DEBUG_LINES, - N_("Line numbers debug info"), NULL }, - { "zn", 0, opt_ignore, DEBUG_NONE, - N_("No debug info"), NULL }, - { "z", 0, opt_ignore, 0, - N_("Display source line with error message (ignored)"), NULL }, - - { "b", 0, opt_exe_handler, 0, - N_("Build a (very) basic .exe file"), NULL }, -}; - -/* version message */ -/*@observer@*/ static const char *version_msg[] = { - PACKAGE_STRING, - "Compiled on " __DATE__ ".", - "Copyright (c) 2001-2010 Peter Johnson and other Yasm developers.", - "Run yasm --license for licensing overview and summary." -}; - -/* help messages */ -/*@observer@*/ static const char *help_head = N_( - "usage: tasm [option]* source [,object] [,listing] [,xref] \n" - "Options:\n"); -/*@observer@*/ static const char *help_tail = N_( - "\n" - "source is asm source to be assembled.\n" - "\n" - "Sample invocation:\n" - " tasm /zi source.asm\n" - "\n" - "Report bugs to bug-yasm@tortall.net\n"); - -/* parsed command line storage until appropriate modules have been loaded */ -typedef STAILQ_HEAD(constcharparam_head, constcharparam) constcharparam_head; - -typedef struct constcharparam { - STAILQ_ENTRY(constcharparam) link; - const char *param; - int id; -} constcharparam; - -static constcharparam_head preproc_options; - -static int -do_assemble(void) -{ - yasm_object *object; - const char *base_filename; - /*@null@*/ FILE *obj = NULL; - yasm_arch_create_error arch_error; - yasm_linemap *linemap; - yasm_errwarns *errwarns = yasm_errwarns_create(); - int i, matched; - - /* Initialize line map */ - linemap = yasm_linemap_create(); - yasm_linemap_set(linemap, in_filename, 0, 1, 1); - - /* determine the object filename if not specified */ - if (!obj_filename) { - if (in_filename == NULL) - /* Default to yasm.out if no obj filename specified */ - obj_filename = yasm__xstrdup("yasm.out"); - else { - /* replace (or add) extension to base filename */ - yasm__splitpath(in_filename, &base_filename); - if (base_filename[0] == '\0') - obj_filename = yasm__xstrdup("yasm.out"); - else - obj_filename = replace_extension(base_filename, - "obj", - "yasm.out"); - } - } - - cur_arch = yasm_arch_create(cur_arch_module, machine_name, - cur_parser_module->keyword, &arch_error); - if (!cur_arch) { - switch (arch_error) { - case YASM_ARCH_CREATE_BAD_MACHINE: - print_error(_("%s: `%s' is not a valid %s for %s `%s'"), - _("FATAL"), machine_name, _("machine"), - _("architecture"), cur_arch_module->keyword); - break; - case YASM_ARCH_CREATE_BAD_PARSER: - print_error(_("%s: `%s' is not a valid %s for %s `%s'"), - _("FATAL"), cur_parser_module->keyword, - _("parser"), _("architecture"), - cur_arch_module->keyword); - break; - default: - print_error(_("%s: unknown architecture error"), _("FATAL")); - } - - return EXIT_FAILURE; - } - - /* Create object */ - object = yasm_object_create(in_filename, obj_filename, cur_arch, - cur_objfmt_module, cur_dbgfmt_module); - if (!object) { - yasm_error_class eclass; - unsigned long xrefline; - /*@only@*/ /*@null@*/ char *estr, *xrefstr; - - yasm_error_fetch(&eclass, &estr, &xrefline, &xrefstr); - print_error("%s: %s", _("FATAL"), estr); - yasm_xfree(estr); - yasm_xfree(xrefstr); - - cleanup(object); - return EXIT_FAILURE; - } - - /* Get a fresh copy of objfmt_module as it may have changed. */ - cur_objfmt_module = ((yasm_objfmt_base *)object->objfmt)->module; - - /* Check to see if the requested preprocessor is in the allowed list - * for the active parser. - */ - matched = 0; - for (i=0; cur_parser_module->preproc_keywords[i]; i++) - if (yasm__strcasecmp(cur_parser_module->preproc_keywords[i], - cur_preproc_module->keyword) == 0) - matched = 1; - if (!matched) { - print_error(_("%s: `%s' is not a valid %s for %s `%s'"), _("FATAL"), - cur_preproc_module->keyword, _("preprocessor"), - _("parser"), cur_parser_module->keyword); - cleanup(object); - return EXIT_FAILURE; - } - - cur_preproc = yasm_preproc_create(cur_preproc_module, in_filename, - object->symtab, linemap, errwarns); - - apply_preproc_builtins(); - apply_preproc_standard_macros(cur_parser_module->stdmacs); - apply_preproc_standard_macros(cur_objfmt_module->stdmacs); - apply_preproc_saved_options(); - - /* Get initial x86 BITS setting from object format */ - if (strcmp(cur_arch_module->keyword, "x86") == 0) { - yasm_arch_set_var(cur_arch, "mode_bits", - cur_objfmt_module->default_x86_mode_bits); - } - - /* Parse! */ - cur_parser_module->do_parse(object, cur_preproc, list_filename != NULL, - linemap, errwarns); - - check_errors(errwarns, object, linemap); - - /* Finalize parse */ - yasm_object_finalize(object, errwarns); - check_errors(errwarns, object, linemap); - - /* Optimize */ - yasm_object_optimize(object, errwarns); - check_errors(errwarns, object, linemap); - - /* generate any debugging information */ - yasm_dbgfmt_generate(object, linemap, errwarns); - check_errors(errwarns, object, linemap); - - /* open the object file for output (if not already opened by dbg objfmt) */ - if (!obj && strcmp(cur_objfmt_module->keyword, "dbg") != 0) { - obj = open_file(obj_filename, "wb"); - if (!obj) { - cleanup(object); - return EXIT_FAILURE; - } - } - - /* Write the object file */ - yasm_objfmt_output(object, obj?obj:stderr, - strcmp(cur_dbgfmt_module->keyword, "null"), errwarns); - - /* Close object file */ - if (obj) - fclose(obj); - - /* If we had an error at this point, we also need to delete the output - * object file (to make sure it's not left newer than the source). - */ - if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) - remove(obj_filename); - check_errors(errwarns, object, linemap); - - /* Open and write the list file */ - if (list_filename) { - FILE *list = open_file(list_filename, "wt"); - if (!list) { - cleanup(object); - return EXIT_FAILURE; - } - /* Initialize the list format */ - cur_listfmt = yasm_listfmt_create(cur_listfmt_module, in_filename, - obj_filename); - yasm_listfmt_output(cur_listfmt, list, linemap, cur_arch); - fclose(list); - } - - yasm_errwarns_output_all(errwarns, linemap, warning_error, - print_yasm_error, print_yasm_warning); - - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - cleanup(object); - return EXIT_SUCCESS; -} - -/* main function */ -/*@-globstate -unrecog@*/ -int -main(int argc, char *argv[]) -{ - size_t i; - - errfile = stderr; - -#if defined(HAVE_SETLOCALE) && defined(HAVE_LC_MESSAGES) - setlocale(LC_MESSAGES, ""); -#endif -#if defined(LOCALEDIR) - bindtextdomain(PACKAGE, LOCALEDIR); -#endif - textdomain(PACKAGE); - - /* Initialize errwarn handling */ - yasm_internal_error_ = handle_yasm_int_error; - yasm_fatal = handle_yasm_fatal; - yasm_gettext_hook = handle_yasm_gettext; - yasm_errwarn_initialize(); - - /* Initialize BitVector (needed for intnum/floatnum). */ - if (BitVector_Boot() != ErrCode_Ok) { - print_error(_("%s: could not initialize BitVector"), _("FATAL")); - return EXIT_FAILURE; - } - - /* Initialize intnum and floatnum */ - yasm_intnum_initialize(); - yasm_floatnum_initialize(); - -#ifdef CMAKE_BUILD - /* Load standard modules */ -#ifdef BUILD_SHARED_LIBS - if (!load_plugin("yasmstd")) { - print_error(_("%s: could not load standard modules"), _("FATAL")); - return EXIT_FAILURE; - } -#else - yasm_init_plugin(); -#endif -#endif - - /* Initialize parameter storage */ - STAILQ_INIT(&preproc_options); - - if (parse_cmdline(argc, argv, options, NELEMS(options), print_error)) - return EXIT_FAILURE; - - switch (special_options) { - case SPECIAL_SHOW_HELP: - /* Does gettext calls internally */ - help_msg(help_head, help_tail, options, NELEMS(options)); - return EXIT_SUCCESS; - case SPECIAL_SHOW_VERSION: - for (i=0; i<NELEMS(version_msg); i++) - printf("%s\n", version_msg[i]); - return EXIT_SUCCESS; - case SPECIAL_SHOW_LICENSE: - for (i=0; i<NELEMS(license_msg); i++) - printf("%s\n", license_msg[i]); - return EXIT_SUCCESS; - } - - /* Open error file if specified. */ - if (error_filename) { - errfile = open_file(error_filename, "wt"); - if (!errfile) - return EXIT_FAILURE; - } - - /* If not already specified, default to bin as the object format. */ - if (!cur_objfmt_module) { - if (!objfmt_keyword) - objfmt_keyword = yasm__xstrdup(DEFAULT_OBJFMT_MODULE); - cur_objfmt_module = yasm_load_objfmt(objfmt_keyword); - if (!cur_objfmt_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("object format")); - return EXIT_FAILURE; - } - } - - /* TASM's architecture is x86 */ - cur_arch_module = yasm_load_arch("x86"); - if (!cur_arch_module) { - print_error(_("%s: could not load %s"), _("FATAL"), - _("architecture")); - return EXIT_FAILURE; - } - machine_name = - yasm__xstrdup(cur_arch_module->default_machine_keyword); - - /* Check for arch help */ - if (machine_name && strcmp(machine_name, "help") == 0) { - const yasm_arch_machine *m = cur_arch_module->machines; - printf(_("Available %s for %s `%s':\n"), _("machines"), - _("architecture"), cur_arch_module->keyword); - while (m->keyword && m->name) { - print_list_keyword_desc(m->name, m->keyword); - m++; - } - return EXIT_SUCCESS; - } - - cur_parser_module = yasm_load_parser("tasm"); - if (!cur_parser_module) { - print_error(_("%s: could not load %s"), _("FATAL"), - _("parser")); - cleanup(NULL); - return EXIT_FAILURE; - } - - /* If not already specified, default to the parser's default preproc. */ - if (!cur_preproc_module) { - cur_preproc_module = - yasm_load_preproc(cur_parser_module->default_preproc_keyword); - if (!cur_preproc_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("preprocessor")); - cleanup(NULL); - return EXIT_FAILURE; - } - } - - /* Determine input filename and open input file. */ - if (!in_filename) { - print_error(_("No input files specified")); - return EXIT_FAILURE; - } - - /* If list file enabled, make sure we have a list format loaded. */ - if (list_filename) { - /* use nasm as the list format. */ - cur_listfmt_module = yasm_load_listfmt("nasm"); - } - - /* If not already specified, default to null as the debug format. */ - if (!cur_dbgfmt_module) { - cur_dbgfmt_module = yasm_load_dbgfmt("null"); - if (!cur_dbgfmt_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("debug format")); - return EXIT_FAILURE; - } - } - - return do_assemble(); -} -/*@=globstate =unrecog@*/ - -/* Open the object file. Returns 0 on failure. */ -static FILE * -open_file(const char *filename, const char *mode) -{ - FILE *f; - - f = fopen(filename, mode); - if (!f) - print_error(_("could not open file `%s'"), filename); - return f; -} - -static void -check_errors(yasm_errwarns *errwarns, yasm_object *object, - yasm_linemap *linemap) -{ - if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) { - yasm_errwarns_output_all(errwarns, linemap, warning_error, - print_yasm_error, print_yasm_warning); - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - cleanup(object); - exit(EXIT_FAILURE); - } -} - -/* Define DO_FREE to 1 to enable deallocation of all data structures. - * Useful for detecting memory leaks, but slows down execution unnecessarily - * (as the OS will free everything we miss here). - */ -#define DO_FREE 1 - -/* Cleans up all allocated structures. */ -static void -cleanup(yasm_object *object) -{ - if (DO_FREE) { - if (cur_listfmt) - yasm_listfmt_destroy(cur_listfmt); - if (cur_preproc) - yasm_preproc_destroy(cur_preproc); - if (object) - yasm_object_destroy(object); - - yasm_floatnum_cleanup(); - yasm_intnum_cleanup(); - - yasm_errwarn_cleanup(); - - BitVector_Shutdown(); - } - - if (DO_FREE) { - if (in_filename) - yasm_xfree(in_filename); - if (obj_filename) - yasm_xfree(obj_filename); - if (list_filename) - yasm_xfree(list_filename); - if (xref_filename) - yasm_xfree(xref_filename); - if (machine_name) - yasm_xfree(machine_name); - if (objfmt_keyword) - yasm_xfree(objfmt_keyword); - } - - if (errfile != stderr && errfile != stdout) - fclose(errfile); -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) - unload_plugins(); -#endif -} - -/* - * Command line options handlers - */ -static char ** const filenames[] = { - &in_filename, &obj_filename, &list_filename, &xref_filename, NULL -}, ** const * cur_filename = &filenames[0]; - -static int filename_handler(char *param) { - if (!*cur_filename) { - print_error(_("error: too many files on command line.")); - return 1; - } - - if (*param) - **cur_filename = yasm__xstrdup(param); - - return 0; -} -int -not_an_option_handler(char *param) { - char *c, *d = param; - - while ((c = strchr(d, ','))) { - *c = '\0'; - if (filename_handler(d)) - return 1; - d = c + 1; - cur_filename++; - } - filename_handler(d); - return 0; -} - -static int -opt_special_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - if (special_options == 0) - special_options = extra; - return 0; -} - -static int -opt_segment_ordering_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - segment_ordering = extra; - return 0; -} - -static int -opt_cross_reference_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - cross_reference = 1; - return 0; -} - -static int -opt_floating_point_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - floating_point = extra; - return 0; -} - -static int -opt_ignore(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - return 0; -} - -static int -opt_listing_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - if (param && param[0]) { - if (param[0] != 'a') - return 1; - expanded_listing = 1; - } - listing = 1; - return 0; -} - -static int -opt_case_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - case_sensitivity = extra; - return 0; -} - -static int -opt_valid_length_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - valid_length = atoi(param); - return 0; -} - -static int -opt_warning_handler(char *cmd, /*@unused@*/ char *param, int extra) -{ - /* is it disabling the warning instead of enabling? */ - void (*action)(yasm_warn_class wclass) = NULL; - - if (cmd[0] == '0') { - /* /w0, disable warnings */ - yasm_warn_disable_all(); - return 0; - } - - if (cmd[0] == '1' || cmd[0] == '2') { - /* /w[12], enable warnings */ - yasm_warn_enable(YASM_WARN_UNREC_CHAR); - yasm_warn_enable(YASM_WARN_ORPHAN_LABEL); - yasm_warn_enable(YASM_WARN_UNINIT_CONTENTS); - return 0; - } - - /* detect no- prefix to disable the warning */ - if (cmd[0] == '-') { - action = yasm_warn_disable; - } else if (cmd[0] == '+') { - action = yasm_warn_enable; - } else return 1; - - /* skip past '+/-' */ - cmd++; - - if (cmd[0] == '\0') - /* just /w- or /w+, so definitely not valid */ - return 1; - else if (strcmp(cmd, "error") == 0) - warning_error = (action == yasm_warn_enable); - else if (strcmp(cmd, "unrecognized-char") == 0) - action(YASM_WARN_UNREC_CHAR); - else if (strcmp(cmd, "orphan-labels") == 0) - action(YASM_WARN_ORPHAN_LABEL); - else if (strcmp(cmd, "uninit-contents") == 0) - action(YASM_WARN_UNINIT_CONTENTS); - else if (strcmp(cmd, "size-override") == 0) - action(YASM_WARN_SIZE_OVERRIDE); - else - return 1; - - return 0; -} - -static int -opt_preproc_option(/*@unused@*/ char *cmd, char *param, int extra) -{ - constcharparam *cp; - cp = yasm_xmalloc(sizeof(constcharparam)); - cp->param = param; - cp->id = extra; - STAILQ_INSERT_TAIL(&preproc_options, cp, link); - return 0; -} - -static int -opt_exe_handler(char *cmd, /*@unused@*/ char *param, int extra) -{ - objfmt_keyword = yasm__xstrdup("dosexe"); - return 0; -} - -static void -apply_preproc_builtins() -{ - char *predef; - - if (!objfmt_keyword) - objfmt_keyword = yasm__xstrdup(DEFAULT_OBJFMT_MODULE); - - /* Define standard YASM assembly-time macro constants */ - predef = yasm_xmalloc(strlen("__YASM_OBJFMT__=") - + strlen(objfmt_keyword) + 1); - strcpy(predef, "__YASM_OBJFMT__="); - strcat(predef, objfmt_keyword); - yasm_preproc_define_builtin(cur_preproc, predef); - yasm_xfree(predef); -} - -static void -apply_preproc_standard_macros(const yasm_stdmac *stdmacs) -{ - int i, matched; - - if (!stdmacs) - return; - - matched = -1; - for (i=0; stdmacs[i].parser; i++) - if (yasm__strcasecmp(stdmacs[i].parser, - cur_parser_module->keyword) == 0 && - yasm__strcasecmp(stdmacs[i].preproc, - cur_preproc_module->keyword) == 0) - matched = i; - if (matched >= 0 && stdmacs[matched].macros) - yasm_preproc_add_standard(cur_preproc, stdmacs[matched].macros); -} - -static void -apply_preproc_saved_options() -{ - constcharparam *cp, *cpnext; - - void (*funcs[3])(yasm_preproc *, const char *); - funcs[0] = cur_preproc_module->add_include_file; - funcs[1] = cur_preproc_module->predefine_macro; - funcs[2] = cur_preproc_module->undefine_macro; - - STAILQ_FOREACH(cp, &preproc_options, link) { - if (0 <= cp->id && cp->id < 3 && funcs[cp->id]) - funcs[cp->id](cur_preproc, cp->param); - } - - cp = STAILQ_FIRST(&preproc_options); - while (cp != NULL) { - cpnext = STAILQ_NEXT(cp, link); - yasm_xfree(cp); - cp = cpnext; - } - STAILQ_INIT(&preproc_options); -} - -/* Replace extension on a filename (or append one if none is present). - * If output filename would be identical to input (same extension out as in), - * returns (copy of) def. - * A NULL ext means the trailing '.' should NOT be included, whereas a "" ext - * means the trailing '.' should be included. - */ -static char * -replace_extension(const char *orig, /*@null@*/ const char *ext, - const char *def) -{ - char *out, *outext; - size_t deflen, outlen; - - /* allocate enough space for full existing name + extension */ - outlen = strlen(orig) + 2; - if (ext) - outlen += strlen(ext) + 1; - deflen = strlen(def) + 1; - if (outlen < deflen) - outlen = deflen; - out = yasm_xmalloc(outlen); - - strcpy(out, orig); - outext = strrchr(out, '.'); - if (outext) { - /* Existing extension: make sure it's not the same as the replacement - * (as we don't want to overwrite the source file). - */ - outext++; /* advance past '.' */ - if (ext && strcmp(outext, ext) == 0) { - outext = NULL; /* indicate default should be used */ - print_error( - _("file name already ends in `.%s': output will be in `%s'"), - ext, def); - } - } else { - /* No extension: make sure the output extension is not empty - * (again, we don't want to overwrite the source file). - */ - if (!ext) - print_error( - _("file name already has no extension: output will be in `%s'"), - def); - else { - outext = strrchr(out, '\0'); /* point to end of the string */ - *outext++ = '.'; /* append '.' */ - } - } - - /* replace extension or use default name */ - if (outext) { - if (!ext) { - /* Back up and replace '.' with string terminator */ - outext--; - *outext = '\0'; - } else - strcpy(outext, ext); - } else - strcpy(out, def); - - return out; -} - -void -print_list_keyword_desc(const char *name, const char *keyword) -{ - printf("%4s%-12s%s\n", "", keyword, name); -} - -static void -print_error(const char *fmt, ...) -{ - va_list va; - fprintf(errfile, "tasm: "); - va_start(va, fmt); - vfprintf(errfile, fmt, va); - va_end(va); - fputc('\n', errfile); -} - -static /*@exits@*/ void -handle_yasm_int_error(const char *file, unsigned int line, const char *message) -{ - fprintf(stderr, _("INTERNAL ERROR at %s, line %u: %s\n"), file, line, - gettext(message)); -#ifdef HAVE_ABORT - abort(); -#else - exit(EXIT_FAILURE); -#endif -} - -static /*@exits@*/ void -handle_yasm_fatal(const char *fmt, va_list va) -{ - fprintf(errfile, "**%s**: ", _("Fatal")); - vfprintf(errfile, gettext(fmt), va); - fputc('\n', errfile); - exit(EXIT_FAILURE); -} - -static const char * -handle_yasm_gettext(const char *msgid) -{ - return gettext(msgid); -} - -static void -print_yasm_error(const char *filename, unsigned long line, const char *msg, - const char *xref_fn, unsigned long xref_line, - const char *xref_msg) -{ - if (line) - fprintf(errfile, "**%s** %s(%lu) %s\n", _("Error"), filename, line, msg); - else - fprintf(errfile, "**%s** %s %s\n", _("Error"), filename, msg); - - if (/* xref_fn && */ xref_msg) { - if (xref_line) - fprintf(errfile, "**%s** %s(%lu) %s\n", _("Error"), filename, xref_line, xref_msg); - else - fprintf(errfile, "**%s** %s %s\n", _("Error"), filename, xref_msg); - } -} - -static void -print_yasm_warning(const char *filename, unsigned long line, const char *msg) -{ - if (line) - fprintf(errfile, "*%s* %s(%lu) %s\n", _("Warning"), filename, line, msg); - else - fprintf(errfile, "*%s* %s %s\n", _("Warning"), filename, msg); -} +/* + * Program entry point, command line parsing + * + * Copyright (C) 2001-2008 Peter Johnson + * Copyright (C) 2007-2008 Samuel Thibault + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ +#include <util.h> + +#include <ctype.h> +#include <libyasm/compat-queue.h> +#include <libyasm/bitvect.h> +#include <libyasm.h> + +#ifdef HAVE_LIBGEN_H +#include <libgen.h> +#endif + +#include "tasm-options.h" + +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) +#include "yasm-plugin.h" +#endif + +#include "license.c" + +#define DEFAULT_OBJFMT_MODULE "bin" + +#if defined(CMAKE_BUILD) && !defined(BUILD_SHARED_LIBS) +void yasm_init_plugin(void); +#endif + +/*@null@*/ /*@only@*/ static char *obj_filename = NULL, *in_filename = NULL; +/*@null@*/ /*@only@*/ static char *list_filename = NULL, *xref_filename = NULL; +/*@null@*/ /*@only@*/ static char *machine_name = NULL; +static int special_options = 0; +static int segment_ordering = 0; +static int cross_reference = 0; +static int floating_point = 0; +static int listing = 0; +static int expanded_listing = 0; +static int case_sensitivity = 0; +static int valid_length = -1; +/*@null@*/ /*@dependent@*/ static yasm_arch *cur_arch = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_arch_module * + cur_arch_module = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_parser_module * + cur_parser_module = NULL; +/*@null@*/ /*@dependent@*/ static yasm_preproc *cur_preproc = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_preproc_module * + cur_preproc_module = NULL; +/*@null@*/ static char *objfmt_keyword = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_objfmt_module * + cur_objfmt_module = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_dbgfmt_module * + cur_dbgfmt_module = NULL; +/*@null@*/ /*@dependent@*/ static yasm_listfmt *cur_listfmt = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_listfmt_module * + cur_listfmt_module = NULL; +static int warning_error = 0; /* warnings being treated as errors */ +static FILE *errfile; +/*@null@*/ /*@only@*/ static char *error_filename = NULL; + +/*@null@*/ /*@dependent@*/ static FILE *open_file(const char *filename, + const char *mode); +static void check_errors(/*@only@*/ yasm_errwarns *errwarns, + /*@only@*/ yasm_object *object, + /*@only@*/ yasm_linemap *linemap); +static void cleanup(/*@null@*/ /*@only@*/ yasm_object *object); + +/* Forward declarations: cmd line parser handlers */ +static int opt_special_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_segment_ordering_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_cross_reference_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_floating_point_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_ignore(char *cmd, /*@null@*/ char *param, int extra); +static int opt_listing_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_case_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_valid_length_handler(char *cmd, /*@null@*/ char *param, int extra); + +static int opt_warning_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_preproc_option(char *cmd, /*@null@*/ char *param, int extra); +static int opt_exe_handler(char *cmd, /*@null@*/ char *param, int extra); + +static /*@only@*/ char *replace_extension(const char *orig, /*@null@*/ + const char *ext, const char *def); +static void print_error(const char *fmt, ...); + +static /*@exits@*/ void handle_yasm_int_error(const char *file, + unsigned int line, + const char *message); +static /*@exits@*/ void handle_yasm_fatal(const char *message, va_list va); +static const char *handle_yasm_gettext(const char *msgid); +static void print_yasm_error(const char *filename, unsigned long line, + const char *msg, /*@null@*/ const char *xref_fn, + unsigned long xref_line, + /*@null@*/ const char *xref_msg); +static void print_yasm_warning(const char *filename, unsigned long line, + const char *msg); + +static void apply_preproc_builtins(void); +static void apply_preproc_standard_macros(const yasm_stdmac *stdmacs); +static void apply_preproc_saved_options(void); +static void print_list_keyword_desc(const char *name, const char *keyword); + +/* values for special_options */ +#define SPECIAL_SHOW_HELP 0x01 +#define SPECIAL_SHOW_VERSION 0x02 +#define SPECIAL_SHOW_LICENSE 0x04 + +#define SEGMENT_ORDERING_ALPHABETIC 0x01 +#define SEGMENT_ORDERING_SOURCE 0x02 + +#define FP_EMULATED 0x01 +#define FP_REAL 0x02 + +#define CASE_ALL 0x01 +#define CASE_GLOBALS 0x02 +#define CASE_NONE 0x04 + +#define DEBUG_FULL 0x01 +#define DEBUG_LINES 0x02 +#define DEBUG_NONE 0x04 + +/* command line options */ +static opt_option options[] = +{ + { "version", 0, opt_special_handler, SPECIAL_SHOW_VERSION, + N_("show version text"), NULL }, + { "license", 0, opt_special_handler, SPECIAL_SHOW_LICENSE, + N_("show license text"), NULL }, + { "a", 0, opt_segment_ordering_handler, SEGMENT_ORDERING_ALPHABETIC, + N_("Alphabetic segment ordering"), NULL }, + { "s", 0, opt_segment_ordering_handler, SEGMENT_ORDERING_SOURCE, + N_("Source segment ordering"), NULL }, + + { "c", 0, opt_cross_reference_handler, 0, + N_("Generate cross-reference in listing"), NULL }, + + { "d", 1, opt_preproc_option, 2, + N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, + + { "e", 0, opt_floating_point_handler, FP_EMULATED, + N_("Emulated floating-point instructions (not supported)"), NULL }, + { "r", 0, opt_floating_point_handler, FP_REAL, + N_("Real floating-point instructions"), NULL }, + + { "h", 0, opt_special_handler, SPECIAL_SHOW_HELP, + N_("show help text"), NULL }, + { "?", 0, opt_special_handler, SPECIAL_SHOW_HELP, + N_("show help text"), NULL }, + + { "i", 1, opt_preproc_option, 0, + N_("add include path"), N_("path") }, + + { "j", 1, opt_ignore, 0, + N_("Jam in an assemble directive CMD (eg. /jIDEAL) (not supported)"), NULL }, + + { "k", 1, opt_ignore, 0, + N_("Hash table capacity (ignored)"), N_("# symbols") }, + + { "l", 0, opt_listing_handler, 0, + N_("Generate listing"), N_("l=normal listing, la=expanded listing") }, + + { "ml", 0, opt_case_handler, CASE_ALL, + N_("Case sensitivity on all symbols"), NULL }, + { "mx", 0, opt_case_handler, CASE_GLOBALS, + N_("Case sensitivity on global symbols"), NULL }, + { "mu", 0, opt_case_handler, CASE_NONE, + N_("No case sensitivity on symbols"), NULL }, + { "mv", 0, opt_valid_length_handler, 0, + N_("Set maximum valid length for symbols"), N_("length") }, + + { "m", 1, opt_ignore, 0, + N_("Allow multiple passes to resolve forward reference (ignored)"), N_("number of passes") }, + + { "n", 0, opt_ignore, 0, + N_("Suppress symbol tables in listing"), NULL }, + + { "o", 0, opt_ignore, 0, + N_("Object code"), N_("os: standard, o: standard w/overlays, op: Phar Lap, oi: IBM") }, + + { "p", 0, opt_ignore, 0, + N_("Check for code segment overrides in protected mode"), NULL }, + { "q", 0, opt_ignore, 0, + N_("Suppress OBJ records not needed for linking (ignored)"), NULL }, + { "t", 0, opt_ignore, 0, + N_("Suppress messages if successful assembly"), NULL }, + { "u", 0, opt_ignore, 0, + N_("Set version emulation"), N_("Version") }, + { "w", 1, opt_warning_handler, 0, + N_("Set warning level"), N_("w0=none, w1=w2=warnings on, w-xxx/w+xxx=disable/enable warning xxx") }, + { "x", 0, opt_ignore, 0, + N_("Include false conditionals in listing"), NULL }, + { "zi", 0, opt_ignore, DEBUG_FULL, + N_("Full debug info"), NULL }, + { "zd", 0, opt_ignore, DEBUG_LINES, + N_("Line numbers debug info"), NULL }, + { "zn", 0, opt_ignore, DEBUG_NONE, + N_("No debug info"), NULL }, + { "z", 0, opt_ignore, 0, + N_("Display source line with error message (ignored)"), NULL }, + + { "b", 0, opt_exe_handler, 0, + N_("Build a (very) basic .exe file"), NULL }, +}; + +/* version message */ +/*@observer@*/ static const char *version_msg[] = { + PACKAGE_STRING, + "Compiled on " __DATE__ ".", + "Copyright (c) 2001-2010 Peter Johnson and other Yasm developers.", + "Run yasm --license for licensing overview and summary." +}; + +/* help messages */ +/*@observer@*/ static const char *help_head = N_( + "usage: tasm [option]* source [,object] [,listing] [,xref] \n" + "Options:\n"); +/*@observer@*/ static const char *help_tail = N_( + "\n" + "source is asm source to be assembled.\n" + "\n" + "Sample invocation:\n" + " tasm /zi source.asm\n" + "\n" + "Report bugs to bug-yasm@tortall.net\n"); + +/* parsed command line storage until appropriate modules have been loaded */ +typedef STAILQ_HEAD(constcharparam_head, constcharparam) constcharparam_head; + +typedef struct constcharparam { + STAILQ_ENTRY(constcharparam) link; + const char *param; + int id; +} constcharparam; + +static constcharparam_head preproc_options; + +static int +do_assemble(void) +{ + yasm_object *object; + const char *base_filename; + /*@null@*/ FILE *obj = NULL; + yasm_arch_create_error arch_error; + yasm_linemap *linemap; + yasm_errwarns *errwarns = yasm_errwarns_create(); + int i, matched; + + /* Initialize line map */ + linemap = yasm_linemap_create(); + yasm_linemap_set(linemap, in_filename, 0, 1, 1); + + /* determine the object filename if not specified */ + if (!obj_filename) { + if (in_filename == NULL) + /* Default to yasm.out if no obj filename specified */ + obj_filename = yasm__xstrdup("yasm.out"); + else { + /* replace (or add) extension to base filename */ + yasm__splitpath(in_filename, &base_filename); + if (base_filename[0] == '\0') + obj_filename = yasm__xstrdup("yasm.out"); + else + obj_filename = replace_extension(base_filename, + "obj", + "yasm.out"); + } + } + + cur_arch = yasm_arch_create(cur_arch_module, machine_name, + cur_parser_module->keyword, &arch_error); + if (!cur_arch) { + switch (arch_error) { + case YASM_ARCH_CREATE_BAD_MACHINE: + print_error(_("%s: `%s' is not a valid %s for %s `%s'"), + _("FATAL"), machine_name, _("machine"), + _("architecture"), cur_arch_module->keyword); + break; + case YASM_ARCH_CREATE_BAD_PARSER: + print_error(_("%s: `%s' is not a valid %s for %s `%s'"), + _("FATAL"), cur_parser_module->keyword, + _("parser"), _("architecture"), + cur_arch_module->keyword); + break; + default: + print_error(_("%s: unknown architecture error"), _("FATAL")); + } + + return EXIT_FAILURE; + } + + /* Create object */ + object = yasm_object_create(in_filename, obj_filename, cur_arch, + cur_objfmt_module, cur_dbgfmt_module); + if (!object) { + yasm_error_class eclass; + unsigned long xrefline; + /*@only@*/ /*@null@*/ char *estr, *xrefstr; + + yasm_error_fetch(&eclass, &estr, &xrefline, &xrefstr); + print_error("%s: %s", _("FATAL"), estr); + yasm_xfree(estr); + yasm_xfree(xrefstr); + + cleanup(object); + return EXIT_FAILURE; + } + + /* Get a fresh copy of objfmt_module as it may have changed. */ + cur_objfmt_module = ((yasm_objfmt_base *)object->objfmt)->module; + + /* Check to see if the requested preprocessor is in the allowed list + * for the active parser. + */ + matched = 0; + for (i=0; cur_parser_module->preproc_keywords[i]; i++) + if (yasm__strcasecmp(cur_parser_module->preproc_keywords[i], + cur_preproc_module->keyword) == 0) + matched = 1; + if (!matched) { + print_error(_("%s: `%s' is not a valid %s for %s `%s'"), _("FATAL"), + cur_preproc_module->keyword, _("preprocessor"), + _("parser"), cur_parser_module->keyword); + cleanup(object); + return EXIT_FAILURE; + } + + cur_preproc = yasm_preproc_create(cur_preproc_module, in_filename, + object->symtab, linemap, errwarns); + + apply_preproc_builtins(); + apply_preproc_standard_macros(cur_parser_module->stdmacs); + apply_preproc_standard_macros(cur_objfmt_module->stdmacs); + apply_preproc_saved_options(); + + /* Get initial x86 BITS setting from object format */ + if (strcmp(cur_arch_module->keyword, "x86") == 0) { + yasm_arch_set_var(cur_arch, "mode_bits", + cur_objfmt_module->default_x86_mode_bits); + } + + /* Parse! */ + cur_parser_module->do_parse(object, cur_preproc, list_filename != NULL, + linemap, errwarns); + + check_errors(errwarns, object, linemap); + + /* Finalize parse */ + yasm_object_finalize(object, errwarns); + check_errors(errwarns, object, linemap); + + /* Optimize */ + yasm_object_optimize(object, errwarns); + check_errors(errwarns, object, linemap); + + /* generate any debugging information */ + yasm_dbgfmt_generate(object, linemap, errwarns); + check_errors(errwarns, object, linemap); + + /* open the object file for output (if not already opened by dbg objfmt) */ + if (!obj && strcmp(cur_objfmt_module->keyword, "dbg") != 0) { + obj = open_file(obj_filename, "wb"); + if (!obj) { + cleanup(object); + return EXIT_FAILURE; + } + } + + /* Write the object file */ + yasm_objfmt_output(object, obj?obj:stderr, + strcmp(cur_dbgfmt_module->keyword, "null"), errwarns); + + /* Close object file */ + if (obj) + fclose(obj); + + /* If we had an error at this point, we also need to delete the output + * object file (to make sure it's not left newer than the source). + */ + if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) + remove(obj_filename); + check_errors(errwarns, object, linemap); + + /* Open and write the list file */ + if (list_filename) { + FILE *list = open_file(list_filename, "wt"); + if (!list) { + cleanup(object); + return EXIT_FAILURE; + } + /* Initialize the list format */ + cur_listfmt = yasm_listfmt_create(cur_listfmt_module, in_filename, + obj_filename); + yasm_listfmt_output(cur_listfmt, list, linemap, cur_arch); + fclose(list); + } + + yasm_errwarns_output_all(errwarns, linemap, warning_error, + print_yasm_error, print_yasm_warning); + + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + cleanup(object); + return EXIT_SUCCESS; +} + +/* main function */ +/*@-globstate -unrecog@*/ +int +main(int argc, char *argv[]) +{ + size_t i; + + errfile = stderr; + +#if defined(HAVE_SETLOCALE) && defined(HAVE_LC_MESSAGES) + setlocale(LC_MESSAGES, ""); +#endif +#if defined(LOCALEDIR) + bindtextdomain(PACKAGE, LOCALEDIR); +#endif + textdomain(PACKAGE); + + /* Initialize errwarn handling */ + yasm_internal_error_ = handle_yasm_int_error; + yasm_fatal = handle_yasm_fatal; + yasm_gettext_hook = handle_yasm_gettext; + yasm_errwarn_initialize(); + + /* Initialize BitVector (needed for intnum/floatnum). */ + if (BitVector_Boot() != ErrCode_Ok) { + print_error(_("%s: could not initialize BitVector"), _("FATAL")); + return EXIT_FAILURE; + } + + /* Initialize intnum and floatnum */ + yasm_intnum_initialize(); + yasm_floatnum_initialize(); + +#ifdef CMAKE_BUILD + /* Load standard modules */ +#ifdef BUILD_SHARED_LIBS + if (!load_plugin("yasmstd")) { + print_error(_("%s: could not load standard modules"), _("FATAL")); + return EXIT_FAILURE; + } +#else + yasm_init_plugin(); +#endif +#endif + + /* Initialize parameter storage */ + STAILQ_INIT(&preproc_options); + + if (parse_cmdline(argc, argv, options, NELEMS(options), print_error)) + return EXIT_FAILURE; + + switch (special_options) { + case SPECIAL_SHOW_HELP: + /* Does gettext calls internally */ + help_msg(help_head, help_tail, options, NELEMS(options)); + return EXIT_SUCCESS; + case SPECIAL_SHOW_VERSION: + for (i=0; i<NELEMS(version_msg); i++) + printf("%s\n", version_msg[i]); + return EXIT_SUCCESS; + case SPECIAL_SHOW_LICENSE: + for (i=0; i<NELEMS(license_msg); i++) + printf("%s\n", license_msg[i]); + return EXIT_SUCCESS; + } + + /* Open error file if specified. */ + if (error_filename) { + errfile = open_file(error_filename, "wt"); + if (!errfile) + return EXIT_FAILURE; + } + + /* If not already specified, default to bin as the object format. */ + if (!cur_objfmt_module) { + if (!objfmt_keyword) + objfmt_keyword = yasm__xstrdup(DEFAULT_OBJFMT_MODULE); + cur_objfmt_module = yasm_load_objfmt(objfmt_keyword); + if (!cur_objfmt_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("object format")); + return EXIT_FAILURE; + } + } + + /* TASM's architecture is x86 */ + cur_arch_module = yasm_load_arch("x86"); + if (!cur_arch_module) { + print_error(_("%s: could not load %s"), _("FATAL"), + _("architecture")); + return EXIT_FAILURE; + } + machine_name = + yasm__xstrdup(cur_arch_module->default_machine_keyword); + + /* Check for arch help */ + if (machine_name && strcmp(machine_name, "help") == 0) { + const yasm_arch_machine *m = cur_arch_module->machines; + printf(_("Available %s for %s `%s':\n"), _("machines"), + _("architecture"), cur_arch_module->keyword); + while (m->keyword && m->name) { + print_list_keyword_desc(m->name, m->keyword); + m++; + } + return EXIT_SUCCESS; + } + + cur_parser_module = yasm_load_parser("tasm"); + if (!cur_parser_module) { + print_error(_("%s: could not load %s"), _("FATAL"), + _("parser")); + cleanup(NULL); + return EXIT_FAILURE; + } + + /* If not already specified, default to the parser's default preproc. */ + if (!cur_preproc_module) { + cur_preproc_module = + yasm_load_preproc(cur_parser_module->default_preproc_keyword); + if (!cur_preproc_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("preprocessor")); + cleanup(NULL); + return EXIT_FAILURE; + } + } + + /* Determine input filename and open input file. */ + if (!in_filename) { + print_error(_("No input files specified")); + return EXIT_FAILURE; + } + + /* If list file enabled, make sure we have a list format loaded. */ + if (list_filename) { + /* use nasm as the list format. */ + cur_listfmt_module = yasm_load_listfmt("nasm"); + } + + /* If not already specified, default to null as the debug format. */ + if (!cur_dbgfmt_module) { + cur_dbgfmt_module = yasm_load_dbgfmt("null"); + if (!cur_dbgfmt_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("debug format")); + return EXIT_FAILURE; + } + } + + return do_assemble(); +} +/*@=globstate =unrecog@*/ + +/* Open the object file. Returns 0 on failure. */ +static FILE * +open_file(const char *filename, const char *mode) +{ + FILE *f; + + f = fopen(filename, mode); + if (!f) + print_error(_("could not open file `%s'"), filename); + return f; +} + +static void +check_errors(yasm_errwarns *errwarns, yasm_object *object, + yasm_linemap *linemap) +{ + if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) { + yasm_errwarns_output_all(errwarns, linemap, warning_error, + print_yasm_error, print_yasm_warning); + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + cleanup(object); + exit(EXIT_FAILURE); + } +} + +/* Define DO_FREE to 1 to enable deallocation of all data structures. + * Useful for detecting memory leaks, but slows down execution unnecessarily + * (as the OS will free everything we miss here). + */ +#define DO_FREE 1 + +/* Cleans up all allocated structures. */ +static void +cleanup(yasm_object *object) +{ + if (DO_FREE) { + if (cur_listfmt) + yasm_listfmt_destroy(cur_listfmt); + if (cur_preproc) + yasm_preproc_destroy(cur_preproc); + if (object) + yasm_object_destroy(object); + + yasm_floatnum_cleanup(); + yasm_intnum_cleanup(); + + yasm_errwarn_cleanup(); + + BitVector_Shutdown(); + } + + if (DO_FREE) { + if (in_filename) + yasm_xfree(in_filename); + if (obj_filename) + yasm_xfree(obj_filename); + if (list_filename) + yasm_xfree(list_filename); + if (xref_filename) + yasm_xfree(xref_filename); + if (machine_name) + yasm_xfree(machine_name); + if (objfmt_keyword) + yasm_xfree(objfmt_keyword); + } + + if (errfile != stderr && errfile != stdout) + fclose(errfile); +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) + unload_plugins(); +#endif +} + +/* + * Command line options handlers + */ +static char ** const filenames[] = { + &in_filename, &obj_filename, &list_filename, &xref_filename, NULL +}, ** const * cur_filename = &filenames[0]; + +static int filename_handler(char *param) { + if (!*cur_filename) { + print_error(_("error: too many files on command line.")); + return 1; + } + + if (*param) + **cur_filename = yasm__xstrdup(param); + + return 0; +} +int +not_an_option_handler(char *param) { + char *c, *d = param; + + while ((c = strchr(d, ','))) { + *c = '\0'; + if (filename_handler(d)) + return 1; + d = c + 1; + cur_filename++; + } + filename_handler(d); + return 0; +} + +static int +opt_special_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + if (special_options == 0) + special_options = extra; + return 0; +} + +static int +opt_segment_ordering_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + segment_ordering = extra; + return 0; +} + +static int +opt_cross_reference_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + cross_reference = 1; + return 0; +} + +static int +opt_floating_point_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + floating_point = extra; + return 0; +} + +static int +opt_ignore(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + return 0; +} + +static int +opt_listing_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + if (param && param[0]) { + if (param[0] != 'a') + return 1; + expanded_listing = 1; + } + listing = 1; + return 0; +} + +static int +opt_case_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + case_sensitivity = extra; + return 0; +} + +static int +opt_valid_length_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + valid_length = atoi(param); + return 0; +} + +static int +opt_warning_handler(char *cmd, /*@unused@*/ char *param, int extra) +{ + /* is it disabling the warning instead of enabling? */ + void (*action)(yasm_warn_class wclass) = NULL; + + if (cmd[0] == '0') { + /* /w0, disable warnings */ + yasm_warn_disable_all(); + return 0; + } + + if (cmd[0] == '1' || cmd[0] == '2') { + /* /w[12], enable warnings */ + yasm_warn_enable(YASM_WARN_UNREC_CHAR); + yasm_warn_enable(YASM_WARN_ORPHAN_LABEL); + yasm_warn_enable(YASM_WARN_UNINIT_CONTENTS); + return 0; + } + + /* detect no- prefix to disable the warning */ + if (cmd[0] == '-') { + action = yasm_warn_disable; + } else if (cmd[0] == '+') { + action = yasm_warn_enable; + } else return 1; + + /* skip past '+/-' */ + cmd++; + + if (cmd[0] == '\0') + /* just /w- or /w+, so definitely not valid */ + return 1; + else if (strcmp(cmd, "error") == 0) + warning_error = (action == yasm_warn_enable); + else if (strcmp(cmd, "unrecognized-char") == 0) + action(YASM_WARN_UNREC_CHAR); + else if (strcmp(cmd, "orphan-labels") == 0) + action(YASM_WARN_ORPHAN_LABEL); + else if (strcmp(cmd, "uninit-contents") == 0) + action(YASM_WARN_UNINIT_CONTENTS); + else if (strcmp(cmd, "size-override") == 0) + action(YASM_WARN_SIZE_OVERRIDE); + else + return 1; + + return 0; +} + +static int +opt_preproc_option(/*@unused@*/ char *cmd, char *param, int extra) +{ + constcharparam *cp; + cp = yasm_xmalloc(sizeof(constcharparam)); + cp->param = param; + cp->id = extra; + STAILQ_INSERT_TAIL(&preproc_options, cp, link); + return 0; +} + +static int +opt_exe_handler(char *cmd, /*@unused@*/ char *param, int extra) +{ + objfmt_keyword = yasm__xstrdup("dosexe"); + return 0; +} + +static void +apply_preproc_builtins() +{ + char *predef; + + if (!objfmt_keyword) + objfmt_keyword = yasm__xstrdup(DEFAULT_OBJFMT_MODULE); + + /* Define standard YASM assembly-time macro constants */ + predef = yasm_xmalloc(strlen("__YASM_OBJFMT__=") + + strlen(objfmt_keyword) + 1); + strcpy(predef, "__YASM_OBJFMT__="); + strcat(predef, objfmt_keyword); + yasm_preproc_define_builtin(cur_preproc, predef); + yasm_xfree(predef); +} + +static void +apply_preproc_standard_macros(const yasm_stdmac *stdmacs) +{ + int i, matched; + + if (!stdmacs) + return; + + matched = -1; + for (i=0; stdmacs[i].parser; i++) + if (yasm__strcasecmp(stdmacs[i].parser, + cur_parser_module->keyword) == 0 && + yasm__strcasecmp(stdmacs[i].preproc, + cur_preproc_module->keyword) == 0) + matched = i; + if (matched >= 0 && stdmacs[matched].macros) + yasm_preproc_add_standard(cur_preproc, stdmacs[matched].macros); +} + +static void +apply_preproc_saved_options() +{ + constcharparam *cp, *cpnext; + + void (*funcs[3])(yasm_preproc *, const char *); + funcs[0] = cur_preproc_module->add_include_file; + funcs[1] = cur_preproc_module->predefine_macro; + funcs[2] = cur_preproc_module->undefine_macro; + + STAILQ_FOREACH(cp, &preproc_options, link) { + if (0 <= cp->id && cp->id < 3 && funcs[cp->id]) + funcs[cp->id](cur_preproc, cp->param); + } + + cp = STAILQ_FIRST(&preproc_options); + while (cp != NULL) { + cpnext = STAILQ_NEXT(cp, link); + yasm_xfree(cp); + cp = cpnext; + } + STAILQ_INIT(&preproc_options); +} + +/* Replace extension on a filename (or append one if none is present). + * If output filename would be identical to input (same extension out as in), + * returns (copy of) def. + * A NULL ext means the trailing '.' should NOT be included, whereas a "" ext + * means the trailing '.' should be included. + */ +static char * +replace_extension(const char *orig, /*@null@*/ const char *ext, + const char *def) +{ + char *out, *outext; + size_t deflen, outlen; + + /* allocate enough space for full existing name + extension */ + outlen = strlen(orig) + 2; + if (ext) + outlen += strlen(ext) + 1; + deflen = strlen(def) + 1; + if (outlen < deflen) + outlen = deflen; + out = yasm_xmalloc(outlen); + + strcpy(out, orig); + outext = strrchr(out, '.'); + if (outext) { + /* Existing extension: make sure it's not the same as the replacement + * (as we don't want to overwrite the source file). + */ + outext++; /* advance past '.' */ + if (ext && strcmp(outext, ext) == 0) { + outext = NULL; /* indicate default should be used */ + print_error( + _("file name already ends in `.%s': output will be in `%s'"), + ext, def); + } + } else { + /* No extension: make sure the output extension is not empty + * (again, we don't want to overwrite the source file). + */ + if (!ext) + print_error( + _("file name already has no extension: output will be in `%s'"), + def); + else { + outext = strrchr(out, '\0'); /* point to end of the string */ + *outext++ = '.'; /* append '.' */ + } + } + + /* replace extension or use default name */ + if (outext) { + if (!ext) { + /* Back up and replace '.' with string terminator */ + outext--; + *outext = '\0'; + } else + strcpy(outext, ext); + } else + strcpy(out, def); + + return out; +} + +void +print_list_keyword_desc(const char *name, const char *keyword) +{ + printf("%4s%-12s%s\n", "", keyword, name); +} + +static void +print_error(const char *fmt, ...) +{ + va_list va; + fprintf(errfile, "tasm: "); + va_start(va, fmt); + vfprintf(errfile, fmt, va); + va_end(va); + fputc('\n', errfile); +} + +static /*@exits@*/ void +handle_yasm_int_error(const char *file, unsigned int line, const char *message) +{ + fprintf(stderr, _("INTERNAL ERROR at %s, line %u: %s\n"), file, line, + gettext(message)); +#ifdef HAVE_ABORT + abort(); +#else + exit(EXIT_FAILURE); +#endif +} + +static /*@exits@*/ void +handle_yasm_fatal(const char *fmt, va_list va) +{ + fprintf(errfile, "**%s**: ", _("Fatal")); + vfprintf(errfile, gettext(fmt), va); + fputc('\n', errfile); + exit(EXIT_FAILURE); +} + +static const char * +handle_yasm_gettext(const char *msgid) +{ + return gettext(msgid); +} + +static void +print_yasm_error(const char *filename, unsigned long line, const char *msg, + const char *xref_fn, unsigned long xref_line, + const char *xref_msg) +{ + if (line) + fprintf(errfile, "**%s** %s(%lu) %s\n", _("Error"), filename, line, msg); + else + fprintf(errfile, "**%s** %s %s\n", _("Error"), filename, msg); + + if (/* xref_fn && */ xref_msg) { + if (xref_line) + fprintf(errfile, "**%s** %s(%lu) %s\n", _("Error"), filename, xref_line, xref_msg); + else + fprintf(errfile, "**%s** %s %s\n", _("Error"), filename, xref_msg); + } +} + +static void +print_yasm_warning(const char *filename, unsigned long line, const char *msg) +{ + if (line) + fprintf(errfile, "*%s* %s(%lu) %s\n", _("Warning"), filename, line, msg); + else + fprintf(errfile, "*%s* %s %s\n", _("Warning"), filename, msg); +} diff --git a/contrib/tools/yasm/frontends/vsyasm/license.c b/contrib/tools/yasm/frontends/vsyasm/license.c index 35c5a04137..1259971244 100644 --- a/contrib/tools/yasm/frontends/vsyasm/license.c +++ b/contrib/tools/yasm/frontends/vsyasm/license.c @@ -1,65 +1,65 @@ -/* This file auto-generated from COPYING by genstring.py - don't edit it */ - -static const char* license_msg[] = { - "Yasm is Copyright (c) 2001-2014 Peter Johnson and other Yasm developers.", - "", - "Yasm developers and/or contributors include:", - "Peter Johnson", - "Michael Urman", - "Brian Gladman (Visual Studio build files, other fixes)", - "Stanislav Karchebny (options parser)", - "Mathieu Monnier (SSE4 instruction patches, NASM preprocessor additions)", - "Anonymous \"NASM64\" developer (NASM preprocessor fixes)", - "Stephen Polkowski (x86 instruction patches)", - "Henryk Richter (Mach-O object format)", - "Ben Skeggs (patches, bug reports)", - "Alexei Svitkine (GAS preprocessor)", - "Samuel Thibault (TASM parser and frontend)", - "", - "-----------------------------------", - "Yasm licensing overview and summary", - "-----------------------------------", - "", - "Note: This document does not provide legal advice nor is it the actual", - "license of any part of Yasm. See the individual licenses for complete", - "details. Consult a lawyer for legal advice.", - "", - "The primary license of Yasm is the 2-clause BSD license. Please use this", - "license if you plan on submitting code to the project.", - "", - "Yasm has absolutely no warranty; not even for merchantibility or fitness", - "for a particular purpose.", - "", - "-------", - "Libyasm", - "-------", - "Libyasm is 2-clause or 3-clause BSD licensed, with the exception of", - "bitvect, which is triple-licensed under the Artistic license, GPL, and", - "LGPL. Libyasm is thus GPL and LGPL compatible. In addition, this also", - "means that libyasm is free for binary-only distribution as long as the", - "terms of the 3-clause BSD license and Artistic license (as it applies to", - "bitvect) are fulfilled.", - "", - "-------", - "Modules", - "-------", - "The modules are 2-clause or 3-clause BSD licensed.", - "", - "---------", - "Frontends", - "---------", - "The frontends are 2-clause BSD licensed.", - "", - "-------------", - "License Texts", - "-------------", - "The full text of all licenses are provided in separate files in the source", - "distribution. Each source file may include the entire license (in the case", - "of the BSD and Artistic licenses), or may reference the GPL or LGPL license", - "file.", - "", - "BSD.txt - 2-clause and 3-clause BSD licenses", - "Artistic.txt - Artistic license", - "GNU_GPL-2.0 - GNU General Public License", - "GNU_LGPL-2.0 - GNU Library General Public License", -}; +/* This file auto-generated from COPYING by genstring.py - don't edit it */ + +static const char* license_msg[] = { + "Yasm is Copyright (c) 2001-2014 Peter Johnson and other Yasm developers.", + "", + "Yasm developers and/or contributors include:", + "Peter Johnson", + "Michael Urman", + "Brian Gladman (Visual Studio build files, other fixes)", + "Stanislav Karchebny (options parser)", + "Mathieu Monnier (SSE4 instruction patches, NASM preprocessor additions)", + "Anonymous \"NASM64\" developer (NASM preprocessor fixes)", + "Stephen Polkowski (x86 instruction patches)", + "Henryk Richter (Mach-O object format)", + "Ben Skeggs (patches, bug reports)", + "Alexei Svitkine (GAS preprocessor)", + "Samuel Thibault (TASM parser and frontend)", + "", + "-----------------------------------", + "Yasm licensing overview and summary", + "-----------------------------------", + "", + "Note: This document does not provide legal advice nor is it the actual", + "license of any part of Yasm. See the individual licenses for complete", + "details. Consult a lawyer for legal advice.", + "", + "The primary license of Yasm is the 2-clause BSD license. Please use this", + "license if you plan on submitting code to the project.", + "", + "Yasm has absolutely no warranty; not even for merchantibility or fitness", + "for a particular purpose.", + "", + "-------", + "Libyasm", + "-------", + "Libyasm is 2-clause or 3-clause BSD licensed, with the exception of", + "bitvect, which is triple-licensed under the Artistic license, GPL, and", + "LGPL. Libyasm is thus GPL and LGPL compatible. In addition, this also", + "means that libyasm is free for binary-only distribution as long as the", + "terms of the 3-clause BSD license and Artistic license (as it applies to", + "bitvect) are fulfilled.", + "", + "-------", + "Modules", + "-------", + "The modules are 2-clause or 3-clause BSD licensed.", + "", + "---------", + "Frontends", + "---------", + "The frontends are 2-clause BSD licensed.", + "", + "-------------", + "License Texts", + "-------------", + "The full text of all licenses are provided in separate files in the source", + "distribution. Each source file may include the entire license (in the case", + "of the BSD and Artistic licenses), or may reference the GPL or LGPL license", + "file.", + "", + "BSD.txt - 2-clause and 3-clause BSD licenses", + "Artistic.txt - Artistic license", + "GNU_GPL-2.0 - GNU General Public License", + "GNU_LGPL-2.0 - GNU Library General Public License", +}; diff --git a/contrib/tools/yasm/frontends/vsyasm/vsyasm.c b/contrib/tools/yasm/frontends/vsyasm/vsyasm.c index 905145fa15..8a47420ec2 100644 --- a/contrib/tools/yasm/frontends/vsyasm/vsyasm.c +++ b/contrib/tools/yasm/frontends/vsyasm/vsyasm.c @@ -1,1424 +1,1424 @@ -/* - * Program entry point, command line parsing - * - * Copyright (C) 2001-2007 Peter Johnson - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' - * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - */ -#include <util.h> - -#include <ctype.h> -#include <libyasm/compat-queue.h> -#include <libyasm/bitvect.h> -#include <libyasm.h> - -#ifdef HAVE_LIBGEN_H -#include <libgen.h> -#endif - -#include "frontends/yasm/yasm-options.h" - -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) -#include "frontends/yasm/yasm-plugin.h" -#endif - -#include "license.c" - -#if defined(CMAKE_BUILD) && !defined(BUILD_SHARED_LIBS) -void yasm_init_plugin(void); -#endif - -/*@null@*/ /*@only@*/ static char *objdir_pathname = NULL; -/*@null@*/ /*@only@*/ static char *global_prefix = NULL, *global_suffix = NULL; -/*@null@*/ /*@only@*/ static char *listdir_pathname = NULL; -/*@null@*/ /*@only@*/ static char *mapdir_pathname = NULL; -/*@null@*/ /*@only@*/ static char *objext = NULL; -/*@null@*/ /*@only@*/ static char *listext = NULL, *mapext = NULL; -/*@null@*/ /*@only@*/ static char *machine_name = NULL; -static int special_options = 0; -/*@null@*/ /*@dependent@*/ static const yasm_arch_module * - cur_arch_module = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_parser_module * - cur_parser_module = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_preproc_module * - cur_preproc_module = NULL; -/*@null@*/ static char *objfmt_keyword = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_objfmt_module * - cur_objfmt_module = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_dbgfmt_module * - cur_dbgfmt_module = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_listfmt_module * - cur_listfmt_module = NULL; -static unsigned int force_strict = 0; -static int warning_error = 0; /* warnings being treated as errors */ -static FILE *errfile; -/*@null@*/ /*@only@*/ static char *error_filename = NULL; -static enum { - EWSTYLE_GNU = 0, - EWSTYLE_VC -} ewmsg_style = EWSTYLE_GNU; - -/*@null@*/ /*@dependent@*/ static FILE *open_file(const char *filename, - const char *mode); -static int check_errors(/*@only@*/ yasm_errwarns *errwarns, - /*@only@*/ yasm_object *object, - /*@only@*/ yasm_linemap *linemap, - /*@only@*/ yasm_preproc *preproc, - /*@only@*/ yasm_arch *arch); -static void cleanup(void); -static void free_input_filenames(void); - -/* Forward declarations: cmd line parser handlers */ -static int opt_special_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_arch_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_parser_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_preproc_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_objfmt_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_dbgfmt_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_listfmt_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_listdir_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_objdir_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_mapdir_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_listext_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_objext_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_mapext_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_machine_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_strict_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_warning_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_error_file(char *cmd, /*@null@*/ char *param, int extra); -static int opt_error_stdout(char *cmd, /*@null@*/ char *param, int extra); -static int opt_include_option(char *cmd, /*@null@*/ char *param, int extra); -static int opt_preproc_option(char *cmd, /*@null@*/ char *param, int extra); -static int opt_ewmsg_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_prefix_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_suffix_handler(char *cmd, /*@null@*/ char *param, int extra); -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) -static int opt_plugin_handler(char *cmd, /*@null@*/ char *param, int extra); -#endif - -static /*@only@*/ char *replace_extension(const char *orig, /*@null@*/ - const char *ext); -static void print_error(const char *fmt, ...); - -static /*@exits@*/ void handle_yasm_int_error(const char *file, - unsigned int line, - const char *message); -static /*@exits@*/ void handle_yasm_fatal(const char *message, va_list va); -static const char *handle_yasm_gettext(const char *msgid); -static void print_yasm_error(const char *filename, unsigned long line, - const char *msg, /*@null@*/ const char *xref_fn, - unsigned long xref_line, - /*@null@*/ const char *xref_msg); -static void print_yasm_warning(const char *filename, unsigned long line, - const char *msg); - -static void apply_preproc_builtins(yasm_preproc *preproc); -static void apply_preproc_standard_macros(yasm_preproc *preproc, - const yasm_stdmac *stdmacs); -static void apply_preproc_saved_options(yasm_preproc *preproc); -static void free_preproc_saved_options(void); -static void print_list_keyword_desc(const char *name, const char *keyword); - -/* values for special_options */ -#define SPECIAL_SHOW_HELP 0x01 -#define SPECIAL_SHOW_VERSION 0x02 -#define SPECIAL_SHOW_LICENSE 0x04 -#define SPECIAL_LISTED 0x08 - -/* command line options */ -static opt_option options[] = -{ - { 0, "version", 0, opt_special_handler, SPECIAL_SHOW_VERSION, - N_("show version text"), NULL }, - { 0, "license", 0, opt_special_handler, SPECIAL_SHOW_LICENSE, - N_("show license text"), NULL }, - { 'h', "help", 0, opt_special_handler, SPECIAL_SHOW_HELP, - N_("show help text"), NULL }, - { 'a', "arch", 1, opt_arch_handler, 0, - N_("select architecture (list with -a help)"), N_("arch") }, - { 'p', "parser", 1, opt_parser_handler, 0, - N_("select parser (list with -p help)"), N_("parser") }, - { 'r', "preproc", 1, opt_preproc_handler, 0, - N_("select preprocessor (list with -r help)"), N_("preproc") }, - { 'f', "oformat", 1, opt_objfmt_handler, 0, - N_("select object format (list with -f help)"), N_("format") }, - { 'g', "dformat", 1, opt_dbgfmt_handler, 0, - N_("select debugging format (list with -g help)"), N_("debug") }, - { 'L', "lformat", 1, opt_listfmt_handler, 0, - N_("select list format (list with -L help)"), N_("list") }, - { 'l', "list", 1, opt_listdir_handler, 0, - N_("name of list-file output directory"), N_("pathname") }, - { 'o', "objdir", 1, opt_objdir_handler, 0, - N_("name of object-file output directory"), N_("pathname") }, - { 0, "mapdir", 1, opt_mapdir_handler, 0, - N_("name of map-file output directory"), N_("pathname") }, - { 0, "listext", 1, opt_listext_handler, 0, - N_("list-file extension (default `lst')"), N_("ext") }, - { 0, "objext", 1, opt_objext_handler, 0, - N_("object-file extension (default is by object format)"), N_("ext") }, - { 0, "mapext", 1, opt_mapext_handler, 0, - N_("map-file extension (default `map')"), N_("ext") }, - { 'm', "machine", 1, opt_machine_handler, 0, - N_("select machine (list with -m help)"), N_("machine") }, - { 0, "force-strict", 0, opt_strict_handler, 0, - N_("treat all sized operands as if `strict' was used"), NULL }, - { 'w', NULL, 0, opt_warning_handler, 1, - N_("inhibits warning messages"), NULL }, - { 'W', NULL, 0, opt_warning_handler, 0, - N_("enables/disables warning"), NULL }, - { 'E', NULL, 1, opt_error_file, 0, - N_("redirect error messages to file"), N_("file") }, - { 's', NULL, 0, opt_error_stdout, 0, - N_("redirect error messages to stdout"), NULL }, - { 'i', NULL, 1, opt_include_option, 0, - N_("add include path"), N_("path") }, - { 'I', NULL, 1, opt_include_option, 0, - N_("add include path"), N_("path") }, - { 'P', NULL, 1, opt_preproc_option, 0, - N_("pre-include file"), N_("filename") }, - { 'd', NULL, 1, opt_preproc_option, 1, - N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, - { 'D', NULL, 1, opt_preproc_option, 1, - N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, - { 'u', NULL, 1, opt_preproc_option, 2, - N_("undefine a macro"), N_("macro") }, - { 'U', NULL, 1, opt_preproc_option, 2, - N_("undefine a macro"), N_("macro") }, - { 'X', NULL, 1, opt_ewmsg_handler, 0, - N_("select error/warning message style (`gnu' or `vc')"), N_("style") }, - { 0, "prefix", 1, opt_prefix_handler, 0, - N_("prepend argument to name of all external symbols"), N_("prefix") }, - { 0, "suffix", 1, opt_suffix_handler, 0, - N_("append argument to name of all external symbols"), N_("suffix") }, - { 0, "postfix", 1, opt_suffix_handler, 0, - N_("append argument to name of all external symbols"), N_("suffix") }, -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) - { 'N', "plugin", 1, opt_plugin_handler, 0, - N_("load plugin module"), N_("plugin") }, -#endif -}; - -/* version message */ -/*@observer@*/ static const char *version_msg[] = { - PACKAGE_STRING, - "Compiled on " __DATE__ ".", - "Copyright (c) 2001-2010 Peter Johnson and other Yasm developers.", - "Run yasm --license for licensing overview and summary." -}; - -/* help messages */ -/*@observer@*/ static const char *help_head = N_( - "usage: vsyasm [option]* file...\n" - "Options:\n"); -/*@observer@*/ static const char *help_tail = N_( - "\n" - "Files are asm sources to be assembled.\n" - "\n" - "Sample invocation:\n" - " vsyasm -f win64 -o objdir source1.asm source2.asm\n" - "\n" - "All options apply to all files.\n" - "\n" - "Report bugs to bug-yasm@tortall.net\n"); - -/* parsed command line storage until appropriate modules have been loaded */ -typedef STAILQ_HEAD(constcharparam_head, constcharparam) constcharparam_head; - -typedef struct constcharparam { - STAILQ_ENTRY(constcharparam) link; - const char *param; - int id; -} constcharparam; - -static constcharparam_head preproc_options; -static constcharparam_head input_files; -static int num_input_files = 0; - -static int -do_assemble(const char *in_filename) -{ - yasm_object *object; - const char *base_filename; - char *fn = NULL; - char *obj_filename, *list_filename = NULL, *map_filename = NULL; - /*@null@*/ FILE *obj = NULL; - yasm_arch_create_error arch_error; - yasm_linemap *linemap; - yasm_arch *arch = NULL; - yasm_preproc *preproc = NULL; - yasm_errwarns *errwarns = yasm_errwarns_create(); - int i, matched; - - /* Initialize line map */ - linemap = yasm_linemap_create(); - yasm_linemap_set(linemap, in_filename, 0, 1, 1); - - /* determine the output filenames */ - /* replace (or add) extension to base filename */ - yasm__splitpath(in_filename, &base_filename); - if (base_filename[0] != '\0') - fn = replace_extension(base_filename, objext); - if (!fn) - { - print_error(_("could not determine output filename for `%s'"), - in_filename); - return EXIT_FAILURE; - } - obj_filename = yasm__combpath(objdir_pathname, fn); - yasm_xfree(fn); - - if (listdir_pathname) { - fn = replace_extension(base_filename, listext); - if (!fn) - { - print_error(_("could not determine list filename for `%s'"), - in_filename); - return EXIT_FAILURE; - } - list_filename = yasm__combpath(listdir_pathname, fn); - yasm_xfree(fn); - } - - if (mapdir_pathname) { - fn = replace_extension(base_filename, mapext); - if (!fn) - { - print_error(_("could not determine map filename for `%s'"), - in_filename); - return EXIT_FAILURE; - } - map_filename = yasm__combpath(mapdir_pathname, fn); - yasm_xfree(fn); - } - - /* Set up architecture using machine and parser. */ - if (!machine_name) { - /* If we're using x86 and the default objfmt bits is 64, default the - * machine to amd64. When we get more arches with multiple machines, - * we should do this in a more modular fashion. - */ - if (strcmp(cur_arch_module->keyword, "x86") == 0 && - cur_objfmt_module->default_x86_mode_bits == 64) - machine_name = yasm__xstrdup("amd64"); - else - machine_name = - yasm__xstrdup(cur_arch_module->default_machine_keyword); - } - - arch = yasm_arch_create(cur_arch_module, machine_name, - cur_parser_module->keyword, &arch_error); - if (!arch) { - switch (arch_error) { - case YASM_ARCH_CREATE_BAD_MACHINE: - print_error(_("%s: `%s' is not a valid %s for %s `%s'"), - _("FATAL"), machine_name, _("machine"), - _("architecture"), cur_arch_module->keyword); - break; - case YASM_ARCH_CREATE_BAD_PARSER: - print_error(_("%s: `%s' is not a valid %s for %s `%s'"), - _("FATAL"), cur_parser_module->keyword, - _("parser"), _("architecture"), - cur_arch_module->keyword); - break; - default: - print_error(_("%s: unknown architecture error"), _("FATAL")); - } - - return EXIT_FAILURE; - } - - /* Create object */ - object = yasm_object_create(in_filename, obj_filename, arch, - cur_objfmt_module, cur_dbgfmt_module); - if (!object) { - yasm_error_class eclass; - unsigned long xrefline; - /*@only@*/ /*@null@*/ char *estr, *xrefstr; - - yasm_error_fetch(&eclass, &estr, &xrefline, &xrefstr); - print_error("%s: %s", _("FATAL"), estr); - yasm_xfree(estr); - yasm_xfree(xrefstr); - return EXIT_FAILURE; - } - - /* Get a fresh copy of objfmt_module as it may have changed. */ - cur_objfmt_module = ((yasm_objfmt_base *)object->objfmt)->module; - - /* Check to see if the requested preprocessor is in the allowed list - * for the active parser. - */ - matched = 0; - for (i=0; cur_parser_module->preproc_keywords[i]; i++) - if (yasm__strcasecmp(cur_parser_module->preproc_keywords[i], - cur_preproc_module->keyword) == 0) - matched = 1; - if (!matched) { - print_error(_("%s: `%s' is not a valid %s for %s `%s'"), _("FATAL"), - cur_preproc_module->keyword, _("preprocessor"), - _("parser"), cur_parser_module->keyword); - yasm_object_destroy(object); - return EXIT_FAILURE; - } - - if (global_prefix) - yasm_object_set_global_prefix(object, global_prefix); - if (global_suffix) - yasm_object_set_global_suffix(object, global_suffix); - - preproc = yasm_preproc_create(cur_preproc_module, in_filename, - object->symtab, linemap, errwarns); - - apply_preproc_builtins(preproc); - apply_preproc_standard_macros(preproc, cur_parser_module->stdmacs); - apply_preproc_standard_macros(preproc, cur_objfmt_module->stdmacs); - apply_preproc_saved_options(preproc); - - /* Get initial x86 BITS setting from object format */ - if (strcmp(cur_arch_module->keyword, "x86") == 0) { - yasm_arch_set_var(arch, "mode_bits", - cur_objfmt_module->default_x86_mode_bits); - } - - yasm_arch_set_var(arch, "force_strict", force_strict); - - /* Try to enable the map file via a map NASM directive. This is - * somewhat of a hack. - */ - if (map_filename) { - const yasm_directive *dir = &cur_objfmt_module->directives[0]; - matched = 0; - for (; dir && dir->name; dir++) { - if (yasm__strcasecmp(dir->name, "map") == 0 && - yasm__strcasecmp(dir->parser, "nasm") == 0) { - yasm_valparamhead vps; - yasm_valparam *vp; - matched = 1; - yasm_vps_initialize(&vps); - vp = yasm_vp_create_string(NULL, yasm__xstrdup(map_filename)); - yasm_vps_append(&vps, vp); - dir->handler(object, &vps, NULL, 0); - yasm_vps_delete(&vps); - } - } - if (!matched) { - print_error( - _("warning: object format `%s' does not support map files"), - cur_objfmt_module->keyword); - } - } - - /* Parse! */ - cur_parser_module->do_parse(object, preproc, list_filename != NULL, - linemap, errwarns); - - if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) - return EXIT_FAILURE; - - /* Finalize parse */ - yasm_object_finalize(object, errwarns); - if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) - return EXIT_FAILURE; - - /* Optimize */ - yasm_object_optimize(object, errwarns); - if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) - return EXIT_FAILURE; - - /* generate any debugging information */ - yasm_dbgfmt_generate(object, linemap, errwarns); - if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) - return EXIT_FAILURE; - - /* open the object file for output (if not already opened by dbg objfmt) */ - if (!obj && strcmp(cur_objfmt_module->keyword, "dbg") != 0) { - obj = open_file(obj_filename, "wb"); - if (!obj) { - yasm_preproc_destroy(preproc); - yasm_object_destroy(object); - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - return EXIT_FAILURE; - } - } - - /* Write the object file */ - yasm_objfmt_output(object, obj?obj:stderr, - strcmp(cur_dbgfmt_module->keyword, "null"), errwarns); - - /* Close object file */ - if (obj) - fclose(obj); - - /* If we had an error at this point, we also need to delete the output - * object file (to make sure it's not left newer than the source). - */ - if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) - remove(obj_filename); - if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) - return EXIT_FAILURE; - - /* Open and write the list file */ - if (list_filename) { - yasm_listfmt *cur_listfmt; - FILE *list = open_file(list_filename, "wt"); - if (!list) { - yasm_preproc_destroy(preproc); - yasm_object_destroy(object); - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - return EXIT_FAILURE; - } - /* Initialize the list format */ - cur_listfmt = yasm_listfmt_create(cur_listfmt_module, in_filename, - obj_filename); - yasm_listfmt_output(cur_listfmt, list, linemap, arch); - yasm_listfmt_destroy(cur_listfmt); - fclose(list); - } - - yasm_errwarns_output_all(errwarns, linemap, warning_error, - print_yasm_error, print_yasm_warning); - - yasm_preproc_destroy(preproc); - yasm_object_destroy(object); - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - - yasm_xfree(obj_filename); - yasm_xfree(map_filename); - yasm_xfree(list_filename); - return EXIT_SUCCESS; -} - -/* main function */ -/*@-globstate -unrecog@*/ -int -main(int argc, char *argv[]) -{ - size_t i; - constcharparam *infile; - - errfile = stderr; - -#if defined(HAVE_SETLOCALE) && defined(HAVE_LC_MESSAGES) - setlocale(LC_MESSAGES, ""); -#endif -#if defined(LOCALEDIR) - bindtextdomain(PACKAGE, LOCALEDIR); -#endif - textdomain(PACKAGE); - - /* Initialize errwarn handling */ - yasm_internal_error_ = handle_yasm_int_error; - yasm_fatal = handle_yasm_fatal; - yasm_gettext_hook = handle_yasm_gettext; - yasm_errwarn_initialize(); - - /* Initialize BitVector (needed for intnum/floatnum). */ - if (BitVector_Boot() != ErrCode_Ok) { - print_error(_("%s: could not initialize BitVector"), _("FATAL")); - return EXIT_FAILURE; - } - - /* Initialize intnum and floatnum */ - yasm_intnum_initialize(); - yasm_floatnum_initialize(); - -#ifdef CMAKE_BUILD - /* Load standard modules */ -#ifdef BUILD_SHARED_LIBS - if (!load_plugin("yasmstd")) { - print_error(_("%s: could not load standard modules"), _("FATAL")); - return EXIT_FAILURE; - } -#else - yasm_init_plugin(); -#endif -#endif - - /* Initialize parameter storage */ - STAILQ_INIT(&preproc_options); - STAILQ_INIT(&input_files); - - if (parse_cmdline(argc, argv, options, NELEMS(options), print_error)) - return EXIT_FAILURE; - - switch (special_options) { - case SPECIAL_SHOW_HELP: - /* Does gettext calls internally */ - help_msg(help_head, help_tail, options, NELEMS(options)); - return EXIT_SUCCESS; - case SPECIAL_SHOW_VERSION: - for (i=0; i<NELEMS(version_msg); i++) - printf("%s\n", version_msg[i]); - return EXIT_SUCCESS; - case SPECIAL_SHOW_LICENSE: - for (i=0; i<NELEMS(license_msg); i++) - printf("%s\n", license_msg[i]); - return EXIT_SUCCESS; - case SPECIAL_LISTED: - /* Printed out earlier */ - return EXIT_SUCCESS; - } - - /* Open error file if specified. */ - if (error_filename) { - int j; - errfile = open_file(error_filename, "wt"); - if (!errfile) - return EXIT_FAILURE; - - /* Print command line as first line in error file. */ - for (j=0; j<argc; j++) - fprintf(errfile, "%s%c", argv[j], (j==argc-1) ? '\n' : ' '); - } - - /* If not already specified, default to win32 as the object format. */ - if (!cur_objfmt_module) { - if (!objfmt_keyword) - objfmt_keyword = yasm__xstrdup("win32"); - cur_objfmt_module = yasm_load_objfmt(objfmt_keyword); - if (!cur_objfmt_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("object format")); - return EXIT_FAILURE; - } - } - - /* Default to x86 as the architecture */ - if (!cur_arch_module) { - cur_arch_module = yasm_load_arch("x86"); - if (!cur_arch_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("architecture")); - return EXIT_FAILURE; - } - } - - /* Check for arch help */ - if (machine_name && strcmp(machine_name, "help") == 0) { - const yasm_arch_machine *m = cur_arch_module->machines; - printf(_("Available %s for %s `%s':\n"), _("machines"), - _("architecture"), cur_arch_module->keyword); - while (m->keyword && m->name) { - print_list_keyword_desc(m->name, m->keyword); - m++; - } - return EXIT_SUCCESS; - } - - /* Default to NASM as the parser */ - if (!cur_parser_module) { - cur_parser_module = yasm_load_parser("nasm"); - if (!cur_parser_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("parser")); - cleanup(); - return EXIT_FAILURE; - } - } - - /* If not already specified, default to the parser's default preproc. */ - if (!cur_preproc_module) { - cur_preproc_module = - yasm_load_preproc(cur_parser_module->default_preproc_keyword); - if (!cur_preproc_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("preprocessor")); - cleanup(); - return EXIT_FAILURE; - } - } - - /* Determine input filenames. */ - if (STAILQ_EMPTY(&input_files)) { - print_error(_("No input files specified")); - return EXIT_FAILURE; - } - - /* If list file enabled, make sure we have a list format loaded. */ - if (listdir_pathname) { - /* If not already specified, default to nasm as the list format. */ - if (!cur_listfmt_module) { - cur_listfmt_module = yasm_load_listfmt("nasm"); - if (!cur_listfmt_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("list format")); - return EXIT_FAILURE; - } - } - } - - /* If not already specified, default to null as the debug format. */ - if (!cur_dbgfmt_module) { - cur_dbgfmt_module = yasm_load_dbgfmt("null"); - if (!cur_dbgfmt_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("debug format")); - return EXIT_FAILURE; - } - } - - /* If not already specified, output to the current directory. */ - if (!objdir_pathname) - objdir_pathname = yasm__xstrdup("./"); - else if ((i = yasm__createpath(objdir_pathname)) > 0 && - num_input_files > 1) { - objdir_pathname[i] = '/'; - objdir_pathname[i+1] = '\0'; - } - - /* Create other output directories if necessary */ - if (listdir_pathname && (i = yasm__createpath(listdir_pathname)) > 0 && - num_input_files > 1) { - listdir_pathname[i] = '/'; - listdir_pathname[i+1] = '\0'; - } - if (mapdir_pathname && (i = yasm__createpath(mapdir_pathname)) > 0 && - num_input_files > 1) { - mapdir_pathname[i] = '/'; - mapdir_pathname[i+1] = '\0'; - } - - /* If not already specified, set file extensions */ - if (!objext && cur_objfmt_module->extension) - objext = yasm__xstrdup(cur_objfmt_module->extension); - if (!listext) - listext = yasm__xstrdup("lst"); - if (!mapext) - mapext = yasm__xstrdup("map"); - - /* Assemble each input file. Terminate on first error. */ - STAILQ_FOREACH(infile, &input_files, link) - { - if (do_assemble(infile->param) == EXIT_FAILURE) { - cleanup(); - return EXIT_FAILURE; - } - } - cleanup(); - return EXIT_SUCCESS; -} -/*@=globstate =unrecog@*/ - -/* Open the object file. Returns 0 on failure. */ -static FILE * -open_file(const char *filename, const char *mode) -{ - FILE *f; - - f = fopen(filename, mode); - if (!f) - print_error(_("could not open file `%s'"), filename); - return f; -} - -static int -check_errors(yasm_errwarns *errwarns, yasm_object *object, - yasm_linemap *linemap, yasm_preproc *preproc, yasm_arch *arch) -{ - if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) { - yasm_errwarns_output_all(errwarns, linemap, warning_error, - print_yasm_error, print_yasm_warning); - yasm_preproc_destroy(preproc); - yasm_object_destroy(object); - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - return EXIT_FAILURE; - } - return EXIT_SUCCESS; -} - -/* Define DO_FREE to 1 to enable deallocation of all data structures. - * Useful for detecting memory leaks, but slows down execution unnecessarily - * (as the OS will free everything we miss here). - */ -#define DO_FREE 1 - -/* Cleans up all allocated structures. */ -static void -cleanup(void) -{ - if (DO_FREE) { - yasm_floatnum_cleanup(); - yasm_intnum_cleanup(); - - yasm_errwarn_cleanup(); - - BitVector_Shutdown(); - } - - if (DO_FREE) { - free_input_filenames(); - if (objdir_pathname) - yasm_xfree(objdir_pathname); - if (listdir_pathname) - yasm_xfree(listdir_pathname); - if (mapdir_pathname) - yasm_xfree(mapdir_pathname); - if (objext) - yasm_xfree(objext); - if (listext) - yasm_xfree(listext); - if (mapext) - yasm_xfree(mapext); - if (machine_name) - yasm_xfree(machine_name); - if (objfmt_keyword) - yasm_xfree(objfmt_keyword); - free_preproc_saved_options(); - } - - if (errfile != stderr && errfile != stdout) - fclose(errfile); -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) - unload_plugins(); -#endif -} - -static void -free_input_filenames(void) -{ - constcharparam *cp, *cpnext; - cp = STAILQ_FIRST(&input_files); - while (cp != NULL) { - cpnext = STAILQ_NEXT(cp, link); - yasm_xfree(cp); - cp = cpnext; - } - STAILQ_INIT(&input_files); -} - -/* - * Command line options handlers - */ -int -not_an_option_handler(char *param) -{ - constcharparam *cp; - cp = yasm_xmalloc(sizeof(constcharparam)); - cp->param = param; - cp->id = 0; - STAILQ_INSERT_TAIL(&input_files, cp, link); - ++num_input_files; - return 0; -} - -int -other_option_handler(char *option) -{ - /* Accept, but ignore, -O and -Onnn, for compatibility with NASM. */ - if (option[0] == '-' && option[1] == 'O') { - int n = 2; - for (;;) { - if (option[n] == '\0') - return 0; - if (!isdigit(option[n])) - return 1; - n++; - } - } - return 1; -} - -static int -opt_special_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - if (special_options == 0) - special_options = extra; - return 0; -} - -static int -opt_arch_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_arch_module = yasm_load_arch(param); - if (!cur_arch_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("architectures")); - yasm_list_arch(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("architecture"), param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_parser_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_parser_module = yasm_load_parser(param); - if (!cur_parser_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("parsers")); - yasm_list_parser(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), _("parser"), - param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_preproc_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_preproc_module = yasm_load_preproc(param); - if (!cur_preproc_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("preprocessors")); - yasm_list_preproc(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("preprocessor"), param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_objfmt_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - size_t i; - assert(param != NULL); - cur_objfmt_module = yasm_load_objfmt(param); - if (!cur_objfmt_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("object formats")); - yasm_list_objfmt(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("object format"), param); - exit(EXIT_FAILURE); - } - if (objfmt_keyword) - yasm_xfree(objfmt_keyword); - objfmt_keyword = yasm__xstrdup(param); - for (i=0; i<strlen(objfmt_keyword); i++) - objfmt_keyword[i] = tolower(objfmt_keyword[i]); - return 0; -} - -static int -opt_dbgfmt_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_dbgfmt_module = yasm_load_dbgfmt(param); - if (!cur_dbgfmt_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("debug formats")); - yasm_list_dbgfmt(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("debug format"), param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_listfmt_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_listfmt_module = yasm_load_listfmt(param); - if (!cur_listfmt_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("list formats")); - yasm_list_listfmt(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("list format"), param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_listdir_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (listdir_pathname) { - print_error( - _("warning: can output to only one list dir, last specified used")); - yasm_xfree(listdir_pathname); - } - - assert(param != NULL); - listdir_pathname = yasm_xmalloc(strlen(param)+2); - strcpy(listdir_pathname, param); - - return 0; -} - -static int -opt_objdir_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (objdir_pathname) { - print_error( - _("warning: can output to only one object dir, last specified used")); - yasm_xfree(objdir_pathname); - } - - assert(param != NULL); - objdir_pathname = yasm_xmalloc(strlen(param)+2); - strcpy(objdir_pathname, param); - - return 0; -} - -static int -opt_mapdir_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (mapdir_pathname) { - print_error( - _("warning: can output to only one map file, last specified used")); - yasm_xfree(mapdir_pathname); - } - - assert(param != NULL); - mapdir_pathname = yasm_xmalloc(strlen(param)+2); - strcpy(mapdir_pathname, param); - - return 0; -} - -static int -opt_listext_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (listext) { - print_error( - _("warning: can set only one list extension, last specified used")); - yasm_xfree(listext); - } - assert(param != NULL); - listext = yasm__xstrdup(param); - return 0; -} - -static int -opt_objext_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (objext) { - print_error( - _("warning: can set only one object extension, last specified used")); - yasm_xfree(objext); - } - assert(param != NULL); - objext = yasm__xstrdup(param); - return 0; -} - -static int -opt_mapext_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (mapext) { - print_error( - _("warning: can set only one map extension, last specified used")); - yasm_xfree(mapext); - } - assert(param != NULL); - mapext = yasm__xstrdup(param); - return 0; -} - -static int -opt_machine_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (machine_name) - yasm_xfree(machine_name); - - assert(param != NULL); - machine_name = yasm__xstrdup(param); - - return 0; -} - -static int -opt_strict_handler(/*@unused@*/ char *cmd, - /*@unused@*/ /*@null@*/ char *param, - /*@unused@*/ int extra) -{ - force_strict = 1; - return 0; -} - -static int -opt_warning_handler(char *cmd, /*@unused@*/ char *param, int extra) -{ - /* is it disabling the warning instead of enabling? */ - void (*action)(yasm_warn_class wclass) = yasm_warn_enable; - - if (extra == 1) { - /* -w, disable warnings */ - yasm_warn_disable_all(); - return 0; - } - - /* skip past 'W' */ - cmd++; - - /* detect no- prefix to disable the warning */ - if (cmd[0] == 'n' && cmd[1] == 'o' && cmd[2] == '-') { - action = yasm_warn_disable; - cmd += 3; /* skip past it to get to the warning name */ - } - - if (cmd[0] == '\0') - /* just -W or -Wno-, so definitely not valid */ - return 1; - else if (strcmp(cmd, "error") == 0) - warning_error = (action == yasm_warn_enable); - else if (strcmp(cmd, "unrecognized-char") == 0) - action(YASM_WARN_UNREC_CHAR); - else if (strcmp(cmd, "orphan-labels") == 0) - action(YASM_WARN_ORPHAN_LABEL); - else if (strcmp(cmd, "uninit-contents") == 0) - action(YASM_WARN_UNINIT_CONTENTS); - else if (strcmp(cmd, "size-override") == 0) - action(YASM_WARN_SIZE_OVERRIDE); - else - return 1; - - return 0; -} - -static int -opt_error_file(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - if (error_filename) { - print_error( - _("warning: can output to only one error file, last specified used")); - yasm_xfree(error_filename); - } - - assert(param != NULL); - error_filename = yasm__xstrdup(param); - - return 0; -} - -static int -opt_error_stdout(/*@unused@*/ char *cmd, /*@unused@*/ char *param, - /*@unused@*/ int extra) -{ - /* Clear any specified error filename */ - if (error_filename) { - yasm_xfree(error_filename); - error_filename = NULL; - } - errfile = stdout; - return 0; -} - -static int -opt_include_option(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - yasm_add_include_path(param); - return 0; -} - -static int -opt_preproc_option(/*@unused@*/ char *cmd, char *param, int extra) -{ - constcharparam *cp; - cp = yasm_xmalloc(sizeof(constcharparam)); - cp->param = param; - cp->id = extra; - STAILQ_INSERT_TAIL(&preproc_options, cp, link); - return 0; -} - -static int -opt_ewmsg_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - if (yasm__strcasecmp(param, "gnu") == 0 || - yasm__strcasecmp(param, "gcc") == 0) { - ewmsg_style = EWSTYLE_GNU; - } else if (yasm__strcasecmp(param, "vc") == 0) { - ewmsg_style = EWSTYLE_VC; - } else - print_error(_("warning: unrecognized message style `%s'"), param); - - return 0; -} - -static int -opt_prefix_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - if (global_prefix) - yasm_xfree(global_prefix); - - assert(param != NULL); - global_prefix = yasm__xstrdup(param); - - return 0; -} - -static int -opt_suffix_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - if (global_suffix) - yasm_xfree(global_suffix); - - assert(param != NULL); - global_suffix = yasm__xstrdup(param); - - return 0; -} - -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) -static int -opt_plugin_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (!load_plugin(param)) - print_error(_("warning: could not load plugin `%s'"), param); - return 0; -} -#endif - -static void -apply_preproc_builtins(yasm_preproc *preproc) -{ - char *predef; - - /* Define standard YASM assembly-time macro constants */ - predef = yasm_xmalloc(strlen("__YASM_OBJFMT__=") - + strlen(objfmt_keyword) + 1); - strcpy(predef, "__YASM_OBJFMT__="); - strcat(predef, objfmt_keyword); - yasm_preproc_define_builtin(preproc, predef); - yasm_xfree(predef); -} - -static void -apply_preproc_standard_macros(yasm_preproc *preproc, const yasm_stdmac *stdmacs) -{ - int i, matched; - - if (!stdmacs) - return; - - matched = -1; - for (i=0; stdmacs[i].parser; i++) - if (yasm__strcasecmp(stdmacs[i].parser, - cur_parser_module->keyword) == 0 && - yasm__strcasecmp(stdmacs[i].preproc, - cur_preproc_module->keyword) == 0) - matched = i; - if (matched >= 0 && stdmacs[matched].macros) - yasm_preproc_add_standard(preproc, stdmacs[matched].macros); -} - -static void -apply_preproc_saved_options(yasm_preproc *preproc) -{ - constcharparam *cp; - - void (*funcs[3])(yasm_preproc *, const char *); - funcs[0] = cur_preproc_module->add_include_file; - funcs[1] = cur_preproc_module->predefine_macro; - funcs[2] = cur_preproc_module->undefine_macro; - - STAILQ_FOREACH(cp, &preproc_options, link) { - if (0 <= cp->id && cp->id < 3 && funcs[cp->id]) - funcs[cp->id](preproc, cp->param); - } -} - -static void -free_preproc_saved_options(void) -{ - constcharparam *cp, *cpnext; - cp = STAILQ_FIRST(&preproc_options); - while (cp != NULL) { - cpnext = STAILQ_NEXT(cp, link); - yasm_xfree(cp); - cp = cpnext; - } - STAILQ_INIT(&preproc_options); -} - -/* Replace extension on a filename (or append one if none is present). - * If output filename would be identical to input (same extension out as in), - * returns NULL. - * A NULL ext means the trailing '.' should NOT be included, whereas a "" ext - * means the trailing '.' should be included. - */ -static char * -replace_extension(const char *orig, /*@null@*/ const char *ext) -{ - char *out, *outext; - size_t outlen; - - /* allocate enough space for full existing name + extension */ - outlen = strlen(orig) + 2; - if (ext) - outlen += strlen(ext) + 1; - out = yasm_xmalloc(outlen); - - strcpy(out, orig); - outext = strrchr(out, '.'); - if (outext) { - /* Existing extension: make sure it's not the same as the replacement - * (as we don't want to overwrite the source file). - */ - outext++; /* advance past '.' */ - if (ext && strcmp(outext, ext) == 0) { - outext = NULL; /* indicate default should be used */ - print_error(_("file name already ends in `.%s'"), ext); - } - } else { - /* No extension: make sure the output extension is not empty - * (again, we don't want to overwrite the source file). - */ - if (!ext) { - outext = NULL; - print_error(_("file name already has no extension")); - } else { - outext = strrchr(out, '\0'); /* point to end of the string */ - *outext++ = '.'; /* append '.' */ - } - } - - /* replace extension or use default name */ - if (outext) { - if (!ext) { - /* Back up and replace '.' with string terminator */ - outext--; - *outext = '\0'; - } else - strcpy(outext, ext); - } else - return NULL; - - return out; -} - -void -print_list_keyword_desc(const char *name, const char *keyword) -{ - printf("%4s%-12s%s\n", "", keyword, name); -} - -static void -print_error(const char *fmt, ...) -{ - va_list va; - fprintf(errfile, "vsyasm: "); - va_start(va, fmt); - vfprintf(errfile, fmt, va); - va_end(va); - fputc('\n', errfile); -} - -static /*@exits@*/ void -handle_yasm_int_error(const char *file, unsigned int line, const char *message) -{ - fprintf(stderr, _("INTERNAL ERROR at %s, line %u: %s\n"), file, line, - gettext(message)); -#ifdef HAVE_ABORT - abort(); -#else - exit(EXIT_FAILURE); -#endif -} - -static /*@exits@*/ void -handle_yasm_fatal(const char *fmt, va_list va) -{ - fprintf(errfile, "vsyasm: %s: ", _("FATAL")); - vfprintf(errfile, gettext(fmt), va); - fputc('\n', errfile); - exit(EXIT_FAILURE); -} - -static const char * -handle_yasm_gettext(const char *msgid) -{ - return gettext(msgid); -} - -static const char *fmt[2] = { - "%s:%lu: %s%s\n", /* GNU */ - "%s(%lu) : %s%s\n" /* VC */ -}; - -static const char *fmt_noline[2] = { - "%s: %s%s\n", /* GNU */ - "%s : %s%s\n" /* VC */ -}; - -static void -print_yasm_error(const char *filename, unsigned long line, const char *msg, - const char *xref_fn, unsigned long xref_line, - const char *xref_msg) -{ - if (line) - fprintf(errfile, fmt[ewmsg_style], filename, line, _("error: "), msg); - else - fprintf(errfile, fmt_noline[ewmsg_style], filename, _("error: "), msg); - - if (xref_fn && xref_msg) { - if (xref_line) - fprintf(errfile, fmt[ewmsg_style], xref_fn, xref_line, _("error: "), - xref_msg); - else - fprintf(errfile, fmt_noline[ewmsg_style], xref_fn, _("error: "), - xref_msg); - } -} - -static void -print_yasm_warning(const char *filename, unsigned long line, const char *msg) -{ - if (line) - fprintf(errfile, fmt[ewmsg_style], filename, line, _("warning: "), - msg); - else - fprintf(errfile, fmt_noline[ewmsg_style], filename, _("warning: "), - msg); -} +/* + * Program entry point, command line parsing + * + * Copyright (C) 2001-2007 Peter Johnson + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ +#include <util.h> + +#include <ctype.h> +#include <libyasm/compat-queue.h> +#include <libyasm/bitvect.h> +#include <libyasm.h> + +#ifdef HAVE_LIBGEN_H +#include <libgen.h> +#endif + +#include "frontends/yasm/yasm-options.h" + +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) +#include "frontends/yasm/yasm-plugin.h" +#endif + +#include "license.c" + +#if defined(CMAKE_BUILD) && !defined(BUILD_SHARED_LIBS) +void yasm_init_plugin(void); +#endif + +/*@null@*/ /*@only@*/ static char *objdir_pathname = NULL; +/*@null@*/ /*@only@*/ static char *global_prefix = NULL, *global_suffix = NULL; +/*@null@*/ /*@only@*/ static char *listdir_pathname = NULL; +/*@null@*/ /*@only@*/ static char *mapdir_pathname = NULL; +/*@null@*/ /*@only@*/ static char *objext = NULL; +/*@null@*/ /*@only@*/ static char *listext = NULL, *mapext = NULL; +/*@null@*/ /*@only@*/ static char *machine_name = NULL; +static int special_options = 0; +/*@null@*/ /*@dependent@*/ static const yasm_arch_module * + cur_arch_module = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_parser_module * + cur_parser_module = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_preproc_module * + cur_preproc_module = NULL; +/*@null@*/ static char *objfmt_keyword = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_objfmt_module * + cur_objfmt_module = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_dbgfmt_module * + cur_dbgfmt_module = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_listfmt_module * + cur_listfmt_module = NULL; +static unsigned int force_strict = 0; +static int warning_error = 0; /* warnings being treated as errors */ +static FILE *errfile; +/*@null@*/ /*@only@*/ static char *error_filename = NULL; +static enum { + EWSTYLE_GNU = 0, + EWSTYLE_VC +} ewmsg_style = EWSTYLE_GNU; + +/*@null@*/ /*@dependent@*/ static FILE *open_file(const char *filename, + const char *mode); +static int check_errors(/*@only@*/ yasm_errwarns *errwarns, + /*@only@*/ yasm_object *object, + /*@only@*/ yasm_linemap *linemap, + /*@only@*/ yasm_preproc *preproc, + /*@only@*/ yasm_arch *arch); +static void cleanup(void); +static void free_input_filenames(void); + +/* Forward declarations: cmd line parser handlers */ +static int opt_special_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_arch_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_parser_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_preproc_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_objfmt_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_dbgfmt_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_listfmt_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_listdir_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_objdir_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_mapdir_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_listext_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_objext_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_mapext_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_machine_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_strict_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_warning_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_error_file(char *cmd, /*@null@*/ char *param, int extra); +static int opt_error_stdout(char *cmd, /*@null@*/ char *param, int extra); +static int opt_include_option(char *cmd, /*@null@*/ char *param, int extra); +static int opt_preproc_option(char *cmd, /*@null@*/ char *param, int extra); +static int opt_ewmsg_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_prefix_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_suffix_handler(char *cmd, /*@null@*/ char *param, int extra); +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) +static int opt_plugin_handler(char *cmd, /*@null@*/ char *param, int extra); +#endif + +static /*@only@*/ char *replace_extension(const char *orig, /*@null@*/ + const char *ext); +static void print_error(const char *fmt, ...); + +static /*@exits@*/ void handle_yasm_int_error(const char *file, + unsigned int line, + const char *message); +static /*@exits@*/ void handle_yasm_fatal(const char *message, va_list va); +static const char *handle_yasm_gettext(const char *msgid); +static void print_yasm_error(const char *filename, unsigned long line, + const char *msg, /*@null@*/ const char *xref_fn, + unsigned long xref_line, + /*@null@*/ const char *xref_msg); +static void print_yasm_warning(const char *filename, unsigned long line, + const char *msg); + +static void apply_preproc_builtins(yasm_preproc *preproc); +static void apply_preproc_standard_macros(yasm_preproc *preproc, + const yasm_stdmac *stdmacs); +static void apply_preproc_saved_options(yasm_preproc *preproc); +static void free_preproc_saved_options(void); +static void print_list_keyword_desc(const char *name, const char *keyword); + +/* values for special_options */ +#define SPECIAL_SHOW_HELP 0x01 +#define SPECIAL_SHOW_VERSION 0x02 +#define SPECIAL_SHOW_LICENSE 0x04 +#define SPECIAL_LISTED 0x08 + +/* command line options */ +static opt_option options[] = +{ + { 0, "version", 0, opt_special_handler, SPECIAL_SHOW_VERSION, + N_("show version text"), NULL }, + { 0, "license", 0, opt_special_handler, SPECIAL_SHOW_LICENSE, + N_("show license text"), NULL }, + { 'h', "help", 0, opt_special_handler, SPECIAL_SHOW_HELP, + N_("show help text"), NULL }, + { 'a', "arch", 1, opt_arch_handler, 0, + N_("select architecture (list with -a help)"), N_("arch") }, + { 'p', "parser", 1, opt_parser_handler, 0, + N_("select parser (list with -p help)"), N_("parser") }, + { 'r', "preproc", 1, opt_preproc_handler, 0, + N_("select preprocessor (list with -r help)"), N_("preproc") }, + { 'f', "oformat", 1, opt_objfmt_handler, 0, + N_("select object format (list with -f help)"), N_("format") }, + { 'g', "dformat", 1, opt_dbgfmt_handler, 0, + N_("select debugging format (list with -g help)"), N_("debug") }, + { 'L', "lformat", 1, opt_listfmt_handler, 0, + N_("select list format (list with -L help)"), N_("list") }, + { 'l', "list", 1, opt_listdir_handler, 0, + N_("name of list-file output directory"), N_("pathname") }, + { 'o', "objdir", 1, opt_objdir_handler, 0, + N_("name of object-file output directory"), N_("pathname") }, + { 0, "mapdir", 1, opt_mapdir_handler, 0, + N_("name of map-file output directory"), N_("pathname") }, + { 0, "listext", 1, opt_listext_handler, 0, + N_("list-file extension (default `lst')"), N_("ext") }, + { 0, "objext", 1, opt_objext_handler, 0, + N_("object-file extension (default is by object format)"), N_("ext") }, + { 0, "mapext", 1, opt_mapext_handler, 0, + N_("map-file extension (default `map')"), N_("ext") }, + { 'm', "machine", 1, opt_machine_handler, 0, + N_("select machine (list with -m help)"), N_("machine") }, + { 0, "force-strict", 0, opt_strict_handler, 0, + N_("treat all sized operands as if `strict' was used"), NULL }, + { 'w', NULL, 0, opt_warning_handler, 1, + N_("inhibits warning messages"), NULL }, + { 'W', NULL, 0, opt_warning_handler, 0, + N_("enables/disables warning"), NULL }, + { 'E', NULL, 1, opt_error_file, 0, + N_("redirect error messages to file"), N_("file") }, + { 's', NULL, 0, opt_error_stdout, 0, + N_("redirect error messages to stdout"), NULL }, + { 'i', NULL, 1, opt_include_option, 0, + N_("add include path"), N_("path") }, + { 'I', NULL, 1, opt_include_option, 0, + N_("add include path"), N_("path") }, + { 'P', NULL, 1, opt_preproc_option, 0, + N_("pre-include file"), N_("filename") }, + { 'd', NULL, 1, opt_preproc_option, 1, + N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, + { 'D', NULL, 1, opt_preproc_option, 1, + N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, + { 'u', NULL, 1, opt_preproc_option, 2, + N_("undefine a macro"), N_("macro") }, + { 'U', NULL, 1, opt_preproc_option, 2, + N_("undefine a macro"), N_("macro") }, + { 'X', NULL, 1, opt_ewmsg_handler, 0, + N_("select error/warning message style (`gnu' or `vc')"), N_("style") }, + { 0, "prefix", 1, opt_prefix_handler, 0, + N_("prepend argument to name of all external symbols"), N_("prefix") }, + { 0, "suffix", 1, opt_suffix_handler, 0, + N_("append argument to name of all external symbols"), N_("suffix") }, + { 0, "postfix", 1, opt_suffix_handler, 0, + N_("append argument to name of all external symbols"), N_("suffix") }, +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) + { 'N', "plugin", 1, opt_plugin_handler, 0, + N_("load plugin module"), N_("plugin") }, +#endif +}; + +/* version message */ +/*@observer@*/ static const char *version_msg[] = { + PACKAGE_STRING, + "Compiled on " __DATE__ ".", + "Copyright (c) 2001-2010 Peter Johnson and other Yasm developers.", + "Run yasm --license for licensing overview and summary." +}; + +/* help messages */ +/*@observer@*/ static const char *help_head = N_( + "usage: vsyasm [option]* file...\n" + "Options:\n"); +/*@observer@*/ static const char *help_tail = N_( + "\n" + "Files are asm sources to be assembled.\n" + "\n" + "Sample invocation:\n" + " vsyasm -f win64 -o objdir source1.asm source2.asm\n" + "\n" + "All options apply to all files.\n" + "\n" + "Report bugs to bug-yasm@tortall.net\n"); + +/* parsed command line storage until appropriate modules have been loaded */ +typedef STAILQ_HEAD(constcharparam_head, constcharparam) constcharparam_head; + +typedef struct constcharparam { + STAILQ_ENTRY(constcharparam) link; + const char *param; + int id; +} constcharparam; + +static constcharparam_head preproc_options; +static constcharparam_head input_files; +static int num_input_files = 0; + +static int +do_assemble(const char *in_filename) +{ + yasm_object *object; + const char *base_filename; + char *fn = NULL; + char *obj_filename, *list_filename = NULL, *map_filename = NULL; + /*@null@*/ FILE *obj = NULL; + yasm_arch_create_error arch_error; + yasm_linemap *linemap; + yasm_arch *arch = NULL; + yasm_preproc *preproc = NULL; + yasm_errwarns *errwarns = yasm_errwarns_create(); + int i, matched; + + /* Initialize line map */ + linemap = yasm_linemap_create(); + yasm_linemap_set(linemap, in_filename, 0, 1, 1); + + /* determine the output filenames */ + /* replace (or add) extension to base filename */ + yasm__splitpath(in_filename, &base_filename); + if (base_filename[0] != '\0') + fn = replace_extension(base_filename, objext); + if (!fn) + { + print_error(_("could not determine output filename for `%s'"), + in_filename); + return EXIT_FAILURE; + } + obj_filename = yasm__combpath(objdir_pathname, fn); + yasm_xfree(fn); + + if (listdir_pathname) { + fn = replace_extension(base_filename, listext); + if (!fn) + { + print_error(_("could not determine list filename for `%s'"), + in_filename); + return EXIT_FAILURE; + } + list_filename = yasm__combpath(listdir_pathname, fn); + yasm_xfree(fn); + } + + if (mapdir_pathname) { + fn = replace_extension(base_filename, mapext); + if (!fn) + { + print_error(_("could not determine map filename for `%s'"), + in_filename); + return EXIT_FAILURE; + } + map_filename = yasm__combpath(mapdir_pathname, fn); + yasm_xfree(fn); + } + + /* Set up architecture using machine and parser. */ + if (!machine_name) { + /* If we're using x86 and the default objfmt bits is 64, default the + * machine to amd64. When we get more arches with multiple machines, + * we should do this in a more modular fashion. + */ + if (strcmp(cur_arch_module->keyword, "x86") == 0 && + cur_objfmt_module->default_x86_mode_bits == 64) + machine_name = yasm__xstrdup("amd64"); + else + machine_name = + yasm__xstrdup(cur_arch_module->default_machine_keyword); + } + + arch = yasm_arch_create(cur_arch_module, machine_name, + cur_parser_module->keyword, &arch_error); + if (!arch) { + switch (arch_error) { + case YASM_ARCH_CREATE_BAD_MACHINE: + print_error(_("%s: `%s' is not a valid %s for %s `%s'"), + _("FATAL"), machine_name, _("machine"), + _("architecture"), cur_arch_module->keyword); + break; + case YASM_ARCH_CREATE_BAD_PARSER: + print_error(_("%s: `%s' is not a valid %s for %s `%s'"), + _("FATAL"), cur_parser_module->keyword, + _("parser"), _("architecture"), + cur_arch_module->keyword); + break; + default: + print_error(_("%s: unknown architecture error"), _("FATAL")); + } + + return EXIT_FAILURE; + } + + /* Create object */ + object = yasm_object_create(in_filename, obj_filename, arch, + cur_objfmt_module, cur_dbgfmt_module); + if (!object) { + yasm_error_class eclass; + unsigned long xrefline; + /*@only@*/ /*@null@*/ char *estr, *xrefstr; + + yasm_error_fetch(&eclass, &estr, &xrefline, &xrefstr); + print_error("%s: %s", _("FATAL"), estr); + yasm_xfree(estr); + yasm_xfree(xrefstr); + return EXIT_FAILURE; + } + + /* Get a fresh copy of objfmt_module as it may have changed. */ + cur_objfmt_module = ((yasm_objfmt_base *)object->objfmt)->module; + + /* Check to see if the requested preprocessor is in the allowed list + * for the active parser. + */ + matched = 0; + for (i=0; cur_parser_module->preproc_keywords[i]; i++) + if (yasm__strcasecmp(cur_parser_module->preproc_keywords[i], + cur_preproc_module->keyword) == 0) + matched = 1; + if (!matched) { + print_error(_("%s: `%s' is not a valid %s for %s `%s'"), _("FATAL"), + cur_preproc_module->keyword, _("preprocessor"), + _("parser"), cur_parser_module->keyword); + yasm_object_destroy(object); + return EXIT_FAILURE; + } + + if (global_prefix) + yasm_object_set_global_prefix(object, global_prefix); + if (global_suffix) + yasm_object_set_global_suffix(object, global_suffix); + + preproc = yasm_preproc_create(cur_preproc_module, in_filename, + object->symtab, linemap, errwarns); + + apply_preproc_builtins(preproc); + apply_preproc_standard_macros(preproc, cur_parser_module->stdmacs); + apply_preproc_standard_macros(preproc, cur_objfmt_module->stdmacs); + apply_preproc_saved_options(preproc); + + /* Get initial x86 BITS setting from object format */ + if (strcmp(cur_arch_module->keyword, "x86") == 0) { + yasm_arch_set_var(arch, "mode_bits", + cur_objfmt_module->default_x86_mode_bits); + } + + yasm_arch_set_var(arch, "force_strict", force_strict); + + /* Try to enable the map file via a map NASM directive. This is + * somewhat of a hack. + */ + if (map_filename) { + const yasm_directive *dir = &cur_objfmt_module->directives[0]; + matched = 0; + for (; dir && dir->name; dir++) { + if (yasm__strcasecmp(dir->name, "map") == 0 && + yasm__strcasecmp(dir->parser, "nasm") == 0) { + yasm_valparamhead vps; + yasm_valparam *vp; + matched = 1; + yasm_vps_initialize(&vps); + vp = yasm_vp_create_string(NULL, yasm__xstrdup(map_filename)); + yasm_vps_append(&vps, vp); + dir->handler(object, &vps, NULL, 0); + yasm_vps_delete(&vps); + } + } + if (!matched) { + print_error( + _("warning: object format `%s' does not support map files"), + cur_objfmt_module->keyword); + } + } + + /* Parse! */ + cur_parser_module->do_parse(object, preproc, list_filename != NULL, + linemap, errwarns); + + if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) + return EXIT_FAILURE; + + /* Finalize parse */ + yasm_object_finalize(object, errwarns); + if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) + return EXIT_FAILURE; + + /* Optimize */ + yasm_object_optimize(object, errwarns); + if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) + return EXIT_FAILURE; + + /* generate any debugging information */ + yasm_dbgfmt_generate(object, linemap, errwarns); + if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) + return EXIT_FAILURE; + + /* open the object file for output (if not already opened by dbg objfmt) */ + if (!obj && strcmp(cur_objfmt_module->keyword, "dbg") != 0) { + obj = open_file(obj_filename, "wb"); + if (!obj) { + yasm_preproc_destroy(preproc); + yasm_object_destroy(object); + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + return EXIT_FAILURE; + } + } + + /* Write the object file */ + yasm_objfmt_output(object, obj?obj:stderr, + strcmp(cur_dbgfmt_module->keyword, "null"), errwarns); + + /* Close object file */ + if (obj) + fclose(obj); + + /* If we had an error at this point, we also need to delete the output + * object file (to make sure it's not left newer than the source). + */ + if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) + remove(obj_filename); + if (check_errors(errwarns, object, linemap, preproc, arch) == EXIT_FAILURE) + return EXIT_FAILURE; + + /* Open and write the list file */ + if (list_filename) { + yasm_listfmt *cur_listfmt; + FILE *list = open_file(list_filename, "wt"); + if (!list) { + yasm_preproc_destroy(preproc); + yasm_object_destroy(object); + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + return EXIT_FAILURE; + } + /* Initialize the list format */ + cur_listfmt = yasm_listfmt_create(cur_listfmt_module, in_filename, + obj_filename); + yasm_listfmt_output(cur_listfmt, list, linemap, arch); + yasm_listfmt_destroy(cur_listfmt); + fclose(list); + } + + yasm_errwarns_output_all(errwarns, linemap, warning_error, + print_yasm_error, print_yasm_warning); + + yasm_preproc_destroy(preproc); + yasm_object_destroy(object); + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + + yasm_xfree(obj_filename); + yasm_xfree(map_filename); + yasm_xfree(list_filename); + return EXIT_SUCCESS; +} + +/* main function */ +/*@-globstate -unrecog@*/ +int +main(int argc, char *argv[]) +{ + size_t i; + constcharparam *infile; + + errfile = stderr; + +#if defined(HAVE_SETLOCALE) && defined(HAVE_LC_MESSAGES) + setlocale(LC_MESSAGES, ""); +#endif +#if defined(LOCALEDIR) + bindtextdomain(PACKAGE, LOCALEDIR); +#endif + textdomain(PACKAGE); + + /* Initialize errwarn handling */ + yasm_internal_error_ = handle_yasm_int_error; + yasm_fatal = handle_yasm_fatal; + yasm_gettext_hook = handle_yasm_gettext; + yasm_errwarn_initialize(); + + /* Initialize BitVector (needed for intnum/floatnum). */ + if (BitVector_Boot() != ErrCode_Ok) { + print_error(_("%s: could not initialize BitVector"), _("FATAL")); + return EXIT_FAILURE; + } + + /* Initialize intnum and floatnum */ + yasm_intnum_initialize(); + yasm_floatnum_initialize(); + +#ifdef CMAKE_BUILD + /* Load standard modules */ +#ifdef BUILD_SHARED_LIBS + if (!load_plugin("yasmstd")) { + print_error(_("%s: could not load standard modules"), _("FATAL")); + return EXIT_FAILURE; + } +#else + yasm_init_plugin(); +#endif +#endif + + /* Initialize parameter storage */ + STAILQ_INIT(&preproc_options); + STAILQ_INIT(&input_files); + + if (parse_cmdline(argc, argv, options, NELEMS(options), print_error)) + return EXIT_FAILURE; + + switch (special_options) { + case SPECIAL_SHOW_HELP: + /* Does gettext calls internally */ + help_msg(help_head, help_tail, options, NELEMS(options)); + return EXIT_SUCCESS; + case SPECIAL_SHOW_VERSION: + for (i=0; i<NELEMS(version_msg); i++) + printf("%s\n", version_msg[i]); + return EXIT_SUCCESS; + case SPECIAL_SHOW_LICENSE: + for (i=0; i<NELEMS(license_msg); i++) + printf("%s\n", license_msg[i]); + return EXIT_SUCCESS; + case SPECIAL_LISTED: + /* Printed out earlier */ + return EXIT_SUCCESS; + } + + /* Open error file if specified. */ + if (error_filename) { + int j; + errfile = open_file(error_filename, "wt"); + if (!errfile) + return EXIT_FAILURE; + + /* Print command line as first line in error file. */ + for (j=0; j<argc; j++) + fprintf(errfile, "%s%c", argv[j], (j==argc-1) ? '\n' : ' '); + } + + /* If not already specified, default to win32 as the object format. */ + if (!cur_objfmt_module) { + if (!objfmt_keyword) + objfmt_keyword = yasm__xstrdup("win32"); + cur_objfmt_module = yasm_load_objfmt(objfmt_keyword); + if (!cur_objfmt_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("object format")); + return EXIT_FAILURE; + } + } + + /* Default to x86 as the architecture */ + if (!cur_arch_module) { + cur_arch_module = yasm_load_arch("x86"); + if (!cur_arch_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("architecture")); + return EXIT_FAILURE; + } + } + + /* Check for arch help */ + if (machine_name && strcmp(machine_name, "help") == 0) { + const yasm_arch_machine *m = cur_arch_module->machines; + printf(_("Available %s for %s `%s':\n"), _("machines"), + _("architecture"), cur_arch_module->keyword); + while (m->keyword && m->name) { + print_list_keyword_desc(m->name, m->keyword); + m++; + } + return EXIT_SUCCESS; + } + + /* Default to NASM as the parser */ + if (!cur_parser_module) { + cur_parser_module = yasm_load_parser("nasm"); + if (!cur_parser_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("parser")); + cleanup(); + return EXIT_FAILURE; + } + } + + /* If not already specified, default to the parser's default preproc. */ + if (!cur_preproc_module) { + cur_preproc_module = + yasm_load_preproc(cur_parser_module->default_preproc_keyword); + if (!cur_preproc_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("preprocessor")); + cleanup(); + return EXIT_FAILURE; + } + } + + /* Determine input filenames. */ + if (STAILQ_EMPTY(&input_files)) { + print_error(_("No input files specified")); + return EXIT_FAILURE; + } + + /* If list file enabled, make sure we have a list format loaded. */ + if (listdir_pathname) { + /* If not already specified, default to nasm as the list format. */ + if (!cur_listfmt_module) { + cur_listfmt_module = yasm_load_listfmt("nasm"); + if (!cur_listfmt_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("list format")); + return EXIT_FAILURE; + } + } + } + + /* If not already specified, default to null as the debug format. */ + if (!cur_dbgfmt_module) { + cur_dbgfmt_module = yasm_load_dbgfmt("null"); + if (!cur_dbgfmt_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("debug format")); + return EXIT_FAILURE; + } + } + + /* If not already specified, output to the current directory. */ + if (!objdir_pathname) + objdir_pathname = yasm__xstrdup("./"); + else if ((i = yasm__createpath(objdir_pathname)) > 0 && + num_input_files > 1) { + objdir_pathname[i] = '/'; + objdir_pathname[i+1] = '\0'; + } + + /* Create other output directories if necessary */ + if (listdir_pathname && (i = yasm__createpath(listdir_pathname)) > 0 && + num_input_files > 1) { + listdir_pathname[i] = '/'; + listdir_pathname[i+1] = '\0'; + } + if (mapdir_pathname && (i = yasm__createpath(mapdir_pathname)) > 0 && + num_input_files > 1) { + mapdir_pathname[i] = '/'; + mapdir_pathname[i+1] = '\0'; + } + + /* If not already specified, set file extensions */ + if (!objext && cur_objfmt_module->extension) + objext = yasm__xstrdup(cur_objfmt_module->extension); + if (!listext) + listext = yasm__xstrdup("lst"); + if (!mapext) + mapext = yasm__xstrdup("map"); + + /* Assemble each input file. Terminate on first error. */ + STAILQ_FOREACH(infile, &input_files, link) + { + if (do_assemble(infile->param) == EXIT_FAILURE) { + cleanup(); + return EXIT_FAILURE; + } + } + cleanup(); + return EXIT_SUCCESS; +} +/*@=globstate =unrecog@*/ + +/* Open the object file. Returns 0 on failure. */ +static FILE * +open_file(const char *filename, const char *mode) +{ + FILE *f; + + f = fopen(filename, mode); + if (!f) + print_error(_("could not open file `%s'"), filename); + return f; +} + +static int +check_errors(yasm_errwarns *errwarns, yasm_object *object, + yasm_linemap *linemap, yasm_preproc *preproc, yasm_arch *arch) +{ + if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) { + yasm_errwarns_output_all(errwarns, linemap, warning_error, + print_yasm_error, print_yasm_warning); + yasm_preproc_destroy(preproc); + yasm_object_destroy(object); + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + return EXIT_FAILURE; + } + return EXIT_SUCCESS; +} + +/* Define DO_FREE to 1 to enable deallocation of all data structures. + * Useful for detecting memory leaks, but slows down execution unnecessarily + * (as the OS will free everything we miss here). + */ +#define DO_FREE 1 + +/* Cleans up all allocated structures. */ +static void +cleanup(void) +{ + if (DO_FREE) { + yasm_floatnum_cleanup(); + yasm_intnum_cleanup(); + + yasm_errwarn_cleanup(); + + BitVector_Shutdown(); + } + + if (DO_FREE) { + free_input_filenames(); + if (objdir_pathname) + yasm_xfree(objdir_pathname); + if (listdir_pathname) + yasm_xfree(listdir_pathname); + if (mapdir_pathname) + yasm_xfree(mapdir_pathname); + if (objext) + yasm_xfree(objext); + if (listext) + yasm_xfree(listext); + if (mapext) + yasm_xfree(mapext); + if (machine_name) + yasm_xfree(machine_name); + if (objfmt_keyword) + yasm_xfree(objfmt_keyword); + free_preproc_saved_options(); + } + + if (errfile != stderr && errfile != stdout) + fclose(errfile); +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) + unload_plugins(); +#endif +} + +static void +free_input_filenames(void) +{ + constcharparam *cp, *cpnext; + cp = STAILQ_FIRST(&input_files); + while (cp != NULL) { + cpnext = STAILQ_NEXT(cp, link); + yasm_xfree(cp); + cp = cpnext; + } + STAILQ_INIT(&input_files); +} + +/* + * Command line options handlers + */ +int +not_an_option_handler(char *param) +{ + constcharparam *cp; + cp = yasm_xmalloc(sizeof(constcharparam)); + cp->param = param; + cp->id = 0; + STAILQ_INSERT_TAIL(&input_files, cp, link); + ++num_input_files; + return 0; +} + +int +other_option_handler(char *option) +{ + /* Accept, but ignore, -O and -Onnn, for compatibility with NASM. */ + if (option[0] == '-' && option[1] == 'O') { + int n = 2; + for (;;) { + if (option[n] == '\0') + return 0; + if (!isdigit(option[n])) + return 1; + n++; + } + } + return 1; +} + +static int +opt_special_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + if (special_options == 0) + special_options = extra; + return 0; +} + +static int +opt_arch_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_arch_module = yasm_load_arch(param); + if (!cur_arch_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("architectures")); + yasm_list_arch(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("architecture"), param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_parser_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_parser_module = yasm_load_parser(param); + if (!cur_parser_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("parsers")); + yasm_list_parser(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), _("parser"), + param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_preproc_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_preproc_module = yasm_load_preproc(param); + if (!cur_preproc_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("preprocessors")); + yasm_list_preproc(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("preprocessor"), param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_objfmt_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + size_t i; + assert(param != NULL); + cur_objfmt_module = yasm_load_objfmt(param); + if (!cur_objfmt_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("object formats")); + yasm_list_objfmt(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("object format"), param); + exit(EXIT_FAILURE); + } + if (objfmt_keyword) + yasm_xfree(objfmt_keyword); + objfmt_keyword = yasm__xstrdup(param); + for (i=0; i<strlen(objfmt_keyword); i++) + objfmt_keyword[i] = tolower(objfmt_keyword[i]); + return 0; +} + +static int +opt_dbgfmt_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_dbgfmt_module = yasm_load_dbgfmt(param); + if (!cur_dbgfmt_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("debug formats")); + yasm_list_dbgfmt(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("debug format"), param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_listfmt_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_listfmt_module = yasm_load_listfmt(param); + if (!cur_listfmt_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("list formats")); + yasm_list_listfmt(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("list format"), param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_listdir_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (listdir_pathname) { + print_error( + _("warning: can output to only one list dir, last specified used")); + yasm_xfree(listdir_pathname); + } + + assert(param != NULL); + listdir_pathname = yasm_xmalloc(strlen(param)+2); + strcpy(listdir_pathname, param); + + return 0; +} + +static int +opt_objdir_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (objdir_pathname) { + print_error( + _("warning: can output to only one object dir, last specified used")); + yasm_xfree(objdir_pathname); + } + + assert(param != NULL); + objdir_pathname = yasm_xmalloc(strlen(param)+2); + strcpy(objdir_pathname, param); + + return 0; +} + +static int +opt_mapdir_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (mapdir_pathname) { + print_error( + _("warning: can output to only one map file, last specified used")); + yasm_xfree(mapdir_pathname); + } + + assert(param != NULL); + mapdir_pathname = yasm_xmalloc(strlen(param)+2); + strcpy(mapdir_pathname, param); + + return 0; +} + +static int +opt_listext_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (listext) { + print_error( + _("warning: can set only one list extension, last specified used")); + yasm_xfree(listext); + } + assert(param != NULL); + listext = yasm__xstrdup(param); + return 0; +} + +static int +opt_objext_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (objext) { + print_error( + _("warning: can set only one object extension, last specified used")); + yasm_xfree(objext); + } + assert(param != NULL); + objext = yasm__xstrdup(param); + return 0; +} + +static int +opt_mapext_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (mapext) { + print_error( + _("warning: can set only one map extension, last specified used")); + yasm_xfree(mapext); + } + assert(param != NULL); + mapext = yasm__xstrdup(param); + return 0; +} + +static int +opt_machine_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (machine_name) + yasm_xfree(machine_name); + + assert(param != NULL); + machine_name = yasm__xstrdup(param); + + return 0; +} + +static int +opt_strict_handler(/*@unused@*/ char *cmd, + /*@unused@*/ /*@null@*/ char *param, + /*@unused@*/ int extra) +{ + force_strict = 1; + return 0; +} + +static int +opt_warning_handler(char *cmd, /*@unused@*/ char *param, int extra) +{ + /* is it disabling the warning instead of enabling? */ + void (*action)(yasm_warn_class wclass) = yasm_warn_enable; + + if (extra == 1) { + /* -w, disable warnings */ + yasm_warn_disable_all(); + return 0; + } + + /* skip past 'W' */ + cmd++; + + /* detect no- prefix to disable the warning */ + if (cmd[0] == 'n' && cmd[1] == 'o' && cmd[2] == '-') { + action = yasm_warn_disable; + cmd += 3; /* skip past it to get to the warning name */ + } + + if (cmd[0] == '\0') + /* just -W or -Wno-, so definitely not valid */ + return 1; + else if (strcmp(cmd, "error") == 0) + warning_error = (action == yasm_warn_enable); + else if (strcmp(cmd, "unrecognized-char") == 0) + action(YASM_WARN_UNREC_CHAR); + else if (strcmp(cmd, "orphan-labels") == 0) + action(YASM_WARN_ORPHAN_LABEL); + else if (strcmp(cmd, "uninit-contents") == 0) + action(YASM_WARN_UNINIT_CONTENTS); + else if (strcmp(cmd, "size-override") == 0) + action(YASM_WARN_SIZE_OVERRIDE); + else + return 1; + + return 0; +} + +static int +opt_error_file(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + if (error_filename) { + print_error( + _("warning: can output to only one error file, last specified used")); + yasm_xfree(error_filename); + } + + assert(param != NULL); + error_filename = yasm__xstrdup(param); + + return 0; +} + +static int +opt_error_stdout(/*@unused@*/ char *cmd, /*@unused@*/ char *param, + /*@unused@*/ int extra) +{ + /* Clear any specified error filename */ + if (error_filename) { + yasm_xfree(error_filename); + error_filename = NULL; + } + errfile = stdout; + return 0; +} + +static int +opt_include_option(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + yasm_add_include_path(param); + return 0; +} + +static int +opt_preproc_option(/*@unused@*/ char *cmd, char *param, int extra) +{ + constcharparam *cp; + cp = yasm_xmalloc(sizeof(constcharparam)); + cp->param = param; + cp->id = extra; + STAILQ_INSERT_TAIL(&preproc_options, cp, link); + return 0; +} + +static int +opt_ewmsg_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + if (yasm__strcasecmp(param, "gnu") == 0 || + yasm__strcasecmp(param, "gcc") == 0) { + ewmsg_style = EWSTYLE_GNU; + } else if (yasm__strcasecmp(param, "vc") == 0) { + ewmsg_style = EWSTYLE_VC; + } else + print_error(_("warning: unrecognized message style `%s'"), param); + + return 0; +} + +static int +opt_prefix_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + if (global_prefix) + yasm_xfree(global_prefix); + + assert(param != NULL); + global_prefix = yasm__xstrdup(param); + + return 0; +} + +static int +opt_suffix_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + if (global_suffix) + yasm_xfree(global_suffix); + + assert(param != NULL); + global_suffix = yasm__xstrdup(param); + + return 0; +} + +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) +static int +opt_plugin_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (!load_plugin(param)) + print_error(_("warning: could not load plugin `%s'"), param); + return 0; +} +#endif + +static void +apply_preproc_builtins(yasm_preproc *preproc) +{ + char *predef; + + /* Define standard YASM assembly-time macro constants */ + predef = yasm_xmalloc(strlen("__YASM_OBJFMT__=") + + strlen(objfmt_keyword) + 1); + strcpy(predef, "__YASM_OBJFMT__="); + strcat(predef, objfmt_keyword); + yasm_preproc_define_builtin(preproc, predef); + yasm_xfree(predef); +} + +static void +apply_preproc_standard_macros(yasm_preproc *preproc, const yasm_stdmac *stdmacs) +{ + int i, matched; + + if (!stdmacs) + return; + + matched = -1; + for (i=0; stdmacs[i].parser; i++) + if (yasm__strcasecmp(stdmacs[i].parser, + cur_parser_module->keyword) == 0 && + yasm__strcasecmp(stdmacs[i].preproc, + cur_preproc_module->keyword) == 0) + matched = i; + if (matched >= 0 && stdmacs[matched].macros) + yasm_preproc_add_standard(preproc, stdmacs[matched].macros); +} + +static void +apply_preproc_saved_options(yasm_preproc *preproc) +{ + constcharparam *cp; + + void (*funcs[3])(yasm_preproc *, const char *); + funcs[0] = cur_preproc_module->add_include_file; + funcs[1] = cur_preproc_module->predefine_macro; + funcs[2] = cur_preproc_module->undefine_macro; + + STAILQ_FOREACH(cp, &preproc_options, link) { + if (0 <= cp->id && cp->id < 3 && funcs[cp->id]) + funcs[cp->id](preproc, cp->param); + } +} + +static void +free_preproc_saved_options(void) +{ + constcharparam *cp, *cpnext; + cp = STAILQ_FIRST(&preproc_options); + while (cp != NULL) { + cpnext = STAILQ_NEXT(cp, link); + yasm_xfree(cp); + cp = cpnext; + } + STAILQ_INIT(&preproc_options); +} + +/* Replace extension on a filename (or append one if none is present). + * If output filename would be identical to input (same extension out as in), + * returns NULL. + * A NULL ext means the trailing '.' should NOT be included, whereas a "" ext + * means the trailing '.' should be included. + */ +static char * +replace_extension(const char *orig, /*@null@*/ const char *ext) +{ + char *out, *outext; + size_t outlen; + + /* allocate enough space for full existing name + extension */ + outlen = strlen(orig) + 2; + if (ext) + outlen += strlen(ext) + 1; + out = yasm_xmalloc(outlen); + + strcpy(out, orig); + outext = strrchr(out, '.'); + if (outext) { + /* Existing extension: make sure it's not the same as the replacement + * (as we don't want to overwrite the source file). + */ + outext++; /* advance past '.' */ + if (ext && strcmp(outext, ext) == 0) { + outext = NULL; /* indicate default should be used */ + print_error(_("file name already ends in `.%s'"), ext); + } + } else { + /* No extension: make sure the output extension is not empty + * (again, we don't want to overwrite the source file). + */ + if (!ext) { + outext = NULL; + print_error(_("file name already has no extension")); + } else { + outext = strrchr(out, '\0'); /* point to end of the string */ + *outext++ = '.'; /* append '.' */ + } + } + + /* replace extension or use default name */ + if (outext) { + if (!ext) { + /* Back up and replace '.' with string terminator */ + outext--; + *outext = '\0'; + } else + strcpy(outext, ext); + } else + return NULL; + + return out; +} + +void +print_list_keyword_desc(const char *name, const char *keyword) +{ + printf("%4s%-12s%s\n", "", keyword, name); +} + +static void +print_error(const char *fmt, ...) +{ + va_list va; + fprintf(errfile, "vsyasm: "); + va_start(va, fmt); + vfprintf(errfile, fmt, va); + va_end(va); + fputc('\n', errfile); +} + +static /*@exits@*/ void +handle_yasm_int_error(const char *file, unsigned int line, const char *message) +{ + fprintf(stderr, _("INTERNAL ERROR at %s, line %u: %s\n"), file, line, + gettext(message)); +#ifdef HAVE_ABORT + abort(); +#else + exit(EXIT_FAILURE); +#endif +} + +static /*@exits@*/ void +handle_yasm_fatal(const char *fmt, va_list va) +{ + fprintf(errfile, "vsyasm: %s: ", _("FATAL")); + vfprintf(errfile, gettext(fmt), va); + fputc('\n', errfile); + exit(EXIT_FAILURE); +} + +static const char * +handle_yasm_gettext(const char *msgid) +{ + return gettext(msgid); +} + +static const char *fmt[2] = { + "%s:%lu: %s%s\n", /* GNU */ + "%s(%lu) : %s%s\n" /* VC */ +}; + +static const char *fmt_noline[2] = { + "%s: %s%s\n", /* GNU */ + "%s : %s%s\n" /* VC */ +}; + +static void +print_yasm_error(const char *filename, unsigned long line, const char *msg, + const char *xref_fn, unsigned long xref_line, + const char *xref_msg) +{ + if (line) + fprintf(errfile, fmt[ewmsg_style], filename, line, _("error: "), msg); + else + fprintf(errfile, fmt_noline[ewmsg_style], filename, _("error: "), msg); + + if (xref_fn && xref_msg) { + if (xref_line) + fprintf(errfile, fmt[ewmsg_style], xref_fn, xref_line, _("error: "), + xref_msg); + else + fprintf(errfile, fmt_noline[ewmsg_style], xref_fn, _("error: "), + xref_msg); + } +} + +static void +print_yasm_warning(const char *filename, unsigned long line, const char *msg) +{ + if (line) + fprintf(errfile, fmt[ewmsg_style], filename, line, _("warning: "), + msg); + else + fprintf(errfile, fmt_noline[ewmsg_style], filename, _("warning: "), + msg); +} diff --git a/contrib/tools/yasm/frontends/yasm/license.c b/contrib/tools/yasm/frontends/yasm/license.c index 35c5a04137..1259971244 100644 --- a/contrib/tools/yasm/frontends/yasm/license.c +++ b/contrib/tools/yasm/frontends/yasm/license.c @@ -1,65 +1,65 @@ -/* This file auto-generated from COPYING by genstring.py - don't edit it */ - -static const char* license_msg[] = { - "Yasm is Copyright (c) 2001-2014 Peter Johnson and other Yasm developers.", - "", - "Yasm developers and/or contributors include:", - "Peter Johnson", - "Michael Urman", - "Brian Gladman (Visual Studio build files, other fixes)", - "Stanislav Karchebny (options parser)", - "Mathieu Monnier (SSE4 instruction patches, NASM preprocessor additions)", - "Anonymous \"NASM64\" developer (NASM preprocessor fixes)", - "Stephen Polkowski (x86 instruction patches)", - "Henryk Richter (Mach-O object format)", - "Ben Skeggs (patches, bug reports)", - "Alexei Svitkine (GAS preprocessor)", - "Samuel Thibault (TASM parser and frontend)", - "", - "-----------------------------------", - "Yasm licensing overview and summary", - "-----------------------------------", - "", - "Note: This document does not provide legal advice nor is it the actual", - "license of any part of Yasm. See the individual licenses for complete", - "details. Consult a lawyer for legal advice.", - "", - "The primary license of Yasm is the 2-clause BSD license. Please use this", - "license if you plan on submitting code to the project.", - "", - "Yasm has absolutely no warranty; not even for merchantibility or fitness", - "for a particular purpose.", - "", - "-------", - "Libyasm", - "-------", - "Libyasm is 2-clause or 3-clause BSD licensed, with the exception of", - "bitvect, which is triple-licensed under the Artistic license, GPL, and", - "LGPL. Libyasm is thus GPL and LGPL compatible. In addition, this also", - "means that libyasm is free for binary-only distribution as long as the", - "terms of the 3-clause BSD license and Artistic license (as it applies to", - "bitvect) are fulfilled.", - "", - "-------", - "Modules", - "-------", - "The modules are 2-clause or 3-clause BSD licensed.", - "", - "---------", - "Frontends", - "---------", - "The frontends are 2-clause BSD licensed.", - "", - "-------------", - "License Texts", - "-------------", - "The full text of all licenses are provided in separate files in the source", - "distribution. Each source file may include the entire license (in the case", - "of the BSD and Artistic licenses), or may reference the GPL or LGPL license", - "file.", - "", - "BSD.txt - 2-clause and 3-clause BSD licenses", - "Artistic.txt - Artistic license", - "GNU_GPL-2.0 - GNU General Public License", - "GNU_LGPL-2.0 - GNU Library General Public License", -}; +/* This file auto-generated from COPYING by genstring.py - don't edit it */ + +static const char* license_msg[] = { + "Yasm is Copyright (c) 2001-2014 Peter Johnson and other Yasm developers.", + "", + "Yasm developers and/or contributors include:", + "Peter Johnson", + "Michael Urman", + "Brian Gladman (Visual Studio build files, other fixes)", + "Stanislav Karchebny (options parser)", + "Mathieu Monnier (SSE4 instruction patches, NASM preprocessor additions)", + "Anonymous \"NASM64\" developer (NASM preprocessor fixes)", + "Stephen Polkowski (x86 instruction patches)", + "Henryk Richter (Mach-O object format)", + "Ben Skeggs (patches, bug reports)", + "Alexei Svitkine (GAS preprocessor)", + "Samuel Thibault (TASM parser and frontend)", + "", + "-----------------------------------", + "Yasm licensing overview and summary", + "-----------------------------------", + "", + "Note: This document does not provide legal advice nor is it the actual", + "license of any part of Yasm. See the individual licenses for complete", + "details. Consult a lawyer for legal advice.", + "", + "The primary license of Yasm is the 2-clause BSD license. Please use this", + "license if you plan on submitting code to the project.", + "", + "Yasm has absolutely no warranty; not even for merchantibility or fitness", + "for a particular purpose.", + "", + "-------", + "Libyasm", + "-------", + "Libyasm is 2-clause or 3-clause BSD licensed, with the exception of", + "bitvect, which is triple-licensed under the Artistic license, GPL, and", + "LGPL. Libyasm is thus GPL and LGPL compatible. In addition, this also", + "means that libyasm is free for binary-only distribution as long as the", + "terms of the 3-clause BSD license and Artistic license (as it applies to", + "bitvect) are fulfilled.", + "", + "-------", + "Modules", + "-------", + "The modules are 2-clause or 3-clause BSD licensed.", + "", + "---------", + "Frontends", + "---------", + "The frontends are 2-clause BSD licensed.", + "", + "-------------", + "License Texts", + "-------------", + "The full text of all licenses are provided in separate files in the source", + "distribution. Each source file may include the entire license (in the case", + "of the BSD and Artistic licenses), or may reference the GPL or LGPL license", + "file.", + "", + "BSD.txt - 2-clause and 3-clause BSD licenses", + "Artistic.txt - Artistic license", + "GNU_GPL-2.0 - GNU General Public License", + "GNU_LGPL-2.0 - GNU Library General Public License", +}; diff --git a/contrib/tools/yasm/frontends/yasm/yasm-options.c b/contrib/tools/yasm/frontends/yasm/yasm-options.c index eff6ba9a00..627ccf7033 100644 --- a/contrib/tools/yasm/frontends/yasm/yasm-options.c +++ b/contrib/tools/yasm/frontends/yasm/yasm-options.c @@ -1,216 +1,216 @@ -/* - * Generic Options Support Header File - * - * Copyright (c) 2001 Stanislav Karchebny <berk@madfire.net> - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the author nor the names of other contributors - * may be used to endorse or promote products derived from this - * software without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' - * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - */ -#include <util.h> -#include <ctype.h> - -#include "yasm-options.h" - - -#ifdef __DEBUG__ -#define DEBUG(x) fprintf ## x ; -#else -#define DEBUG(x) -#endif - - -/* Options Parser */ -int -parse_cmdline(int argc, char **argv, opt_option *options, size_t nopts, - void (*print_error) (const char *fmt, ...)) -{ - int errors = 0, warnings = 0; - size_t i; - int got_it; - - DEBUG((stderr, "parse_cmdline: entered\n")); - - fail: - while (--argc) { - argv++; - - if (argv[0][0] == '-') { /* opt */ - got_it = 0; - if (argv[0][1] == '-') { /* lopt */ - if (argv[0][2] == '\0') { /* --, end of options */ - /* Handle rest of args as non-options */ - while (--argc) { - argv++; - if (not_an_option_handler(argv[0])) - errors++; - } - return errors; - } - - for (i = 0; i < nopts; i++) { - size_t optlen; - if (options[i].lopt && - strncmp(&argv[0][2], options[i].lopt, - (optlen = strlen(options[i].lopt))) == 0) { - char *param; - char c = argv[0][2 + optlen]; - - if (c != '\0' && c != '=' && !isspace(c)) - continue; - - if (options[i].takes_param) { - param = strchr(&argv[0][2], '='); - if (!param) { - print_error( - _("option `--%s' needs an argument!"), - options[i].lopt); - errors++; - goto fail; - } else { - *param = '\0'; - param++; - } - } else - param = NULL; - - if (!options[i]. - handler(&argv[0][2], param, options[i].extra)) - got_it = 1; - break; - } - } - if (!got_it && !other_option_handler(argv[0])) - got_it = 1; - if (!got_it) { - print_error(_("warning: unrecognized option `%s'"), - argv[0]); - warnings++; - } - } else if (argv[0][1] == '\0') { /* just -, is non-option */ - if (not_an_option_handler(argv[0])) - errors++; - } else { /* sopt */ - for (i = 0; i < nopts; i++) { - if (argv[0][1] == options[i].sopt) { - char *cmd = &argv[0][1]; - char *param; - - if (options[i].takes_param) { - param = argv[1]; - if (argv[0][2] != '\0') - param = &argv[0][2]; - else if (param == NULL || *param == '-') { - print_error( - _("option `-%c' needs an argument!"), - options[i].sopt); - errors++; - goto fail; - } else { - argc--; - argv++; - } - } else - param = NULL; - - if (!options[i].handler(cmd, param, options[i].extra)) - got_it = 1; - break; - } - } - if (!got_it && !other_option_handler(argv[0])) - got_it = 1; - if (!got_it) { - print_error(_("warning: unrecognized option `%s'"), - argv[0]); - warnings++; - } - } - } else { /* not an option, then it should be a file or something */ - - if (not_an_option_handler(argv[0])) - errors++; - } - } - - DEBUG((stderr, "parse_cmdline: finished\n")); - return errors; -} - -void -help_msg(const char *msg, const char *tail, opt_option *options, size_t nopts) -{ - char optbuf[100], optopt[100]; - size_t i; - - printf("%s", gettext(msg)); - - for (i = 0; i < nopts; i++) { - size_t shortopt_len = 0; - size_t longopt_len = 0; - - optbuf[0] = 0; - optopt[0] = 0; - - if (options[i].takes_param) { - if (options[i].sopt) { - sprintf(optbuf, "-%c <%s>", options[i].sopt, - options[i].param_desc ? options[i]. - param_desc : _("param")); - shortopt_len = strlen(optbuf); - } - if (options[i].sopt && options[i].lopt) - strcat(optbuf, ", "); - if (options[i].lopt) { - sprintf(optopt, "--%s=<%s>", options[i].lopt, - options[i].param_desc ? options[i]. - param_desc : _("param")); - strcat(optbuf, optopt); - longopt_len = strlen(optbuf); - } - } else { - if (options[i].sopt) { - sprintf(optbuf, "-%c", options[i].sopt); - shortopt_len = strlen(optbuf); - } - if (options[i].sopt && options[i].lopt) - strcat(optbuf, ", "); - if (options[i].lopt) { - sprintf(optopt, "--%s", options[i].lopt); - strcat(optbuf, optopt); - longopt_len = strlen(optbuf); - } - } - - /* split [-s <desc>], [--long <desc>] if it destroys columns */ - if (shortopt_len && longopt_len && longopt_len > 22) { - optbuf[shortopt_len] = '\0'; - printf(" %-22s %s\n", optopt, gettext(options[i].description)); - printf(" %s\n", optbuf); - } - else - printf(" %-22s %s\n", optbuf, gettext(options[i].description)); - } - - printf("%s", gettext(tail)); -} +/* + * Generic Options Support Header File + * + * Copyright (c) 2001 Stanislav Karchebny <berk@madfire.net> + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. Neither the name of the author nor the names of other contributors + * may be used to endorse or promote products derived from this + * software without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ +#include <util.h> +#include <ctype.h> + +#include "yasm-options.h" + + +#ifdef __DEBUG__ +#define DEBUG(x) fprintf ## x ; +#else +#define DEBUG(x) +#endif + + +/* Options Parser */ +int +parse_cmdline(int argc, char **argv, opt_option *options, size_t nopts, + void (*print_error) (const char *fmt, ...)) +{ + int errors = 0, warnings = 0; + size_t i; + int got_it; + + DEBUG((stderr, "parse_cmdline: entered\n")); + + fail: + while (--argc) { + argv++; + + if (argv[0][0] == '-') { /* opt */ + got_it = 0; + if (argv[0][1] == '-') { /* lopt */ + if (argv[0][2] == '\0') { /* --, end of options */ + /* Handle rest of args as non-options */ + while (--argc) { + argv++; + if (not_an_option_handler(argv[0])) + errors++; + } + return errors; + } + + for (i = 0; i < nopts; i++) { + size_t optlen; + if (options[i].lopt && + strncmp(&argv[0][2], options[i].lopt, + (optlen = strlen(options[i].lopt))) == 0) { + char *param; + char c = argv[0][2 + optlen]; + + if (c != '\0' && c != '=' && !isspace(c)) + continue; + + if (options[i].takes_param) { + param = strchr(&argv[0][2], '='); + if (!param) { + print_error( + _("option `--%s' needs an argument!"), + options[i].lopt); + errors++; + goto fail; + } else { + *param = '\0'; + param++; + } + } else + param = NULL; + + if (!options[i]. + handler(&argv[0][2], param, options[i].extra)) + got_it = 1; + break; + } + } + if (!got_it && !other_option_handler(argv[0])) + got_it = 1; + if (!got_it) { + print_error(_("warning: unrecognized option `%s'"), + argv[0]); + warnings++; + } + } else if (argv[0][1] == '\0') { /* just -, is non-option */ + if (not_an_option_handler(argv[0])) + errors++; + } else { /* sopt */ + for (i = 0; i < nopts; i++) { + if (argv[0][1] == options[i].sopt) { + char *cmd = &argv[0][1]; + char *param; + + if (options[i].takes_param) { + param = argv[1]; + if (argv[0][2] != '\0') + param = &argv[0][2]; + else if (param == NULL || *param == '-') { + print_error( + _("option `-%c' needs an argument!"), + options[i].sopt); + errors++; + goto fail; + } else { + argc--; + argv++; + } + } else + param = NULL; + + if (!options[i].handler(cmd, param, options[i].extra)) + got_it = 1; + break; + } + } + if (!got_it && !other_option_handler(argv[0])) + got_it = 1; + if (!got_it) { + print_error(_("warning: unrecognized option `%s'"), + argv[0]); + warnings++; + } + } + } else { /* not an option, then it should be a file or something */ + + if (not_an_option_handler(argv[0])) + errors++; + } + } + + DEBUG((stderr, "parse_cmdline: finished\n")); + return errors; +} + +void +help_msg(const char *msg, const char *tail, opt_option *options, size_t nopts) +{ + char optbuf[100], optopt[100]; + size_t i; + + printf("%s", gettext(msg)); + + for (i = 0; i < nopts; i++) { + size_t shortopt_len = 0; + size_t longopt_len = 0; + + optbuf[0] = 0; + optopt[0] = 0; + + if (options[i].takes_param) { + if (options[i].sopt) { + sprintf(optbuf, "-%c <%s>", options[i].sopt, + options[i].param_desc ? options[i]. + param_desc : _("param")); + shortopt_len = strlen(optbuf); + } + if (options[i].sopt && options[i].lopt) + strcat(optbuf, ", "); + if (options[i].lopt) { + sprintf(optopt, "--%s=<%s>", options[i].lopt, + options[i].param_desc ? options[i]. + param_desc : _("param")); + strcat(optbuf, optopt); + longopt_len = strlen(optbuf); + } + } else { + if (options[i].sopt) { + sprintf(optbuf, "-%c", options[i].sopt); + shortopt_len = strlen(optbuf); + } + if (options[i].sopt && options[i].lopt) + strcat(optbuf, ", "); + if (options[i].lopt) { + sprintf(optopt, "--%s", options[i].lopt); + strcat(optbuf, optopt); + longopt_len = strlen(optbuf); + } + } + + /* split [-s <desc>], [--long <desc>] if it destroys columns */ + if (shortopt_len && longopt_len && longopt_len > 22) { + optbuf[shortopt_len] = '\0'; + printf(" %-22s %s\n", optopt, gettext(options[i].description)); + printf(" %s\n", optbuf); + } + else + printf(" %-22s %s\n", optbuf, gettext(options[i].description)); + } + + printf("%s", gettext(tail)); +} diff --git a/contrib/tools/yasm/frontends/yasm/yasm-options.h b/contrib/tools/yasm/frontends/yasm/yasm-options.h index 63c4fbeae1..e03be71d93 100644 --- a/contrib/tools/yasm/frontends/yasm/yasm-options.h +++ b/contrib/tools/yasm/frontends/yasm/yasm-options.h @@ -1,75 +1,75 @@ -/* - * Generic Options Support Header File - * - * Copyright (c) 2001 Stanislav Karchebny <berk@madfire.net> - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' - * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - */ -#ifndef YASM_OPTIONS_H -#define YASM_OPTIONS_H - -/* an option structure - * operate on either -sopt, --lopt, -sopt <val> or --lopt=<val> - */ -typedef struct opt_option_s -{ - /* short option letter if present, 0 otherwise */ - char sopt; - - /* long option name if present, NULL otherwise */ - /*@null@*/ const char *lopt; - - /* !=0 if option requires parameter, 0 if not */ - int takes_param; - - int (*handler) (char *cmd, /*@null@*/ char *param, int extra); - int extra; /* extra value for handler */ - - /* description to use in help_msg() */ - /*@observer@*/ const char *description; - - /* optional description for the param taken (NULL if not present) */ - /* (short - will be printed after option sopt/lopt) */ - /*@observer@*/ /*@null@*/ const char *param_desc; -} opt_option; - -/* handle everything that is not an option */ -int not_an_option_handler(char *param); - -/* handle possibly other special-case options; no parameters allowed */ -int other_option_handler(char *option); - -/* parse command line calling handlers when appropriate - * argc, argv - pass directly from main(argc,argv) - * options - array of options - * nopts - options count - */ -int parse_cmdline(int argc, char **argv, opt_option *options, size_t nopts, - void (*print_error) (const char *fmt, ...)); - -/* display help message msg followed by list of options in options and followed - * by tail - */ -void help_msg(const char *msg, const char *tail, opt_option *options, - size_t nopts); - -#endif +/* + * Generic Options Support Header File + * + * Copyright (c) 2001 Stanislav Karchebny <berk@madfire.net> + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ +#ifndef YASM_OPTIONS_H +#define YASM_OPTIONS_H + +/* an option structure + * operate on either -sopt, --lopt, -sopt <val> or --lopt=<val> + */ +typedef struct opt_option_s +{ + /* short option letter if present, 0 otherwise */ + char sopt; + + /* long option name if present, NULL otherwise */ + /*@null@*/ const char *lopt; + + /* !=0 if option requires parameter, 0 if not */ + int takes_param; + + int (*handler) (char *cmd, /*@null@*/ char *param, int extra); + int extra; /* extra value for handler */ + + /* description to use in help_msg() */ + /*@observer@*/ const char *description; + + /* optional description for the param taken (NULL if not present) */ + /* (short - will be printed after option sopt/lopt) */ + /*@observer@*/ /*@null@*/ const char *param_desc; +} opt_option; + +/* handle everything that is not an option */ +int not_an_option_handler(char *param); + +/* handle possibly other special-case options; no parameters allowed */ +int other_option_handler(char *option); + +/* parse command line calling handlers when appropriate + * argc, argv - pass directly from main(argc,argv) + * options - array of options + * nopts - options count + */ +int parse_cmdline(int argc, char **argv, opt_option *options, size_t nopts, + void (*print_error) (const char *fmt, ...)); + +/* display help message msg followed by list of options in options and followed + * by tail + */ +void help_msg(const char *msg, const char *tail, opt_option *options, + size_t nopts); + +#endif diff --git a/contrib/tools/yasm/frontends/yasm/yasm-plugin.c b/contrib/tools/yasm/frontends/yasm/yasm-plugin.c index c64edc32f0..9ef579106f 100644 --- a/contrib/tools/yasm/frontends/yasm/yasm-plugin.c +++ b/contrib/tools/yasm/frontends/yasm/yasm-plugin.c @@ -1,126 +1,126 @@ -/* - * Semi-portable (Windows and Unix) plugin loading - * - * Copyright (C) 2008 Peter Johnson - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' - * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - */ -#include <util.h> - -#include <string.h> - -#include "libyasm-stdint.h" -#include "yasm-plugin.h" - -#if defined(_MSC_VER) -#include <windows.h> -#elif defined(__GNUC__) -#include <dlfcn.h> -#endif - -static void **loaded_plugins = NULL; -static int num_loaded_plugins = 0; - -static void * -load_dll(const char *name) -{ -#if defined(_MSC_VER) - return LoadLibrary(name); -#elif defined(__GNUC__) - return dlopen(name, RTLD_NOW); -#else - return NULL; -#endif -} - -int -load_plugin(const char *name) -{ - char *path; - void *lib = NULL; - void (*init_plugin) (void) = NULL; - - /* Load library */ - - path = yasm_xmalloc(strlen(name)+10); -#if defined(_MSC_VER) - strcpy(path, name); - strcat(path, ".dll"); - lib = load_dll(path); -#elif defined(__GNUC__) - strcpy(path, "lib"); - strcat(path, name); - strcat(path, ".so"); - lib = load_dll(path); - if (!lib) { - strcpy(path, name); - strcat(path, ".so"); - lib = load_dll(path); - } -#endif - yasm_xfree(path); - if (!lib) - lib = load_dll(name); - - if (!lib) - return 0; /* Didn't load successfully */ - - /* Add to array of loaded plugins */ - loaded_plugins = - yasm_xrealloc(loaded_plugins, (num_loaded_plugins+1)*sizeof(void *)); - loaded_plugins[num_loaded_plugins] = lib; - num_loaded_plugins++; - - /* Get yasm_init_plugin() function and run it */ - -#if defined(_MSC_VER) - init_plugin = - (void (*)(void))GetProcAddress((HINSTANCE)lib, "yasm_init_plugin"); -#elif defined(__GNUC__) - init_plugin = (void (*)(void))(uintptr_t)dlsym(lib, "yasm_init_plugin"); -#endif - - if (!init_plugin) - return 0; /* Didn't load successfully */ - - init_plugin(); - return 1; -} - -void -unload_plugins(void) -{ - int i; - - if (!loaded_plugins) - return; - - for (i = 0; i < num_loaded_plugins; i++) { -#if defined(_MSC_VER) - FreeLibrary((HINSTANCE)loaded_plugins[i]); -#elif defined(__GNUC__) - dlclose(loaded_plugins[i]); -#endif - } - yasm_xfree(loaded_plugins); - num_loaded_plugins = 0; -} +/* + * Semi-portable (Windows and Unix) plugin loading + * + * Copyright (C) 2008 Peter Johnson + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ +#include <util.h> + +#include <string.h> + +#include "libyasm-stdint.h" +#include "yasm-plugin.h" + +#if defined(_MSC_VER) +#include <windows.h> +#elif defined(__GNUC__) +#include <dlfcn.h> +#endif + +static void **loaded_plugins = NULL; +static int num_loaded_plugins = 0; + +static void * +load_dll(const char *name) +{ +#if defined(_MSC_VER) + return LoadLibrary(name); +#elif defined(__GNUC__) + return dlopen(name, RTLD_NOW); +#else + return NULL; +#endif +} + +int +load_plugin(const char *name) +{ + char *path; + void *lib = NULL; + void (*init_plugin) (void) = NULL; + + /* Load library */ + + path = yasm_xmalloc(strlen(name)+10); +#if defined(_MSC_VER) + strcpy(path, name); + strcat(path, ".dll"); + lib = load_dll(path); +#elif defined(__GNUC__) + strcpy(path, "lib"); + strcat(path, name); + strcat(path, ".so"); + lib = load_dll(path); + if (!lib) { + strcpy(path, name); + strcat(path, ".so"); + lib = load_dll(path); + } +#endif + yasm_xfree(path); + if (!lib) + lib = load_dll(name); + + if (!lib) + return 0; /* Didn't load successfully */ + + /* Add to array of loaded plugins */ + loaded_plugins = + yasm_xrealloc(loaded_plugins, (num_loaded_plugins+1)*sizeof(void *)); + loaded_plugins[num_loaded_plugins] = lib; + num_loaded_plugins++; + + /* Get yasm_init_plugin() function and run it */ + +#if defined(_MSC_VER) + init_plugin = + (void (*)(void))GetProcAddress((HINSTANCE)lib, "yasm_init_plugin"); +#elif defined(__GNUC__) + init_plugin = (void (*)(void))(uintptr_t)dlsym(lib, "yasm_init_plugin"); +#endif + + if (!init_plugin) + return 0; /* Didn't load successfully */ + + init_plugin(); + return 1; +} + +void +unload_plugins(void) +{ + int i; + + if (!loaded_plugins) + return; + + for (i = 0; i < num_loaded_plugins; i++) { +#if defined(_MSC_VER) + FreeLibrary((HINSTANCE)loaded_plugins[i]); +#elif defined(__GNUC__) + dlclose(loaded_plugins[i]); +#endif + } + yasm_xfree(loaded_plugins); + num_loaded_plugins = 0; +} diff --git a/contrib/tools/yasm/frontends/yasm/yasm-plugin.h b/contrib/tools/yasm/frontends/yasm/yasm-plugin.h index efb1bf513a..b92154d3e4 100644 --- a/contrib/tools/yasm/frontends/yasm/yasm-plugin.h +++ b/contrib/tools/yasm/frontends/yasm/yasm-plugin.h @@ -1,34 +1,34 @@ -/* - * Semi-portable (Windows and Unix) plugin loading - * - * Copyright (C) 2008 Peter Johnson - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' - * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - */ -#ifndef YASM_PLUGIN_H -#define YASM_PLUGIN_H - -/* Load a plugin. Returns 0 on failure. */ -int load_plugin(const char *name); -void unload_plugins(void); - -#endif +/* + * Semi-portable (Windows and Unix) plugin loading + * + * Copyright (C) 2008 Peter Johnson + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ +#ifndef YASM_PLUGIN_H +#define YASM_PLUGIN_H + +/* Load a plugin. Returns 0 on failure. */ +int load_plugin(const char *name); +void unload_plugins(void); + +#endif diff --git a/contrib/tools/yasm/frontends/yasm/yasm.c b/contrib/tools/yasm/frontends/yasm/yasm.c index 2bd08890df..3fd1595083 100644 --- a/contrib/tools/yasm/frontends/yasm/yasm.c +++ b/contrib/tools/yasm/frontends/yasm/yasm.c @@ -1,1204 +1,1204 @@ -/* - * Program entry point, command line parsing - * - * Copyright (C) 2001-2007 Peter Johnson - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' - * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - */ -#include <util.h> - -#include <ctype.h> -#include <libyasm/compat-queue.h> -#include <libyasm/bitvect.h> -#include <libyasm.h> - -#ifdef HAVE_LIBGEN_H -#include <libgen.h> -#endif - -#include "yasm-options.h" - -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) -#include "yasm-plugin.h" -#endif - -#include "license.c" - -/* Preprocess-only buffer size */ -#define PREPROC_BUF_SIZE 16384 - -/*@null@*/ /*@only@*/ static char *obj_filename = NULL, *in_filename = NULL; -/*@null@*/ /*@only@*/ static char *global_prefix = NULL, *global_suffix = NULL; -/*@null@*/ /*@only@*/ static char *list_filename = NULL, *map_filename = NULL; -/*@null@*/ /*@only@*/ static char *machine_name = NULL; +/* + * Program entry point, command line parsing + * + * Copyright (C) 2001-2007 Peter Johnson + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS'' + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ +#include <util.h> + +#include <ctype.h> +#include <libyasm/compat-queue.h> +#include <libyasm/bitvect.h> +#include <libyasm.h> + +#ifdef HAVE_LIBGEN_H +#include <libgen.h> +#endif + +#include "yasm-options.h" + +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) +#include "yasm-plugin.h" +#endif + +#include "license.c" + +/* Preprocess-only buffer size */ +#define PREPROC_BUF_SIZE 16384 + +/*@null@*/ /*@only@*/ static char *obj_filename = NULL, *in_filename = NULL; +/*@null@*/ /*@only@*/ static char *global_prefix = NULL, *global_suffix = NULL; +/*@null@*/ /*@only@*/ static char *list_filename = NULL, *map_filename = NULL; +/*@null@*/ /*@only@*/ static char *machine_name = NULL; static char **replace_params; static int replace_size = 0; static int replace_capacity = 0; -static int special_options = 0; -/*@null@*/ /*@dependent@*/ static yasm_arch *cur_arch = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_arch_module * - cur_arch_module = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_parser_module * - cur_parser_module = NULL; -/*@null@*/ /*@dependent@*/ static yasm_preproc *cur_preproc = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_preproc_module * - cur_preproc_module = NULL; -/*@null@*/ static char *objfmt_keyword = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_objfmt_module * - cur_objfmt_module = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_dbgfmt_module * - cur_dbgfmt_module = NULL; -/*@null@*/ /*@dependent@*/ static yasm_listfmt *cur_listfmt = NULL; -/*@null@*/ /*@dependent@*/ static const yasm_listfmt_module * - cur_listfmt_module = NULL; -static int preproc_only = 0; -static unsigned int force_strict = 0; -static int generate_make_dependencies = 0; -static int warning_error = 0; /* warnings being treated as errors */ -static FILE *errfile; -/*@null@*/ /*@only@*/ static char *error_filename = NULL; -static enum { - EWSTYLE_GNU = 0, - EWSTYLE_VC -} ewmsg_style = EWSTYLE_GNU; - -/*@null@*/ /*@dependent@*/ static FILE *open_file(const char *filename, - const char *mode); -static void check_errors(/*@only@*/ yasm_errwarns *errwarns, - /*@only@*/ yasm_object *object, - /*@only@*/ yasm_linemap *linemap); -static void cleanup(/*@null@*/ /*@only@*/ yasm_object *object); - -/* Forward declarations: cmd line parser handlers */ -static int opt_special_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_arch_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_parser_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_preproc_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_objfmt_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_dbgfmt_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_listfmt_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_listfile_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_objfile_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_mapfile_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_machine_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_strict_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_warning_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_error_file(char *cmd, /*@null@*/ char *param, int extra); -static int opt_error_stdout(char *cmd, /*@null@*/ char *param, int extra); -static int preproc_only_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_include_option(char *cmd, /*@null@*/ char *param, int extra); -static int opt_preproc_option(char *cmd, /*@null@*/ char *param, int extra); -static int opt_ewmsg_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_makedep_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_prefix_handler(char *cmd, /*@null@*/ char *param, int extra); +static int special_options = 0; +/*@null@*/ /*@dependent@*/ static yasm_arch *cur_arch = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_arch_module * + cur_arch_module = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_parser_module * + cur_parser_module = NULL; +/*@null@*/ /*@dependent@*/ static yasm_preproc *cur_preproc = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_preproc_module * + cur_preproc_module = NULL; +/*@null@*/ static char *objfmt_keyword = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_objfmt_module * + cur_objfmt_module = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_dbgfmt_module * + cur_dbgfmt_module = NULL; +/*@null@*/ /*@dependent@*/ static yasm_listfmt *cur_listfmt = NULL; +/*@null@*/ /*@dependent@*/ static const yasm_listfmt_module * + cur_listfmt_module = NULL; +static int preproc_only = 0; +static unsigned int force_strict = 0; +static int generate_make_dependencies = 0; +static int warning_error = 0; /* warnings being treated as errors */ +static FILE *errfile; +/*@null@*/ /*@only@*/ static char *error_filename = NULL; +static enum { + EWSTYLE_GNU = 0, + EWSTYLE_VC +} ewmsg_style = EWSTYLE_GNU; + +/*@null@*/ /*@dependent@*/ static FILE *open_file(const char *filename, + const char *mode); +static void check_errors(/*@only@*/ yasm_errwarns *errwarns, + /*@only@*/ yasm_object *object, + /*@only@*/ yasm_linemap *linemap); +static void cleanup(/*@null@*/ /*@only@*/ yasm_object *object); + +/* Forward declarations: cmd line parser handlers */ +static int opt_special_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_arch_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_parser_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_preproc_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_objfmt_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_dbgfmt_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_listfmt_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_listfile_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_objfile_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_mapfile_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_machine_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_strict_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_warning_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_error_file(char *cmd, /*@null@*/ char *param, int extra); +static int opt_error_stdout(char *cmd, /*@null@*/ char *param, int extra); +static int preproc_only_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_include_option(char *cmd, /*@null@*/ char *param, int extra); +static int opt_preproc_option(char *cmd, /*@null@*/ char *param, int extra); +static int opt_ewmsg_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_makedep_handler(char *cmd, /*@null@*/ char *param, int extra); +static int opt_prefix_handler(char *cmd, /*@null@*/ char *param, int extra); static int opt_replace_handler(char *cmd, /*@null@*/ char *param, int extra); -static int opt_suffix_handler(char *cmd, /*@null@*/ char *param, int extra); -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) -static int opt_plugin_handler(char *cmd, /*@null@*/ char *param, int extra); -#endif - -#if defined(CMAKE_BUILD) && !defined(BUILD_SHARED_LIBS) -void yasm_init_plugin(void); +static int opt_suffix_handler(char *cmd, /*@null@*/ char *param, int extra); +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) +static int opt_plugin_handler(char *cmd, /*@null@*/ char *param, int extra); +#endif + +#if defined(CMAKE_BUILD) && !defined(BUILD_SHARED_LIBS) +void yasm_init_plugin(void); void yasm_plugin_set_replace(const char* replace[], int size); -#endif - -static /*@only@*/ char *replace_extension(const char *orig, /*@null@*/ - const char *ext, const char *def); -static void print_error(const char *fmt, ...); - -static /*@exits@*/ void handle_yasm_int_error(const char *file, - unsigned int line, - const char *message); -static /*@exits@*/ void handle_yasm_fatal(const char *message, va_list va); -static const char *handle_yasm_gettext(const char *msgid); -static void print_yasm_error(const char *filename, unsigned long line, - const char *msg, /*@null@*/ const char *xref_fn, - unsigned long xref_line, - /*@null@*/ const char *xref_msg); -static void print_yasm_warning(const char *filename, unsigned long line, - const char *msg); - -static void apply_preproc_builtins(void); -static void apply_preproc_standard_macros(const yasm_stdmac *stdmacs); -static void apply_preproc_saved_options(void); -static void print_list_keyword_desc(const char *name, const char *keyword); - -/* values for special_options */ -#define SPECIAL_SHOW_HELP 0x01 -#define SPECIAL_SHOW_VERSION 0x02 -#define SPECIAL_SHOW_LICENSE 0x04 -#define SPECIAL_LISTED 0x08 - -/* command line options */ -static opt_option options[] = -{ - { 0, "version", 0, opt_special_handler, SPECIAL_SHOW_VERSION, - N_("show version text"), NULL }, - { 0, "license", 0, opt_special_handler, SPECIAL_SHOW_LICENSE, - N_("show license text"), NULL }, - { 'h', "help", 0, opt_special_handler, SPECIAL_SHOW_HELP, - N_("show help text"), NULL }, - { 'a', "arch", 1, opt_arch_handler, 0, - N_("select architecture (list with -a help)"), N_("arch") }, - { 'p', "parser", 1, opt_parser_handler, 0, - N_("select parser (list with -p help)"), N_("parser") }, - { 'r', "preproc", 1, opt_preproc_handler, 0, - N_("select preprocessor (list with -r help)"), N_("preproc") }, - { 'f', "oformat", 1, opt_objfmt_handler, 0, - N_("select object format (list with -f help)"), N_("format") }, - { 'g', "dformat", 1, opt_dbgfmt_handler, 0, - N_("select debugging format (list with -g help)"), N_("debug") }, - { 'L', "lformat", 1, opt_listfmt_handler, 0, - N_("select list format (list with -L help)"), N_("list") }, - { 'l', "list", 1, opt_listfile_handler, 0, - N_("name of list-file output"), N_("listfile") }, - { 'o', "objfile", 1, opt_objfile_handler, 0, - N_("name of object-file output"), N_("filename") }, - { 0, "mapfile", 1, opt_mapfile_handler, 0, - N_("name of map-file output"), N_("filename") }, - { 'm', "machine", 1, opt_machine_handler, 0, - N_("select machine (list with -m help)"), N_("machine") }, - { 0, "force-strict", 0, opt_strict_handler, 0, - N_("treat all sized operands as if `strict' was used"), NULL }, - { 'w', NULL, 0, opt_warning_handler, 1, - N_("inhibits warning messages"), NULL }, - { 'W', NULL, 0, opt_warning_handler, 0, - N_("enables/disables warning"), NULL }, - { 'M', NULL, 0, opt_makedep_handler, 0, - N_("generate Makefile dependencies on stdout"), NULL }, - { 'E', NULL, 1, opt_error_file, 0, - N_("redirect error messages to file"), N_("file") }, - { 's', NULL, 0, opt_error_stdout, 0, - N_("redirect error messages to stdout"), NULL }, - { 'e', "preproc-only", 0, preproc_only_handler, 0, - N_("preprocess only (writes output to stdout by default)"), NULL }, - { 'i', NULL, 1, opt_include_option, 0, - N_("add include path"), N_("path") }, - { 'I', NULL, 1, opt_include_option, 0, - N_("add include path"), N_("path") }, - { 'P', NULL, 1, opt_preproc_option, 0, - N_("pre-include file"), N_("filename") }, - { 'd', NULL, 1, opt_preproc_option, 1, - N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, - { 'D', NULL, 1, opt_preproc_option, 1, - N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, - { 'u', NULL, 1, opt_preproc_option, 2, - N_("undefine a macro"), N_("macro") }, - { 'U', NULL, 1, opt_preproc_option, 2, - N_("undefine a macro"), N_("macro") }, - { 'X', NULL, 1, opt_ewmsg_handler, 0, - N_("select error/warning message style (`gnu' or `vc')"), N_("style") }, - { 0, "prefix", 1, opt_prefix_handler, 0, - N_("prepend argument to name of all external symbols"), N_("prefix") }, - { 0, "suffix", 1, opt_suffix_handler, 0, - N_("append argument to name of all external symbols"), N_("suffix") }, - { 0, "postfix", 1, opt_suffix_handler, 0, - N_("append argument to name of all external symbols"), N_("suffix") }, -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) - { 'N', "plugin", 1, opt_plugin_handler, 0, - N_("load plugin module"), N_("plugin") }, -#endif +#endif + +static /*@only@*/ char *replace_extension(const char *orig, /*@null@*/ + const char *ext, const char *def); +static void print_error(const char *fmt, ...); + +static /*@exits@*/ void handle_yasm_int_error(const char *file, + unsigned int line, + const char *message); +static /*@exits@*/ void handle_yasm_fatal(const char *message, va_list va); +static const char *handle_yasm_gettext(const char *msgid); +static void print_yasm_error(const char *filename, unsigned long line, + const char *msg, /*@null@*/ const char *xref_fn, + unsigned long xref_line, + /*@null@*/ const char *xref_msg); +static void print_yasm_warning(const char *filename, unsigned long line, + const char *msg); + +static void apply_preproc_builtins(void); +static void apply_preproc_standard_macros(const yasm_stdmac *stdmacs); +static void apply_preproc_saved_options(void); +static void print_list_keyword_desc(const char *name, const char *keyword); + +/* values for special_options */ +#define SPECIAL_SHOW_HELP 0x01 +#define SPECIAL_SHOW_VERSION 0x02 +#define SPECIAL_SHOW_LICENSE 0x04 +#define SPECIAL_LISTED 0x08 + +/* command line options */ +static opt_option options[] = +{ + { 0, "version", 0, opt_special_handler, SPECIAL_SHOW_VERSION, + N_("show version text"), NULL }, + { 0, "license", 0, opt_special_handler, SPECIAL_SHOW_LICENSE, + N_("show license text"), NULL }, + { 'h', "help", 0, opt_special_handler, SPECIAL_SHOW_HELP, + N_("show help text"), NULL }, + { 'a', "arch", 1, opt_arch_handler, 0, + N_("select architecture (list with -a help)"), N_("arch") }, + { 'p', "parser", 1, opt_parser_handler, 0, + N_("select parser (list with -p help)"), N_("parser") }, + { 'r', "preproc", 1, opt_preproc_handler, 0, + N_("select preprocessor (list with -r help)"), N_("preproc") }, + { 'f', "oformat", 1, opt_objfmt_handler, 0, + N_("select object format (list with -f help)"), N_("format") }, + { 'g', "dformat", 1, opt_dbgfmt_handler, 0, + N_("select debugging format (list with -g help)"), N_("debug") }, + { 'L', "lformat", 1, opt_listfmt_handler, 0, + N_("select list format (list with -L help)"), N_("list") }, + { 'l', "list", 1, opt_listfile_handler, 0, + N_("name of list-file output"), N_("listfile") }, + { 'o', "objfile", 1, opt_objfile_handler, 0, + N_("name of object-file output"), N_("filename") }, + { 0, "mapfile", 1, opt_mapfile_handler, 0, + N_("name of map-file output"), N_("filename") }, + { 'm', "machine", 1, opt_machine_handler, 0, + N_("select machine (list with -m help)"), N_("machine") }, + { 0, "force-strict", 0, opt_strict_handler, 0, + N_("treat all sized operands as if `strict' was used"), NULL }, + { 'w', NULL, 0, opt_warning_handler, 1, + N_("inhibits warning messages"), NULL }, + { 'W', NULL, 0, opt_warning_handler, 0, + N_("enables/disables warning"), NULL }, + { 'M', NULL, 0, opt_makedep_handler, 0, + N_("generate Makefile dependencies on stdout"), NULL }, + { 'E', NULL, 1, opt_error_file, 0, + N_("redirect error messages to file"), N_("file") }, + { 's', NULL, 0, opt_error_stdout, 0, + N_("redirect error messages to stdout"), NULL }, + { 'e', "preproc-only", 0, preproc_only_handler, 0, + N_("preprocess only (writes output to stdout by default)"), NULL }, + { 'i', NULL, 1, opt_include_option, 0, + N_("add include path"), N_("path") }, + { 'I', NULL, 1, opt_include_option, 0, + N_("add include path"), N_("path") }, + { 'P', NULL, 1, opt_preproc_option, 0, + N_("pre-include file"), N_("filename") }, + { 'd', NULL, 1, opt_preproc_option, 1, + N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, + { 'D', NULL, 1, opt_preproc_option, 1, + N_("pre-define a macro, optionally to value"), N_("macro[=value]") }, + { 'u', NULL, 1, opt_preproc_option, 2, + N_("undefine a macro"), N_("macro") }, + { 'U', NULL, 1, opt_preproc_option, 2, + N_("undefine a macro"), N_("macro") }, + { 'X', NULL, 1, opt_ewmsg_handler, 0, + N_("select error/warning message style (`gnu' or `vc')"), N_("style") }, + { 0, "prefix", 1, opt_prefix_handler, 0, + N_("prepend argument to name of all external symbols"), N_("prefix") }, + { 0, "suffix", 1, opt_suffix_handler, 0, + N_("append argument to name of all external symbols"), N_("suffix") }, + { 0, "postfix", 1, opt_suffix_handler, 0, + N_("append argument to name of all external symbols"), N_("suffix") }, +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) + { 'N', "plugin", 1, opt_plugin_handler, 0, + N_("load plugin module"), N_("plugin") }, +#endif { 0, "replace", 1, opt_replace_handler, 0, N_("replace names"), N_("replace") }, -}; - -/* version message */ -/*@observer@*/ static const char *version_msg[] = { - PACKAGE_STRING, - "Compiled on " __DATE__ ".", - "Copyright (c) 2001-2014 Peter Johnson and other Yasm developers.", - "Run yasm --license for licensing overview and summary." -}; - -/* help messages */ -/*@observer@*/ static const char *help_head = N_( - "usage: yasm [option]* file\n" - "Options:\n"); -/*@observer@*/ static const char *help_tail = N_( - "\n" - "Files are asm sources to be assembled.\n" - "\n" - "Sample invocation:\n" - " yasm -f elf -o object.o source.asm\n" - "\n" - "Report bugs to bug-yasm@tortall.net\n"); - -/* parsed command line storage until appropriate modules have been loaded */ -typedef STAILQ_HEAD(constcharparam_head, constcharparam) constcharparam_head; - -typedef struct constcharparam { - STAILQ_ENTRY(constcharparam) link; - const char *param; - int id; -} constcharparam; - -static constcharparam_head preproc_options; - -static int -do_preproc_only(void) -{ - yasm_linemap *linemap; - char *preproc_buf; - size_t got; - const char *base_filename; - FILE *out = NULL; - yasm_errwarns *errwarns = yasm_errwarns_create(); - - /* Initialize line map */ - linemap = yasm_linemap_create(); - yasm_linemap_set(linemap, in_filename, 0, 1, 1); - - /* Default output to stdout if not specified or generating dependency - makefiles */ - if (!obj_filename || generate_make_dependencies) { - out = stdout; - - /* determine the object filename if not specified, but we need a - file name for the makefile rule */ - if (generate_make_dependencies && !obj_filename) { - if (in_filename == NULL) - /* Default to yasm.out if no obj filename specified */ - obj_filename = yasm__xstrdup("yasm.out"); - else { - /* replace (or add) extension to base filename */ - yasm__splitpath(in_filename, &base_filename); - if (base_filename[0] == '\0') - obj_filename = yasm__xstrdup("yasm.out"); - else - obj_filename = replace_extension(base_filename, - cur_objfmt_module->extension, "yasm.out"); - } - } - } else { - /* Open output (object) file */ - out = open_file(obj_filename, "wt"); - if (!out) - return EXIT_FAILURE; - } - - /* Create preprocessor */ - cur_preproc = yasm_preproc_create(cur_preproc_module, in_filename, NULL, - linemap, errwarns); - - /* Apply macros */ - apply_preproc_builtins(); - apply_preproc_standard_macros(cur_parser_module->stdmacs); - apply_preproc_standard_macros(cur_objfmt_module->stdmacs); - apply_preproc_saved_options(); - - /* Pre-process until done */ - if (generate_make_dependencies) { - size_t totlen; - - preproc_buf = yasm_xmalloc(PREPROC_BUF_SIZE); - - fprintf(stdout, "%s: %s", obj_filename, in_filename); - totlen = strlen(obj_filename)+2+strlen(in_filename); - - while ((got = yasm_preproc_get_included_file(cur_preproc, preproc_buf, - PREPROC_BUF_SIZE)) != 0) { - totlen += got; - if (totlen > 72) { - fputs(" \\\n ", stdout); - totlen = 2; - } - fputc(' ', stdout); - fwrite(preproc_buf, got, 1, stdout); - } - fputc('\n', stdout); - yasm_xfree(preproc_buf); - } else { - while ((preproc_buf = yasm_preproc_get_line(cur_preproc)) != NULL) { - fputs(preproc_buf, out); - fputc('\n', out); - yasm_xfree(preproc_buf); - } - } - - if (out != stdout) - fclose(out); - - if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) { - yasm_errwarns_output_all(errwarns, linemap, warning_error, - print_yasm_error, print_yasm_warning); - if (out != stdout) - remove(obj_filename); - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - cleanup(NULL); - return EXIT_FAILURE; - } - - yasm_errwarns_output_all(errwarns, linemap, warning_error, - print_yasm_error, print_yasm_warning); - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - cleanup(NULL); - return EXIT_SUCCESS; -} - -static int -do_assemble(void) -{ - yasm_object *object; - const char *base_filename; - /*@null@*/ FILE *obj = NULL; - yasm_arch_create_error arch_error; - yasm_linemap *linemap; - yasm_errwarns *errwarns = yasm_errwarns_create(); - int i, matched; - const char *machine; - - /* Initialize line map */ - linemap = yasm_linemap_create(); - yasm_linemap_set(linemap, in_filename, 0, 1, 1); - - /* determine the object filename if not specified */ - if (!obj_filename) { - if (in_filename == NULL) - /* Default to yasm.out if no obj filename specified */ - obj_filename = yasm__xstrdup("yasm.out"); - else { - /* replace (or add) extension to base filename */ - yasm__splitpath(in_filename, &base_filename); - if (base_filename[0] == '\0') - obj_filename = yasm__xstrdup("yasm.out"); - else - obj_filename = replace_extension(base_filename, - cur_objfmt_module->extension, - "yasm.out"); - } - } - - /* Set up architecture using machine and parser. */ - if (!machine_name) { - /* If we're using x86 and the default objfmt bits is 64, default the - * machine to amd64. When we get more arches with multiple machines, - * we should do this in a more modular fashion. - */ - if (strcmp(cur_arch_module->keyword, "x86") == 0 && - cur_objfmt_module->default_x86_mode_bits == 64) - machine_name = yasm__xstrdup("amd64"); - else - machine_name = - yasm__xstrdup(cur_arch_module->default_machine_keyword); - } - - /* If we're using amd64 and the default objfmt is elfx32, change the - * machine to "x32". - */ - if (strcmp(machine_name, "amd64") == 0 && - strcmp(cur_objfmt_module->keyword, "elfx32") == 0) - machine = "x32"; - else - machine = machine_name; - - cur_arch = yasm_arch_create(cur_arch_module, machine, - cur_parser_module->keyword, &arch_error); - if (!cur_arch) { - switch (arch_error) { - case YASM_ARCH_CREATE_BAD_MACHINE: - print_error(_("%s: `%s' is not a valid %s for %s `%s'"), - _("FATAL"), machine_name, _("machine"), - _("architecture"), cur_arch_module->keyword); - break; - case YASM_ARCH_CREATE_BAD_PARSER: - print_error(_("%s: `%s' is not a valid %s for %s `%s'"), - _("FATAL"), cur_parser_module->keyword, - _("parser"), _("architecture"), - cur_arch_module->keyword); - break; - default: - print_error(_("%s: unknown architecture error"), _("FATAL")); - } - - return EXIT_FAILURE; - } - - /* Create object */ - object = yasm_object_create(in_filename, obj_filename, cur_arch, - cur_objfmt_module, cur_dbgfmt_module); - if (!object) { - yasm_error_class eclass; - unsigned long xrefline; - /*@only@*/ /*@null@*/ char *estr, *xrefstr; - - yasm_error_fetch(&eclass, &estr, &xrefline, &xrefstr); - print_error("%s: %s", _("FATAL"), estr); - yasm_xfree(estr); - yasm_xfree(xrefstr); - - cleanup(object); - return EXIT_FAILURE; - } - - /* Get a fresh copy of objfmt_module as it may have changed. */ - cur_objfmt_module = ((yasm_objfmt_base *)object->objfmt)->module; - - /* Check to see if the requested preprocessor is in the allowed list - * for the active parser. - */ - matched = 0; - for (i=0; cur_parser_module->preproc_keywords[i]; i++) - { - if (yasm__strcasecmp(cur_parser_module->preproc_keywords[i], - cur_preproc_module->keyword) == 0) { - matched = 1; - break; - } - } - - if (!matched) { - print_error(_("%s: `%s' is not a valid %s for %s `%s'"), _("FATAL"), - cur_preproc_module->keyword, _("preprocessor"), - _("parser"), cur_parser_module->keyword); - cleanup(object); - return EXIT_FAILURE; - } - - if (global_prefix) - yasm_object_set_global_prefix(object, global_prefix); - if (global_suffix) - yasm_object_set_global_suffix(object, global_suffix); - - cur_preproc = yasm_preproc_create(cur_preproc_module, in_filename, - object->symtab, linemap, errwarns); - - apply_preproc_builtins(); - apply_preproc_standard_macros(cur_parser_module->stdmacs); - apply_preproc_standard_macros(cur_objfmt_module->stdmacs); - apply_preproc_saved_options(); - - /* Get initial x86 BITS setting from object format */ - if (strcmp(cur_arch_module->keyword, "x86") == 0) { - yasm_arch_set_var(cur_arch, "mode_bits", - cur_objfmt_module->default_x86_mode_bits); - } - - yasm_arch_set_var(cur_arch, "force_strict", force_strict); - - /* Try to enable the map file via a map NASM directive. This is - * somewhat of a hack. - */ - if (map_filename) { - const yasm_directive *dir = &cur_objfmt_module->directives[0]; - matched = 0; - for (; dir && dir->name; dir++) { - if (yasm__strcasecmp(dir->name, "map") == 0 && - yasm__strcasecmp(dir->parser, "nasm") == 0) { - yasm_valparamhead vps; - yasm_valparam *vp; - matched = 1; - yasm_vps_initialize(&vps); - vp = yasm_vp_create_string(NULL, yasm__xstrdup(map_filename)); - yasm_vps_append(&vps, vp); - dir->handler(object, &vps, NULL, 0); - yasm_vps_delete(&vps); - } - } - if (!matched) { - print_error( - _("warning: object format `%s' does not support map files"), - cur_objfmt_module->keyword); - } - } - - /* Parse! */ - cur_parser_module->do_parse(object, cur_preproc, list_filename != NULL, - linemap, errwarns); - - check_errors(errwarns, object, linemap); - - /* Finalize parse */ - yasm_object_finalize(object, errwarns); - check_errors(errwarns, object, linemap); - - /* Optimize */ - yasm_object_optimize(object, errwarns); - check_errors(errwarns, object, linemap); - - /* generate any debugging information */ - yasm_dbgfmt_generate(object, linemap, errwarns); - check_errors(errwarns, object, linemap); - - /* open the object file for output (if not already opened by dbg objfmt) */ - if (!obj && strcmp(cur_objfmt_module->keyword, "dbg") != 0) { - obj = open_file(obj_filename, "wb"); - if (!obj) { - cleanup(object); - return EXIT_FAILURE; - } - } - - /* Write the object file */ - yasm_objfmt_output(object, obj?obj:stderr, - strcmp(cur_dbgfmt_module->keyword, "null"), errwarns); - - /* Close object file */ - if (obj) - fclose(obj); - - /* If we had an error at this point, we also need to delete the output - * object file (to make sure it's not left newer than the source). - */ - if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) - remove(obj_filename); - check_errors(errwarns, object, linemap); - - /* Open and write the list file */ - if (list_filename) { - FILE *list = open_file(list_filename, "wt"); - if (!list) { - cleanup(object); - return EXIT_FAILURE; - } - /* Initialize the list format */ - cur_listfmt = yasm_listfmt_create(cur_listfmt_module, in_filename, - obj_filename); - yasm_listfmt_output(cur_listfmt, list, linemap, cur_arch); - fclose(list); - } - - yasm_errwarns_output_all(errwarns, linemap, warning_error, - print_yasm_error, print_yasm_warning); - - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - cleanup(object); - return EXIT_SUCCESS; -} - -/* main function */ -/*@-globstate -unrecog@*/ -int -main(int argc, char *argv[]) -{ - size_t i; - - errfile = stderr; - -#if defined(HAVE_SETLOCALE) && defined(HAVE_LC_MESSAGES) - setlocale(LC_MESSAGES, ""); -#endif -#if defined(LOCALEDIR) - bindtextdomain(PACKAGE, LOCALEDIR); -#endif - textdomain(PACKAGE); - - /* Initialize errwarn handling */ - yasm_internal_error_ = handle_yasm_int_error; - yasm_fatal = handle_yasm_fatal; - yasm_gettext_hook = handle_yasm_gettext; - yasm_errwarn_initialize(); - - /* Initialize BitVector (needed for intnum/floatnum). */ - if (BitVector_Boot() != ErrCode_Ok) { - print_error(_("%s: could not initialize BitVector"), _("FATAL")); - return EXIT_FAILURE; - } - - /* Initialize intnum and floatnum */ - yasm_intnum_initialize(); - yasm_floatnum_initialize(); - -#ifdef CMAKE_BUILD - /* Load standard modules */ -#ifdef BUILD_SHARED_LIBS - if (!load_plugin("yasmstd")) { - print_error(_("%s: could not load standard modules"), _("FATAL")); - return EXIT_FAILURE; - } -#else - yasm_init_plugin(); -#endif -#endif - - /* Initialize parameter storage */ - STAILQ_INIT(&preproc_options); - - if (parse_cmdline(argc, argv, options, NELEMS(options), print_error)) - return EXIT_FAILURE; - - switch (special_options) { - case SPECIAL_SHOW_HELP: - /* Does gettext calls internally */ - help_msg(help_head, help_tail, options, NELEMS(options)); - return EXIT_SUCCESS; - case SPECIAL_SHOW_VERSION: - for (i=0; i<NELEMS(version_msg); i++) - printf("%s\n", version_msg[i]); - return EXIT_SUCCESS; - case SPECIAL_SHOW_LICENSE: - for (i=0; i<NELEMS(license_msg); i++) - printf("%s\n", license_msg[i]); - return EXIT_SUCCESS; - case SPECIAL_LISTED: - /* Printed out earlier */ - return EXIT_SUCCESS; - } - - /* Open error file if specified. */ - if (error_filename) { - errfile = open_file(error_filename, "wt"); - if (!errfile) - return EXIT_FAILURE; - } - +}; + +/* version message */ +/*@observer@*/ static const char *version_msg[] = { + PACKAGE_STRING, + "Compiled on " __DATE__ ".", + "Copyright (c) 2001-2014 Peter Johnson and other Yasm developers.", + "Run yasm --license for licensing overview and summary." +}; + +/* help messages */ +/*@observer@*/ static const char *help_head = N_( + "usage: yasm [option]* file\n" + "Options:\n"); +/*@observer@*/ static const char *help_tail = N_( + "\n" + "Files are asm sources to be assembled.\n" + "\n" + "Sample invocation:\n" + " yasm -f elf -o object.o source.asm\n" + "\n" + "Report bugs to bug-yasm@tortall.net\n"); + +/* parsed command line storage until appropriate modules have been loaded */ +typedef STAILQ_HEAD(constcharparam_head, constcharparam) constcharparam_head; + +typedef struct constcharparam { + STAILQ_ENTRY(constcharparam) link; + const char *param; + int id; +} constcharparam; + +static constcharparam_head preproc_options; + +static int +do_preproc_only(void) +{ + yasm_linemap *linemap; + char *preproc_buf; + size_t got; + const char *base_filename; + FILE *out = NULL; + yasm_errwarns *errwarns = yasm_errwarns_create(); + + /* Initialize line map */ + linemap = yasm_linemap_create(); + yasm_linemap_set(linemap, in_filename, 0, 1, 1); + + /* Default output to stdout if not specified or generating dependency + makefiles */ + if (!obj_filename || generate_make_dependencies) { + out = stdout; + + /* determine the object filename if not specified, but we need a + file name for the makefile rule */ + if (generate_make_dependencies && !obj_filename) { + if (in_filename == NULL) + /* Default to yasm.out if no obj filename specified */ + obj_filename = yasm__xstrdup("yasm.out"); + else { + /* replace (or add) extension to base filename */ + yasm__splitpath(in_filename, &base_filename); + if (base_filename[0] == '\0') + obj_filename = yasm__xstrdup("yasm.out"); + else + obj_filename = replace_extension(base_filename, + cur_objfmt_module->extension, "yasm.out"); + } + } + } else { + /* Open output (object) file */ + out = open_file(obj_filename, "wt"); + if (!out) + return EXIT_FAILURE; + } + + /* Create preprocessor */ + cur_preproc = yasm_preproc_create(cur_preproc_module, in_filename, NULL, + linemap, errwarns); + + /* Apply macros */ + apply_preproc_builtins(); + apply_preproc_standard_macros(cur_parser_module->stdmacs); + apply_preproc_standard_macros(cur_objfmt_module->stdmacs); + apply_preproc_saved_options(); + + /* Pre-process until done */ + if (generate_make_dependencies) { + size_t totlen; + + preproc_buf = yasm_xmalloc(PREPROC_BUF_SIZE); + + fprintf(stdout, "%s: %s", obj_filename, in_filename); + totlen = strlen(obj_filename)+2+strlen(in_filename); + + while ((got = yasm_preproc_get_included_file(cur_preproc, preproc_buf, + PREPROC_BUF_SIZE)) != 0) { + totlen += got; + if (totlen > 72) { + fputs(" \\\n ", stdout); + totlen = 2; + } + fputc(' ', stdout); + fwrite(preproc_buf, got, 1, stdout); + } + fputc('\n', stdout); + yasm_xfree(preproc_buf); + } else { + while ((preproc_buf = yasm_preproc_get_line(cur_preproc)) != NULL) { + fputs(preproc_buf, out); + fputc('\n', out); + yasm_xfree(preproc_buf); + } + } + + if (out != stdout) + fclose(out); + + if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) { + yasm_errwarns_output_all(errwarns, linemap, warning_error, + print_yasm_error, print_yasm_warning); + if (out != stdout) + remove(obj_filename); + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + cleanup(NULL); + return EXIT_FAILURE; + } + + yasm_errwarns_output_all(errwarns, linemap, warning_error, + print_yasm_error, print_yasm_warning); + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + cleanup(NULL); + return EXIT_SUCCESS; +} + +static int +do_assemble(void) +{ + yasm_object *object; + const char *base_filename; + /*@null@*/ FILE *obj = NULL; + yasm_arch_create_error arch_error; + yasm_linemap *linemap; + yasm_errwarns *errwarns = yasm_errwarns_create(); + int i, matched; + const char *machine; + + /* Initialize line map */ + linemap = yasm_linemap_create(); + yasm_linemap_set(linemap, in_filename, 0, 1, 1); + + /* determine the object filename if not specified */ + if (!obj_filename) { + if (in_filename == NULL) + /* Default to yasm.out if no obj filename specified */ + obj_filename = yasm__xstrdup("yasm.out"); + else { + /* replace (or add) extension to base filename */ + yasm__splitpath(in_filename, &base_filename); + if (base_filename[0] == '\0') + obj_filename = yasm__xstrdup("yasm.out"); + else + obj_filename = replace_extension(base_filename, + cur_objfmt_module->extension, + "yasm.out"); + } + } + + /* Set up architecture using machine and parser. */ + if (!machine_name) { + /* If we're using x86 and the default objfmt bits is 64, default the + * machine to amd64. When we get more arches with multiple machines, + * we should do this in a more modular fashion. + */ + if (strcmp(cur_arch_module->keyword, "x86") == 0 && + cur_objfmt_module->default_x86_mode_bits == 64) + machine_name = yasm__xstrdup("amd64"); + else + machine_name = + yasm__xstrdup(cur_arch_module->default_machine_keyword); + } + + /* If we're using amd64 and the default objfmt is elfx32, change the + * machine to "x32". + */ + if (strcmp(machine_name, "amd64") == 0 && + strcmp(cur_objfmt_module->keyword, "elfx32") == 0) + machine = "x32"; + else + machine = machine_name; + + cur_arch = yasm_arch_create(cur_arch_module, machine, + cur_parser_module->keyword, &arch_error); + if (!cur_arch) { + switch (arch_error) { + case YASM_ARCH_CREATE_BAD_MACHINE: + print_error(_("%s: `%s' is not a valid %s for %s `%s'"), + _("FATAL"), machine_name, _("machine"), + _("architecture"), cur_arch_module->keyword); + break; + case YASM_ARCH_CREATE_BAD_PARSER: + print_error(_("%s: `%s' is not a valid %s for %s `%s'"), + _("FATAL"), cur_parser_module->keyword, + _("parser"), _("architecture"), + cur_arch_module->keyword); + break; + default: + print_error(_("%s: unknown architecture error"), _("FATAL")); + } + + return EXIT_FAILURE; + } + + /* Create object */ + object = yasm_object_create(in_filename, obj_filename, cur_arch, + cur_objfmt_module, cur_dbgfmt_module); + if (!object) { + yasm_error_class eclass; + unsigned long xrefline; + /*@only@*/ /*@null@*/ char *estr, *xrefstr; + + yasm_error_fetch(&eclass, &estr, &xrefline, &xrefstr); + print_error("%s: %s", _("FATAL"), estr); + yasm_xfree(estr); + yasm_xfree(xrefstr); + + cleanup(object); + return EXIT_FAILURE; + } + + /* Get a fresh copy of objfmt_module as it may have changed. */ + cur_objfmt_module = ((yasm_objfmt_base *)object->objfmt)->module; + + /* Check to see if the requested preprocessor is in the allowed list + * for the active parser. + */ + matched = 0; + for (i=0; cur_parser_module->preproc_keywords[i]; i++) + { + if (yasm__strcasecmp(cur_parser_module->preproc_keywords[i], + cur_preproc_module->keyword) == 0) { + matched = 1; + break; + } + } + + if (!matched) { + print_error(_("%s: `%s' is not a valid %s for %s `%s'"), _("FATAL"), + cur_preproc_module->keyword, _("preprocessor"), + _("parser"), cur_parser_module->keyword); + cleanup(object); + return EXIT_FAILURE; + } + + if (global_prefix) + yasm_object_set_global_prefix(object, global_prefix); + if (global_suffix) + yasm_object_set_global_suffix(object, global_suffix); + + cur_preproc = yasm_preproc_create(cur_preproc_module, in_filename, + object->symtab, linemap, errwarns); + + apply_preproc_builtins(); + apply_preproc_standard_macros(cur_parser_module->stdmacs); + apply_preproc_standard_macros(cur_objfmt_module->stdmacs); + apply_preproc_saved_options(); + + /* Get initial x86 BITS setting from object format */ + if (strcmp(cur_arch_module->keyword, "x86") == 0) { + yasm_arch_set_var(cur_arch, "mode_bits", + cur_objfmt_module->default_x86_mode_bits); + } + + yasm_arch_set_var(cur_arch, "force_strict", force_strict); + + /* Try to enable the map file via a map NASM directive. This is + * somewhat of a hack. + */ + if (map_filename) { + const yasm_directive *dir = &cur_objfmt_module->directives[0]; + matched = 0; + for (; dir && dir->name; dir++) { + if (yasm__strcasecmp(dir->name, "map") == 0 && + yasm__strcasecmp(dir->parser, "nasm") == 0) { + yasm_valparamhead vps; + yasm_valparam *vp; + matched = 1; + yasm_vps_initialize(&vps); + vp = yasm_vp_create_string(NULL, yasm__xstrdup(map_filename)); + yasm_vps_append(&vps, vp); + dir->handler(object, &vps, NULL, 0); + yasm_vps_delete(&vps); + } + } + if (!matched) { + print_error( + _("warning: object format `%s' does not support map files"), + cur_objfmt_module->keyword); + } + } + + /* Parse! */ + cur_parser_module->do_parse(object, cur_preproc, list_filename != NULL, + linemap, errwarns); + + check_errors(errwarns, object, linemap); + + /* Finalize parse */ + yasm_object_finalize(object, errwarns); + check_errors(errwarns, object, linemap); + + /* Optimize */ + yasm_object_optimize(object, errwarns); + check_errors(errwarns, object, linemap); + + /* generate any debugging information */ + yasm_dbgfmt_generate(object, linemap, errwarns); + check_errors(errwarns, object, linemap); + + /* open the object file for output (if not already opened by dbg objfmt) */ + if (!obj && strcmp(cur_objfmt_module->keyword, "dbg") != 0) { + obj = open_file(obj_filename, "wb"); + if (!obj) { + cleanup(object); + return EXIT_FAILURE; + } + } + + /* Write the object file */ + yasm_objfmt_output(object, obj?obj:stderr, + strcmp(cur_dbgfmt_module->keyword, "null"), errwarns); + + /* Close object file */ + if (obj) + fclose(obj); + + /* If we had an error at this point, we also need to delete the output + * object file (to make sure it's not left newer than the source). + */ + if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) + remove(obj_filename); + check_errors(errwarns, object, linemap); + + /* Open and write the list file */ + if (list_filename) { + FILE *list = open_file(list_filename, "wt"); + if (!list) { + cleanup(object); + return EXIT_FAILURE; + } + /* Initialize the list format */ + cur_listfmt = yasm_listfmt_create(cur_listfmt_module, in_filename, + obj_filename); + yasm_listfmt_output(cur_listfmt, list, linemap, cur_arch); + fclose(list); + } + + yasm_errwarns_output_all(errwarns, linemap, warning_error, + print_yasm_error, print_yasm_warning); + + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + cleanup(object); + return EXIT_SUCCESS; +} + +/* main function */ +/*@-globstate -unrecog@*/ +int +main(int argc, char *argv[]) +{ + size_t i; + + errfile = stderr; + +#if defined(HAVE_SETLOCALE) && defined(HAVE_LC_MESSAGES) + setlocale(LC_MESSAGES, ""); +#endif +#if defined(LOCALEDIR) + bindtextdomain(PACKAGE, LOCALEDIR); +#endif + textdomain(PACKAGE); + + /* Initialize errwarn handling */ + yasm_internal_error_ = handle_yasm_int_error; + yasm_fatal = handle_yasm_fatal; + yasm_gettext_hook = handle_yasm_gettext; + yasm_errwarn_initialize(); + + /* Initialize BitVector (needed for intnum/floatnum). */ + if (BitVector_Boot() != ErrCode_Ok) { + print_error(_("%s: could not initialize BitVector"), _("FATAL")); + return EXIT_FAILURE; + } + + /* Initialize intnum and floatnum */ + yasm_intnum_initialize(); + yasm_floatnum_initialize(); + +#ifdef CMAKE_BUILD + /* Load standard modules */ +#ifdef BUILD_SHARED_LIBS + if (!load_plugin("yasmstd")) { + print_error(_("%s: could not load standard modules"), _("FATAL")); + return EXIT_FAILURE; + } +#else + yasm_init_plugin(); +#endif +#endif + + /* Initialize parameter storage */ + STAILQ_INIT(&preproc_options); + + if (parse_cmdline(argc, argv, options, NELEMS(options), print_error)) + return EXIT_FAILURE; + + switch (special_options) { + case SPECIAL_SHOW_HELP: + /* Does gettext calls internally */ + help_msg(help_head, help_tail, options, NELEMS(options)); + return EXIT_SUCCESS; + case SPECIAL_SHOW_VERSION: + for (i=0; i<NELEMS(version_msg); i++) + printf("%s\n", version_msg[i]); + return EXIT_SUCCESS; + case SPECIAL_SHOW_LICENSE: + for (i=0; i<NELEMS(license_msg); i++) + printf("%s\n", license_msg[i]); + return EXIT_SUCCESS; + case SPECIAL_LISTED: + /* Printed out earlier */ + return EXIT_SUCCESS; + } + + /* Open error file if specified. */ + if (error_filename) { + errfile = open_file(error_filename, "wt"); + if (!errfile) + return EXIT_FAILURE; + } + #if defined(CMAKE_BUILD) && !defined(BUILD_SHARED_LIBS) yasm_plugin_set_replace(replace_params, replace_size); #endif - /* If not already specified, default to bin as the object format. */ - if (!cur_objfmt_module) { - if (!objfmt_keyword) - objfmt_keyword = yasm__xstrdup("bin"); - cur_objfmt_module = yasm_load_objfmt(objfmt_keyword); - if (!cur_objfmt_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("object format")); - return EXIT_FAILURE; - } - } - - /* Default to x86 as the architecture */ - if (!cur_arch_module) { - cur_arch_module = yasm_load_arch("x86"); - if (!cur_arch_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("architecture")); - return EXIT_FAILURE; - } - } - - /* Check for arch help */ - if (machine_name && strcmp(machine_name, "help") == 0) { - const yasm_arch_machine *m = cur_arch_module->machines; - printf(_("Available %s for %s `%s':\n"), _("machines"), - _("architecture"), cur_arch_module->keyword); - while (m->keyword && m->name) { - print_list_keyword_desc(m->name, m->keyword); - m++; - } - return EXIT_SUCCESS; - } - - /* Default to NASM as the parser */ - if (!cur_parser_module) { - cur_parser_module = yasm_load_parser("nasm"); - if (!cur_parser_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("parser")); - cleanup(NULL); - return EXIT_FAILURE; - } - } - - /* If not already specified, default to the parser's default preproc. */ - if (!cur_preproc_module) { - cur_preproc_module = - yasm_load_preproc(cur_parser_module->default_preproc_keyword); - if (!cur_preproc_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("preprocessor")); - cleanup(NULL); - return EXIT_FAILURE; - } - } - - /* Determine input filename and open input file. */ - if (!in_filename) { - print_error(_("No input files specified")); - return EXIT_FAILURE; - } - - /* handle preproc-only case here */ - if (preproc_only) - return do_preproc_only(); - - /* If list file enabled, make sure we have a list format loaded. */ - if (list_filename) { - /* If not already specified, default to nasm as the list format. */ - if (!cur_listfmt_module) { - cur_listfmt_module = yasm_load_listfmt("nasm"); - if (!cur_listfmt_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("list format")); - return EXIT_FAILURE; - } - } - } - - /* If not already specified, default to null as the debug format. */ - if (!cur_dbgfmt_module) { - cur_dbgfmt_module = yasm_load_dbgfmt("null"); - if (!cur_dbgfmt_module) { - print_error(_("%s: could not load default %s"), _("FATAL"), - _("debug format")); - return EXIT_FAILURE; - } - } - - return do_assemble(); -} -/*@=globstate =unrecog@*/ - -/* Open the object file. Returns 0 on failure. */ -static FILE * -open_file(const char *filename, const char *mode) -{ - FILE *f; - - f = fopen(filename, mode); - if (!f) - print_error(_("could not open file `%s'"), filename); - return f; -} - -static void -check_errors(yasm_errwarns *errwarns, yasm_object *object, - yasm_linemap *linemap) -{ - if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) { - yasm_errwarns_output_all(errwarns, linemap, warning_error, - print_yasm_error, print_yasm_warning); - yasm_linemap_destroy(linemap); - yasm_errwarns_destroy(errwarns); - cleanup(object); - exit(EXIT_FAILURE); - } -} - -/* Define DO_FREE to 1 to enable deallocation of all data structures. - * Useful for detecting memory leaks, but slows down execution unnecessarily - * (as the OS will free everything we miss here). - */ -#define DO_FREE 1 - -/* Cleans up all allocated structures. */ -static void -cleanup(yasm_object *object) -{ - if (DO_FREE) { - if (cur_listfmt) - yasm_listfmt_destroy(cur_listfmt); - if (cur_preproc) - yasm_preproc_destroy(cur_preproc); - if (object) - yasm_object_destroy(object); - - yasm_floatnum_cleanup(); - yasm_intnum_cleanup(); - - yasm_errwarn_cleanup(); - - BitVector_Shutdown(); - } - - if (DO_FREE) { - if (in_filename) - yasm_xfree(in_filename); - if (obj_filename) - yasm_xfree(obj_filename); - if (list_filename) - yasm_xfree(list_filename); - if (map_filename) - yasm_xfree(map_filename); - if (machine_name) - yasm_xfree(machine_name); - if (objfmt_keyword) - yasm_xfree(objfmt_keyword); - } - - if (errfile != stderr && errfile != stdout) - fclose(errfile); -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) - unload_plugins(); -#endif -} - -/* - * Command line options handlers - */ -int -not_an_option_handler(char *param) -{ - if (in_filename) { - print_error( - _("warning: can open only one input file, only the last file will be processed")); - yasm_xfree(in_filename); - } - - in_filename = yasm__xstrdup(param); - - return 0; -} - -int -other_option_handler(char *option) -{ - /* Accept, but ignore, -O and -Onnn, for compatibility with NASM. */ - if (option[0] == '-' && option[1] == 'O') { - int n = 2; - for (;;) { - if (option[n] == '\0') - return 0; - if (!isdigit(option[n])) - return 1; - n++; - } - } - return 1; -} - -static int -opt_special_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) -{ - if (special_options == 0) - special_options = extra; - return 0; -} - -static int -opt_arch_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_arch_module = yasm_load_arch(param); - if (!cur_arch_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("architectures")); - yasm_list_arch(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("architecture"), param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_parser_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_parser_module = yasm_load_parser(param); - if (!cur_parser_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("parsers")); - yasm_list_parser(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), _("parser"), - param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_preproc_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_preproc_module = yasm_load_preproc(param); - if (!cur_preproc_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("preprocessors")); - yasm_list_preproc(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("preprocessor"), param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_objfmt_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - size_t i; - assert(param != NULL); - cur_objfmt_module = yasm_load_objfmt(param); - if (!cur_objfmt_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("object formats")); - yasm_list_objfmt(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("object format"), param); - exit(EXIT_FAILURE); - } - if (objfmt_keyword) - yasm_xfree(objfmt_keyword); - objfmt_keyword = yasm__xstrdup(param); - for (i=0; i<strlen(objfmt_keyword); i++) - objfmt_keyword[i] = tolower(objfmt_keyword[i]); - return 0; -} - -static int -opt_dbgfmt_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_dbgfmt_module = yasm_load_dbgfmt(param); - if (!cur_dbgfmt_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("debug formats")); - yasm_list_dbgfmt(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("debug format"), param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_listfmt_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - assert(param != NULL); - cur_listfmt_module = yasm_load_listfmt(param); - if (!cur_listfmt_module) { - if (!strcmp("help", param)) { - printf(_("Available yasm %s:\n"), _("list formats")); - yasm_list_listfmt(print_list_keyword_desc); - special_options = SPECIAL_LISTED; - return 0; - } - print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), - _("list format"), param); - exit(EXIT_FAILURE); - } - return 0; -} - -static int -opt_listfile_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (list_filename) { - print_error( - _("warning: can output to only one list file, last specified used")); - yasm_xfree(list_filename); - } - - assert(param != NULL); - list_filename = yasm__xstrdup(param); - - return 0; -} - -static int -opt_objfile_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (obj_filename) { - print_error( - _("warning: can output to only one object file, last specified used")); - yasm_xfree(obj_filename); - } - - assert(param != NULL); - obj_filename = yasm__xstrdup(param); - - return 0; -} - -static int -opt_mapfile_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (map_filename) { - print_error( - _("warning: can output to only one map file, last specified used")); - yasm_xfree(map_filename); - } - - assert(param != NULL); - map_filename = yasm__xstrdup(param); - - return 0; -} - -static int -opt_machine_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (machine_name) - yasm_xfree(machine_name); - - assert(param != NULL); - machine_name = yasm__xstrdup(param); - - return 0; -} - -static int -opt_strict_handler(/*@unused@*/ char *cmd, - /*@unused@*/ /*@null@*/ char *param, - /*@unused@*/ int extra) -{ - force_strict = 1; - return 0; -} - -static int -opt_warning_handler(char *cmd, /*@unused@*/ char *param, int extra) -{ - /* is it disabling the warning instead of enabling? */ - void (*action)(yasm_warn_class wclass) = yasm_warn_enable; - - if (extra == 1) { - /* -w, disable warnings */ - yasm_warn_disable_all(); - return 0; - } - - /* skip past 'W' */ - cmd++; - - /* detect no- prefix to disable the warning */ - if (cmd[0] == 'n' && cmd[1] == 'o' && cmd[2] == '-') { - action = yasm_warn_disable; - cmd += 3; /* skip past it to get to the warning name */ - } - - if (cmd[0] == '\0') - /* just -W or -Wno-, so definitely not valid */ - return 1; - else if (strcmp(cmd, "error") == 0) - warning_error = (action == yasm_warn_enable); - else if (strcmp(cmd, "unrecognized-char") == 0) - action(YASM_WARN_UNREC_CHAR); - else if (strcmp(cmd, "orphan-labels") == 0) - action(YASM_WARN_ORPHAN_LABEL); - else if (strcmp(cmd, "uninit-contents") == 0) - action(YASM_WARN_UNINIT_CONTENTS); - else if (strcmp(cmd, "size-override") == 0) - action(YASM_WARN_SIZE_OVERRIDE); - else - return 1; - - return 0; -} - -static int -opt_error_file(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - if (error_filename) { - print_error( - _("warning: can output to only one error file, last specified used")); - yasm_xfree(error_filename); - } - - assert(param != NULL); - error_filename = yasm__xstrdup(param); - - return 0; -} - -static int -opt_error_stdout(/*@unused@*/ char *cmd, /*@unused@*/ char *param, - /*@unused@*/ int extra) -{ - /* Clear any specified error filename */ - if (error_filename) { - yasm_xfree(error_filename); - error_filename = NULL; - } - errfile = stdout; - return 0; -} - -static int -preproc_only_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, - /*@unused@*/ int extra) -{ - preproc_only = 1; - return 0; -} - -static int -opt_include_option(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - yasm_add_include_path(param); - return 0; -} - -static int -opt_preproc_option(/*@unused@*/ char *cmd, char *param, int extra) -{ - constcharparam *cp; - cp = yasm_xmalloc(sizeof(constcharparam)); - cp->param = param; - cp->id = extra; - STAILQ_INSERT_TAIL(&preproc_options, cp, link); - return 0; -} - -static int -opt_ewmsg_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - if (yasm__strcasecmp(param, "gnu") == 0 || - yasm__strcasecmp(param, "gcc") == 0) { - ewmsg_style = EWSTYLE_GNU; - } else if (yasm__strcasecmp(param, "vc") == 0) { - ewmsg_style = EWSTYLE_VC; - } else - print_error(_("warning: unrecognized message style `%s'"), param); - - return 0; -} - -static int -opt_makedep_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, - /*@unused@*/ int extra) -{ - /* Also set preproc_only to 1, we don't want to generate code */ - preproc_only = 1; - generate_make_dependencies = 1; - - return 0; -} - -static int -opt_prefix_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - if (global_prefix) - yasm_xfree(global_prefix); - - assert(param != NULL); - global_prefix = yasm__xstrdup(param); - - return 0; -} - + /* If not already specified, default to bin as the object format. */ + if (!cur_objfmt_module) { + if (!objfmt_keyword) + objfmt_keyword = yasm__xstrdup("bin"); + cur_objfmt_module = yasm_load_objfmt(objfmt_keyword); + if (!cur_objfmt_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("object format")); + return EXIT_FAILURE; + } + } + + /* Default to x86 as the architecture */ + if (!cur_arch_module) { + cur_arch_module = yasm_load_arch("x86"); + if (!cur_arch_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("architecture")); + return EXIT_FAILURE; + } + } + + /* Check for arch help */ + if (machine_name && strcmp(machine_name, "help") == 0) { + const yasm_arch_machine *m = cur_arch_module->machines; + printf(_("Available %s for %s `%s':\n"), _("machines"), + _("architecture"), cur_arch_module->keyword); + while (m->keyword && m->name) { + print_list_keyword_desc(m->name, m->keyword); + m++; + } + return EXIT_SUCCESS; + } + + /* Default to NASM as the parser */ + if (!cur_parser_module) { + cur_parser_module = yasm_load_parser("nasm"); + if (!cur_parser_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("parser")); + cleanup(NULL); + return EXIT_FAILURE; + } + } + + /* If not already specified, default to the parser's default preproc. */ + if (!cur_preproc_module) { + cur_preproc_module = + yasm_load_preproc(cur_parser_module->default_preproc_keyword); + if (!cur_preproc_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("preprocessor")); + cleanup(NULL); + return EXIT_FAILURE; + } + } + + /* Determine input filename and open input file. */ + if (!in_filename) { + print_error(_("No input files specified")); + return EXIT_FAILURE; + } + + /* handle preproc-only case here */ + if (preproc_only) + return do_preproc_only(); + + /* If list file enabled, make sure we have a list format loaded. */ + if (list_filename) { + /* If not already specified, default to nasm as the list format. */ + if (!cur_listfmt_module) { + cur_listfmt_module = yasm_load_listfmt("nasm"); + if (!cur_listfmt_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("list format")); + return EXIT_FAILURE; + } + } + } + + /* If not already specified, default to null as the debug format. */ + if (!cur_dbgfmt_module) { + cur_dbgfmt_module = yasm_load_dbgfmt("null"); + if (!cur_dbgfmt_module) { + print_error(_("%s: could not load default %s"), _("FATAL"), + _("debug format")); + return EXIT_FAILURE; + } + } + + return do_assemble(); +} +/*@=globstate =unrecog@*/ + +/* Open the object file. Returns 0 on failure. */ +static FILE * +open_file(const char *filename, const char *mode) +{ + FILE *f; + + f = fopen(filename, mode); + if (!f) + print_error(_("could not open file `%s'"), filename); + return f; +} + +static void +check_errors(yasm_errwarns *errwarns, yasm_object *object, + yasm_linemap *linemap) +{ + if (yasm_errwarns_num_errors(errwarns, warning_error) > 0) { + yasm_errwarns_output_all(errwarns, linemap, warning_error, + print_yasm_error, print_yasm_warning); + yasm_linemap_destroy(linemap); + yasm_errwarns_destroy(errwarns); + cleanup(object); + exit(EXIT_FAILURE); + } +} + +/* Define DO_FREE to 1 to enable deallocation of all data structures. + * Useful for detecting memory leaks, but slows down execution unnecessarily + * (as the OS will free everything we miss here). + */ +#define DO_FREE 1 + +/* Cleans up all allocated structures. */ +static void +cleanup(yasm_object *object) +{ + if (DO_FREE) { + if (cur_listfmt) + yasm_listfmt_destroy(cur_listfmt); + if (cur_preproc) + yasm_preproc_destroy(cur_preproc); + if (object) + yasm_object_destroy(object); + + yasm_floatnum_cleanup(); + yasm_intnum_cleanup(); + + yasm_errwarn_cleanup(); + + BitVector_Shutdown(); + } + + if (DO_FREE) { + if (in_filename) + yasm_xfree(in_filename); + if (obj_filename) + yasm_xfree(obj_filename); + if (list_filename) + yasm_xfree(list_filename); + if (map_filename) + yasm_xfree(map_filename); + if (machine_name) + yasm_xfree(machine_name); + if (objfmt_keyword) + yasm_xfree(objfmt_keyword); + } + + if (errfile != stderr && errfile != stdout) + fclose(errfile); +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) + unload_plugins(); +#endif +} + +/* + * Command line options handlers + */ +int +not_an_option_handler(char *param) +{ + if (in_filename) { + print_error( + _("warning: can open only one input file, only the last file will be processed")); + yasm_xfree(in_filename); + } + + in_filename = yasm__xstrdup(param); + + return 0; +} + +int +other_option_handler(char *option) +{ + /* Accept, but ignore, -O and -Onnn, for compatibility with NASM. */ + if (option[0] == '-' && option[1] == 'O') { + int n = 2; + for (;;) { + if (option[n] == '\0') + return 0; + if (!isdigit(option[n])) + return 1; + n++; + } + } + return 1; +} + +static int +opt_special_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, int extra) +{ + if (special_options == 0) + special_options = extra; + return 0; +} + +static int +opt_arch_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_arch_module = yasm_load_arch(param); + if (!cur_arch_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("architectures")); + yasm_list_arch(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("architecture"), param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_parser_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_parser_module = yasm_load_parser(param); + if (!cur_parser_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("parsers")); + yasm_list_parser(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), _("parser"), + param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_preproc_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_preproc_module = yasm_load_preproc(param); + if (!cur_preproc_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("preprocessors")); + yasm_list_preproc(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("preprocessor"), param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_objfmt_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + size_t i; + assert(param != NULL); + cur_objfmt_module = yasm_load_objfmt(param); + if (!cur_objfmt_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("object formats")); + yasm_list_objfmt(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("object format"), param); + exit(EXIT_FAILURE); + } + if (objfmt_keyword) + yasm_xfree(objfmt_keyword); + objfmt_keyword = yasm__xstrdup(param); + for (i=0; i<strlen(objfmt_keyword); i++) + objfmt_keyword[i] = tolower(objfmt_keyword[i]); + return 0; +} + +static int +opt_dbgfmt_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_dbgfmt_module = yasm_load_dbgfmt(param); + if (!cur_dbgfmt_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("debug formats")); + yasm_list_dbgfmt(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("debug format"), param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_listfmt_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + assert(param != NULL); + cur_listfmt_module = yasm_load_listfmt(param); + if (!cur_listfmt_module) { + if (!strcmp("help", param)) { + printf(_("Available yasm %s:\n"), _("list formats")); + yasm_list_listfmt(print_list_keyword_desc); + special_options = SPECIAL_LISTED; + return 0; + } + print_error(_("%s: unrecognized %s `%s'"), _("FATAL"), + _("list format"), param); + exit(EXIT_FAILURE); + } + return 0; +} + +static int +opt_listfile_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (list_filename) { + print_error( + _("warning: can output to only one list file, last specified used")); + yasm_xfree(list_filename); + } + + assert(param != NULL); + list_filename = yasm__xstrdup(param); + + return 0; +} + +static int +opt_objfile_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (obj_filename) { + print_error( + _("warning: can output to only one object file, last specified used")); + yasm_xfree(obj_filename); + } + + assert(param != NULL); + obj_filename = yasm__xstrdup(param); + + return 0; +} + +static int +opt_mapfile_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (map_filename) { + print_error( + _("warning: can output to only one map file, last specified used")); + yasm_xfree(map_filename); + } + + assert(param != NULL); + map_filename = yasm__xstrdup(param); + + return 0; +} + +static int +opt_machine_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (machine_name) + yasm_xfree(machine_name); + + assert(param != NULL); + machine_name = yasm__xstrdup(param); + + return 0; +} + +static int +opt_strict_handler(/*@unused@*/ char *cmd, + /*@unused@*/ /*@null@*/ char *param, + /*@unused@*/ int extra) +{ + force_strict = 1; + return 0; +} + +static int +opt_warning_handler(char *cmd, /*@unused@*/ char *param, int extra) +{ + /* is it disabling the warning instead of enabling? */ + void (*action)(yasm_warn_class wclass) = yasm_warn_enable; + + if (extra == 1) { + /* -w, disable warnings */ + yasm_warn_disable_all(); + return 0; + } + + /* skip past 'W' */ + cmd++; + + /* detect no- prefix to disable the warning */ + if (cmd[0] == 'n' && cmd[1] == 'o' && cmd[2] == '-') { + action = yasm_warn_disable; + cmd += 3; /* skip past it to get to the warning name */ + } + + if (cmd[0] == '\0') + /* just -W or -Wno-, so definitely not valid */ + return 1; + else if (strcmp(cmd, "error") == 0) + warning_error = (action == yasm_warn_enable); + else if (strcmp(cmd, "unrecognized-char") == 0) + action(YASM_WARN_UNREC_CHAR); + else if (strcmp(cmd, "orphan-labels") == 0) + action(YASM_WARN_ORPHAN_LABEL); + else if (strcmp(cmd, "uninit-contents") == 0) + action(YASM_WARN_UNINIT_CONTENTS); + else if (strcmp(cmd, "size-override") == 0) + action(YASM_WARN_SIZE_OVERRIDE); + else + return 1; + + return 0; +} + +static int +opt_error_file(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + if (error_filename) { + print_error( + _("warning: can output to only one error file, last specified used")); + yasm_xfree(error_filename); + } + + assert(param != NULL); + error_filename = yasm__xstrdup(param); + + return 0; +} + +static int +opt_error_stdout(/*@unused@*/ char *cmd, /*@unused@*/ char *param, + /*@unused@*/ int extra) +{ + /* Clear any specified error filename */ + if (error_filename) { + yasm_xfree(error_filename); + error_filename = NULL; + } + errfile = stdout; + return 0; +} + +static int +preproc_only_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, + /*@unused@*/ int extra) +{ + preproc_only = 1; + return 0; +} + +static int +opt_include_option(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + yasm_add_include_path(param); + return 0; +} + +static int +opt_preproc_option(/*@unused@*/ char *cmd, char *param, int extra) +{ + constcharparam *cp; + cp = yasm_xmalloc(sizeof(constcharparam)); + cp->param = param; + cp->id = extra; + STAILQ_INSERT_TAIL(&preproc_options, cp, link); + return 0; +} + +static int +opt_ewmsg_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + if (yasm__strcasecmp(param, "gnu") == 0 || + yasm__strcasecmp(param, "gcc") == 0) { + ewmsg_style = EWSTYLE_GNU; + } else if (yasm__strcasecmp(param, "vc") == 0) { + ewmsg_style = EWSTYLE_VC; + } else + print_error(_("warning: unrecognized message style `%s'"), param); + + return 0; +} + +static int +opt_makedep_handler(/*@unused@*/ char *cmd, /*@unused@*/ char *param, + /*@unused@*/ int extra) +{ + /* Also set preproc_only to 1, we don't want to generate code */ + preproc_only = 1; + generate_make_dependencies = 1; + + return 0; +} + +static int +opt_prefix_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + if (global_prefix) + yasm_xfree(global_prefix); + + assert(param != NULL); + global_prefix = yasm__xstrdup(param); + + return 0; +} + static void opt_free_replace(void) { @@ -1207,7 +1207,7 @@ opt_free_replace(void) replace_size = 0; } -static int +static int opt_replace_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) { if (replace_capacity == 0) { @@ -1226,229 +1226,229 @@ opt_replace_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) } static int -opt_suffix_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) -{ - if (global_suffix) - yasm_xfree(global_suffix); - - assert(param != NULL); - global_suffix = yasm__xstrdup(param); - - return 0; -} - -#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) -static int -opt_plugin_handler(/*@unused@*/ char *cmd, char *param, - /*@unused@*/ int extra) -{ - if (!load_plugin(param)) - print_error(_("warning: could not load plugin `%s'"), param); - return 0; -} -#endif - -static void -apply_preproc_builtins() -{ - char *predef; - - /* Define standard YASM assembly-time macro constants */ - predef = yasm_xmalloc(strlen("__YASM_OBJFMT__=") - + strlen(objfmt_keyword) + 1); - strcpy(predef, "__YASM_OBJFMT__="); - strcat(predef, objfmt_keyword); - yasm_preproc_define_builtin(cur_preproc, predef); - yasm_xfree(predef); -} - -static void -apply_preproc_standard_macros(const yasm_stdmac *stdmacs) -{ - int i, matched; - - if (!stdmacs) - return; - - matched = -1; - for (i=0; stdmacs[i].parser; i++) - if (yasm__strcasecmp(stdmacs[i].parser, - cur_parser_module->keyword) == 0 && - yasm__strcasecmp(stdmacs[i].preproc, - cur_preproc_module->keyword) == 0) - matched = i; - if (matched >= 0 && stdmacs[matched].macros) - yasm_preproc_add_standard(cur_preproc, stdmacs[matched].macros); -} - -static void -apply_preproc_saved_options() -{ - constcharparam *cp, *cpnext; - - void (*funcs[3])(yasm_preproc *, const char *); - funcs[0] = cur_preproc_module->add_include_file; - funcs[1] = cur_preproc_module->predefine_macro; - funcs[2] = cur_preproc_module->undefine_macro; - - STAILQ_FOREACH(cp, &preproc_options, link) { - if (0 <= cp->id && cp->id < 3 && funcs[cp->id]) - funcs[cp->id](cur_preproc, cp->param); - } - - cp = STAILQ_FIRST(&preproc_options); - while (cp != NULL) { - cpnext = STAILQ_NEXT(cp, link); - yasm_xfree(cp); - cp = cpnext; - } - STAILQ_INIT(&preproc_options); -} - -/* Replace extension on a filename (or append one if none is present). - * If output filename would be identical to input (same extension out as in), - * returns (copy of) def. - * A NULL ext means the trailing '.' should NOT be included, whereas a "" ext - * means the trailing '.' should be included. - */ -static char * -replace_extension(const char *orig, /*@null@*/ const char *ext, - const char *def) -{ - char *out, *outext; - size_t deflen, outlen; - - /* allocate enough space for full existing name + extension */ - outlen = strlen(orig) + 2; - if (ext) - outlen += strlen(ext) + 1; - deflen = strlen(def) + 1; - if (outlen < deflen) - outlen = deflen; - out = yasm_xmalloc(outlen); - - strcpy(out, orig); - outext = strrchr(out, '.'); - if (outext) { - /* Existing extension: make sure it's not the same as the replacement - * (as we don't want to overwrite the source file). - */ - outext++; /* advance past '.' */ - if (ext && strcmp(outext, ext) == 0) { - outext = NULL; /* indicate default should be used */ - print_error( - _("file name already ends in `.%s': output will be in `%s'"), - ext, def); - } - } else { - /* No extension: make sure the output extension is not empty - * (again, we don't want to overwrite the source file). - */ - if (!ext) - print_error( - _("file name already has no extension: output will be in `%s'"), - def); - else { - outext = strrchr(out, '\0'); /* point to end of the string */ - *outext++ = '.'; /* append '.' */ - } - } - - /* replace extension or use default name */ - if (outext) { - if (!ext) { - /* Back up and replace '.' with string terminator */ - outext--; - *outext = '\0'; - } else - strcpy(outext, ext); - } else - strcpy(out, def); - - return out; -} - -void -print_list_keyword_desc(const char *name, const char *keyword) -{ - printf("%4s%-12s%s\n", "", keyword, name); -} - -static void -print_error(const char *fmt, ...) -{ - va_list va; - fprintf(errfile, "yasm: "); - va_start(va, fmt); - vfprintf(errfile, fmt, va); - va_end(va); - fputc('\n', errfile); -} - -static /*@exits@*/ void -handle_yasm_int_error(const char *file, unsigned int line, const char *message) -{ - fprintf(stderr, _("INTERNAL ERROR at %s, line %u: %s\n"), file, line, - gettext(message)); -#ifdef HAVE_ABORT - abort(); -#else - exit(EXIT_FAILURE); -#endif -} - -static /*@exits@*/ void -handle_yasm_fatal(const char *fmt, va_list va) -{ - fprintf(errfile, "yasm: %s: ", _("FATAL")); - vfprintf(errfile, gettext(fmt), va); - fputc('\n', errfile); - exit(EXIT_FAILURE); -} - -static const char * -handle_yasm_gettext(const char *msgid) -{ - return gettext(msgid); -} - -static const char *fmt[2] = { - "%s:%lu: %s%s\n", /* GNU */ - "%s(%lu) : %s%s\n" /* VC */ -}; - -static const char *fmt_noline[2] = { - "%s: %s%s\n", /* GNU */ - "%s : %s%s\n" /* VC */ -}; - -static void -print_yasm_error(const char *filename, unsigned long line, const char *msg, - const char *xref_fn, unsigned long xref_line, - const char *xref_msg) -{ - if (line) - fprintf(errfile, fmt[ewmsg_style], filename, line, _("error: "), msg); - else - fprintf(errfile, fmt_noline[ewmsg_style], filename, _("error: "), msg); - - if (xref_fn && xref_msg) { - if (xref_line) - fprintf(errfile, fmt[ewmsg_style], xref_fn, xref_line, _("error: "), - xref_msg); - else - fprintf(errfile, fmt_noline[ewmsg_style], xref_fn, _("error: "), - xref_msg); - } -} - -static void -print_yasm_warning(const char *filename, unsigned long line, const char *msg) -{ - if (line) - fprintf(errfile, fmt[ewmsg_style], filename, line, _("warning: "), - msg); - else - fprintf(errfile, fmt_noline[ewmsg_style], filename, _("warning: "), - msg); -} +opt_suffix_handler(/*@unused@*/ char *cmd, char *param, /*@unused@*/ int extra) +{ + if (global_suffix) + yasm_xfree(global_suffix); + + assert(param != NULL); + global_suffix = yasm__xstrdup(param); + + return 0; +} + +#if defined(CMAKE_BUILD) && defined(BUILD_SHARED_LIBS) +static int +opt_plugin_handler(/*@unused@*/ char *cmd, char *param, + /*@unused@*/ int extra) +{ + if (!load_plugin(param)) + print_error(_("warning: could not load plugin `%s'"), param); + return 0; +} +#endif + +static void +apply_preproc_builtins() +{ + char *predef; + + /* Define standard YASM assembly-time macro constants */ + predef = yasm_xmalloc(strlen("__YASM_OBJFMT__=") + + strlen(objfmt_keyword) + 1); + strcpy(predef, "__YASM_OBJFMT__="); + strcat(predef, objfmt_keyword); + yasm_preproc_define_builtin(cur_preproc, predef); + yasm_xfree(predef); +} + +static void +apply_preproc_standard_macros(const yasm_stdmac *stdmacs) +{ + int i, matched; + + if (!stdmacs) + return; + + matched = -1; + for (i=0; stdmacs[i].parser; i++) + if (yasm__strcasecmp(stdmacs[i].parser, + cur_parser_module->keyword) == 0 && + yasm__strcasecmp(stdmacs[i].preproc, + cur_preproc_module->keyword) == 0) + matched = i; + if (matched >= 0 && stdmacs[matched].macros) + yasm_preproc_add_standard(cur_preproc, stdmacs[matched].macros); +} + +static void +apply_preproc_saved_options() +{ + constcharparam *cp, *cpnext; + + void (*funcs[3])(yasm_preproc *, const char *); + funcs[0] = cur_preproc_module->add_include_file; + funcs[1] = cur_preproc_module->predefine_macro; + funcs[2] = cur_preproc_module->undefine_macro; + + STAILQ_FOREACH(cp, &preproc_options, link) { + if (0 <= cp->id && cp->id < 3 && funcs[cp->id]) + funcs[cp->id](cur_preproc, cp->param); + } + + cp = STAILQ_FIRST(&preproc_options); + while (cp != NULL) { + cpnext = STAILQ_NEXT(cp, link); + yasm_xfree(cp); + cp = cpnext; + } + STAILQ_INIT(&preproc_options); +} + +/* Replace extension on a filename (or append one if none is present). + * If output filename would be identical to input (same extension out as in), + * returns (copy of) def. + * A NULL ext means the trailing '.' should NOT be included, whereas a "" ext + * means the trailing '.' should be included. + */ +static char * +replace_extension(const char *orig, /*@null@*/ const char *ext, + const char *def) +{ + char *out, *outext; + size_t deflen, outlen; + + /* allocate enough space for full existing name + extension */ + outlen = strlen(orig) + 2; + if (ext) + outlen += strlen(ext) + 1; + deflen = strlen(def) + 1; + if (outlen < deflen) + outlen = deflen; + out = yasm_xmalloc(outlen); + + strcpy(out, orig); + outext = strrchr(out, '.'); + if (outext) { + /* Existing extension: make sure it's not the same as the replacement + * (as we don't want to overwrite the source file). + */ + outext++; /* advance past '.' */ + if (ext && strcmp(outext, ext) == 0) { + outext = NULL; /* indicate default should be used */ + print_error( + _("file name already ends in `.%s': output will be in `%s'"), + ext, def); + } + } else { + /* No extension: make sure the output extension is not empty + * (again, we don't want to overwrite the source file). + */ + if (!ext) + print_error( + _("file name already has no extension: output will be in `%s'"), + def); + else { + outext = strrchr(out, '\0'); /* point to end of the string */ + *outext++ = '.'; /* append '.' */ + } + } + + /* replace extension or use default name */ + if (outext) { + if (!ext) { + /* Back up and replace '.' with string terminator */ + outext--; + *outext = '\0'; + } else + strcpy(outext, ext); + } else + strcpy(out, def); + + return out; +} + +void +print_list_keyword_desc(const char *name, const char *keyword) +{ + printf("%4s%-12s%s\n", "", keyword, name); +} + +static void +print_error(const char *fmt, ...) +{ + va_list va; + fprintf(errfile, "yasm: "); + va_start(va, fmt); + vfprintf(errfile, fmt, va); + va_end(va); + fputc('\n', errfile); +} + +static /*@exits@*/ void +handle_yasm_int_error(const char *file, unsigned int line, const char *message) +{ + fprintf(stderr, _("INTERNAL ERROR at %s, line %u: %s\n"), file, line, + gettext(message)); +#ifdef HAVE_ABORT + abort(); +#else + exit(EXIT_FAILURE); +#endif +} + +static /*@exits@*/ void +handle_yasm_fatal(const char *fmt, va_list va) +{ + fprintf(errfile, "yasm: %s: ", _("FATAL")); + vfprintf(errfile, gettext(fmt), va); + fputc('\n', errfile); + exit(EXIT_FAILURE); +} + +static const char * +handle_yasm_gettext(const char *msgid) +{ + return gettext(msgid); +} + +static const char *fmt[2] = { + "%s:%lu: %s%s\n", /* GNU */ + "%s(%lu) : %s%s\n" /* VC */ +}; + +static const char *fmt_noline[2] = { + "%s: %s%s\n", /* GNU */ + "%s : %s%s\n" /* VC */ +}; + +static void +print_yasm_error(const char *filename, unsigned long line, const char *msg, + const char *xref_fn, unsigned long xref_line, + const char *xref_msg) +{ + if (line) + fprintf(errfile, fmt[ewmsg_style], filename, line, _("error: "), msg); + else + fprintf(errfile, fmt_noline[ewmsg_style], filename, _("error: "), msg); + + if (xref_fn && xref_msg) { + if (xref_line) + fprintf(errfile, fmt[ewmsg_style], xref_fn, xref_line, _("error: "), + xref_msg); + else + fprintf(errfile, fmt_noline[ewmsg_style], xref_fn, _("error: "), + xref_msg); + } +} + +static void +print_yasm_warning(const char *filename, unsigned long line, const char *msg) +{ + if (line) + fprintf(errfile, fmt[ewmsg_style], filename, line, _("warning: "), + msg); + else + fprintf(errfile, fmt_noline[ewmsg_style], filename, _("warning: "), + msg); +} |