Retro68/gcc/libjava/gij.cc
Wolfgang Thaller aaf905ce07 add gcc 4.70
2012-03-28 01:13:14 +02:00

335 lines
10 KiB
C++

/* Copyright (C) 1999-2007 Free Software Foundation
This file is part of libgcj.
This software is copyrighted work licensed under the terms of the
Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
details. */
#include <config.h>
#include <jvm.h>
#include <gcj/cni.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
static void
help ()
{
printf ("Usage: gij [OPTION] ... CLASS [ARGS] ...\n");
printf (" to interpret Java bytecodes, or\n");
printf (" gij -jar [OPTION] ... JARFILE [ARGS] ...\n");
printf (" to execute a jar file\n\n");
printf (" --cp LIST set class path\n");
printf (" --classpath LIST set class path\n");
printf (" -DVAR=VAL define property VAR with value VAL\n");
printf (" -?, --help print this help, then exit\n");
printf (" -X print help on supported -X options, then exit\n");
printf (" --ms=NUMBER set initial heap size\n");
printf (" --mx=NUMBER set maximum heap size\n");
printf (" --verbose[:class] print information about class loading\n");
printf (" --showversion print version number, then keep going\n");
printf (" --version print version number, then exit\n");
printf ("\nOptions can be specified with `-' or `--'.\n");
printf ("\nSee http://gcc.gnu.org/java/ for information on reporting bugs\n");
exit (0);
}
static void
version ()
{
printf ("java version \"" JV_VERSION "\"\n");
printf ("gij (GNU libgcj) version %s\n\n", __VERSION__);
printf ("Copyright (C) 2007 Free Software Foundation, Inc.\n");
printf ("This is free software; see the source for copying conditions. There is NO\n");
printf ("warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n");
}
static void
nonstandard_opts_help ()
{
printf (" -Xms<size> set initial heap size\n");
printf (" -Xmx<size> set maximum heap size\n");
printf (" -Xss<size> set thread stack size\n");
exit (0);
}
static void
add_option (JvVMInitArgs& vm_args, char const* option, void const* extra)
{
vm_args.options =
(JvVMOption*) JvRealloc (vm_args.options,
(vm_args.nOptions + 1) * sizeof (JvVMOption));
vm_args.options[vm_args.nOptions].optionString = const_cast<char*> (option);
vm_args.options[vm_args.nOptions].extraInfo = const_cast<void*> (extra);
++vm_args.nOptions;
}
int
main (int argc, char const** argv)
{
JvVMInitArgs vm_args;
bool jar_mode = false;
vm_args.options = NULL;
vm_args.nOptions = 0;
vm_args.ignoreUnrecognized = true;
// Command-line options always override the CLASSPATH environment
// variable.
char *classpath = getenv("CLASSPATH");
if (classpath)
{
char* darg = (char*) JvMalloc (strlen (classpath)
+ sizeof ("-Djava.class.path="));
sprintf (darg, "-Djava.class.path=%s", classpath);
add_option (vm_args, darg, NULL);
}
// Handle arguments to the java command. Store in vm_args arguments
// handled by the invocation API.
int i;
for (i = 1; i < argc; ++i)
{
char* arg = const_cast<char*> (argv[i]);
// A non-option stops processing.
if (arg[0] != '-')
break;
// A "--" stops processing.
if (! strcmp (arg, "--"))
{
++i;
break;
}
// Allow both single or double hyphen for all options.
if (arg[1] == '-')
++arg;
// Ignore JIT options
if (! strcmp (arg, "-client"))
continue;
else if (! strcmp (arg, "-server"))
continue;
else if (! strcmp (arg, "-hotspot"))
continue;
else if (! strcmp (arg, "-jrockit"))
continue;
// JVM Tool Interface options.
else if (! strncmp (arg, "-agentlib:", sizeof ("-agentlib:") - 1))
add_option (vm_args, arg, NULL);
else if (! strncmp (arg, "-agentpath:", sizeof ("-agentpath:") - 1))
add_option (vm_args, arg, NULL);
else if (! strcmp (arg, "-classpath") || ! strcmp (arg, "-cp"))
{
if (i >= argc - 1)
{
no_arg:
fprintf (stderr, "gij: option requires an argument -- `%s'\n",
argv[i]);
fprintf (stderr, "Try `gij --help' for more information.\n");
exit (1);
}
// Sun seems to translate the -classpath option into
// -Djava.class.path because if both -classpath and
// -Djava.class.path are specified on the java command line,
// the last one always wins.
char* darg = (char*) JvMalloc (strlen (argv[++i])
+ sizeof ("-Djava.class.path="));
sprintf (darg, "-Djava.class.path=%s", argv[i]);
add_option (vm_args, darg, NULL);
}
else if (! strcmp (arg, "-debug"))
{
char* xarg = strdup ("-Xdebug");
add_option (vm_args, xarg, NULL);
}
else if (! strncmp (arg, "-D", sizeof ("-D") - 1))
add_option (vm_args, arg, NULL);
// Ignore 32/64-bit JIT options
else if (! strcmp (arg, "-d32") || ! strcmp (arg, "-d64"))
continue;
else if (! strncmp (arg, "-enableassertions", sizeof ("-enableassertions") - 1)
|| ! strncmp (arg, "-ea", sizeof ("-ea") - 1))
{
// FIXME: hook up assertion support
continue;
}
else if (! strncmp (arg, "-disableassertions", sizeof ("-disableassertions") - 1)
|| ! strncmp (arg, "-da", sizeof ("-da") - 1))
{
// FIXME: hook up assertion support
continue;
}
else if (! strcmp (arg, "-enablesystemassertions")
|| ! strcmp (arg, "-esa"))
{
// FIXME: hook up system assertion support
continue;
}
else if (! strcmp (arg, "-disablesystemassertions")
|| ! strcmp (arg, "-dsa"))
{
// FIXME
continue;
}
else if (! strcmp (arg, "-jar"))
{
jar_mode = true;
continue;
}
// Ignore java.lang.instrument option
else if (! strncmp (arg, "-javaagent:", sizeof ("-javaagent:") - 1))
continue;
else if (! strcmp (arg, "-noclassgc"))
{
char* xarg = strdup ("-Xnoclassgc");
add_option (vm_args, xarg, NULL);
}
// -ms=n
else if (! strncmp (arg, "-ms=", sizeof ("-ms=") - 1))
{
arg[1] = 'X';
arg[2] = 'm';
arg[3] = 's';
add_option (vm_args, arg, NULL);
}
// -ms n
else if (! strcmp (arg, "-ms"))
{
if (i >= argc - 1)
goto no_arg;
char* xarg = (char*) JvMalloc (strlen (argv[++i])
+ sizeof ("-Xms"));
sprintf (xarg, "-Xms%s", argv[i]);
add_option (vm_args, xarg, NULL);
}
// -msn
else if (! strncmp (arg, "-ms", sizeof ("-ms") - 1))
{
char* xarg = (char*) JvMalloc (strlen (arg) + sizeof ("X"));
sprintf (xarg, "-Xms%s", arg + sizeof ("-Xms") - 1);
add_option (vm_args, xarg, NULL);
}
// -mx=n
else if (! strncmp (arg, "-mx=", sizeof ("-mx=") - 1))
{
arg[1] = 'X';
arg[2] = 'm';
arg[3] = 'x';
add_option (vm_args, arg, NULL);
}
// -mx n
else if (! strcmp (arg, "-mx"))
{
if (i >= argc - 1)
goto no_arg;
char* xarg = (char*) JvMalloc (strlen (argv[++i])
+ sizeof ("-Xmx"));
sprintf (xarg, "-Xmx%s", argv[i]);
add_option (vm_args, xarg, NULL);
}
// -mxn
else if (! strncmp (arg, "-mx", sizeof ("-mx") - 1))
{
char* xarg = (char*) JvMalloc (strlen (arg) + sizeof ("X"));
sprintf (xarg, "-Xmx%s", arg + sizeof ("-Xmx") - 1);
add_option (vm_args, xarg, NULL);
}
// -ss=n
else if (! strncmp (arg, "-ss=", sizeof ("-ss=") - 1))
{
arg[1] = 'X';
arg[2] = 's';
arg[3] = 's';
add_option (vm_args, arg, NULL);
}
// -ss n
else if (! strcmp (arg, "-ss"))
{
if (i >= argc - 1)
goto no_arg;
char* xarg = (char*) JvMalloc (strlen (argv[++i])
+ sizeof ("-Xss"));
sprintf (xarg, "-Xss%s", argv[i]);
add_option (vm_args, xarg, NULL);
}
// -ssn
else if (! strncmp (arg, "-ss", sizeof ("-ss") - 1))
{
char* xarg = (char*) JvMalloc (strlen (arg) + sizeof ("X"));
sprintf (xarg, "-Xss%s", arg + sizeof ("-Xss") - 1);
add_option (vm_args, xarg, NULL);
}
// This handles all the option variants that begin with
// -verbose.
else if (! strncmp (arg, "-verbose", 8))
add_option (vm_args, arg, NULL);
else if (! strcmp (arg, "-version"))
{
version ();
exit (0);
}
else if (! strcmp (arg, "-fullversion"))
{
printf ("java full version \"gcj-" JV_VERSION "\"\n");
exit (0);
}
else if (! strcmp (arg, "-showversion"))
version ();
else if (! strcmp (arg, "-help") || ! strcmp (arg, "-?"))
help ();
else if (! strcmp (arg, "-X"))
nonstandard_opts_help ();
else if (! strncmp (arg, "-X", 2))
add_option (vm_args, arg, NULL);
// Obsolete options recognized for backwards-compatibility.
else if (! strcmp (arg, "-verify")
|| ! strcmp (arg, "-verifyremote"))
continue;
else if (! strcmp (arg, "-noverify"))
{
gcj::verifyClasses = false;
}
else
{
fprintf (stderr, "gij: unrecognized option -- `%s'\n", argv[i]);
fprintf (stderr, "Try `gij --help' for more information.\n");
exit (1);
}
}
if (argc - i < 1)
{
fprintf (stderr, "Usage: gij [OPTION] ... CLASS [ARGS] ...\n");
fprintf (stderr, " to invoke CLASS.main, or\n");
fprintf (stderr, " gij -jar [OPTION] ... JARFILE [ARGS] ...\n");
fprintf (stderr, " to execute a jar file\n");
fprintf (stderr, "Try `gij --help' for more information.\n");
exit (1);
}
// -jar mode overrides all other modes of specifying class path:
// CLASSPATH, -Djava.class.path, -classpath and -cp.
if (jar_mode)
{
char* darg = (char*) JvMalloc (strlen (argv[i])
+ sizeof ("-Djava.class.path="));
sprintf (darg, "-Djava.class.path=%s", argv[i]);
add_option (vm_args, darg, NULL);
}
_Jv_RunMain (&vm_args, NULL, argv[i], argc - i,
(char const**) (argv + i), jar_mode);
}