URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [java/] [jvgenmain.c] - Rev 310
Go to most recent revision | Compare with Previous | Blame | View Log
/* Program to generate "main" a Java(TM) class containing a main method. Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 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 "tm.h" #include "obstack.h" #include "jcf.h" #include "tree.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]; /* Unlock the stdio streams. */ unlock_std_streams (); gcc_init_libintl (); 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. */ } 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"); fprintf (stream, "static const char *props[] =\n{\n"); for (i = 1; i < last_arg; ++i) { const char *p; fprintf (stream, " \""); for (p = &argv[i][2]; *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 *); }
Go to most recent revision | Compare with Previous | Blame | View Log