/* Program to generate "main" a Java(TM) class containing a main method.
- Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
- Free Software Foundation, Inc.
+ 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 2, or (at your option)
+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,
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 COPYING. If not, write to
-the Free Software Foundation, 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.
+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.
#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;
-void
-gcc_obstack_init (obstack)
- struct obstack *obstack;
-{
- /* Let particular systems override the size of a chunk. */
-#ifndef OBSTACK_CHUNK_SIZE
-#define OBSTACK_CHUNK_SIZE 0
-#endif
- /* Let them override the alloc and free routines too. */
-#ifndef OBSTACK_CHUNK_ALLOC
-#define OBSTACK_CHUNK_ALLOC xmalloc
-#endif
-#ifndef OBSTACK_CHUNK_FREE
-#define OBSTACK_CHUNK_FREE free
-#endif
- _obstack_begin (obstack, OBSTACK_CHUNK_SIZE, 0,
- (void *(*) (long)) OBSTACK_CHUNK_ALLOC,
- (void (*) (void *)) OBSTACK_CHUNK_FREE);
-}
-
static void usage (const char *) ATTRIBUTE_NORETURN;
static void
usage (const char *name)
{
- fprintf (stderr, "Usage: %s [OPTIONS]... CLASSNAMEmain [OUTFILE]\n", name);
+ fprintf (stderr, _("Usage: %s [OPTIONS]... CLASSNAMEmain [OUTFILE]\n"),
+ name);
exit (1);
}
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 (argv[0]);
+ usage (prog_name);
for (i = 1; i < argc; ++i)
{
}
if (i < argc - 2 || i == argc)
- usage (argv[0]);
+ 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 (argv[0]);
+ usage (prog_name);
else
*p = '\0';
stream = fopen (outfile, "w");
if (stream == NULL)
{
- fprintf (stderr, "%s: Cannot open output file: %s\n",
- argv[0], outfile);
+ fprintf (stderr, _("%s: Cannot open output file: %s\n"),
+ prog_name, outfile);
exit (1);
}
}
}
fprintf (stream, " 0\n};\n\n");
- fprintf (stream, "extern int %s;\n", mangled_classname);
fprintf (stream, "int main (int argc, const char **argv)\n");
fprintf (stream, "{\n");
fprintf (stream, " _Jv_Compiler_Properties = props;\n");
- fprintf (stream, " JvRunMain (&%s, argc, argv);\n", mangled_classname);
+ 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",
- argv[0], argv[2]);
+ fprintf (stderr, _("%s: Failed to close output file %s\n"),
+ prog_name, argv[2]);
exit (1);
}
return 0;
static char *
-do_mangle_classname (string)
- const char *string;
+do_mangle_classname (const char *string)
{
const char *ptr;
int count = 0;
for (ptr = string; *ptr; ptr++ )
{
- if (ptr[0] == '.')
+ if (*ptr == '.')
{
- append_gpp_mangled_name (&ptr [-count], count);
+ append_gpp_mangled_name (ptr - count, count);
count = 0;
}
else
count++;
}
append_gpp_mangled_name (&ptr [-count], count);
- obstack_grow (mangle_obstack, "6class$E", 8);
+ obstack_grow (mangle_obstack, "6class$E", strlen ("6class$E"));
obstack_1grow (mangle_obstack, '\0');
- return obstack_finish (mangle_obstack);
+ return XOBFINISH (mangle_obstack, char *);
}