Mercurial > jdk8-mips64-public > hotspot / file revision

 /*

  * Copyright (c) 1999, 2010, Oracle and/or its affiliates. All rights reserved.

  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

  *

  * This code is free software; you can redistribute it and/or modify it

  * under the terms of the GNU General Public License version 2 only, as

  * published by the Free Software Foundation.

  *

  * This code 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

  * version 2 for more details (a copy is included in the LICENSE file that

  * accompanied this code).

  *

  * You should have received a copy of the GNU General Public License version

  * 2 along with this work; if not, write to the Free Software Foundation,

  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

  *

  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

  * or visit www.oracle.com if you need additional information or have any

  * questions.

  *

  */

 #include <ctype.h>

 #include <windows.h>

 #include <io.h>

 #include <process.h>

 #include <stdlib.h>

 #include <stdio.h>

 #include <string.h>

 #include <sys/types.h>

 #include <sys/stat.h>

 #include <jni.h>

 #include "java.h"

 #ifndef GAMMA

 #include "version_comp.h"

 #endif

 #define JVM_DLL "jvm.dll"

 #define JAVA_DLL "java.dll"

 #define CRT_DLL "msvcr71.dll"

 /*

  * Prototypes.

  */

 static jboolean GetPublicJREHome(char *path, jint pathsize);

 static jboolean GetJVMPath(const char *jrepath, const char *jvmtype,

                            char *jvmpath, jint jvmpathsize);

 static jboolean GetJREPath(char *path, jint pathsize);

 static void EnsureJreInstallation(const char *jrepath);

 /* We supports warmup for UI stack that is performed in parallel

  * to VM initialization.

  * This helps to improve startup of UI application as warmup phase

  * might be long due to initialization of OS or hardware resources.

  * It is not CPU bound and therefore it does not interfere with VM init.

  * Obviously such warmup only has sense for UI apps and therefore it needs

  * to be explicitly requested by passing -Dsun.awt.warmup=true property

  * (this is always the case for plugin/javaws).

  *

  * Implementation launches new thread after VM starts and use it to perform

  * warmup code (platform dependent).

  * This thread is later reused as AWT toolkit thread as graphics toolkit

  * often assume that they are used from the same thread they were launched on.

  *

  * At the moment we only support warmup for D3D. It only possible on windows

  * and only if other flags do not prohibit this (e.g. OpenGL support requested).

  */

 #undef ENABLE_AWT_PRELOAD

 #ifndef JAVA_ARGS /* turn off AWT preloading for javac, jar, etc */

   #ifdef _X86_ /* for now disable AWT preloading for 64bit */

     #define ENABLE_AWT_PRELOAD

   #endif

 #endif

 #ifdef ENABLE_AWT_PRELOAD

 /* "AWT was preloaded" flag;

  * Turned on by AWTPreload().

  */

 int awtPreloaded = 0;

 /* Calls a function with the name specified.

  * The function must be int(*fn)(void).

  */

 int AWTPreload(const char *funcName);

 /* Stops AWT preloading. */

 void AWTPreloadStop();

 /* D3D preloading */

 /* -1: not initialized; 0: OFF, 1: ON */

 int awtPreloadD3D = -1;

 /* Command line parameter to swith D3D preloading on. */

 #define PARAM_PRELOAD_D3D "-Dsun.awt.warmup"

 /* D3D/OpenGL management parameters (may disable D3D preloading) */

 #define PARAM_NODDRAW "-Dsun.java2d.noddraw"

 #define PARAM_D3D "-Dsun.java2d.d3d"

 #define PARAM_OPENGL "-Dsun.java2d.opengl"

 /* funtion in awt.dll (src/windows/native/sun/java2d/d3d/D3DPipelineManager.cpp) */

 #define D3D_PRELOAD_FUNC "preloadD3D"

 /* Extracts value of a parameter with the specified name

  * from command line argument (returns pointer in the argument).

  * Returns NULL if the argument does not contains the parameter.

  * e.g.:

  * GetParamValue("theParam", "theParam=value") returns pointer to "value".

  */

 const char * GetParamValue(const char *paramName, const char *arg) {

     int nameLen = strlen(paramName);

     if (strncmp(paramName, arg, nameLen) == 0) {

         // arg[nameLen] is valid (may contain final NULL)

         if (arg[nameLen] == '=') {

             return arg + nameLen + 1;

         }

     }

     return NULL;

 }

 /* Checks if commandline argument contains property specified

  * and analyze it as boolean property (true/false).

  * Returns -1 if the argument does not contain the parameter;

  * Returns 1 if the argument contains the parameter and its value is "true";

  * Returns 0 if the argument contains the parameter and its value is "false".

  */

 int GetBoolParamValue(const char *paramName, const char *arg) {

     const char * paramValue = GetParamValue(paramName, arg);

     if (paramValue != NULL) {

         if (stricmp(paramValue, "true") == 0) {

             return 1;

         }

         if (stricmp(paramValue, "false") == 0) {

             return 0;

         }

     }

     return -1;

 }

 #endif /* ENABLE_AWT_PRELOAD */

 const char *

 GetArch()

 {

 #ifdef _M_AMD64

     return "amd64";

 #elif defined(_M_IA64)

     return "ia64";

 #else

     return "i386";

 #endif

 }

 /*

  *

  */

 void

 CreateExecutionEnvironment(int *_argc,

                            char ***_argv,

                            char jrepath[],

                            jint so_jrepath,

                            char jvmpath[],

                            jint so_jvmpath,

                            char **original_argv) {

 #ifndef GAMMA

    char * jvmtype;

     /* Find out where the JRE is that we will be using. */

     if (!GetJREPath(jrepath, so_jrepath)) {

         ReportErrorMessage("Error: could not find Java SE Runtime Environment.",

                            JNI_TRUE);

         exit(2);

     }

     /* Do this before we read jvm.cfg */

     EnsureJreInstallation(jrepath);

     /* Find the specified JVM type */

     if (ReadKnownVMs(jrepath, (char*)GetArch(), JNI_FALSE) < 1) {

         ReportErrorMessage("Error: no known VMs. (check for corrupt jvm.cfg file)",

                            JNI_TRUE);

         exit(1);

     }

     jvmtype = CheckJvmType(_argc, _argv, JNI_FALSE);

     jvmpath[0] = '\0';

     if (!GetJVMPath(jrepath, jvmtype, jvmpath, so_jvmpath)) {

         char * message=NULL;

         const char * format = "Error: no `%s' JVM at `%s'.";

         message = (char *)JLI_MemAlloc((strlen(format)+strlen(jvmtype)+

                                     strlen(jvmpath)) * sizeof(char));

         sprintf(message,format, jvmtype, jvmpath);

         ReportErrorMessage(message, JNI_TRUE);

         exit(4);

     }

     /* If we got here, jvmpath has been correctly initialized. */

 #else  /* ifndef GAMMA */

     /*

      * gamma launcher is simpler in that it doesn't handle VM flavors, data

      * model, etc. Assuming everything is set-up correctly

      * all we need to do here is to return correct path names. See also

      * GetJVMPath() and GetApplicationHome().

      */

   {

     if (!GetJREPath(jrepath, so_jrepath) ) {

        ReportErrorMessage("Error: could not find Java SE Runtime Environment.",

                           JNI_TRUE);

        exit(2);

     }

     if (!GetJVMPath(jrepath, NULL, jvmpath, so_jvmpath)) {

        char * message=NULL;

        const char * format = "Error: no JVM at `%s'.";

        message = (char *)JLI_MemAlloc((strlen(format)+

                                        strlen(jvmpath)) * sizeof(char));

        sprintf(message, format, jvmpath);

        ReportErrorMessage(message, JNI_TRUE);

        exit(4);

     }

   }

 #endif  /* ifndef GAMMA */

 }

 static jboolean

 LoadMSVCRT()

 {

     // Only do this once

     static int loaded = 0;

     char crtpath[MAXPATHLEN];

     if (!loaded) {

         /*

          * The Microsoft C Runtime Library needs to be loaded first.  A copy is

          * assumed to be present in the "JRE path" directory.  If it is not found

          * there (or "JRE path" fails to resolve), skip the explicit load and let

          * nature take its course, which is likely to be a failure to execute.

          */

         if (GetJREPath(crtpath, MAXPATHLEN)) {

             (void)strcat(crtpath, "\\bin\\" CRT_DLL);   /* Add crt dll */

             if (_launcher_debug) {

                 printf("CRT path is %s\n", crtpath);

             }

             if (_access(crtpath, 0) == 0) {

                 if (LoadLibrary(crtpath) == 0) {

                     ReportErrorMessage2("Error loading: %s", crtpath, JNI_TRUE);

                     return JNI_FALSE;

                 }

             }

         }

         loaded = 1;

     }

     return JNI_TRUE;

 }

 /*

  * The preJVMStart is a function in the jkernel.dll, which

  * performs the final step of synthesizing back the decomposed

  * modules  (partial install) to the full JRE. Any tool which

  * uses the  JRE must peform this step to ensure the complete synthesis.

  * The EnsureJreInstallation function calls preJVMStart based on

  * the conditions outlined below, noting that the operation

  * will fail silently if any of conditions are not met.

  * NOTE: this call must be made before jvm.dll is loaded, or jvm.cfg

  * is read, since jvm.cfg will be modified by the preJVMStart.

  * 1. Are we on a supported platform.

  * 2. Find the location of the JRE or the Kernel JRE.

  * 3. check existence of JREHOME/lib/bundles

  * 4. check jkernel.dll and invoke the entry-point

  */

 typedef VOID (WINAPI *PREJVMSTART)();

 static void

 EnsureJreInstallation(const char* jrepath)

 {

     HINSTANCE handle;

     char tmpbuf[MAXPATHLEN];

     PREJVMSTART PreJVMStart;

     struct stat s;

     /* 32 bit windows only please */

     if (strcmp(GetArch(), "i386") != 0 ) {

         if (_launcher_debug) {

             printf("EnsureJreInstallation:unsupported platform\n");

         }

         return;

     }

     /* Does our bundle directory exist ? */

     strcpy(tmpbuf, jrepath);

     strcat(tmpbuf, "\\lib\\bundles");

     if (stat(tmpbuf, &s) != 0) {

         if (_launcher_debug) {

             printf("EnsureJreInstallation:<%s>:not found\n", tmpbuf);

         }

         return;

     }

     /* Does our jkernel dll exist ? */

     strcpy(tmpbuf, jrepath);

     strcat(tmpbuf, "\\bin\\jkernel.dll");

     if (stat(tmpbuf, &s) != 0) {

         if (_launcher_debug) {

             printf("EnsureJreInstallation:<%s>:not found\n", tmpbuf);

         }

         return;

     }

     /* The Microsoft C Runtime Library needs to be loaded first. */

     if (!LoadMSVCRT()) {

         if (_launcher_debug) {

             printf("EnsureJreInstallation:could not load C runtime DLL\n");

         }

         return;

     }

     /* Load the jkernel.dll */

     if ((handle = LoadLibrary(tmpbuf)) == 0) {

         if (_launcher_debug) {

             printf("EnsureJreInstallation:%s:load failed\n", tmpbuf);

         }

         return;

     }

     /* Get the function address */

     PreJVMStart = (PREJVMSTART)GetProcAddress(handle, "preJVMStart");

     if (PreJVMStart == NULL) {

         if (_launcher_debug) {

             printf("EnsureJreInstallation:preJVMStart:function lookup failed\n");

         }

         FreeLibrary(handle);

         return;

     }

     PreJVMStart();

     if (_launcher_debug) {

         printf("EnsureJreInstallation:preJVMStart:called\n");

     }

     FreeLibrary(handle);

     return;

 }

 /*

  * Find path to JRE based on .exe's location or registry settings.

  */

 jboolean

 GetJREPath(char *path, jint pathsize)

 {

     char javadll[MAXPATHLEN];

     struct stat s;

     if (GetApplicationHome(path, pathsize)) {

         /* Is JRE co-located with the application? */

         sprintf(javadll, "%s\\bin\\" JAVA_DLL, path);

         if (stat(javadll, &s) == 0) {

             goto found;

         }

         /* Does this app ship a private JRE in <apphome>\jre directory? */

         sprintf(javadll, "%s\\jre\\bin\\" JAVA_DLL, path);

         if (stat(javadll, &s) == 0) {

             strcat(path, "\\jre");

             goto found;

         }

     }

 #ifndef GAMMA

     /* Look for a public JRE on this machine. */

     if (GetPublicJREHome(path, pathsize)) {

         goto found;

     }

 #endif

     fprintf(stderr, "Error: could not find " JAVA_DLL "\n");

     return JNI_FALSE;

  found:

     if (_launcher_debug)

       printf("JRE path is %s\n", path);

     return JNI_TRUE;

 }

 /*

  * Given a JRE location and a JVM type, construct what the name the

  * JVM shared library will be.  Return true, if such a library

  * exists, false otherwise.

  */

 static jboolean

 GetJVMPath(const char *jrepath, const char *jvmtype,

            char *jvmpath, jint jvmpathsize)

 {

     struct stat s;

 #ifndef GAMMA

     if (strchr(jvmtype, '/') || strchr(jvmtype, '\\')) {

         sprintf(jvmpath, "%s\\" JVM_DLL, jvmtype);

     } else {

         sprintf(jvmpath, "%s\\bin\\%s\\" JVM_DLL, jrepath, jvmtype);

     }

 #else

     /*

      * For gamma launcher, JVM is either built-in or in the same directory.

      * Either way we return "<exe_path>/jvm.dll" where <exe_path> is the

      * directory where gamma launcher is located.

      */

     char *p;

     GetModuleFileName(0, jvmpath, jvmpathsize);

     p = strrchr(jvmpath, '\\');

     if (p) {

        /* replace executable name with libjvm.so */

        snprintf(p + 1, jvmpathsize - (p + 1 - jvmpath), "%s", JVM_DLL);

     } else {

        /* this case shouldn't happen */

        snprintf(jvmpath, jvmpathsize, "%s", JVM_DLL);

     }

 #endif /* ifndef GAMMA */

     if (stat(jvmpath, &s) == 0) {

         return JNI_TRUE;

     } else {

         return JNI_FALSE;

     }

 }

 /*

  * Load a jvm from "jvmpath" and initialize the invocation functions.

  */

 jboolean

 LoadJavaVM(const char *jvmpath, InvocationFunctions *ifn)

 {

 #ifdef GAMMA

     /* JVM is directly linked with gamma launcher; no Loadlibrary() */

     ifn->CreateJavaVM = JNI_CreateJavaVM;

     ifn->GetDefaultJavaVMInitArgs = JNI_GetDefaultJavaVMInitArgs;

     return JNI_TRUE;

 #else

     HINSTANCE handle;

     if (_launcher_debug) {

         printf("JVM path is %s\n", jvmpath);

     }

     /* The Microsoft C Runtime Library needs to be loaded first. */

     LoadMSVCRT();

     /* Load the Java VM DLL */

     if ((handle = LoadLibrary(jvmpath)) == 0) {

         ReportErrorMessage2("Error loading: %s", (char *)jvmpath, JNI_TRUE);

         return JNI_FALSE;

     }

     /* Now get the function addresses */

     ifn->CreateJavaVM =

         (void *)GetProcAddress(handle, "JNI_CreateJavaVM");

     ifn->GetDefaultJavaVMInitArgs =

         (void *)GetProcAddress(handle, "JNI_GetDefaultJavaVMInitArgs");

     if (ifn->CreateJavaVM == 0 || ifn->GetDefaultJavaVMInitArgs == 0) {

         ReportErrorMessage2("Error: can't find JNI interfaces in: %s",

                             (char *)jvmpath, JNI_TRUE);

         return JNI_FALSE;

     }

     return JNI_TRUE;

 #endif /* ifndef GAMMA */

 }

 /*

  * If app is "c:\foo\bin\javac", then put "c:\foo" into buf.

  */

 jboolean

 GetApplicationHome(char *buf, jint bufsize)

 {

 #ifndef GAMMA

     char *cp;

     GetModuleFileName(0, buf, bufsize);

     *strrchr(buf, '\\') = '\0'; /* remove .exe file name */

     if ((cp = strrchr(buf, '\\')) == 0) {

         /* This happens if the application is in a drive root, and

          * there is no bin directory. */

         buf[0] = '\0';

         return JNI_FALSE;

     }

     *cp = '\0';  /* remove the bin\ part */

     return JNI_TRUE;

 #else /* ifndef GAMMA */

     char env[MAXPATHLEN + 1];

     /* gamma launcher uses ALT_JAVA_HOME environment variable or jdkpath.txt file to find JDK/JRE */

     if (getenv("ALT_JAVA_HOME") != NULL) {

        snprintf(buf, bufsize, "%s", getenv("ALT_JAVA_HOME"));

     }

     else {

        char path[MAXPATHLEN + 1];

        char* p;

        int len;

        FILE* fp;

        // find the path to the currect executable

        len = GetModuleFileName(NULL, path, MAXPATHLEN + 1);

        if (len == 0 || len > MAXPATHLEN) {

           printf("Could not get directory of current executable.");

           return JNI_FALSE;

        }

        // remove last path component ("hotspot.exe")

        p = strrchr(path, '\\');

        if (p == NULL) {

           printf("Could not parse directory of current executable.\n");

           return JNI_FALSE;

        }

        *p = '\0';

        // open jdkpath.txt and read JAVA_HOME from it

        if (strlen(path) + strlen("\\jdkpath.txt") + 1 >= MAXPATHLEN) {

           printf("Path too long: %s\n", path);

           return JNI_FALSE;

        }

        strcat(path, "\\jdkpath.txt");

        fp = fopen(path, "r");

        if (fp == NULL) {

           printf("Could not open file %s to get path to JDK.\n", path);

           return JNI_FALSE;

        }

        if (fgets(buf, bufsize, fp) == NULL) {

           printf("Could not read from file %s to get path to JDK.\n", path);

           fclose(fp);

           return JNI_FALSE;

        }

        // trim the buffer

        p = buf + strlen(buf) - 1;

        while(isspace(*p)) {

           *p = '\0';

           p--;

        }

        fclose(fp);

     }

     _snprintf(env, MAXPATHLEN, "JAVA_HOME=%s", buf);

     _putenv(env);

     return JNI_TRUE;

 #endif /* ifndef GAMMA */

 }

 #ifdef JAVAW

 __declspec(dllimport) char **__initenv;

 int WINAPI

 WinMain(HINSTANCE inst, HINSTANCE previnst, LPSTR cmdline, int cmdshow)

 {

     int   ret;

     __initenv = _environ;

     ret = main(__argc, __argv);

     return ret;

 }

 #endif

 #ifndef GAMMA

 /*

  * Helpers to look in the registry for a public JRE.

  */

                     /* Same for 1.5.0, 1.5.1, 1.5.2 etc. */

 #define DOTRELEASE  JDK_MAJOR_VERSION "." JDK_MINOR_VERSION

 #define JRE_KEY     "Software\\JavaSoft\\Java Runtime Environment"

 static jboolean

 GetStringFromRegistry(HKEY key, const char *name, char *buf, jint bufsize)

 {

     DWORD type, size;

     if (RegQueryValueEx(key, name, 0, &type, 0, &size) == 0

         && type == REG_SZ

         && (size < (unsigned int)bufsize)) {

         if (RegQueryValueEx(key, name, 0, 0, buf, &size) == 0) {

             return JNI_TRUE;

         }

     }

     return JNI_FALSE;

 }

 static jboolean

 GetPublicJREHome(char *buf, jint bufsize)

 {

     HKEY key, subkey;

     char version[MAXPATHLEN];

     /*

      * Note: There is a very similar implementation of the following

      * registry reading code in the Windows java control panel (javacp.cpl).

      * If there are bugs here, a similar bug probably exists there.  Hence,

      * changes here require inspection there.

      */

     /* Find the current version of the JRE */

     if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, JRE_KEY, 0, KEY_READ, &key) != 0) {

         fprintf(stderr, "Error opening registry key '" JRE_KEY "'\n");

         return JNI_FALSE;

     }

     if (!GetStringFromRegistry(key, "CurrentVersion",

                                version, sizeof(version))) {

         fprintf(stderr, "Failed reading value of registry key:\n\t"

                 JRE_KEY "\\CurrentVersion\n");

         RegCloseKey(key);

         return JNI_FALSE;

     }

     if (strcmp(version, DOTRELEASE) != 0) {

         fprintf(stderr, "Registry key '" JRE_KEY "\\CurrentVersion'\nhas "

                 "value '%s', but '" DOTRELEASE "' is required.\n", version);

         RegCloseKey(key);

         return JNI_FALSE;

     }

     /* Find directory where the current version is installed. */

     if (RegOpenKeyEx(key, version, 0, KEY_READ, &subkey) != 0) {

         fprintf(stderr, "Error opening registry key '"

                 JRE_KEY "\\%s'\n", version);

         RegCloseKey(key);

         return JNI_FALSE;

     }

     if (!GetStringFromRegistry(subkey, "JavaHome", buf, bufsize)) {

         fprintf(stderr, "Failed reading value of registry key:\n\t"

                 JRE_KEY "\\%s\\JavaHome\n", version);

         RegCloseKey(key);

         RegCloseKey(subkey);

         return JNI_FALSE;

     }

     if (_launcher_debug) {

         char micro[MAXPATHLEN];

         if (!GetStringFromRegistry(subkey, "MicroVersion", micro,

                                    sizeof(micro))) {

             printf("Warning: Can't read MicroVersion\n");

             micro[0] = '\0';

         }

         printf("Version major.minor.micro = %s.%s\n", version, micro);

     }

     RegCloseKey(key);

     RegCloseKey(subkey);

     return JNI_TRUE;

 }

 #endif /* ifndef GAMMA */

 /*

  * Support for doing cheap, accurate interval timing.

  */

 static jboolean counterAvailable = JNI_FALSE;

 static jboolean counterInitialized = JNI_FALSE;

 static LARGE_INTEGER counterFrequency;

 jlong CounterGet()

 {

     LARGE_INTEGER count;

     if (!counterInitialized) {

         counterAvailable = QueryPerformanceFrequency(&counterFrequency);

         counterInitialized = JNI_TRUE;

     }

     if (!counterAvailable) {

         return 0;

     }

     QueryPerformanceCounter(&count);

     return (jlong)(count.QuadPart);

 }

 jlong Counter2Micros(jlong counts)

 {

     if (!counterAvailable || !counterInitialized) {

         return 0;

     }

     return (counts * 1000 * 1000)/counterFrequency.QuadPart;

 }

 void ReportErrorMessage(char * message, jboolean always) {

 #ifdef JAVAW

   if (message != NULL) {

     MessageBox(NULL, message, "Java Virtual Machine Launcher",

                (MB_OK|MB_ICONSTOP|MB_APPLMODAL));

   }

 #else

   if (always) {

     fprintf(stderr, "%s\n", message);

   }

 #endif

 }

 void ReportErrorMessage2(char * format, char * string, jboolean always) {

   /*

    * The format argument must be a printf format string with one %s

    * argument, which is passed the string argument.

    */

 #ifdef JAVAW

   size_t size;

   char * message;

   size = strlen(format) + strlen(string);

   message = (char*)JLI_MemAlloc(size*sizeof(char));

   sprintf(message, (const char *)format, string);

   if (message != NULL) {

     MessageBox(NULL, message, "Java Virtual Machine Launcher",

                (MB_OK|MB_ICONSTOP|MB_APPLMODAL));

     JLI_MemFree(message);

   }

 #else

   if (always) {

     fprintf(stderr, (const char *)format, string);

     fprintf(stderr, "\n");

   }

 #endif

 }

 /*

  * As ReportErrorMessage2 (above) except the system message (if any)

  * associated with this error is written to a second %s format specifier

  * in the format argument.

  */

 void ReportSysErrorMessage2(char * format, char * string, jboolean always) {

   int   save_errno = errno;

   DWORD errval;

   int   freeit = 0;

   char  *errtext = NULL;

   if ((errval = GetLastError()) != 0) {         /* Platform SDK / DOS Error */

     int n = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|

       FORMAT_MESSAGE_IGNORE_INSERTS|FORMAT_MESSAGE_ALLOCATE_BUFFER,

       NULL, errval, 0, (LPTSTR)&errtext, 0, NULL);

     if (errtext == NULL || n == 0) {            /* Paranoia check */

       errtext = "";

       n = 0;

     } else {

       freeit = 1;

       if (n > 2) {                              /* Drop final CR, LF */

         if (errtext[n - 1] == '\n') n--;

         if (errtext[n - 1] == '\r') n--;

         errtext[n] = '\0';

       }

     }

   } else        /* C runtime error that has no corresponding DOS error code */

     errtext = strerror(save_errno);

 #ifdef JAVAW

   {

     size_t size;

     char * message;

     size = strlen(format) + strlen(string) + strlen(errtext);

     message = (char*)JLI_MemAlloc(size*sizeof(char));

     sprintf(message, (const char *)format, string, errtext);

     if (message != NULL) {

       MessageBox(NULL, message, "Java Virtual Machine Launcher",

                (MB_OK|MB_ICONSTOP|MB_APPLMODAL));

       JLI_MemFree(message);

     }

   }

 #else

   if (always) {

     fprintf(stderr, (const char *)format, string, errtext);

     fprintf(stderr, "\n");

   }

 #endif

   if (freeit)

     (void)LocalFree((HLOCAL)errtext);

 }

 void  ReportExceptionDescription(JNIEnv * env) {

 #ifdef JAVAW

   /*

    * This code should be replaced by code which opens a window with

    * the exception detail message.

    */

   (*env)->ExceptionDescribe(env);

 #else

   (*env)->ExceptionDescribe(env);

 #endif

 }

 /*

  * Return JNI_TRUE for an option string that has no effect but should

  * _not_ be passed on to the vm; return JNI_FALSE otherwise. On

  * windows, there are no options that should be screened in this

  * manner.

  */

 jboolean RemovableMachineDependentOption(char * option) {

 #ifdef ENABLE_AWT_PRELOAD

     if (awtPreloadD3D < 0) {

         /* Tests the command line parameter only if not set yet. */

         if (GetBoolParamValue(PARAM_PRELOAD_D3D, option) == 1) {

             awtPreloadD3D = 1;

         }

     }

     if (awtPreloadD3D != 0) {

         /* Don't test the command line parameters if already disabled. */

         if (GetBoolParamValue(PARAM_NODDRAW, option) == 1

             || GetBoolParamValue(PARAM_D3D, option) == 0

             || GetBoolParamValue(PARAM_OPENGL, option) == 1)

         {

             awtPreloadD3D = 0;

         }

     }

 #endif /* ENABLE_AWT_PRELOAD */

     return JNI_FALSE;

 }

 void PrintMachineDependentOptions() {

   return;

 }

 #ifndef GAMMA

 jboolean

 ServerClassMachine() {

   jboolean result = JNI_FALSE;

 #if   defined(NEVER_ACT_AS_SERVER_CLASS_MACHINE)

   result = JNI_FALSE;

 #elif defined(ALWAYS_ACT_AS_SERVER_CLASS_MACHINE)

   result = JNI_TRUE;

 #endif

   return result;

 }

 /*

  * Determine if there is an acceptable JRE in the registry directory top_key.

  * Upon locating the "best" one, return a fully qualified path to it.

  * "Best" is defined as the most advanced JRE meeting the constraints

  * contained in the manifest_info. If no JRE in this directory meets the

  * constraints, return NULL.

  *

  * It doesn't matter if we get an error reading the registry, or we just

  * don't find anything interesting in the directory.  We just return NULL

  * in either case.

  */

 static char *

 ProcessDir(manifest_info* info, HKEY top_key) {

     DWORD   index = 0;

     HKEY    ver_key;

     char    name[MAXNAMELEN];

     int     len;

     char    *best = NULL;

     /*

      * Enumerate "<top_key>/SOFTWARE/JavaSoft/Java Runtime Environment"

      * searching for the best available version.

      */

     while (RegEnumKey(top_key, index, name, MAXNAMELEN) == ERROR_SUCCESS) {

         index++;

         if (JLI_AcceptableRelease(name, info->jre_version))

             if ((best == NULL) || (JLI_ExactVersionId(name, best) > 0)) {

                 if (best != NULL)

                     JLI_MemFree(best);

                 best = JLI_StringDup(name);

             }

     }

     /*

      * Extract "JavaHome" from the "best" registry directory and return

      * that path.  If no appropriate version was located, or there is an

      * error in extracting the "JavaHome" string, return null.

      */

     if (best == NULL)

         return (NULL);

     else {

         if (RegOpenKeyEx(top_key, best, 0, KEY_READ, &ver_key)

           != ERROR_SUCCESS) {

             JLI_MemFree(best);

             if (ver_key != NULL)

                 RegCloseKey(ver_key);

             return (NULL);

         }

         JLI_MemFree(best);

         len = MAXNAMELEN;

         if (RegQueryValueEx(ver_key, "JavaHome", NULL, NULL, (LPBYTE)name, &len)

           != ERROR_SUCCESS) {

             if (ver_key != NULL)

                 RegCloseKey(ver_key);

             return (NULL);

         }

         if (ver_key != NULL)

             RegCloseKey(ver_key);

         return (JLI_StringDup(name));

     }

 }

 /*

  * This is the global entry point. It examines the host for the optimal

  * JRE to be used by scanning a set of registry entries.  This set of entries

  * is hardwired on Windows as "Software\JavaSoft\Java Runtime Environment"

  * under the set of roots "{ HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE }".

  *

  * This routine simply opens each of these registry directories before passing

  * control onto ProcessDir().

  */

 char *

 LocateJRE(manifest_info* info) {

     HKEY    key = NULL;

     char    *path;

     int     key_index;

     HKEY    root_keys[2] = { HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE };

     for (key_index = 0; key_index <= 1; key_index++) {

         if (RegOpenKeyEx(root_keys[key_index], JRE_KEY, 0, KEY_READ, &key)

           == ERROR_SUCCESS)

             if ((path = ProcessDir(info, key)) != NULL) {

                 if (key != NULL)

                     RegCloseKey(key);

                 return (path);

             }

         if (key != NULL)

             RegCloseKey(key);

     }

     return NULL;

 }

 /*

  * Local helper routine to isolate a single token (option or argument)

  * from the command line.

  *

  * This routine accepts a pointer to a character pointer.  The first

  * token (as defined by MSDN command-line argument syntax) is isolated

  * from that string.

  *

  * Upon return, the input character pointer pointed to by the parameter s

  * is updated to point to the remainding, unscanned, portion of the string,

  * or to a null character if the entire string has been consummed.

  *

  * This function returns a pointer to a null-terminated string which

  * contains the isolated first token, or to the null character if no

  * token could be isolated.

  *

  * Note the side effect of modifying the input string s by the insertion

  * of a null character, making it two strings.

  *

  * See "Parsing C Command-Line Arguments" in the MSDN Library for the

  * parsing rule details.  The rule summary from that specification is:

  *

  *  * Arguments are delimited by white space, which is either a space or a tab.

  *

  *  * A string surrounded by double quotation marks is interpreted as a single

  *    argument, regardless of white space contained within. A quoted string can

  *    be embedded in an argument. Note that the caret (^) is not recognized as

  *    an escape character or delimiter.

  *

  *  * A double quotation mark preceded by a backslash, \", is interpreted as a

  *    literal double quotation mark (").

  *

  *  * Backslashes are interpreted literally, unless they immediately precede a

  *    double quotation mark.

  *

  *  * If an even number of backslashes is followed by a double quotation mark,

  *    then one backslash (\) is placed in the argv array for every pair of

  *    backslashes (\\), and the double quotation mark (") is interpreted as a

  *    string delimiter.

  *

  *  * If an odd number of backslashes is followed by a double quotation mark,

  *    then one backslash (\) is placed in the argv array for every pair of

  *    backslashes (\\) and the double quotation mark is interpreted as an

  *    escape sequence by the remaining backslash, causing a literal double

  *    quotation mark (") to be placed in argv.

  */

 static char*

 nextarg(char** s) {

     char    *p = *s;

     char    *head;

     int     slashes = 0;

     int     inquote = 0;

     /*

      * Strip leading whitespace, which MSDN defines as only space or tab.

      * (Hence, no locale specific "isspace" here.)

      */

     while (*p != (char)0 && (*p == ' ' || *p == '\t'))

         p++;

     head = p;                   /* Save the start of the token to return */

     /*

      * Isolate a token from the command line.

      */

     while (*p != (char)0 && (inquote || !(*p == ' ' || *p == '\t'))) {

         if (*p == '\\' && *(p+1) == '"' && slashes % 2 == 0)

             p++;

         else if (*p == '"')

             inquote = !inquote;

         slashes = (*p++ == '\\') ? slashes + 1 : 0;

     }

     /*

      * If the token isolated isn't already terminated in a "char zero",

      * then replace the whitespace character with one and move to the

      * next character.

      */

     if (*p != (char)0)

         *p++ = (char)0;

     /*

      * Update the parameter to point to the head of the remaining string

      * reflecting the command line and return a pointer to the leading

      * token which was isolated from the command line.

      */

     *s = p;

     return (head);

 }

 /*

  * Local helper routine to return a string equivalent to the input string

  * s, but with quotes removed so the result is a string as would be found

  * in argv[].  The returned string should be freed by a call to JLI_MemFree().

  *

  * The rules for quoting (and escaped quotes) are:

  *

  *  1 A double quotation mark preceded by a backslash, \", is interpreted as a

  *    literal double quotation mark (").

  *

  *  2 Backslashes are interpreted literally, unless they immediately precede a

  *    double quotation mark.

  *

  *  3 If an even number of backslashes is followed by a double quotation mark,

  *    then one backslash (\) is placed in the argv array for every pair of

  *    backslashes (\\), and the double quotation mark (") is interpreted as a

  *    string delimiter.

  *

  *  4 If an odd number of backslashes is followed by a double quotation mark,

  *    then one backslash (\) is placed in the argv array for every pair of

  *    backslashes (\\) and the double quotation mark is interpreted as an

  *    escape sequence by the remaining backslash, causing a literal double

  *    quotation mark (") to be placed in argv.

  */

 static char*

 unquote(const char *s) {

     const char *p = s;          /* Pointer to the tail of the original string */

     char *un = (char*)JLI_MemAlloc(strlen(s) + 1);  /* Ptr to unquoted string */

     char *pun = un;             /* Pointer to the tail of the unquoted string */

     while (*p != '\0') {

         if (*p == '"') {

             p++;

         } else if (*p == '\\') {

             const char *q = p + strspn(p,"\\");

             if (*q == '"')

                 do {

                     *pun++ = '\\';

                     p += 2;

                  } while (*p == '\\' && p < q);

             else

                 while (p < q)

                     *pun++ = *p++;

         } else {

             *pun++ = *p++;

         }

     }

     *pun = '\0';

     return un;

 }

 /*

  * Given a path to a jre to execute, this routine checks if this process

  * is indeed that jre.  If not, it exec's that jre.

  *

  * We want to actually check the paths rather than just the version string

  * built into the executable, so that given version specification will yield

  * the exact same Java environment, regardless of the version of the arbitrary

  * launcher we start with.

  */

 void

 ExecJRE(char *jre, char **argv) {

     int     len;

     char    *progname;

     char    path[MAXPATHLEN + 1];

     /*

      * Determine the executable we are building (or in the rare case, running).

      */

 #ifdef JAVA_ARGS  /* javac, jar and friends. */

     progname = "java";

 #else             /* java, oldjava, javaw and friends */

 #ifdef PROGNAME

     progname = PROGNAME;

 #else

     {

         char *s;

         progname = *argv;

         if ((s = strrchr(progname, FILE_SEPARATOR)) != 0) {

             progname = s + 1;

         }

     }

 #endif /* PROGNAME */

 #endif /* JAVA_ARGS */

     /*

      * Resolve the real path to the currently running launcher.

      */

     len = GetModuleFileName(NULL, path, MAXPATHLEN + 1);

     if (len == 0 || len > MAXPATHLEN) {

         ReportSysErrorMessage2(

           "Unable to resolve path to current %s executable: %s",

           progname, JNI_TRUE);

         exit(1);

     }

     if (_launcher_debug) {

         printf("ExecJRE: old: %s\n", path);

         printf("ExecJRE: new: %s\n", jre);

     }

     /*

      * If the path to the selected JRE directory is a match to the initial

      * portion of the path to the currently executing JRE, we have a winner!

      * If so, just return. (strnicmp() is the Windows equiv. of strncasecmp().)

      */

     if (strnicmp(jre, path, strlen(jre)) == 0)

         return;                 /* I am the droid you were looking for */

     /*

      * If this isn't the selected version, exec the selected version.

      */

     (void)strcat(strcat(strcpy(path, jre), "\\bin\\"), progname);

     (void)strcat(path, ".exe");

     /*

      * Although Windows has an execv() entrypoint, it doesn't actually

      * overlay a process: it can only create a new process and terminate

      * the old process.  Therefore, any processes waiting on the initial

      * process wake up and they shouldn't.  Hence, a chain of pseudo-zombie

      * processes must be retained to maintain the proper wait semantics.

      * Fortunately the image size of the launcher isn't too large at this

      * time.

      *

      * If it weren't for this semantic flaw, the code below would be ...

      *

      *     execv(path, argv);

      *     ReportErrorMessage2("Exec of %s failed\n", path, JNI_TRUE);

      *     exit(1);

      *

      * The incorrect exec semantics could be addressed by:

      *

      *     exit((int)spawnv(_P_WAIT, path, argv));

      *

      * Unfortunately, a bug in Windows spawn/exec impementation prevents

      * this from completely working.  All the Windows POSIX process creation

      * interfaces are implemented as wrappers around the native Windows

      * function CreateProcess().  CreateProcess() takes a single string

      * to specify command line options and arguments, so the POSIX routine

      * wrappers build a single string from the argv[] array and in the

      * process, any quoting information is lost.

      *

      * The solution to this to get the original command line, to process it

      * to remove the new multiple JRE options (if any) as was done for argv

      * in the common SelectVersion() routine and finally to pass it directly

      * to the native CreateProcess() Windows process control interface.

      */

     {

         char    *cmdline;

         char    *p;

         char    *np;

         char    *ocl;

         char    *ccl;

         char    *unquoted;

         DWORD   exitCode;

         STARTUPINFO si;

         PROCESS_INFORMATION pi;

         /*

          * The following code block gets and processes the original command

          * line, replacing the argv[0] equivalent in the command line with

          * the path to the new executable and removing the appropriate

          * Multiple JRE support options. Note that similar logic exists

          * in the platform independent SelectVersion routine, but is

          * replicated here due to the syntax of CreateProcess().

          *

          * The magic "+ 4" characters added to the command line length are

          * 2 possible quotes around the path (argv[0]), a space after the

          * path and a terminating null character.

          */

         ocl = GetCommandLine();

         np = ccl = JLI_StringDup(ocl);

         p = nextarg(&np);               /* Discard argv[0] */

         cmdline = (char *)JLI_MemAlloc(strlen(path) + strlen(np) + 4);

         if (strchr(path, (int)' ') == NULL && strchr(path, (int)'\t') == NULL)

             cmdline = strcpy(cmdline, path);

         else

             cmdline = strcat(strcat(strcpy(cmdline, "\""), path), "\"");

         while (*np != (char)0) {                /* While more command-line */

             p = nextarg(&np);

             if (*p != (char)0) {                /* If a token was isolated */

                 unquoted = unquote(p);

                 if (*unquoted == '-') {         /* Looks like an option */

                     if (strcmp(unquoted, "-classpath") == 0 ||

                       strcmp(unquoted, "-cp") == 0) {   /* Unique cp syntax */

                         cmdline = strcat(strcat(cmdline, " "), p);

                         p = nextarg(&np);

                         if (*p != (char)0)      /* If a token was isolated */

                             cmdline = strcat(strcat(cmdline, " "), p);

                     } else if (strncmp(unquoted, "-version:", 9) != 0 &&

                       strcmp(unquoted, "-jre-restrict-search") != 0 &&

                       strcmp(unquoted, "-no-jre-restrict-search") != 0) {

                         cmdline = strcat(strcat(cmdline, " "), p);

                     }

                 } else {                        /* End of options */

                     cmdline = strcat(strcat(cmdline, " "), p);

                     cmdline = strcat(strcat(cmdline, " "), np);

                     JLI_MemFree((void *)unquoted);

                     break;

                 }

                 JLI_MemFree((void *)unquoted);

             }

         }

         JLI_MemFree((void *)ccl);

         if (_launcher_debug) {

             np = ccl = JLI_StringDup(cmdline);

             p = nextarg(&np);

             printf("ReExec Command: %s (%s)\n", path, p);

             printf("ReExec Args: %s\n", np);

             JLI_MemFree((void *)ccl);

         }

         (void)fflush(stdout);

         (void)fflush(stderr);

         /*

          * The following code is modeled after a model presented in the

          * Microsoft Technical Article "Moving Unix Applications to

          * Windows NT" (March 6, 1994) and "Creating Processes" on MSDN

          * (Februrary 2005).  It approximates UNIX spawn semantics with

          * the parent waiting for termination of the child.

          */

         memset(&si, 0, sizeof(si));

         si.cb =sizeof(STARTUPINFO);

         memset(&pi, 0, sizeof(pi));

         if (!CreateProcess((LPCTSTR)path,       /* executable name */

           (LPTSTR)cmdline,                      /* command line */

           (LPSECURITY_ATTRIBUTES)NULL,          /* process security attr. */

           (LPSECURITY_ATTRIBUTES)NULL,          /* thread security attr. */

           (BOOL)TRUE,                           /* inherits system handles */

           (DWORD)0,                             /* creation flags */

           (LPVOID)NULL,                         /* environment block */

           (LPCTSTR)NULL,                        /* current directory */

           (LPSTARTUPINFO)&si,                   /* (in) startup information */

           (LPPROCESS_INFORMATION)&pi)) {        /* (out) process information */

             ReportSysErrorMessage2("CreateProcess(%s, ...) failed: %s",

               path, JNI_TRUE);

               exit(1);

         }

         if (WaitForSingleObject(pi.hProcess, INFINITE) != WAIT_FAILED) {

             if (GetExitCodeProcess(pi.hProcess, &exitCode) == FALSE)

                 exitCode = 1;

         } else {

             ReportErrorMessage("WaitForSingleObject() failed.", JNI_TRUE);

             exitCode = 1;

         }

         CloseHandle(pi.hThread);

         CloseHandle(pi.hProcess);

         exit(exitCode);

     }

 }

 #endif /* ifndef GAMMA */

 /*

  * Wrapper for platform dependent unsetenv function.

  */

 int

 UnsetEnv(char *name)

 {

     int ret;

     char *buf = JLI_MemAlloc(strlen(name) + 2);

     buf = strcat(strcpy(buf, name), "=");

     ret = _putenv(buf);

     JLI_MemFree(buf);

     return (ret);

 }

 /* --- Splash Screen shared library support --- */

 static const char* SPLASHSCREEN_SO = "\\bin\\splashscreen.dll";

 static HMODULE hSplashLib = NULL;

 void* SplashProcAddress(const char* name) {

     char libraryPath[MAXPATHLEN]; /* some extra space for strcat'ing SPLASHSCREEN_SO */

     if (!GetJREPath(libraryPath, MAXPATHLEN)) {

         return NULL;

     }

     if (strlen(libraryPath)+strlen(SPLASHSCREEN_SO) >= MAXPATHLEN) {

         return NULL;

     }

     strcat(libraryPath, SPLASHSCREEN_SO);

     if (!hSplashLib) {

         hSplashLib = LoadLibrary(libraryPath);

     }

     if (hSplashLib) {

         return GetProcAddress(hSplashLib, name);

     } else {

         return NULL;

     }

 }

 void SplashFreeLibrary() {

     if (hSplashLib) {

         FreeLibrary(hSplashLib);

         hSplashLib = NULL;

     }

 }

 const char *

 jlong_format_specifier() {

     return "%I64d";

 }

 /*

  * Block current thread and continue execution in a new thread

  */

 int

 ContinueInNewThread(int (JNICALL *continuation)(void *), jlong stack_size, void * args) {

     int rslt = 0;

     unsigned thread_id;

 #ifndef STACK_SIZE_PARAM_IS_A_RESERVATION

 #define STACK_SIZE_PARAM_IS_A_RESERVATION  (0x10000)

 #endif

     /*

      * STACK_SIZE_PARAM_IS_A_RESERVATION is what we want, but it's not

      * supported on older version of Windows. Try first with the flag; and

      * if that fails try again without the flag. See MSDN document or HotSpot

      * source (os_win32.cpp) for details.

      */

     HANDLE thread_handle =

       (HANDLE)_beginthreadex(NULL,

                              (unsigned)stack_size,

                              continuation,

                              args,

                              STACK_SIZE_PARAM_IS_A_RESERVATION,

                              &thread_id);

     if (thread_handle == NULL) {

       thread_handle =

       (HANDLE)_beginthreadex(NULL,

                              (unsigned)stack_size,

                              continuation,

                              args,

                              0,

                              &thread_id);

     }

     /* AWT preloading (AFTER main thread start) */

 #ifdef ENABLE_AWT_PRELOAD

     /* D3D preloading */

     if (awtPreloadD3D != 0) {

         char *envValue;

         /* D3D routines checks env.var J2D_D3D if no appropriate

          * command line params was specified

          */

         envValue = getenv("J2D_D3D");

         if (envValue != NULL && stricmp(envValue, "false") == 0) {

             awtPreloadD3D = 0;

         }

         /* Test that AWT preloading isn't disabled by J2D_D3D_PRELOAD env.var */

         envValue = getenv("J2D_D3D_PRELOAD");

         if (envValue != NULL && stricmp(envValue, "false") == 0) {

             awtPreloadD3D = 0;

         }

         if (awtPreloadD3D < 0) {

             /* If awtPreloadD3D is still undefined (-1), test

              * if it is turned on by J2D_D3D_PRELOAD env.var.

              * By default it's turned OFF.

              */

             awtPreloadD3D = 0;

             if (envValue != NULL && stricmp(envValue, "true") == 0) {

                 awtPreloadD3D = 1;

             }

         }

     }

     if (awtPreloadD3D) {

         AWTPreload(D3D_PRELOAD_FUNC);

     }

 #endif /* ENABLE_AWT_PRELOAD */

     if (thread_handle) {

       WaitForSingleObject(thread_handle, INFINITE);

       GetExitCodeThread(thread_handle, &rslt);

       CloseHandle(thread_handle);

     } else {

       rslt = continuation(args);

     }

 #ifdef ENABLE_AWT_PRELOAD

     if (awtPreloaded) {

         AWTPreloadStop();

     }

 #endif /* ENABLE_AWT_PRELOAD */

     return rslt;

 }

 /* Linux only, empty on windows. */

 void SetJavaLauncherPlatformProps() {}

 //==============================

 // AWT preloading

 #ifdef ENABLE_AWT_PRELOAD

 typedef int FnPreloadStart(void);

 typedef void FnPreloadStop(void);

 static FnPreloadStop *fnPreloadStop = NULL;

 static HMODULE hPreloadAwt = NULL;

 /*

  * Starts AWT preloading

  */

 int AWTPreload(const char *funcName)

 {

     int result = -1;

     // load AWT library once (if several preload function should be called)

     if (hPreloadAwt == NULL) {

         // awt.dll is not loaded yet

         char libraryPath[MAXPATHLEN];

         int jrePathLen = 0;

         HMODULE hJava = NULL;

         HMODULE hVerify = NULL;

         while (1) {

             // awt.dll depends on jvm.dll & java.dll;

             // jvm.dll is already loaded, so we need only java.dll;

             // java.dll depends on MSVCRT lib & verify.dll.

             if (!GetJREPath(libraryPath, MAXPATHLEN)) {

                 break;

             }

             // save path length

             jrePathLen = strlen(libraryPath);

             // load msvcrt 1st

             LoadMSVCRT();

             // load verify.dll

             strcat(libraryPath, "\\bin\\verify.dll");

             hVerify = LoadLibrary(libraryPath);

             if (hVerify == NULL) {

                 break;

             }

             // restore jrePath

             libraryPath[jrePathLen] = 0;

             // load java.dll

             strcat(libraryPath, "\\bin\\" JAVA_DLL);

             hJava = LoadLibrary(libraryPath);

             if (hJava == NULL) {

                 break;

             }

             // restore jrePath

             libraryPath[jrePathLen] = 0;

             // load awt.dll

             strcat(libraryPath, "\\bin\\awt.dll");

             hPreloadAwt = LoadLibrary(libraryPath);

             if (hPreloadAwt == NULL) {

                 break;

             }

             // get "preloadStop" func ptr

             fnPreloadStop = (FnPreloadStop *)GetProcAddress(hPreloadAwt, "preloadStop");

             break;

         }

     }

     if (hPreloadAwt != NULL) {

         FnPreloadStart *fnInit = (FnPreloadStart *)GetProcAddress(hPreloadAwt, funcName);

         if (fnInit != NULL) {

             // don't forget to stop preloading

             awtPreloaded = 1;

             result = fnInit();

         }

     }

     return result;

 }

 /*

  * Terminates AWT preloading

  */

 void AWTPreloadStop() {

     if (fnPreloadStop != NULL) {

         fnPreloadStop();

     }

 }

 #endif /* ENABLE_AWT_PRELOAD */