diff options
Diffstat (limited to 'gcc/java/jvgenmain.c')
| -rw-r--r-- | gcc/java/jvgenmain.c | 197 |
1 files changed, 0 insertions, 197 deletions
diff --git a/gcc/java/jvgenmain.c b/gcc/java/jvgenmain.c deleted file mode 100644 index a451c6e..0000000 --- a/gcc/java/jvgenmain.c +++ /dev/null @@ -1,197 +0,0 @@ -/* Program to generate "main" a Java(TM) class containing a main method. - Copyright (C) 1998-2016 Free Software Foundation, Inc. - -This file is part of GCC. - -GCC is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 3, or (at your option) -any later version. - -GCC is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GCC; see the file COPYING3. If not see -<http://www.gnu.org/licenses/>. - -Java and all Java-based marks are trademarks or registered trademarks -of Sun Microsystems, Inc. in the United States and other countries. -The Free Software Foundation is independent of Sun Microsystems, Inc. */ - -/* Written by Per Bothner <bothner@cygnus.com> */ - -#include "config.h" -#include "system.h" -#include "coretypes.h" -#include "tree.h" -#include "diagnostic.h" -#include "java-tree.h" -#include "intl.h" - -static char * do_mangle_classname (const char *string); - -struct obstack name_obstack; -struct obstack *mangle_obstack = &name_obstack; - -static void usage (const char *) ATTRIBUTE_NORETURN; - -static void -usage (const char *name) -{ - fprintf (stderr, _("Usage: %s [OPTIONS]... CLASSNAMEmain [OUTFILE]\n"), - name); - exit (1); -} - -int -main (int argc, char **argv) -{ - char *classname, *p; - FILE *stream; - const char *mangled_classname; - int i, last_arg; - int indirect = 0; - char *prog_name = argv[0]; - - p = argv[0] + strlen (argv[0]); - while (p != argv[0] && !IS_DIR_SEPARATOR (p[-1])) - --p; - progname = p; - - xmalloc_set_program_name (progname); - - /* Unlock the stdio streams. */ - unlock_std_streams (); - - gcc_init_libintl (); - - diagnostic_initialize (global_dc, 0); - - if (argc > 1 && ! strcmp (argv[1], "-findirect-dispatch")) - { - indirect = 1; - ++argv; - --argc; - } - - if (argc < 2) - usage (prog_name); - - for (i = 1; i < argc; ++i) - { - if (! strncmp (argv[i], "-D", 2)) - { - /* Handled later. Check "-D XXX=YYY". */ - if (argv[i][2] == '\0') - i++; - } - else - break; - } - - if (i < argc - 2 || i == argc) - usage (prog_name); - last_arg = i; - - classname = argv[i]; - - /* gcj always appends `main' to classname. We need to strip this here. */ - p = strrchr (classname, 'm'); - if (p == NULL || p == classname || strcmp (p, "main") != 0) - usage (prog_name); - else - *p = '\0'; - - gcc_obstack_init (mangle_obstack); - mangled_classname = do_mangle_classname (classname); - - if (i < argc - 1 && strcmp (argv[i + 1], "-") != 0) - { - const char *outfile = argv[i + 1]; - stream = fopen (outfile, "w"); - if (stream == NULL) - { - fprintf (stderr, _("%s: Cannot open output file: %s\n"), - prog_name, outfile); - exit (1); - } - } - else - stream = stdout; - - /* At this point every element of ARGV from 1 to LAST_ARG is a `-D' - option. Process them appropriately. */ - fprintf (stream, "extern const char **_Jv_Compiler_Properties;\n"); - if (indirect) - fprintf (stream, "extern void JvRunMainName ();\n"); - else - fprintf (stream, "extern void JvRunMain ();\n"); - fprintf (stream, "static const char *props[] =\n{\n"); - for (i = 1; i < last_arg; ++i) - { - const char *p; - - if (strcmp (argv[i], "-D") == 0) - continue; - - fprintf (stream, " \""); - for (p = argv[i]; *p; ++p) - { - if (! ISPRINT (*p)) - fprintf (stream, "\\%o", *p); - else if (*p == '\\' || *p == '"') - fprintf (stream, "\\%c", *p); - else - putc (*p, stream); - } - fprintf (stream, "\",\n"); - } - fprintf (stream, " 0\n};\n\n"); - - fprintf (stream, "int main (int argc, const char **argv)\n"); - fprintf (stream, "{\n"); - fprintf (stream, " _Jv_Compiler_Properties = props;\n"); - if (indirect) - fprintf (stream, " JvRunMainName (\"%s\", argc, argv);\n", classname); - else - { - fprintf (stream, " extern char %s;\n", mangled_classname); - fprintf (stream, " JvRunMain (&%s, argc, argv);\n", mangled_classname); - } - fprintf (stream, "}\n"); - if (stream != stdout && fclose (stream) != 0) - { - fprintf (stderr, _("%s: Failed to close output file %s\n"), - prog_name, argv[2]); - exit (1); - } - return 0; -} - - -static char * -do_mangle_classname (const char *string) -{ - const char *ptr; - int count = 0; - - obstack_grow (&name_obstack, "_ZN", 3); - - for (ptr = string; *ptr; ptr++ ) - { - if (*ptr == '.') - { - append_gpp_mangled_name (ptr - count, count); - count = 0; - } - else - count++; - } - append_gpp_mangled_name (&ptr [-count], count); - obstack_grow (mangle_obstack, "6class$E", strlen ("6class$E")); - obstack_1grow (mangle_obstack, '\0'); - return XOBFINISH (mangle_obstack, char *); -} |