| // natSystemProperties.cc - Implementation of native side of |
| // SystemProperties class. |
| |
| /* Copyright (C) 2005, 2006 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 <errno.h> |
| |
| #ifdef HAVE_PWD_H |
| #include <pwd.h> |
| #endif |
| |
| #ifdef HAVE_UNAME |
| #include <sys/utsname.h> |
| #endif |
| |
| #ifdef HAVE_LOCALE_H |
| #include <locale.h> |
| #endif |
| |
| #ifdef HAVE_LANGINFO_H |
| #include <langinfo.h> |
| #endif |
| |
| #include <gcj/cni.h> |
| #include <jvm.h> |
| #include <java-props.h> |
| #include <gnu/classpath/SystemProperties.h> |
| #include <java/lang/String.h> |
| #include <jni.h> |
| |
| char *_Jv_Module_Load_Path = NULL; |
| |
| #ifdef USE_LTDL |
| #include <ltdl.h> |
| |
| void |
| _Jv_SetDLLSearchPath (const char *path) |
| { |
| _Jv_Module_Load_Path = strdup (path); |
| } |
| |
| #else |
| |
| void |
| _Jv_SetDLLSearchPath (const char *) |
| { |
| // Nothing. |
| } |
| |
| #endif /* USE_LTDL */ |
| |
| #if ! defined (DEFAULT_FILE_ENCODING) && defined (HAVE_ICONV) \ |
| && defined (HAVE_NL_LANGINFO) |
| |
| static const char * |
| file_encoding () |
| { |
| setlocale (LC_CTYPE, ""); |
| const char *e = nl_langinfo (CODESET); |
| if (e == NULL || *e == '\0') |
| e = "8859_1"; |
| return e; |
| } |
| |
| #define DEFAULT_FILE_ENCODING file_encoding () |
| |
| #endif |
| |
| #ifndef DEFAULT_FILE_ENCODING |
| #define DEFAULT_FILE_ENCODING "8859_1" |
| #endif |
| |
| static const char *default_file_encoding = DEFAULT_FILE_ENCODING; |
| |
| #if defined(HAVE_GETPWUID_R) && defined(_POSIX_PTHREAD_SEMANTICS) |
| /* Use overload resolution to find out the signature of getpwuid_r. */ |
| |
| /* This is Posix getpwuid_r. */ |
| template <typename T_uid, typename T_passwd, typename T_buf, typename T_len> |
| static inline int |
| getpwuid_adaptor(int (*getpwuid_r)(T_uid user_id, T_passwd *pwd_r, |
| T_buf *buf_r, T_len len_r, |
| T_passwd **pwd_entry_ptr), |
| uid_t user_id, struct passwd *pwd_r, |
| char *buf_r, size_t len_r, struct passwd **pwd_entry) |
| { |
| return getpwuid_r (user_id, pwd_r, buf_r, len_r, pwd_entry); |
| } |
| |
| /* This is used on HPUX 10.20 */ |
| template <typename T_uid, typename T_passwd, typename T_buf, typename T_len> |
| static inline int |
| getpwuid_adaptor(int (*getpwuid_r)(T_uid user_id, T_passwd *pwd_r, |
| T_buf *buf_r, T_len len_r), |
| uid_t user_id, struct passwd *pwd_r, |
| char *buf_r, size_t len_r, struct passwd **pwd_entry) |
| { |
| return getpwuid_r (user_id, pwd_r, buf_r, len_r); |
| } |
| |
| /* This is used on IRIX 5.2. */ |
| template <typename T_uid, typename T_passwd, typename T_buf, typename T_len> |
| static inline int |
| getpwuid_adaptor(T_passwd * (*getpwuid_r)(T_uid user_id, T_passwd *pwd_r, |
| T_buf *buf_r, T_len len_r), |
| uid_t user_id, struct passwd *pwd_r, |
| char *buf_r, size_t len_r, struct passwd **pwd_entry) |
| { |
| *pwd_entry = getpwuid_r (user_id, pwd_r, buf_r, len_r); |
| return (*pwd_entry == NULL) ? errno : 0; |
| } |
| #endif |
| |
| // Prepend GCJ_VERSIONED_LIBDIR to a module search path stored in a |
| // Java string, if the path is not already prefixed by |
| // GCJ_VERSIONED_LIBDIR. Return a newly JvMalloc'd char buffer. The |
| // result should be freed using JvFree. See |
| // _Jv_PrependVersionedLibdir in prims.cc. |
| static char* |
| PrependVersionedLibdir (::java::lang::String* libpath) |
| { |
| char* retval = 0; |
| |
| // Extract a C char array from libpath. |
| char* val = (char*) _Jv_Malloc (JvGetStringUTFLength (libpath) + 1); |
| jsize total = JvGetStringUTFRegion (libpath, 0, libpath->length(), val); |
| val[total] = '\0'; |
| retval = _Jv_PrependVersionedLibdir (val); |
| JvFree (val); |
| |
| return retval; |
| } |
| |
| void |
| gnu::classpath::SystemProperties::insertSystemProperties (java::util::Properties *newprops) |
| { |
| // A convenience define. |
| #define SET(Prop,Val) \ |
| newprops->put(JvNewStringLatin1 (Prop), JvNewStringLatin1 (Val)) |
| |
| // A mixture of the Java Product Versioning Specification |
| // (introduced in 1.2), and earlier versioning properties. Some |
| // programs rely on seeing values that they expect, so we claim to |
| // be a 1.4-ish VM for their sake. |
| SET ("java.version", JV_VERSION); |
| SET ("java.runtime.version", JV_VERSION); |
| SET ("java.vendor", "Free Software Foundation, Inc."); |
| SET ("java.vendor.url", "http://gcc.gnu.org/java/"); |
| SET ("java.class.version", "48.0"); |
| SET ("java.vm.specification.version", "1.0"); |
| SET ("java.vm.specification.name", "Java(tm) Virtual Machine Specification"); |
| SET ("java.vm.specification.vendor", "Sun Microsystems Inc."); |
| SET ("java.vm.version", __VERSION__); |
| SET ("java.vm.vendor", "Free Software Foundation, Inc."); |
| SET ("java.vm.name", "GNU libgcj"); |
| SET ("java.specification.version", JV_API_VERSION); |
| SET ("java.specification.name", "Java(tm) Platform API Specification"); |
| SET ("java.specification.vendor", "Sun Microsystems Inc."); |
| |
| char value[100]; |
| #define NAME "GNU libgcj " |
| strcpy (value, NAME); |
| strncpy (value + sizeof (NAME) - 1, __VERSION__, |
| sizeof(value) - sizeof(NAME)); |
| value[sizeof (value) - 1] = '\0'; |
| jstring version = JvNewStringLatin1 (value); |
| newprops->put (JvNewStringLatin1 ("java.fullversion"), version); |
| newprops->put (JvNewStringLatin1 ("java.vm.info"), version); |
| |
| // This definition is rather arbitrary: we choose $(prefix). In |
| // part we do this because most people specify only --prefix and |
| // nothing else when installing gcj. Plus, people are free to |
| // redefine `java.home' with `-D' if necessary. |
| SET ("java.home", JAVA_HOME); |
| SET ("gnu.classpath.home", PREFIX); |
| // This is set to $(toolexeclibdir) because we use this to find |
| // .security files at runtime. |
| char val2[sizeof ("file://") + sizeof (TOOLEXECLIBDIR) + 1]; |
| strcpy (val2, "file://"); |
| strcat (val2, TOOLEXECLIBDIR); |
| SET ("gnu.classpath.home.url", val2); |
| |
| SET ("file.encoding", default_file_encoding); |
| |
| #ifdef HAVE_UNAME |
| struct utsname u; |
| if (! uname (&u)) |
| { |
| SET ("os.name", u.sysname); |
| SET ("os.version", u.release); |
| |
| // Normalize x86 architecture names to "i386" (except on Windows, which |
| // is handled in win32.cc). |
| if (u.machine[0] == 'i' |
| && u.machine[1] != 0 |
| && u.machine[2] == '8' |
| && u.machine[3] == '6' |
| && u.machine[4] == 0) |
| SET ("os.arch", "i386"); |
| else |
| SET ("os.arch", u.machine); |
| } |
| else |
| { |
| SET ("os.name", "unknown"); |
| SET ("os.arch", "unknown"); |
| SET ("os.version", "unknown"); |
| } |
| #endif /* HAVE_UNAME */ |
| |
| #ifndef NO_GETUID |
| #ifdef HAVE_PWD_H |
| uid_t user_id = getuid (); |
| struct passwd *pwd_entry; |
| |
| #if defined(HAVE_GETPWUID_R) && defined(_POSIX_PTHREAD_SEMANTICS) |
| struct passwd pwd_r; |
| size_t len_r = 200; |
| char *buf_r = (char *) _Jv_AllocBytes (len_r); |
| |
| while (buf_r != NULL) |
| { |
| int r = getpwuid_adaptor (getpwuid_r, user_id, &pwd_r, |
| buf_r, len_r, &pwd_entry); |
| if (r == 0) |
| break; |
| else if (r != ERANGE) |
| { |
| pwd_entry = NULL; |
| break; |
| } |
| len_r *= 2; |
| buf_r = (char *) _Jv_AllocBytes (len_r); |
| } |
| #else |
| pwd_entry = getpwuid (user_id); |
| #endif /* HAVE_GETPWUID_R */ |
| |
| if (pwd_entry != NULL) |
| { |
| SET ("user.name", pwd_entry->pw_name); |
| SET ("user.home", pwd_entry->pw_dir); |
| SET ("gnu.gcj.user.realname", pwd_entry->pw_gecos); |
| } |
| #endif /* HAVE_PWD_H */ |
| #endif /* NO_GETUID */ |
| |
| #ifdef HAVE_GETCWD |
| #ifdef HAVE_UNISTD_H |
| /* Use getcwd to set "user.dir". */ |
| int buflen = 250; |
| char *buffer = (char *) malloc (buflen); |
| while (buffer != NULL) |
| { |
| if (getcwd (buffer, buflen) != NULL) |
| { |
| SET ("user.dir", buffer); |
| break; |
| } |
| if (errno != ERANGE) |
| break; |
| buflen = 2 * buflen; |
| buffer = (char *) realloc (buffer, buflen); |
| } |
| if (buffer != NULL) |
| free (buffer); |
| #endif /* HAVE_UNISTD_H */ |
| #endif /* HAVE_GETCWD */ |
| |
| // Set user locale properties based on setlocale() |
| #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES) |
| // We let the user choose the locale. However, since Java differs |
| // from POSIX, we arbitrarily pick LC_MESSAGES as determining the |
| // Java locale. We can't use LC_ALL because it might return a full |
| // list of all the settings. If we don't have LC_MESSAGES then we |
| // just default to `en_US'. |
| setlocale (LC_ALL, ""); |
| char *locale = setlocale (LC_MESSAGES, ""); |
| if (locale && strlen (locale) >= 2) |
| { |
| char buf[3]; |
| buf[2] = '\0'; |
| // copy the first two chars to user.language |
| strncpy (buf, locale, 2); |
| SET ("user.language", buf); |
| // if the next char is a '_', copy the two after that to user.region |
| locale += 2; |
| if (locale[0] == '_') |
| { |
| locale++; |
| strncpy (buf, locale, 2); |
| SET ("user.region", buf); |
| } |
| } |
| else |
| #endif /* HAVE_SETLOCALE and HAVE_LC_MESSAGES */ |
| { |
| SET ("user.language", "en"); |
| SET ("user.region", "US"); |
| } |
| |
| // Set the java extension directories property if it has not yet been |
| // specified. |
| ::java::lang::String *extdirs = newprops->getProperty(JvNewStringLatin1("java.ext.dirs")); |
| if (! extdirs) |
| SET ("java.ext.dirs", JAVA_EXT_DIRS); |
| |
| // The endorsed directories that libgcj knows about by default. |
| // This is a way to get other jars into the boot class loader |
| // without overriding java.endorsed.dirs. |
| SET ("gnu.gcj.runtime.endorsed.dirs", GCJ_ENDORSED_DIRS); |
| |
| // The path to libgcj's boot classes |
| SET ("sun.boot.class.path", BOOT_CLASS_PATH); |
| |
| // If there is a default system database, set it. |
| SET ("gnu.gcj.precompiled.db.path", LIBGCJ_DEFAULT_DATABASE); |
| |
| // Set some properties according to whatever was compiled in with |
| // `-D'. Important: after this point, the only properties that |
| // should be set are those which either the user cannot meaningfully |
| // override, or which augment whatever value the user has provided. |
| for (int i = 0; i < _Jv_Properties_Count; ++i) |
| { |
| const char *s, *p; |
| // Find the `='. |
| for (s = p = _Jv_Compiler_Properties[i]; *s && *s != '='; ++s) |
| ; |
| jstring name = JvNewStringLatin1 (p, s - p); |
| jstring val = JvNewStringLatin1 (*s == '=' ? s + 1 : s); |
| newprops->put (name, val); |
| } |
| |
| // Set the system properties from the user's environment. |
| #ifndef DISABLE_GETENV_PROPERTIES |
| if (_Jv_Environment_Properties) |
| { |
| size_t i = 0; |
| |
| while (_Jv_Environment_Properties[i].key) |
| { |
| SET (_Jv_Environment_Properties[i].key, |
| _Jv_Environment_Properties[i].value); |
| i++; |
| } |
| } |
| #endif |
| |
| // The name used to invoke this process (argv[0] in C). |
| SET ("gnu.gcj.progname", _Jv_GetSafeArg (0)); |
| |
| // Allow platform specific settings and overrides. |
| _Jv_platform_initProperties (newprops); |
| |
| // If java.library.path is set, tell libltdl so we search the new |
| // directories as well. |
| ::java::lang::String *path = newprops->getProperty(JvNewStringLatin1("java.library.path")); |
| if (path) |
| { |
| // Prepend GCJ_VERSIONED_LIBDIR to the module load path so that |
| // libgcj will find its own JNI libraries, like libgtkpeer.so. |
| char* val = PrependVersionedLibdir (path); |
| _Jv_SetDLLSearchPath (val); |
| _Jv_Free (val); |
| } |
| else |
| { |
| // Set a value for user code to see. |
| #ifdef USE_LTDL |
| char *libpath = getenv (LTDL_SHLIBPATH_VAR); |
| char* val = _Jv_PrependVersionedLibdir (libpath); |
| SET ("java.library.path", val); |
| _Jv_SetDLLSearchPath (val); |
| _Jv_Free (val); |
| #else |
| SET ("java.library.path", ""); |
| #endif |
| } |
| |
| // If java.class.path is still not set then set it according to the |
| // CLASSPATH environment variable if given. See gij.cc main () and |
| // prims.cc _Jv_CreateJavaVM () for all the ways this could have |
| // been set much earlier. |
| // If CLASSPATH isn't set or if the path is empty fall back to "." |
| path = newprops->getProperty(JvNewStringLatin1("java.class.path")); |
| if (!path) |
| { |
| char *classpath = getenv("CLASSPATH"); |
| if (classpath && classpath[0] != 0) |
| { |
| path = JvNewStringLatin1 (classpath); |
| newprops->put(JvNewStringLatin1 ("java.class.path"), path); |
| } |
| } |
| |
| if (!path || path->length() == 0) |
| SET ("java.class.path", "."); |
| } |
| |
| jboolean |
| gnu::classpath::SystemProperties::isWordsBigEndian (void) |
| { |
| union |
| { |
| long lval; |
| char cval; |
| } u; |
| |
| u.lval = 1; |
| return u.cval == 0; |
| } |
| |