mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-08 09:07:53 +00:00
324 lines
7.1 KiB
C++
324 lines
7.1 KiB
C++
// natRuntime.cc - Implementation of native side of Runtime class.
|
||
|
||
/* Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 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 <platform.h>
|
||
|
||
#include <stdlib.h>
|
||
|
||
#include <gcj/cni.h>
|
||
#include <jvm.h>
|
||
#include <java-props.h>
|
||
#include <java-stack.h>
|
||
#include <java/lang/Long.h>
|
||
#include <java/lang/Runtime.h>
|
||
#include <java/lang/UnknownError.h>
|
||
#include <java/lang/UnsatisfiedLinkError.h>
|
||
#include <gnu/gcj/runtime/FinalizerThread.h>
|
||
#include <java/io/File.h>
|
||
#include <java/util/TimeZone.h>
|
||
#include <java/lang/StringBuffer.h>
|
||
#include <java/lang/Process.h>
|
||
#include <java/lang/ClassLoader.h>
|
||
|
||
// It is convenient and safe to simply include all of these.
|
||
#include <java/lang/Win32Process.h>
|
||
#include <java/lang/EcosProcess.h>
|
||
#include <java/lang/PosixProcess.h>
|
||
|
||
#include <jni.h>
|
||
|
||
#ifdef HAVE_PWD_H
|
||
#include <pwd.h>
|
||
#endif
|
||
#include <errno.h>
|
||
|
||
#ifdef HAVE_LOCALE_H
|
||
#include <locale.h>
|
||
#endif
|
||
|
||
#ifdef HAVE_LANGINFO_H
|
||
#include <langinfo.h>
|
||
#endif
|
||
|
||
|
||
|
||
#ifdef USE_LTDL
|
||
#include <ltdl.h>
|
||
|
||
/* FIXME: we don't always need this. The next libtool will let us use
|
||
AC_LTDL_PREOPEN to see if we do. */
|
||
extern const lt_dlsymlist lt_preloaded_symbols[1] = { { 0, 0 } };
|
||
|
||
struct lookup_data
|
||
{
|
||
const char *symname;
|
||
void *result;
|
||
};
|
||
|
||
static int
|
||
find_symbol (lt_dlhandle handle, lt_ptr data)
|
||
{
|
||
lookup_data *ld = (lookup_data *) data;
|
||
ld->result = lt_dlsym (handle, ld->symname);
|
||
return ld->result != NULL;
|
||
}
|
||
|
||
void *
|
||
_Jv_FindSymbolInExecutable (const char *symname)
|
||
{
|
||
lookup_data data;
|
||
data.symname = symname;
|
||
data.result = NULL;
|
||
lt_dlforeach (find_symbol, (lt_ptr) &data);
|
||
return data.result;
|
||
}
|
||
|
||
#else
|
||
|
||
void *
|
||
_Jv_FindSymbolInExecutable (const char *)
|
||
{
|
||
return NULL;
|
||
}
|
||
|
||
#endif /* USE_LTDL */
|
||
|
||
|
||
|
||
void
|
||
java::lang::Runtime::runFinalizationForExit ()
|
||
{
|
||
if (finalizeOnExit)
|
||
_Jv_RunAllFinalizers ();
|
||
}
|
||
|
||
void
|
||
java::lang::Runtime::exitInternal (jint status)
|
||
{
|
||
// Make status right for Unix. This is perhaps strange.
|
||
if (status < 0 || status > 255)
|
||
status = 255;
|
||
|
||
::exit (status);
|
||
}
|
||
|
||
jlong
|
||
java::lang::Runtime::freeMemory (void)
|
||
{
|
||
return _Jv_GCFreeMemory ();
|
||
}
|
||
|
||
void
|
||
java::lang::Runtime::gc (void)
|
||
{
|
||
_Jv_RunGC ();
|
||
}
|
||
|
||
#ifdef USE_LTDL
|
||
// List of names for JNI_OnLoad.
|
||
static const char *onload_names[] = _Jv_platform_onload_names;
|
||
#endif
|
||
|
||
void
|
||
java::lang::Runtime::_load (jstring path, jboolean do_search)
|
||
{
|
||
JvSynchronize sync (this);
|
||
using namespace java::lang;
|
||
#ifdef USE_LTDL
|
||
jint len = _Jv_GetStringUTFLength (path);
|
||
char buf[len + 1 + strlen (_Jv_platform_solib_prefix)
|
||
+ strlen (_Jv_platform_solib_suffix)];
|
||
int offset = 0;
|
||
if (do_search)
|
||
{
|
||
strcpy (buf, _Jv_platform_solib_prefix);
|
||
offset = strlen (_Jv_platform_solib_prefix);
|
||
}
|
||
jsize total = JvGetStringUTFRegion (path, 0, path->length(), &buf[offset]);
|
||
buf[offset + total] = '\0';
|
||
|
||
char *lib_name = buf;
|
||
|
||
if (do_search)
|
||
{
|
||
ClassLoader *look = _Jv_StackTrace::GetFirstNonSystemClassLoader ();
|
||
|
||
if (look != NULL)
|
||
{
|
||
// Don't include solib prefix in string passed to
|
||
// findLibrary.
|
||
jstring name = look->findLibrary(JvNewStringUTF(&buf[offset]));
|
||
if (name != NULL)
|
||
{
|
||
len = _Jv_GetStringUTFLength (name);
|
||
lib_name = (char *) _Jv_AllocBytes(len + 1);
|
||
total = JvGetStringUTFRegion (name, 0,
|
||
name->length(), lib_name);
|
||
lib_name[total] = '\0';
|
||
// Don't append suffixes any more; we have the full file
|
||
// name.
|
||
do_search = false;
|
||
}
|
||
}
|
||
}
|
||
|
||
lt_dlhandle h;
|
||
// FIXME: make sure path is absolute.
|
||
{
|
||
// Synchronize on java.lang.Class. This is to protect the class chain from
|
||
// concurrent modification by class registration calls which may be run
|
||
// during the dlopen().
|
||
JvSynchronize sync (&java::lang::Class::class$);
|
||
h = do_search ? lt_dlopenext (lib_name) : lt_dlopen (lib_name);
|
||
}
|
||
if (h == NULL)
|
||
{
|
||
const char *msg = lt_dlerror ();
|
||
jstring str = JvNewStringLatin1 (lib_name);
|
||
str = str->concat (JvNewStringLatin1 (": "));
|
||
str = str->concat (JvNewStringLatin1 (msg));
|
||
throw new UnsatisfiedLinkError (str);
|
||
}
|
||
|
||
// Search for JNI_OnLoad function.
|
||
void *onload = NULL;
|
||
const char **name = onload_names;
|
||
while (*name != NULL)
|
||
{
|
||
onload = lt_dlsym (h, *name);
|
||
if (onload != NULL)
|
||
break;
|
||
++name;
|
||
}
|
||
|
||
if (onload != NULL)
|
||
{
|
||
JavaVM *vm = _Jv_GetJavaVM ();
|
||
if (vm == NULL)
|
||
{
|
||
// FIXME: what?
|
||
return;
|
||
}
|
||
|
||
// Push a new frame so that JNI_OnLoad will get the right class
|
||
// loader if it calls FindClass.
|
||
::java::lang::ClassLoader *loader
|
||
= _Jv_StackTrace::GetFirstNonSystemClassLoader();
|
||
JNIEnv *env = _Jv_GetJNIEnvNewFrameWithLoader (loader);
|
||
jint vers = ((jint (JNICALL *) (JavaVM *, void *)) onload) (vm, NULL);
|
||
_Jv_JNI_PopSystemFrame (env);
|
||
if (vers != JNI_VERSION_1_1 && vers != JNI_VERSION_1_2
|
||
&& vers != JNI_VERSION_1_4)
|
||
{
|
||
// FIXME: unload the library.
|
||
throw new UnsatisfiedLinkError (JvNewStringLatin1 ("unrecognized version from JNI_OnLoad"));
|
||
}
|
||
}
|
||
#else
|
||
throw new UnknownError
|
||
(JvNewStringLatin1 (do_search
|
||
? "Runtime.loadLibrary not implemented"
|
||
: "Runtime.load not implemented"));
|
||
#endif /* USE_LTDL */
|
||
}
|
||
|
||
jboolean
|
||
java::lang::Runtime::loadLibraryInternal (jstring lib)
|
||
{
|
||
JvSynchronize sync (this);
|
||
using namespace java::lang;
|
||
#ifdef USE_LTDL
|
||
jint len = _Jv_GetStringUTFLength (lib);
|
||
char buf[len + 1];
|
||
jsize total = JvGetStringUTFRegion (lib, 0, lib->length(), buf);
|
||
buf[total] = '\0';
|
||
// FIXME: make sure path is absolute.
|
||
lt_dlhandle h = lt_dlopenext (buf);
|
||
return h != NULL;
|
||
#else
|
||
return false;
|
||
#endif /* USE_LTDL */
|
||
}
|
||
|
||
void
|
||
java::lang::Runtime::init (void)
|
||
{
|
||
#ifdef USE_LTDL
|
||
lt_dlinit ();
|
||
// Set module load path.
|
||
lt_dlsetsearchpath (_Jv_Module_Load_Path);
|
||
// Make sure self is opened.
|
||
lt_dlopen (NULL);
|
||
#endif
|
||
}
|
||
|
||
void
|
||
java::lang::Runtime::runFinalization (void)
|
||
{
|
||
gnu::gcj::runtime::FinalizerThread::finalizerReady ();
|
||
}
|
||
|
||
jlong
|
||
java::lang::Runtime::totalMemory (void)
|
||
{
|
||
return _Jv_GCTotalMemory ();
|
||
}
|
||
|
||
jlong
|
||
java::lang::Runtime::maxMemory (void)
|
||
{
|
||
// We don't have a maximum. FIXME: we might if we ask the GC for
|
||
// one.
|
||
return Long::MAX_VALUE;
|
||
}
|
||
|
||
void
|
||
java::lang::Runtime::traceInstructions (jboolean)
|
||
{
|
||
// Do nothing.
|
||
}
|
||
|
||
void
|
||
java::lang::Runtime::traceMethodCalls (jboolean)
|
||
{
|
||
// Do nothing.
|
||
}
|
||
|
||
java::lang::Process *
|
||
java::lang::Runtime::execInternal (jstringArray cmd,
|
||
jstringArray env,
|
||
java::io::File *dir)
|
||
{
|
||
return new _Jv_platform_process (cmd, env, dir, false);
|
||
}
|
||
|
||
jint
|
||
java::lang::Runtime::availableProcessors (void)
|
||
{
|
||
// FIXME: find the real value.
|
||
return 1;
|
||
}
|
||
|
||
jstring
|
||
java::lang::Runtime::nativeGetLibname (jstring pathname, jstring libname)
|
||
{
|
||
java::lang::StringBuffer *sb = new java::lang::StringBuffer ();
|
||
sb->append(pathname);
|
||
if (pathname->length() > 0)
|
||
sb->append (_Jv_platform_file_separator);
|
||
|
||
sb->append (JvNewStringLatin1 (_Jv_platform_solib_prefix));
|
||
sb->append(libname);
|
||
sb->append (JvNewStringLatin1 (_Jv_platform_solib_suffix));
|
||
|
||
return sb->toString();
|
||
}
|