1 /*
   2  * Copyright (c) 1997, 2020, Oracle and/or its affiliates. All rights reserved.
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * This code is free software; you can redistribute it and/or modify it
   6  * under the terms of the GNU General Public License version 2 only, as
   7  * published by the Free Software Foundation.  Oracle designates this
   8  * particular file as subject to the "Classpath" exception as provided
   9  * by Oracle in the LICENSE file that accompanied this code.
  10  *
  11  * This code is distributed in the hope that it will be useful, but WITHOUT
  12  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14  * version 2 for more details (a copy is included in the LICENSE file that
  15  * accompanied this code).
  16  *
  17  * You should have received a copy of the GNU General Public License version
  18  * 2 along with this work; if not, write to the Free Software Foundation,
  19  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
  20  *
  21  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
  22  * or visit www.oracle.com if you need additional information or have any
  23  * questions.
  24  */
  25 
  26 #include <windows.h>
  27 #include <io.h>
  28 #include <process.h>
  29 #include <stdlib.h>
  30 #include <stdio.h>
  31 #include <stdarg.h>
  32 #include <string.h>
  33 #include <sys/types.h>
  34 #include <sys/stat.h>
  35 #include <wtypes.h>
  36 #include <commctrl.h>
  37 #include <assert.h>
  38 
  39 #include <jni.h>
  40 #include "java.h"
  41 
  42 #define JVM_DLL "jvm.dll"
  43 #define JAVA_DLL "java.dll"
  44 
  45 /*
  46  * Prototypes.
  47  */
  48 static jboolean GetJVMPath(const char *jrepath, const char *jvmtype,
  49                            char *jvmpath, jint jvmpathsize);
  50 static jboolean GetJREPath(char *path, jint pathsize);
  51 
  52 #ifdef USE_REGISTRY_LOOKUP
  53 jboolean GetPublicJREHome(char *buf, jint bufsize);
  54 #endif
  55 
  56 /* We supports warmup for UI stack that is performed in parallel
  57  * to VM initialization.
  58  * This helps to improve startup of UI application as warmup phase
  59  * might be long due to initialization of OS or hardware resources.
  60  * It is not CPU bound and therefore it does not interfere with VM init.
  61  * Obviously such warmup only has sense for UI apps and therefore it needs
  62  * to be explicitly requested by passing -Dsun.awt.warmup=true property
  63  * (this is always the case for plugin/javaws).
  64  *
  65  * Implementation launches new thread after VM starts and use it to perform
  66  * warmup code (platform dependent).
  67  * This thread is later reused as AWT toolkit thread as graphics toolkit
  68  * often assume that they are used from the same thread they were launched on.
  69  *
  70  * At the moment we only support warmup for D3D. It only possible on windows
  71  * and only if other flags do not prohibit this (e.g. OpenGL support requested).
  72  */
  73 #undef ENABLE_AWT_PRELOAD
  74 #ifndef JAVA_ARGS /* turn off AWT preloading for javac, jar, etc */
  75     /* CR6999872: fastdebug crashes if awt library is loaded before JVM is
  76      * initialized*/
  77     #if !defined(DEBUG)
  78         #define ENABLE_AWT_PRELOAD
  79     #endif
  80 #endif
  81 
  82 #ifdef ENABLE_AWT_PRELOAD
  83 /* "AWT was preloaded" flag;
  84  * turned on by AWTPreload().
  85  */
  86 int awtPreloaded = 0;
  87 
  88 /* Calls a function with the name specified
  89  * the function must be int(*fn)(void).
  90  */
  91 int AWTPreload(const char *funcName);
  92 /* stops AWT preloading */
  93 void AWTPreloadStop();
  94 
  95 /* D3D preloading */
  96 /* -1: not initialized; 0: OFF, 1: ON */
  97 int awtPreloadD3D = -1;
  98 /* command line parameter to swith D3D preloading on */
  99 #define PARAM_PRELOAD_D3D "-Dsun.awt.warmup"
 100 /* D3D/OpenGL management parameters */
 101 #define PARAM_NODDRAW "-Dsun.java2d.noddraw"
 102 #define PARAM_D3D "-Dsun.java2d.d3d"
 103 #define PARAM_OPENGL "-Dsun.java2d.opengl"
 104 /* funtion in awt.dll (src/windows/native/sun/java2d/d3d/D3DPipelineManager.cpp) */
 105 #define D3D_PRELOAD_FUNC "preloadD3D"
 106 
 107 /* Extracts value of a parameter with the specified name
 108  * from command line argument (returns pointer in the argument).
 109  * Returns NULL if the argument does not contains the parameter.
 110  * e.g.:
 111  * GetParamValue("theParam", "theParam=value") returns pointer to "value".
 112  */
 113 const char * GetParamValue(const char *paramName, const char *arg) {
 114     size_t nameLen = JLI_StrLen(paramName);
 115     if (JLI_StrNCmp(paramName, arg, nameLen) == 0) {
 116         /* arg[nameLen] is valid (may contain final NULL) */
 117         if (arg[nameLen] == '=') {
 118             return arg + nameLen + 1;
 119         }
 120     }
 121     return NULL;
 122 }
 123 
 124 /* Checks if commandline argument contains property specified
 125  * and analyze it as boolean property (true/false).
 126  * Returns -1 if the argument does not contain the parameter;
 127  * Returns 1 if the argument contains the parameter and its value is "true";
 128  * Returns 0 if the argument contains the parameter and its value is "false".
 129  */
 130 int GetBoolParamValue(const char *paramName, const char *arg) {
 131     const char * paramValue = GetParamValue(paramName, arg);
 132     if (paramValue != NULL) {
 133         if (JLI_StrCaseCmp(paramValue, "true") == 0) {
 134             return 1;
 135         }
 136         if (JLI_StrCaseCmp(paramValue, "false") == 0) {
 137             return 0;
 138         }
 139     }
 140     return -1;
 141 }
 142 #endif /* ENABLE_AWT_PRELOAD */
 143 
 144 
 145 static jboolean _isjavaw = JNI_FALSE;
 146 
 147 
 148 jboolean
 149 IsJavaw()
 150 {
 151     return _isjavaw;
 152 }
 153 
 154 /*
 155  *
 156  */
 157 void
 158 CreateExecutionEnvironment(int *pargc, char ***pargv,
 159                            char *jrepath, jint so_jrepath,
 160                            char *jvmpath, jint so_jvmpath,
 161                            char *jvmcfg,  jint so_jvmcfg) {
 162 
 163     char *jvmtype;
 164     int i = 0;
 165     char** argv = *pargv;
 166 
 167     /* Find out where the JRE is that we will be using. */
 168     if (!GetJREPath(jrepath, so_jrepath)) {
 169         JLI_ReportErrorMessage(JRE_ERROR1);
 170         exit(2);
 171     }
 172 
 173     JLI_Snprintf(jvmcfg, so_jvmcfg, "%s%slib%sjvm.cfg",
 174         jrepath, FILESEP, FILESEP);
 175 
 176     /* Find the specified JVM type */
 177     if (ReadKnownVMs(jvmcfg, JNI_FALSE) < 1) {
 178         JLI_ReportErrorMessage(CFG_ERROR7);
 179         exit(1);
 180     }
 181 
 182     jvmtype = CheckJvmType(pargc, pargv, JNI_FALSE);
 183     if (JLI_StrCmp(jvmtype, "ERROR") == 0) {
 184         JLI_ReportErrorMessage(CFG_ERROR9);
 185         exit(4);
 186     }
 187 
 188     jvmpath[0] = '\0';
 189     if (!GetJVMPath(jrepath, jvmtype, jvmpath, so_jvmpath)) {
 190         JLI_ReportErrorMessage(CFG_ERROR8, jvmtype, jvmpath);
 191         exit(4);
 192     }
 193     /* If we got here, jvmpath has been correctly initialized. */
 194 
 195     /* Check if we need preload AWT */
 196 #ifdef ENABLE_AWT_PRELOAD
 197     argv = *pargv;
 198     for (i = 0; i < *pargc ; i++) {
 199         /* Tests the "turn on" parameter only if not set yet. */
 200         if (awtPreloadD3D < 0) {
 201             if (GetBoolParamValue(PARAM_PRELOAD_D3D, argv[i]) == 1) {
 202                 awtPreloadD3D = 1;
 203             }
 204         }
 205         /* Test parameters which can disable preloading if not already disabled. */
 206         if (awtPreloadD3D != 0) {
 207             if (GetBoolParamValue(PARAM_NODDRAW, argv[i]) == 1
 208                 || GetBoolParamValue(PARAM_D3D, argv[i]) == 0
 209                 || GetBoolParamValue(PARAM_OPENGL, argv[i]) == 1)
 210             {
 211                 awtPreloadD3D = 0;
 212                 /* no need to test the rest of the parameters */
 213                 break;
 214             }
 215         }
 216     }
 217 #endif /* ENABLE_AWT_PRELOAD */
 218 }
 219 
 220 
 221 static jboolean
 222 LoadMSVCRT()
 223 {
 224     // Only do this once
 225     static int loaded = 0;
 226     char crtpath[MAXPATHLEN];
 227 
 228     if (!loaded) {
 229         /*
 230          * The Microsoft C Runtime Library needs to be loaded first.  A copy is
 231          * assumed to be present in the "JRE path" directory.  If it is not found
 232          * there (or "JRE path" fails to resolve), skip the explicit load and let
 233          * nature take its course, which is likely to be a failure to execute.
 234          * The makefiles will provide the correct lib contained in quotes in the
 235          * macro MSVCR_DLL_NAME.
 236          */
 237 #ifdef MSVCR_DLL_NAME
 238         if (GetJREPath(crtpath, MAXPATHLEN)) {
 239             if (JLI_StrLen(crtpath) + JLI_StrLen("\\bin\\") +
 240                     JLI_StrLen(MSVCR_DLL_NAME) >= MAXPATHLEN) {
 241                 JLI_ReportErrorMessage(JRE_ERROR11);
 242                 return JNI_FALSE;
 243             }
 244             (void)JLI_StrCat(crtpath, "\\bin\\" MSVCR_DLL_NAME);   /* Add crt dll */
 245             JLI_TraceLauncher("CRT path is %s\n", crtpath);
 246             if (_access(crtpath, 0) == 0) {
 247                 if (LoadLibrary(crtpath) == 0) {
 248                     JLI_ReportErrorMessage(DLL_ERROR4, crtpath);
 249                     return JNI_FALSE;
 250                 }
 251             }
 252         }
 253 #endif /* MSVCR_DLL_NAME */
 254 #ifdef MSVCP_DLL_NAME
 255         if (GetJREPath(crtpath, MAXPATHLEN)) {
 256             if (JLI_StrLen(crtpath) + JLI_StrLen("\\bin\\") +
 257                     JLI_StrLen(MSVCP_DLL_NAME) >= MAXPATHLEN) {
 258                 JLI_ReportErrorMessage(JRE_ERROR11);
 259                 return JNI_FALSE;
 260             }
 261             (void)JLI_StrCat(crtpath, "\\bin\\" MSVCP_DLL_NAME);   /* Add prt dll */
 262             JLI_TraceLauncher("PRT path is %s\n", crtpath);
 263             if (_access(crtpath, 0) == 0) {
 264                 if (LoadLibrary(crtpath) == 0) {
 265                     JLI_ReportErrorMessage(DLL_ERROR4, crtpath);
 266                     return JNI_FALSE;
 267                 }
 268             }
 269         }
 270 #endif /* MSVCP_DLL_NAME */
 271         loaded = 1;
 272     }
 273     return JNI_TRUE;
 274 }
 275 
 276 
 277 /*
 278  * Find path to JRE based on .exe's location or registry settings.
 279  */
 280 jboolean
 281 GetJREPath(char *path, jint pathsize)
 282 {
 283     char javadll[MAXPATHLEN];
 284     struct stat s;
 285 
 286     if (GetApplicationHome(path, pathsize)) {
 287         /* Is JRE co-located with the application? */
 288         JLI_Snprintf(javadll, sizeof(javadll), "%s\\bin\\" JAVA_DLL, path);
 289         if (stat(javadll, &s) == 0) {
 290             JLI_TraceLauncher("JRE path is %s\n", path);
 291             return JNI_TRUE;
 292         }
 293         /* ensure storage for path + \jre + NULL */
 294         if ((JLI_StrLen(path) + 4 + 1) > (size_t) pathsize) {
 295             JLI_TraceLauncher("Insufficient space to store JRE path\n");
 296             return JNI_FALSE;
 297         }
 298         /* Does this app ship a private JRE in <apphome>\jre directory? */
 299         JLI_Snprintf(javadll, sizeof (javadll), "%s\\jre\\bin\\" JAVA_DLL, path);
 300         if (stat(javadll, &s) == 0) {
 301             JLI_StrCat(path, "\\jre");
 302             JLI_TraceLauncher("JRE path is %s\n", path);
 303             return JNI_TRUE;
 304         }
 305     }
 306 
 307     /* Try getting path to JRE from path to JLI.DLL */
 308     if (GetApplicationHomeFromDll(path, pathsize)) {
 309         JLI_Snprintf(javadll, sizeof(javadll), "%s\\bin\\" JAVA_DLL, path);
 310         if (stat(javadll, &s) == 0) {
 311             JLI_TraceLauncher("JRE path is %s\n", path);
 312             return JNI_TRUE;
 313         }
 314     }
 315 
 316 #ifdef USE_REGISTRY_LOOKUP
 317     /* Lookup public JRE using Windows registry. */
 318     if (GetPublicJREHome(path, pathsize)) {
 319         JLI_TraceLauncher("JRE path is %s\n", path);
 320         return JNI_TRUE;
 321     }
 322 #endif
 323 
 324     JLI_ReportErrorMessage(JRE_ERROR8 JAVA_DLL);
 325     return JNI_FALSE;
 326 }
 327 
 328 /*
 329  * Given a JRE location and a JVM type, construct what the name the
 330  * JVM shared library will be.  Return true, if such a library
 331  * exists, false otherwise.
 332  */
 333 static jboolean
 334 GetJVMPath(const char *jrepath, const char *jvmtype,
 335            char *jvmpath, jint jvmpathsize)
 336 {
 337     struct stat s;
 338     if (JLI_StrChr(jvmtype, '/') || JLI_StrChr(jvmtype, '\\')) {
 339         JLI_Snprintf(jvmpath, jvmpathsize, "%s\\" JVM_DLL, jvmtype);
 340     } else {
 341         JLI_Snprintf(jvmpath, jvmpathsize, "%s\\bin\\%s\\" JVM_DLL,
 342                      jrepath, jvmtype);
 343     }
 344     if (stat(jvmpath, &s) == 0) {
 345         return JNI_TRUE;
 346     } else {
 347         return JNI_FALSE;
 348     }
 349 }
 350 
 351 /*
 352  * Load a jvm from "jvmpath" and initialize the invocation functions.
 353  */
 354 jboolean
 355 LoadJavaVM(const char *jvmpath, InvocationFunctions *ifn)
 356 {
 357     HINSTANCE handle;
 358 
 359     JLI_TraceLauncher("JVM path is %s\n", jvmpath);
 360 
 361     /*
 362      * The Microsoft C Runtime Library needs to be loaded first.  A copy is
 363      * assumed to be present in the "JRE path" directory.  If it is not found
 364      * there (or "JRE path" fails to resolve), skip the explicit load and let
 365      * nature take its course, which is likely to be a failure to execute.
 366      *
 367      */
 368     LoadMSVCRT();
 369 
 370     /* Load the Java VM DLL */
 371     if ((handle = LoadLibrary(jvmpath)) == 0) {
 372         JLI_ReportErrorMessage(DLL_ERROR4, (char *)jvmpath);
 373         return JNI_FALSE;
 374     }
 375 
 376     /* Now get the function addresses */
 377     ifn->CreateJavaVM =
 378         (void *)GetProcAddress(handle, "JNI_CreateJavaVM");
 379     ifn->GetDefaultJavaVMInitArgs =
 380         (void *)GetProcAddress(handle, "JNI_GetDefaultJavaVMInitArgs");
 381     if (ifn->CreateJavaVM == 0 || ifn->GetDefaultJavaVMInitArgs == 0) {
 382         JLI_ReportErrorMessage(JNI_ERROR1, (char *)jvmpath);
 383         return JNI_FALSE;
 384     }
 385 
 386     return JNI_TRUE;
 387 }
 388 
 389 /*
 390  * Removes the trailing file name and one sub-folder from a path.
 391  * If buf is "c:\foo\bin\javac", then put "c:\foo" into buf.
 392  */
 393 jboolean
 394 TruncatePath(char *buf)
 395 {
 396     char *cp;
 397     *JLI_StrRChr(buf, '\\') = '\0'; /* remove .exe file name */
 398     if ((cp = JLI_StrRChr(buf, '\\')) == 0) {
 399         /* This happens if the application is in a drive root, and
 400          * there is no bin directory. */
 401         buf[0] = '\0';
 402         return JNI_FALSE;
 403     }
 404     *cp = '\0'; /* remove the bin\ part */
 405     return JNI_TRUE;
 406 }
 407 
 408 /*
 409  * Retrieves the path to the JRE home by locating the executable file
 410  * of the current process and then truncating the path to the executable
 411  */
 412 jboolean
 413 GetApplicationHome(char *buf, jint bufsize)
 414 {
 415     GetModuleFileName(NULL, buf, bufsize);
 416     return TruncatePath(buf);
 417 }
 418 
 419 /*
 420  * Retrieves the path to the JRE home by locating JLI.DLL and
 421  * then truncating the path to JLI.DLL
 422  */
 423 jboolean
 424 GetApplicationHomeFromDll(char *buf, jint bufsize)
 425 {
 426     HMODULE module;
 427     DWORD flags = GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS |
 428                   GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT;
 429 
 430     if (GetModuleHandleEx(flags, (LPCSTR)&GetJREPath, &module) != 0) {
 431         if (GetModuleFileName(module, buf, bufsize) != 0) {
 432             return TruncatePath(buf);
 433         }
 434     }
 435     return JNI_FALSE;
 436 }
 437 
 438 /*
 439  * Support for doing cheap, accurate interval timing.
 440  */
 441 static jboolean counterAvailable = JNI_FALSE;
 442 static jboolean counterInitialized = JNI_FALSE;
 443 static LARGE_INTEGER counterFrequency;
 444 
 445 jlong CounterGet()
 446 {
 447     LARGE_INTEGER count;
 448 
 449     if (!counterInitialized) {
 450         counterAvailable = QueryPerformanceFrequency(&counterFrequency);
 451         counterInitialized = JNI_TRUE;
 452     }
 453     if (!counterAvailable) {
 454         return 0;
 455     }
 456     QueryPerformanceCounter(&count);
 457     return (jlong)(count.QuadPart);
 458 }
 459 
 460 jlong Counter2Micros(jlong counts)
 461 {
 462     if (!counterAvailable || !counterInitialized) {
 463         return 0;
 464     }
 465     return (counts * 1000 * 1000)/counterFrequency.QuadPart;
 466 }
 467 /*
 468  * windows snprintf does not guarantee a null terminator in the buffer,
 469  * if the computed size is equal to or greater than the buffer size,
 470  * as well as error conditions. This function guarantees a null terminator
 471  * under all these conditions. An unreasonable buffer or size will return
 472  * an error value. Under all other conditions this function will return the
 473  * size of the bytes actually written minus the null terminator, similar
 474  * to ansi snprintf api. Thus when calling this function the caller must
 475  * ensure storage for the null terminator.
 476  */
 477 int
 478 JLI_Snprintf(char* buffer, size_t size, const char* format, ...) {
 479     int rc;
 480     va_list vl;
 481     if (size == 0 || buffer == NULL)
 482         return -1;
 483     buffer[0] = '\0';
 484     va_start(vl, format);
 485     rc = vsnprintf(buffer, size, format, vl);
 486     va_end(vl);
 487     /* force a null terminator, if something is amiss */
 488     if (rc < 0) {
 489         /* apply ansi semantics */
 490         buffer[size - 1] = '\0';
 491         return (int)size;
 492     } else if (rc == size) {
 493         /* force a null terminator */
 494         buffer[size - 1] = '\0';
 495     }
 496     return rc;
 497 }
 498 
 499 static errno_t convert_to_unicode(const char* path, const wchar_t* prefix, wchar_t** wpath) {
 500     int unicode_path_len;
 501     size_t prefix_len, wpath_len;
 502 
 503     /*
 504      * Get required buffer size to convert to Unicode.
 505      * The return value includes the terminating null character.
 506      */
 507     unicode_path_len = MultiByteToWideChar(CP_THREAD_ACP, MB_ERR_INVALID_CHARS,
 508                                            path, -1, NULL, 0);
 509     if (unicode_path_len == 0) {
 510         return EINVAL;
 511     }
 512 
 513     prefix_len = wcslen(prefix);
 514     wpath_len = prefix_len + unicode_path_len;
 515     *wpath = (wchar_t*)JLI_MemAlloc(wpath_len * sizeof(wchar_t));
 516     if (*wpath == NULL) {
 517         return ENOMEM;
 518     }
 519 
 520     wcsncpy(*wpath, prefix, prefix_len);
 521     if (MultiByteToWideChar(CP_THREAD_ACP, MB_ERR_INVALID_CHARS,
 522                             path, -1, &((*wpath)[prefix_len]), (int)wpath_len) == 0) {
 523         JLI_MemFree(*wpath);
 524         *wpath = NULL;
 525         return EINVAL;
 526     }
 527 
 528     return ERROR_SUCCESS;
 529 }
 530 
 531 /* taken from hotspot and slightly adjusted for jli lib;
 532  * creates a UNC/ELP path from input 'path'
 533  * the return buffer is allocated in C heap and needs to be freed using
 534  * JLI_MemFree by the caller.
 535  */
 536 static wchar_t* create_unc_path(const char* path, errno_t* err) {
 537     wchar_t* wpath = NULL;
 538     size_t converted_chars = 0;
 539     size_t path_len = strlen(path) + 1; /* includes the terminating NULL */
 540     if (path[0] == '\\' && path[1] == '\\') {
 541         if (path[2] == '?' && path[3] == '\\') {
 542             /* if it already has a \\?\ don't do the prefix */
 543             *err = convert_to_unicode(path, L"", &wpath);
 544         } else {
 545             /* only UNC pathname includes double slashes here */
 546             *err = convert_to_unicode(path, L"\\\\?\\UNC", &wpath);
 547         }
 548     } else {
 549         *err = convert_to_unicode(path, L"\\\\?\\", &wpath);
 550     }
 551     return wpath;
 552 }
 553 
 554 int JLI_Open(const char* name, int flags) {
 555     int fd;
 556     if (strlen(name) < MAX_PATH) {
 557         fd = _open(name, flags);
 558     } else {
 559         errno_t err = ERROR_SUCCESS;
 560         wchar_t* wpath = create_unc_path(name, &err);
 561         if (err != ERROR_SUCCESS) {
 562             if (wpath != NULL) JLI_MemFree(wpath);
 563             errno = err;
 564             return -1;
 565         }
 566         fd = _wopen(wpath, flags);
 567         if (fd == -1) {
 568             errno = GetLastError();
 569         }
 570         JLI_MemFree(wpath);
 571     }
 572     return fd;
 573 }
 574 
 575 JNIEXPORT void JNICALL
 576 JLI_ReportErrorMessage(const char* fmt, ...) {
 577     va_list vl;
 578     va_start(vl,fmt);
 579 
 580     if (IsJavaw()) {
 581         char *message;
 582 
 583         /* get the length of the string we need */
 584         int n = _vscprintf(fmt, vl);
 585 
 586         message = (char *)JLI_MemAlloc(n + 1);
 587         _vsnprintf(message, n, fmt, vl);
 588         message[n]='\0';
 589         MessageBox(NULL, message, "Java Virtual Machine Launcher",
 590             (MB_OK|MB_ICONSTOP|MB_APPLMODAL));
 591         JLI_MemFree(message);
 592     } else {
 593         vfprintf(stderr, fmt, vl);
 594         fprintf(stderr, "\n");
 595     }
 596     va_end(vl);
 597 }
 598 
 599 /*
 600  * Just like JLI_ReportErrorMessage, except that it concatenates the system
 601  * error message if any, its upto the calling routine to correctly
 602  * format the separation of the messages.
 603  */
 604 JNIEXPORT void JNICALL
 605 JLI_ReportErrorMessageSys(const char *fmt, ...)
 606 {
 607     va_list vl;
 608 
 609     int save_errno = errno;
 610     DWORD       errval;
 611     jboolean freeit = JNI_FALSE;
 612     char  *errtext = NULL;
 613 
 614     va_start(vl, fmt);
 615 
 616     if ((errval = GetLastError()) != 0) {               /* Platform SDK / DOS Error */
 617         int n = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|
 618             FORMAT_MESSAGE_IGNORE_INSERTS|FORMAT_MESSAGE_ALLOCATE_BUFFER,
 619             NULL, errval, 0, (LPTSTR)&errtext, 0, NULL);
 620         if (errtext == NULL || n == 0) {                /* Paranoia check */
 621             errtext = "";
 622             n = 0;
 623         } else {
 624             freeit = JNI_TRUE;
 625             if (n > 2) {                                /* Drop final CR, LF */
 626                 if (errtext[n - 1] == '\n') n--;
 627                 if (errtext[n - 1] == '\r') n--;
 628                 errtext[n] = '\0';
 629             }
 630         }
 631     } else {   /* C runtime error that has no corresponding DOS error code */
 632         errtext = strerror(save_errno);
 633     }
 634 
 635     if (IsJavaw()) {
 636         char *message;
 637         int mlen;
 638         /* get the length of the string we need */
 639         int len = mlen =  _vscprintf(fmt, vl) + 1;
 640         if (freeit) {
 641            mlen += (int)JLI_StrLen(errtext);
 642         }
 643 
 644         message = (char *)JLI_MemAlloc(mlen);
 645         _vsnprintf(message, len, fmt, vl);
 646         message[len]='\0';
 647 
 648         if (freeit) {
 649            JLI_StrCat(message, errtext);
 650         }
 651 
 652         MessageBox(NULL, message, "Java Virtual Machine Launcher",
 653             (MB_OK|MB_ICONSTOP|MB_APPLMODAL));
 654 
 655         JLI_MemFree(message);
 656     } else {
 657         vfprintf(stderr, fmt, vl);
 658         if (freeit) {
 659            fprintf(stderr, "%s", errtext);
 660         }
 661     }
 662     if (freeit) {
 663         (void)LocalFree((HLOCAL)errtext);
 664     }
 665     va_end(vl);
 666 }
 667 
 668 JNIEXPORT void JNICALL
 669 JLI_ReportExceptionDescription(JNIEnv * env) {
 670     if (IsJavaw()) {
 671        /*
 672         * This code should be replaced by code which opens a window with
 673         * the exception detail message, for now atleast put a dialog up.
 674         */
 675         MessageBox(NULL, "A Java Exception has occurred.", "Java Virtual Machine Launcher",
 676                (MB_OK|MB_ICONSTOP|MB_APPLMODAL));
 677     } else {
 678         (*env)->ExceptionDescribe(env);
 679     }
 680 }
 681 
 682 /*
 683  * Wrapper for platform dependent unsetenv function.
 684  */
 685 int
 686 UnsetEnv(char *name)
 687 {
 688     int ret;
 689     char *buf = JLI_MemAlloc(JLI_StrLen(name) + 2);
 690     buf = JLI_StrCat(JLI_StrCpy(buf, name), "=");
 691     ret = _putenv(buf);
 692     JLI_MemFree(buf);
 693     return (ret);
 694 }
 695 
 696 /* --- Splash Screen shared library support --- */
 697 
 698 static const char* SPLASHSCREEN_SO = "\\bin\\splashscreen.dll";
 699 
 700 static HMODULE hSplashLib = NULL;
 701 
 702 void* SplashProcAddress(const char* name) {
 703     char libraryPath[MAXPATHLEN]; /* some extra space for JLI_StrCat'ing SPLASHSCREEN_SO */
 704 
 705     if (!GetJREPath(libraryPath, MAXPATHLEN)) {
 706         return NULL;
 707     }
 708     if (JLI_StrLen(libraryPath)+JLI_StrLen(SPLASHSCREEN_SO) >= MAXPATHLEN) {
 709         return NULL;
 710     }
 711     JLI_StrCat(libraryPath, SPLASHSCREEN_SO);
 712 
 713     if (!hSplashLib) {
 714         hSplashLib = LoadLibrary(libraryPath);
 715     }
 716     if (hSplashLib) {
 717         return GetProcAddress(hSplashLib, name);
 718     } else {
 719         return NULL;
 720     }
 721 }
 722 
 723 /*
 724  * Signature adapter for _beginthreadex().
 725  */
 726 static unsigned __stdcall ThreadJavaMain(void* args) {
 727     return (unsigned)JavaMain(args);
 728 }
 729 
 730 /*
 731  * Block current thread and continue execution in a new thread.
 732  */
 733 int
 734 CallJavaMainInNewThread(jlong stack_size, void* args) {
 735     int rslt = 0;
 736     unsigned thread_id;
 737 
 738 #ifndef STACK_SIZE_PARAM_IS_A_RESERVATION
 739 #define STACK_SIZE_PARAM_IS_A_RESERVATION  (0x10000)
 740 #endif
 741 
 742     /*
 743      * STACK_SIZE_PARAM_IS_A_RESERVATION is what we want, but it's not
 744      * supported on older version of Windows. Try first with the flag; and
 745      * if that fails try again without the flag. See MSDN document or HotSpot
 746      * source (os_win32.cpp) for details.
 747      */
 748     HANDLE thread_handle =
 749         (HANDLE)_beginthreadex(NULL,
 750                                (unsigned)stack_size,
 751                                ThreadJavaMain,
 752                                args,
 753                                STACK_SIZE_PARAM_IS_A_RESERVATION,
 754                                &thread_id);
 755     if (thread_handle == NULL) {
 756         thread_handle =
 757         (HANDLE)_beginthreadex(NULL,
 758                                (unsigned)stack_size,
 759                                ThreadJavaMain,
 760                                args,
 761                                0,
 762                                &thread_id);
 763     }
 764 
 765     /* AWT preloading (AFTER main thread start) */
 766 #ifdef ENABLE_AWT_PRELOAD
 767     /* D3D preloading */
 768     if (awtPreloadD3D != 0) {
 769         char *envValue;
 770         /* D3D routines checks env.var J2D_D3D if no appropriate
 771          * command line params was specified
 772          */
 773         envValue = getenv("J2D_D3D");
 774         if (envValue != NULL && JLI_StrCaseCmp(envValue, "false") == 0) {
 775             awtPreloadD3D = 0;
 776         }
 777         /* Test that AWT preloading isn't disabled by J2D_D3D_PRELOAD env.var */
 778         envValue = getenv("J2D_D3D_PRELOAD");
 779         if (envValue != NULL && JLI_StrCaseCmp(envValue, "false") == 0) {
 780             awtPreloadD3D = 0;
 781         }
 782         if (awtPreloadD3D < 0) {
 783             /* If awtPreloadD3D is still undefined (-1), test
 784              * if it is turned on by J2D_D3D_PRELOAD env.var.
 785              * By default it's turned OFF.
 786              */
 787             awtPreloadD3D = 0;
 788             if (envValue != NULL && JLI_StrCaseCmp(envValue, "true") == 0) {
 789                 awtPreloadD3D = 1;
 790             }
 791          }
 792     }
 793     if (awtPreloadD3D) {
 794         AWTPreload(D3D_PRELOAD_FUNC);
 795     }
 796 #endif /* ENABLE_AWT_PRELOAD */
 797 
 798     if (thread_handle) {
 799         WaitForSingleObject(thread_handle, INFINITE);
 800         GetExitCodeThread(thread_handle, &rslt);
 801         CloseHandle(thread_handle);
 802     } else {
 803         rslt = JavaMain(args);
 804     }
 805 
 806 #ifdef ENABLE_AWT_PRELOAD
 807     if (awtPreloaded) {
 808         AWTPreloadStop();
 809     }
 810 #endif /* ENABLE_AWT_PRELOAD */
 811 
 812     return rslt;
 813 }
 814 
 815 /*
 816  * The implementation for finding classes from the bootstrap
 817  * class loader, refer to java.h
 818  */
 819 static FindClassFromBootLoader_t *findBootClass = NULL;
 820 
 821 jclass FindBootStrapClass(JNIEnv *env, const char *classname)
 822 {
 823    HMODULE hJvm;
 824 
 825    if (findBootClass == NULL) {
 826        hJvm = GetModuleHandle(JVM_DLL);
 827        if (hJvm == NULL) return NULL;
 828        /* need to use the demangled entry point */
 829        findBootClass = (FindClassFromBootLoader_t *)GetProcAddress(hJvm,
 830             "JVM_FindClassFromBootLoader");
 831        if (findBootClass == NULL) {
 832           JLI_ReportErrorMessage(DLL_ERROR4, "JVM_FindClassFromBootLoader");
 833           return NULL;
 834        }
 835    }
 836    return findBootClass(env, classname);
 837 }
 838 
 839 void
 840 InitLauncher(boolean javaw)
 841 {
 842     INITCOMMONCONTROLSEX icx;
 843 
 844     /*
 845      * Required for javaw mode MessageBox output as well as for
 846      * HotSpot -XX:+ShowMessageBoxOnError in java mode, an empty
 847      * flag field is sufficient to perform the basic UI initialization.
 848      */
 849     memset(&icx, 0, sizeof(INITCOMMONCONTROLSEX));
 850     icx.dwSize = sizeof(INITCOMMONCONTROLSEX);
 851     InitCommonControlsEx(&icx);
 852     _isjavaw = javaw;
 853     JLI_SetTraceLauncher();
 854 }
 855 
 856 
 857 /* ============================== */
 858 /* AWT preloading */
 859 #ifdef ENABLE_AWT_PRELOAD
 860 
 861 typedef int FnPreloadStart(void);
 862 typedef void FnPreloadStop(void);
 863 static FnPreloadStop *fnPreloadStop = NULL;
 864 static HMODULE hPreloadAwt = NULL;
 865 
 866 /*
 867  * Starts AWT preloading
 868  */
 869 int AWTPreload(const char *funcName)
 870 {
 871     int result = -1;
 872     /* load AWT library once (if several preload function should be called) */
 873     if (hPreloadAwt == NULL) {
 874         /* awt.dll is not loaded yet */
 875         char libraryPath[MAXPATHLEN];
 876         size_t jrePathLen = 0;
 877         HMODULE hJava = NULL;
 878         HMODULE hVerify = NULL;
 879 
 880         while (1) {
 881             /* awt.dll depends on jvm.dll & java.dll;
 882              * jvm.dll is already loaded, so we need only java.dll;
 883              * java.dll depends on MSVCRT lib & verify.dll.
 884              */
 885             if (!GetJREPath(libraryPath, MAXPATHLEN)) {
 886                 break;
 887             }
 888 
 889             /* save path length */
 890             jrePathLen = JLI_StrLen(libraryPath);
 891 
 892             if (jrePathLen + JLI_StrLen("\\bin\\verify.dll") >= MAXPATHLEN) {
 893               /* jre path is too long, the library path will not fit there;
 894                * report and abort preloading
 895                */
 896               JLI_ReportErrorMessage(JRE_ERROR11);
 897               break;
 898             }
 899 
 900             /* load msvcrt 1st */
 901             LoadMSVCRT();
 902 
 903             /* load verify.dll */
 904             JLI_StrCat(libraryPath, "\\bin\\verify.dll");
 905             hVerify = LoadLibrary(libraryPath);
 906             if (hVerify == NULL) {
 907                 break;
 908             }
 909 
 910             /* restore jrePath */
 911             libraryPath[jrePathLen] = 0;
 912             /* load java.dll */
 913             JLI_StrCat(libraryPath, "\\bin\\" JAVA_DLL);
 914             hJava = LoadLibrary(libraryPath);
 915             if (hJava == NULL) {
 916                 break;
 917             }
 918 
 919             /* restore jrePath */
 920             libraryPath[jrePathLen] = 0;
 921             /* load awt.dll */
 922             JLI_StrCat(libraryPath, "\\bin\\awt.dll");
 923             hPreloadAwt = LoadLibrary(libraryPath);
 924             if (hPreloadAwt == NULL) {
 925                 break;
 926             }
 927 
 928             /* get "preloadStop" func ptr */
 929             fnPreloadStop = (FnPreloadStop *)GetProcAddress(hPreloadAwt, "preloadStop");
 930 
 931             break;
 932         }
 933     }
 934 
 935     if (hPreloadAwt != NULL) {
 936         FnPreloadStart *fnInit = (FnPreloadStart *)GetProcAddress(hPreloadAwt, funcName);
 937         if (fnInit != NULL) {
 938             /* don't forget to stop preloading */
 939             awtPreloaded = 1;
 940 
 941             result = fnInit();
 942         }
 943     }
 944 
 945     return result;
 946 }
 947 
 948 /*
 949  * Terminates AWT preloading
 950  */
 951 void AWTPreloadStop() {
 952     if (fnPreloadStop != NULL) {
 953         fnPreloadStop();
 954     }
 955 }
 956 
 957 #endif /* ENABLE_AWT_PRELOAD */
 958 
 959 int
 960 JVMInit(InvocationFunctions* ifn, jlong threadStackSize,
 961         int argc, char **argv,
 962         int mode, char *what, int ret)
 963 {
 964     ShowSplashScreen();
 965     return ContinueInNewThread(ifn, threadStackSize, argc, argv, mode, what, ret);
 966 }
 967 
 968 void
 969 PostJVMInit(JNIEnv *env, jclass mainClass, JavaVM *vm)
 970 {
 971     // stubbed out for windows and *nixes.
 972 }
 973 
 974 void
 975 RegisterThread()
 976 {
 977     // stubbed out for windows and *nixes.
 978 }
 979 
 980 /*
 981  * on windows, we return a false to indicate this option is not applicable
 982  */
 983 jboolean
 984 ProcessPlatformOption(const char *arg)
 985 {
 986     return JNI_FALSE;
 987 }
 988 
 989 /*
 990  * At this point we have the arguments to the application, and we need to
 991  * check with original stdargs in order to compare which of these truly
 992  * needs expansion. cmdtoargs will specify this if it finds a bare
 993  * (unquoted) argument containing a glob character(s) ie. * or ?
 994  */
 995 jobjectArray
 996 CreateApplicationArgs(JNIEnv *env, char **strv, int argc)
 997 {
 998     int i, j, idx;
 999     size_t tlen;
1000     jobjectArray outArray, inArray;
1001     char *arg, **nargv;
1002     jboolean needs_expansion = JNI_FALSE;
1003     jmethodID mid;
1004     int stdargc;
1005     StdArg *stdargs;
1006     int *appArgIdx;
1007     int isTool;
1008     jclass cls = GetLauncherHelperClass(env);
1009     NULL_CHECK0(cls);
1010 
1011     if (argc == 0) {
1012         return NewPlatformStringArray(env, strv, argc);
1013     }
1014     // the holy grail we need to compare with.
1015     stdargs = JLI_GetStdArgs();
1016     stdargc = JLI_GetStdArgc();
1017 
1018     // sanity check, this should never happen
1019     if (argc > stdargc) {
1020         JLI_TraceLauncher("Warning: app args is larger than the original, %d %d\n", argc, stdargc);
1021         JLI_TraceLauncher("passing arguments as-is.\n");
1022         return NewPlatformStringArray(env, strv, argc);
1023     }
1024 
1025     // sanity check, match the args we have, to the holy grail
1026     idx = JLI_GetAppArgIndex();
1027 
1028     // First arg index is NOT_FOUND
1029     if (idx < 0) {
1030         // The only allowed value should be NOT_FOUND (-1) unless another change introduces
1031         // a different negative index
1032         assert (idx == -1);
1033         JLI_TraceLauncher("Warning: first app arg index not found, %d\n", idx);
1034         JLI_TraceLauncher("passing arguments as-is.\n");
1035         return NewPlatformStringArray(env, strv, argc);
1036     }
1037 
1038     isTool = (idx == 0);
1039     if (isTool) { idx++; } // skip tool name
1040     JLI_TraceLauncher("AppArgIndex: %d points to %s\n", idx, stdargs[idx].arg);
1041 
1042     appArgIdx = calloc(argc, sizeof(int));
1043     for (i = idx, j = 0; i < stdargc; i++) {
1044         if (isTool) { // filter -J used by tools to pass JVM options
1045             arg = stdargs[i].arg;
1046             if (arg[0] == '-' && arg[1] == 'J') {
1047                 continue;
1048             }
1049         }
1050         appArgIdx[j++] = i;
1051     }
1052     // sanity check, ensure same number of arguments for application
1053     if (j != argc) {
1054         JLI_TraceLauncher("Warning: app args count doesn't match, %d %d\n", j, argc);
1055         JLI_TraceLauncher("passing arguments as-is.\n");
1056         JLI_MemFree(appArgIdx);
1057         return NewPlatformStringArray(env, strv, argc);
1058     }
1059 
1060     // make a copy of the args which will be expanded in java if required.
1061     nargv = (char **)JLI_MemAlloc(argc * sizeof(char*));
1062     for (i = 0; i < argc; i++) {
1063         jboolean arg_expand;
1064         j = appArgIdx[i];
1065         arg_expand = (JLI_StrCmp(stdargs[j].arg, strv[i]) == 0)
1066             ? stdargs[j].has_wildcard
1067             : JNI_FALSE;
1068         if (needs_expansion == JNI_FALSE)
1069             needs_expansion = arg_expand;
1070 
1071         // indicator char + String + NULL terminator, the java method will strip
1072         // out the first character, the indicator character, so no matter what
1073         // we add the indicator
1074         tlen = 1 + JLI_StrLen(strv[i]) + 1;
1075         nargv[i] = (char *) JLI_MemAlloc(tlen);
1076         if (JLI_Snprintf(nargv[i], tlen, "%c%s", arg_expand ? 'T' : 'F',
1077                          strv[i]) < 0) {
1078             return NULL;
1079         }
1080         JLI_TraceLauncher("%s\n", nargv[i]);
1081     }
1082 
1083     if (!needs_expansion) {
1084         // clean up any allocated memory and return back the old arguments
1085         for (i = 0 ; i < argc ; i++) {
1086             JLI_MemFree(nargv[i]);
1087         }
1088         JLI_MemFree(nargv);
1089         JLI_MemFree(appArgIdx);
1090         return NewPlatformStringArray(env, strv, argc);
1091     }
1092     NULL_CHECK0(mid = (*env)->GetStaticMethodID(env, cls,
1093                                                 "expandArgs",
1094                                                 "([Ljava/lang/String;)[Ljava/lang/String;"));
1095 
1096     // expand the arguments that require expansion, the java method will strip
1097     // out the indicator character.
1098     NULL_CHECK0(inArray = NewPlatformStringArray(env, nargv, argc));
1099     outArray = (*env)->CallStaticObjectMethod(env, cls, mid, inArray);
1100     for (i = 0; i < argc; i++) {
1101         JLI_MemFree(nargv[i]);
1102     }
1103     JLI_MemFree(nargv);
1104     JLI_MemFree(appArgIdx);
1105     return outArray;
1106 }