jruby-launcher 0.9.9-java

data/platformlauncher.cpp

@@ -0,0 +1,239 @@
+/*
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
+ *
+ * Copyright 2009-2010 JRuby Team (www.jruby.org).
+ * Copyright 1997-2008 Sun Microsystems, Inc. All rights reserved.
+ *
+ * The contents of this file are subject to the terms of either the GNU
+ * General Public License Version 2 only ("GPL") or the Common
+ * Development and Distribution License("CDDL") (collectively, the
+ * "License"). You may not use this file except in compliance with the
+ * License. You can obtain a copy of the License at
+ * http://www.netbeans.org/cddl-gplv2.html
+ * or nbbuild/licenses/CDDL-GPL-2-CP. See the License for the
+ * specific language governing permissions and limitations under the
+ * License.  When distributing the software, include this License Header
+ * Notice in each file and include the License file at
+ * nbbuild/licenses/CDDL-GPL-2-CP.  Sun designates this
+ * particular file as subject to the "Classpath" exception as provided
+ * by Sun in the GPL Version 2 section of the License file that
+ * accompanied this code. If applicable, add the following below the
+ * License Header, with the fields enclosed by brackets [] replaced by
+ * your own identifying information:
+ * "Portions Copyrighted [year] [name of copyright owner]"
+ *
+ * Contributor(s):
+ *
+ * The Original Software is NetBeans. The Initial Developer of the Original
+ * Software is Sun Microsystems, Inc. Portions Copyright 1997-2008 Sun
+ * Microsystems, Inc. All Rights Reserved.
+ *
+ * If you wish your version of this file to be governed by only the CDDL
+ * or only the GPL Version 2, indicate your decision by adding
+ * "[Contributor] elects to include this software in this distribution
+ * under the [CDDL or GPL Version 2] license." If you do not indicate a
+ * single choice of license, a recipient has the option to distribute
+ * your version of this file under either the CDDL, the GPL Version 2 or
+ * to extend the choice of license to its licensees as provided above.
+ * However, if you add GPL Version 2 code and therefore, elected the GPL
+ * Version 2 license, then the option applies only if the new code is
+ * made subject to such option by the copyright holder.
+ *
+ * Author: Tomas Holy
+ */
+
+#include <stdio.h>
+#include "utilsfuncs.h"
+#include "platformlauncher.h"
+#include "rb_w32_cmdvector.h"
+
+using namespace std;
+
+extern "C" int nailgunClientMain(int argc, char *argv[], char *env[]);
+
+PlatformLauncher::PlatformLauncher()
+    : ArgParser()
+    , suppressConsole(false)
+{
+}
+
+PlatformLauncher::PlatformLauncher(const PlatformLauncher& orig)
+    : ArgParser(orig)
+{
+}
+
+PlatformLauncher::~PlatformLauncher() {
+}
+
+list<string>* GetEnvStringsAsList() {
+    char * env = GetEnvironmentStrings();
+    list<string> * envList = new list<string>();
+    while (*env) {
+        envList->push_back(env);
+        env = env + strlen(env) + 1;
+    }
+    return envList;
+}
+
+bool PlatformLauncher::start(char* argv[], int argc, DWORD *retCode, const char* binaryName) {
+
+    // subvert cmd.exe's feeble attempt at command line parsing,
+    // the code is taken from MRI
+    argc = rb_w32_cmdvector(GetCommandLine(), &argv);
+
+    // remove the first argument ('jruby')
+    argc -= 1;
+    argv += 1;
+
+    platformDir = binaryName;
+    checkLoggingArg(argc, argv, false);
+    if (!initPlatformDir()
+        || !parseArgs(argc, argv)
+        || !checkJDKHome()) {
+        return false;
+    }
+    disableFolderVirtualization(GetCurrentProcess());
+
+    if (nailgunClient) {
+        progArgs.push_front("org.jruby.util.NailMain");
+        char ** nailArgv = convertToArgvArray(progArgs);
+        if (printCommandLine) {
+            printArgvToConsole(nailArgv);
+            return true;
+        }
+
+        list<string>* envList = GetEnvStringsAsList();
+        char ** nailEnv  = convertToArgvArray(*envList);
+        nailgunClientMain(progArgs.size(), nailArgv, nailEnv);
+        return true;
+    }
+
+    if (binaryName) {
+        // clean up the binaryName first,
+        // remove '.exe' from the end, and the possible path.
+        string bn = binaryName;
+
+        size_t found = bn.find_last_of("/\\");
+        if (found != string::npos) {
+            logMsg("The binary name contains slashes, will remove: %s", binaryName);
+            bn = bn.substr(found + 1);
+            binaryName = bn.c_str();
+        }
+
+        found = bn.find(".exe", bn.length() - 4);
+        if (found != string::npos) {
+            bn.erase(found, 4);
+            binaryName = bn.c_str();
+            logMsg("*** Cleaned up the binary name: %s", binaryName);
+        } else {
+            logMsg("*** No need to clean the binary name: %s", binaryName);
+        }
+
+        if (strnicmp(binaryName, DEFAULT_EXECUTABLE, strlen(DEFAULT_EXECUTABLE)) != 0) {
+            logMsg("PlatformLauncher:\n\tNon-default executable name: %s", binaryName);
+            logMsg("\tHence, launching with extra parameters: -S %s", binaryName);
+            progArgs.push_front(binaryName);
+            progArgs.push_front("-S");
+        }
+    }
+
+    if (jdkhome.empty()) {
+        if (!jvmLauncher.initialize(REQ_JAVA_VERSION)) {
+            logErr(false, true, "Cannot find Java %s or higher.", REQ_JAVA_VERSION);
+            return false;
+        }
+    }
+
+    jvmLauncher.getJavaPath(jdkhome);
+
+    prepareOptions();
+
+    if (printCommandLine) {
+        list<string> commandLine;
+        commandLine.push_back(jdkhome + "\\bin\\java");
+        addOptionsToCommandLine(commandLine);
+        for (list<string>::iterator it = commandLine.begin(); it != commandLine.end(); it++) {
+            printf("%s\n", it->c_str());
+        }
+        return true;
+    }
+
+    if (nextAction.empty()) {
+        while (true) {
+            // run app
+            if (!run(retCode)) {
+                return false;
+            }
+
+            break;
+        }
+    } else {
+        logErr(false, true, "We should not get here.");
+        return false;
+    }
+
+    return true;
+}
+
+bool PlatformLauncher::run(DWORD *retCode) {
+    logMsg("Starting application...");
+
+    jvmLauncher.setSuppressConsole(suppressConsole);
+    bool rc = jvmLauncher.start(bootclass.c_str(), progArgs, javaOptions, separateProcess, retCode);
+    if (!separateProcess) {
+        exit(0);
+    }
+    return rc;
+}
+
+bool PlatformLauncher::checkJDKHome() {
+    if (!jdkhome.empty() && !jvmLauncher.initialize(jdkhome.c_str())) {
+        logMsg("Cannot locate java installation in specified jdkhome: %s", jdkhome.c_str());
+        string errMsg = "ERROR: Cannot locate Java installation in specified jdkhome:\n";
+        errMsg += jdkhome;
+        string errMsgFull = errMsg + "\nDo you want to try to use default version?";
+        jdkhome = "";
+        // Pop-up the message box only if there is no console
+        if (!isConsoleAttached()) {
+            if (::MessageBox(NULL, errMsgFull.c_str(), "Invalid jdkhome specified", MB_ICONQUESTION | MB_YESNO) == IDNO) {
+                return false;
+            }
+        } else {
+            fprintf(stderr, "%s\n", errMsg.c_str());
+            return false;
+        }
+    }
+
+    if (jdkhome.empty()) {
+        logMsg("-Xjdkhome is not set, checking for %%JAVA_HOME%%...");
+        char *javaHome = getenv("JAVA_HOME");
+        if (javaHome) {
+            logMsg("%%JAVA_HOME%% is set: %s", javaHome);
+            if (!jvmLauncher.initialize(javaHome)) {
+                logMsg("ERROR: Cannot locate java installation, specified by JAVA_HOME: %s", javaHome);
+                string errMsg = "Cannot locate Java installation, specified by JAVA_HOME:\n";
+                errMsg += javaHome;
+                string errMsgFull = errMsg + "\nDo you want to try to use default version?";
+                jdkhome = "";
+                // Pop-up the message box only if there is no console
+                if (!isConsoleAttached()) {
+                    if (::MessageBox(NULL, errMsgFull.c_str(),
+                            "Invalid jdkhome specified", MB_ICONQUESTION | MB_YESNO) == IDNO) {
+                        return false;
+                    }
+                } else {
+                    fprintf(stderr, "%s\n", errMsg.c_str());
+                    return false;
+                }
+            } else {
+                jdkhome = javaHome;
+            }
+        }
+    }
+
+    return true;
+}
+
+void PlatformLauncher::onExit() {
+    logMsg("onExit()");
+}

data/platformlauncher.h

@@ -0,0 +1,73 @@
+/*
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
+ *
+ * Copyright 2009-2010 JRuby Team (www.jruby.org).
+ * Copyright 1997-2008 Sun Microsystems, Inc. All rights reserved.
+ *
+ * The contents of this file are subject to the terms of either the GNU
+ * General Public License Version 2 only ("GPL") or the Common
+ * Development and Distribution License("CDDL") (collectively, the
+ * "License"). You may not use this file except in compliance with the
+ * License. You can obtain a copy of the License at
+ * http://www.netbeans.org/cddl-gplv2.html
+ * or nbbuild/licenses/CDDL-GPL-2-CP. See the License for the
+ * specific language governing permissions and limitations under the
+ * License.  When distributing the software, include this License Header
+ * Notice in each file and include the License file at
+ * nbbuild/licenses/CDDL-GPL-2-CP.  Sun designates this
+ * particular file as subject to the "Classpath" exception as provided
+ * by Sun in the GPL Version 2 section of the License file that
+ * accompanied this code. If applicable, add the following below the
+ * License Header, with the fields enclosed by brackets [] replaced by
+ * your own identifying information:
+ * "Portions Copyrighted [year] [name of copyright owner]"
+ *
+ * Contributor(s):
+ *
+ * The Original Software is NetBeans. The Initial Developer of the Original
+ * Software is Sun Microsystems, Inc. Portions Copyright 1997-2008 Sun
+ * Microsystems, Inc. All Rights Reserved.
+ *
+ * If you wish your version of this file to be governed by only the CDDL
+ * or only the GPL Version 2, indicate your decision by adding
+ * "[Contributor] elects to include this software in this distribution
+ * under the [CDDL or GPL Version 2] license." If you do not indicate a
+ * single choice of license, a recipient has the option to distribute
+ * your version of this file under either the CDDL, the GPL Version 2 or
+ * to extend the choice of license to its licensees as provided above.
+ * However, if you add GPL Version 2 code and therefore, elected the GPL
+ * Version 2 license, then the option applies only if the new code is
+ * made subject to such option by the copyright holder.
+ *
+ * Author: Tomas Holy
+ */
+
+#ifndef _PLATFORMLAUNCHER_H
+#define _PLATFORMLAUNCHER_H
+
+#include "jvmlauncher.h"
+#include "argparser.h"
+
+class PlatformLauncher : public ArgParser {
+public:
+    PlatformLauncher();
+    virtual ~PlatformLauncher();
+
+    bool start(char* argv[], int argc, DWORD *retCode, const char *name);
+    void onExit();
+
+    void setSuppressConsole(bool val) {
+        suppressConsole = val;
+    }
+
+private:
+    PlatformLauncher(const PlatformLauncher& orig);
+    bool run(DWORD *retCode);
+    bool checkJDKHome();
+
+private:
+    bool suppressConsole;
+    JvmLauncher jvmLauncher;
+};
+
+#endif  /* _PLATFORMLAUNCHER_H */

data/rb_w32_cmdvector.h

@@ -0,0 +1,287 @@
+/*
+ *  Copyright (c) 1993, Intergraph Corporation
+ *
+ *  You may distribute under the terms of either the GNU General Public
+ *  License or the Artistic License, as specified in the perl README file.
+ *
+ *  Various Unix compatibility functions and NT specific functions.
+ *
+ *  Some of this code was derived from the MSDOS port(s) and the OS/2 port.
+ *
+ */
+
+#include <windows.h>
+
+#ifndef _RB_W32_CMDVECTOR_H
+#define	_RB_W32_CMDVECTOR_H
+
+#ifdef	__cplusplus
+extern "C" {
+#endif
+
+#define MAXPATHLEN 512
+#define NTMALLOC 0x2	// string in element was malloc'ed
+
+#define isascii(c) ( (c>=0x00&&c<=0x7f)?1:0 )
+#define isspace(c) ( ((c>=0x09&&c<=0x0d)||c==0x20)?1:0 )
+#define ISASCII(c) isascii((int)(unsigned char)(c))
+#define ISSPACE(c) (ISASCII(c) && isspace((int)(unsigned char)(c)))
+
+static inline char * skipspace(char *ptr) {
+    while (ISSPACE(*ptr))
+	ptr++;
+    return ptr;
+}
+
+typedef struct _NtCmdLineElement {
+    struct _NtCmdLineElement *next;
+    char *str;
+    int len;
+    int flags;
+} NtCmdLineElement;
+
+
+int strlcpy(char *dst, const char *src, size_t siz);
+
+// NOTE: this method is taken from MRI source basically verbatim,
+// to preserve compatibility
+int rb_w32_cmdvector(const char *cmd, char ***vec) {
+    int globbing, len;
+    int elements, strsz, done;
+    int slashes, escape;
+    char *ptr, *base, *buffer, *cmdline;
+    char **vptr;
+    char quote;
+    NtCmdLineElement *curr, **tail;
+    NtCmdLineElement *cmdhead = NULL, **cmdtail = &cmdhead;
+
+    //
+    // just return if we don't have a command line
+    //
+
+    while (ISSPACE(*cmd))
+	cmd++;
+    if (!*cmd) {
+	*vec = NULL;
+	return 0;
+    }
+
+    ptr = cmdline = strdup(cmd);
+
+    //
+    // Ok, parse the command line, building a list of CmdLineElements.
+    // When we've finished, and it's an input command (meaning that it's
+    // the processes argv), we'll do globing and then build the argument
+    // vector.
+    // The outer loop does one interation for each element seen.
+    // The inner loop does one interation for each character in the element.
+    //
+
+    while (*(ptr = skipspace(ptr))) {
+	base = ptr;
+	quote = slashes = globbing = escape = 0;
+	for (done = 0; !done && *ptr; ) {
+	    //
+	    // Switch on the current character. We only care about the
+	    // white-space characters, the  wild-card characters, and the
+	    // quote characters.
+	    //
+
+	    switch (*ptr) {
+	      case '\\':
+		if (quote != '\'') slashes++;
+	        break;
+
+	      case ' ':
+	      case '\t':
+	      case '\n':
+		//
+		// if we're not in a string, then we're finished with this
+		// element
+		//
+
+		if (!quote) {
+		    *ptr = 0;
+		    done = 1;
+		}
+		break;
+
+	      case '*':
+	      case '?':
+	      case '[':
+	      case '{':
+		//
+		// record the fact that this element has a wildcard character
+		// N.B. Don't glob if inside a single quoted string
+		//
+
+		if (quote != '\'')
+		    globbing++;
+		slashes = 0;
+		break;
+
+	      case '\'':
+	      case '\"':
+		//
+		// if we're already in a string, see if this is the
+		// terminating close-quote. If it is, we're finished with
+		// the string, but not neccessarily with the element.
+		// If we're not already in a string, start one.
+		//
+
+		if (!(slashes & 1)) {
+		    if (!quote)
+			quote = *ptr;
+		    else if (quote == *ptr) {
+			if (quote == '"' && quote == ptr[1])
+			    ptr++;
+			quote = '\0';
+		    }
+		}
+		escape++;
+		slashes = 0;
+		break;
+
+	      default:
+		ptr = CharNext(ptr);
+		slashes = 0;
+		continue;
+	    }
+	    ptr++;
+	}
+
+	//
+	// when we get here, we've got a pair of pointers to the element,
+	// base and ptr. Base points to the start of the element while ptr
+	// points to the character following the element.
+	//
+
+	len = ptr - base;
+	if (done) --len;
+
+	//
+	// if it's an input vector element and it's enclosed by quotes,
+	// we can remove them.
+	//
+
+	if (escape) {
+	    char *p = base, c;
+	    slashes = quote = 0;
+	    while (p < base + len) {
+		switch (c = *p) {
+		  case '\\':
+		    p++;
+		    if (quote != '\'') slashes++;
+		    break;
+
+		  case '\'':
+		  case '"':
+		    if (!(slashes & 1) && quote && quote != c) {
+			p++;
+			slashes = 0;
+			break;
+		    }
+		    memcpy(p - ((slashes + 1) >> 1), p + (~slashes & 1),
+			   base + len - p);
+		    len -= ((slashes + 1) >> 1) + (~slashes & 1);
+		    p -= (slashes + 1) >> 1;
+		    if (!(slashes & 1)) {
+			if (quote) {
+			    if (quote == '"' && quote == *p)
+				p++;
+			    quote = '\0';
+			}
+			else
+			    quote = c;
+		    }
+		    else
+			p++;
+		    slashes = 0;
+		    break;
+
+		  default:
+		    p = CharNext(p);
+		    slashes = 0;
+		    break;
+		}
+	    }
+	}
+
+	curr = (NtCmdLineElement *)calloc(sizeof(NtCmdLineElement), 1);
+	if (!curr) goto do_nothing;
+	curr->str = base;
+	curr->len = len;
+
+        // TODO: globbing!
+//	if (globbing && (tail = cmdglob(curr, cmdtail))) {
+//	    cmdtail = tail;
+//	}
+//	else {
+	    *cmdtail = curr;
+	    cmdtail = &curr->next;
+//	}
+    }
+
+    //
+    // Almost done!
+    // Count up the elements, then allocate space for a vector of pointers
+    // (argv) and a string table for the elements.
+    //
+
+    for (elements = 0, strsz = 0, curr = cmdhead; curr; curr = curr->next) {
+	elements++;
+	strsz += (curr->len + 1);
+    }
+
+    len = (elements+1)*sizeof(char *) + strsz;
+    buffer = (char *)malloc(len);
+    if (!buffer) {
+      do_nothing:
+	while (curr = cmdhead) {
+	    cmdhead = curr->next;
+	    if (curr->flags & NTMALLOC) free(curr->str);
+	    free(curr);
+	}
+	free(cmdline);
+	for (vptr = *vec; *vptr; ++vptr);
+	return vptr - *vec;
+    }
+
+    //
+    // make vptr point to the start of the buffer
+    // and ptr point to the area we'll consider the string table.
+    //
+    //   buffer (*vec)
+    //   |
+    //   V       ^---------------------V
+    //   +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
+    //   |   |       | ....  | NULL  |   | ..... |\0 |   | ..... |\0 |...
+    //   +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
+    //   |-  elements+1             -| ^ 1st element   ^ 2nd element
+
+    vptr = (char **) buffer;
+
+    ptr = buffer + (elements+1) * sizeof(char *);
+
+    while (curr = cmdhead) {
+	strlcpy(ptr, curr->str, curr->len + 1);
+	*vptr++ = ptr;
+	ptr += curr->len + 1;
+	cmdhead = curr->next;
+	if (curr->flags & NTMALLOC) free(curr->str);
+	free(curr);
+    }
+    *vptr = 0;
+
+    *vec = (char **) buffer;
+    free(cmdline);
+    return elements;
+}
+
+
+#ifdef	__cplusplus
+}
+#endif
+
+#endif	/* _RB_W32_CMDVECTOR_H */
+