kc3-lang/gnulib/lib/javaexec.c

• Show log

  Commit

• Hash : 44b65c48
  Author :
  Date : 2018-05-03T23:09:42
  

  Simplify code. Drop support for Borland C++ on Windows.
  
  Reported by Gisle Vanem <gisle.vanem@gmail.com>.
  
  * lib/accept4.c: Simplify 'defined _WIN32 || defined __WIN32__' to just
  'defined _WIN32'.
  * lib/canonicalize-lgpl.c: Likewise.
  * lib/classpath.c: Likewise.
  * lib/clean-temp.c: Likewise.
  * lib/csharpexec.c: Likewise.
  * lib/ctime.c: Likewise.
  * lib/dosname.h: Likewise.
  * lib/dup2.c: Likewise.
  * lib/errno.in.h: Likewise.
  * lib/error.c: Likewise.
  * lib/euidaccess.c: Likewise.
  * lib/execute.c: Likewise.
  * lib/fcntl.in.h: Likewise.
  * lib/fcntl.c: Likewise.
  * lib/filename.h: Likewise.
  * lib/findprog.c: Likewise.
  * lib/flock.c: Likewise.
  * lib/fopen.c: Likewise.
  * lib/freopen.c: Likewise.
  * lib/fstat.c: Likewise.
  * lib/fsync.c: Likewise.
  * lib/gc-gnulib.c: Likewise.
  * lib/get-rusage-data.c: Likewise.
  * lib/getaddrinfo.c: Likewise.
  * lib/getdelim.c: Likewise.
  * lib/getdtablesize.c: Likewise.
  * lib/gethostname.c: Likewise.
  * lib/getlogin.c: Likewise.
  * lib/getlogin_r.c: Likewise.
  * lib/getopt.c: Likewise.
  * lib/getpagesize.c: Likewise.
  * lib/getpass.c: Likewise.
  * lib/getrusage.c: Likewise.
  * lib/gettimeofday.c: Likewise.
  * lib/glob.c: Likewise.
  * lib/inttypes.in.h: Likewise.
  * lib/isapipe.c: Likewise.
  * lib/javaexec.c: Likewise.
  * lib/link.c: Likewise.
  * lib/localcharset.c: Likewise.
  * lib/localename.h: Likewise.
  * lib/localename.c: Likewise.
  * lib/localtime.c: Likewise.
  * lib/lseek.c: Likewise.
  * lib/mbsinit.c: Likewise.
  * lib/mkdir.c: Likewise.
  * lib/msvc-nothrow.h: Likewise.
  * lib/nanosleep.c: Likewise.
  * lib/nl_langinfo.c: Likewise.
  * lib/nonblocking.c: Likewise.
  * lib/nproc.c: Likewise.
  * lib/open.c: Likewise.
  * lib/openpty.c: Likewise.
  * lib/pathmax.h: Likewise.
  * lib/pipe-filter-aux.c: Likewise.
  * lib/pipe-filter-gi.c: Likewise.
  * lib/pipe-filter-ii.c: Likewise.
  * lib/pipe.c: Likewise.
  * lib/pipe2.c: Likewise.
  * lib/poll.c: Likewise.
  * lib/popen.c: Likewise.
  * lib/posix_openpt.c: Likewise.
  * lib/printf-parse.c: Likewise.
  * lib/progreloc.c: Likewise.
  * lib/putenv.c: Likewise.
  * lib/read.c: Likewise.
  * lib/relocatable.c: Likewise.
  * lib/rename.c: Likewise.
  * lib/same-inode.h: Likewise.
  * lib/secure_getenv.c: Likewise.
  * lib/select.c: Likewise.
  * lib/sethostname.c: Likewise.
  * lib/setlocale.c: Likewise.
  * lib/sigaction.c: Likewise.
  * lib/sigprocmask.c: Likewise.
  * lib/sleep.c: Likewise.
  * lib/spawn-pipe.h: Likewise.
  * lib/spawn-pipe.c: Likewise.
  * lib/spawni.c: Likewise.
  * lib/stat-time.h: Likewise.
  * lib/stat-w32.c: Likewise.
  * lib/stat.c: Likewise.
  * lib/stdio.in.h: Likewise.
  * lib/stdio-impl.h: Likewise.
  * lib/stdio-read.c: Likewise.
  * lib/stdio-write.c: Likewise.
  * lib/stdlib.in.h: Likewise.
  * lib/strerror_r.c: Likewise.
  * lib/strftime-fixes.c: Likewise.
  * lib/sys_stat.in.h: Likewise.
  * lib/sys_types.in.h: Likewise.
  * lib/sys_wait.in.h : Likewise.
  * lib/system-quote.h: Likewise.
  * lib/system-quote.c: Likewise.
  * lib/tmpdir.c: Likewise.
  * lib/tzset.c: Likewise.
  * lib/uname.c: Likewise.
  * lib/unistd.in.h: Likewise.
  * lib/utime.in.h: Likewise.
  * lib/utime.c: Likewise.
  * lib/utimecmp.c: Likewise.
  * lib/utimens.c: Likewise.
  * lib/vasnprintf.c: Likewise.
  * lib/vma-iter.h: Likewise.
  * lib/vma-iter.c: Likewise.
  * lib/wait-process.c: Likewise.
  * lib/wcsftime.c: Likewise.
  * lib/wctype.in.h: Likewise.
  * lib/write.c: Likewise.
  * tests/nap.h: Likewise.
  * tests/test-cloexec.c: Likewise.
  * tests/test-dup-safer.c: Likewise.
  * tests/test-dup2.c: Likewise.
  * tests/test-dup3.c: Likewise.
  * tests/test-fcntl.c: Likewise.
  * tests/test-get-rusage-data.c: Likewise.
  * tests/test-getaddrinfo.c: Likewise.
  * tests/test-getlogin.h: Likewise.
  * tests/test-isatty.c: Likewise.
  * tests/test-localename.c: Likewise.
  * tests/test-mbrtowc-w32.c: Likewise.
  * tests/test-nonblocking.c: Likewise.
  * tests/test-nonblocking-pipe-main.c: Likewise.
  * tests/test-nonblocking-socket-main.c: Likewise.
  * tests/test-nonblocking-socket.h: Likewise.
  * tests/test-pipe.c: Likewise.
  * tests/test-pipe2.c: Likewise.
  * tests/test-poll.c: Likewise.
  * tests/test-pthread_sigmask1.c: Likewise.
  * tests/test-select.h: Likewise.
  * tests/test-sethostname2.c: Likewise.
  * tests/test-sigprocmask.c: Likewise.
  * tests/test-spawn-pipe-child.c: Likewise.
  * tests/test-stat-time.c: Likewise.
  * tests/test-system-quote-main.c: Likewise.
  * tests/test-utimens-common.h: Likewise.
  * tests/test-wcrtomb-w32.c: Likewise.
  * m4/csharpexec.m4 (gt_CSHARPEXEC): Likewise.
  * m4/getcwd.m4 (gl_FUNC_GETCWD_NULL): Likewise.
  * m4/javacomp.m4 (gt_JAVACOMP): Likewise.
  * m4/javaexec.m4 (gt_JAVAEXEC): Likewise.
  * m4/locale-ar.m4 (gt_LOCALE_AR): Likewise.
  * m4/locale-fr.m4 (gt_LOCALE_FR, gt_LOCALE_FR_UTF8): Likewise.
  * m4/locale-ja.m4 (gt_LOCALE_JA): Likewise.
  * m4/locale-tr.m4 (gt_LOCALE_TR_UTF8): Likewise.
  * m4/locale-zh.m4 (gt_LOCALE_ZH_CN): Likewise.
  * m4/malloc.m4 (gl_CHECK_MALLOC_POSIX): Likewise.
  * m4/nocrash.m4 (GL_NOCRASH): Likewise.
  * m4/pathmax.m4 (gl_PATHMAX_SNIPPET): Likewise.
  * m4/ptsname_r.m4 (gl_PREREQ_PTSNAME_R): Likewise.
  * m4/stdio_h.m4 (gl_STDIO_H): Likewise.
  * m4/tmpfile.m4 (gl_FUNC_TMPFILE): Likewise.
  * m4/unistd_h.m4 (gl_UNISTD_H): Likewise.
  

Download

• lib/javaexec.c

• /* Execute a Java program.
     Copyright (C) 2001-2003, 2006-2018 Free Software Foundation, Inc.
     Written by Bruno Haible <haible@clisp.cons.org>, 2001.
  
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 3 of the License, or
     (at your option) any later version.
  
     This program 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 for more details.
  
     You should have received a copy of the GNU General Public License
     along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  
  #include <config.h>
  #include <alloca.h>
  
  /* Specification.  */
  #include "javaexec.h"
  
  #include <stdio.h>
  #include <stdlib.h>
  #include <string.h>
  
  #include "execute.h"
  #include "classpath.h"
  #include "xsetenv.h"
  #include "sh-quote.h"
  #include "concat-filename.h"
  #include "xalloc.h"
  #include "xmalloca.h"
  #include "error.h"
  #include "gettext.h"
  
  #define _(str) gettext (str)
  
  
  /* Survey of Java virtual machines.
  
     A = does it work without CLASSPATH being set
     B = does it work with CLASSPATH being set to empty
     C = option to set CLASSPATH, other than setting it in the environment
     T = test for presence
  
     Program    from         A B  C              T
  
     $JAVA      unknown      N Y  n/a            true
     gij        GCC 3.0      Y Y  n/a            gij --version >/dev/null
     java       JDK 1.1.8    Y Y  -classpath P   java -version 2>/dev/null
     jre        JDK 1.1.8    N Y  -classpath P   jre 2>/dev/null; test $? = 1
     java       JDK 1.3.0    Y Y  -classpath P   java -version 2>/dev/null
     jview      MS IE        Y Y  -cp P          jview -? >nul; %errorlevel% = 1
  
     The CLASSPATH is a colon separated list of pathnames. (On Windows: a
     semicolon separated list of pathnames.)
  
     We try the Java virtual machines in the following order:
       1. getenv ("JAVA"), because the user must be able to override our
          preferences,
       2. "gij", because it is a completely free JVM,
       3. "java", because it is a standard JVM,
       4. "jre", comes last because it requires a CLASSPATH environment variable,
       5. "jview", on Windows only, because it is frequently installed.
  
     We unset the JAVA_HOME environment variable, because a wrong setting of
     this variable can confuse the JDK's javac.
   */
  
  bool
  execute_java_class (const char *class_name,
                      const char * const *classpaths,
                      unsigned int classpaths_count,
                      bool use_minimal_classpath,
                      const char *exe_dir,
                      const char * const *args,
                      bool verbose, bool quiet,
                      execute_fn *executer, void *private_data)
  {
    bool err = false;
    unsigned int nargs;
    char *old_JAVA_HOME;
  
    /* Count args.  */
    {
      const char * const *arg;
  
      for (nargs = 0, arg = args; *arg != NULL; nargs++, arg++)
       ;
    }
  
    /* First, try a class compiled to a native code executable.  */
    if (exe_dir != NULL)
      {
        char *exe_pathname = xconcatenated_filename (exe_dir, class_name, EXEEXT);
        char *old_classpath;
        char **argv = (char **) xmalloca ((1 + nargs + 1) * sizeof (char *));
        unsigned int i;
  
        /* Set CLASSPATH.  */
        old_classpath =
          set_classpath (classpaths, classpaths_count, use_minimal_classpath,
                         verbose);
  
        argv[0] = exe_pathname;
        for (i = 0; i <= nargs; i++)
          argv[1 + i] = (char *) args[i];
  
        if (verbose)
          {
            char *command = shell_quote_argv (argv);
            printf ("%s\n", command);
            free (command);
          }
  
        err = executer (class_name, exe_pathname, argv, private_data);
  
        /* Reset CLASSPATH.  */
        reset_classpath (old_classpath);
  
        freea (argv);
  
        goto done1;
      }
  
    {
      const char *java = getenv ("JAVA");
      if (java != NULL && java[0] != '\0')
        {
          /* Because $JAVA may consist of a command and options, we use the
             shell.  Because $JAVA has been set by the user, we leave all
             all environment variables in place, including JAVA_HOME, and
             we don't erase the user's CLASSPATH.  */
          char *old_classpath;
          unsigned int command_length;
          char *command;
          char *argv[4];
          const char * const *arg;
          char *p;
  
          /* Set CLASSPATH.  */
          old_classpath =
            set_classpath (classpaths, classpaths_count, false,
                           verbose);
  
          command_length = strlen (java);
          command_length += 1 + shell_quote_length (class_name);
          for (arg = args; *arg != NULL; arg++)
            command_length += 1 + shell_quote_length (*arg);
          command_length += 1;
  
          command = (char *) xmalloca (command_length);
          p = command;
          /* Don't shell_quote $JAVA, because it may consist of a command
             and options.  */
          memcpy (p, java, strlen (java));
          p += strlen (java);
          *p++ = ' ';
          p = shell_quote_copy (p, class_name);
          for (arg = args; *arg != NULL; arg++)
            {
              *p++ = ' ';
              p = shell_quote_copy (p, *arg);
            }
          *p++ = '\0';
          /* Ensure command_length was correctly calculated.  */
          if (p - command > command_length)
            abort ();
  
          if (verbose)
            printf ("%s\n", command);
  
          argv[0] = "/bin/sh";
          argv[1] = "-c";
          argv[2] = command;
          argv[3] = NULL;
          err = executer (java, "/bin/sh", argv, private_data);
  
          freea (command);
  
          /* Reset CLASSPATH.  */
          reset_classpath (old_classpath);
  
          goto done1;
        }
    }
  
    /* Unset the JAVA_HOME environment variable.  */
    old_JAVA_HOME = getenv ("JAVA_HOME");
    if (old_JAVA_HOME != NULL)
      {
        old_JAVA_HOME = xstrdup (old_JAVA_HOME);
        unsetenv ("JAVA_HOME");
      }
  
    {
      static bool gij_tested;
      static bool gij_present;
  
      if (!gij_tested)
        {
          /* Test for presence of gij: "gij --version > /dev/null"  */
          char *argv[3];
          int exitstatus;
  
          argv[0] = "gij";
          argv[1] = "--version";
          argv[2] = NULL;
          exitstatus = execute ("gij", "gij", argv, false, false, true, true,
                                true, false, NULL);
          gij_present = (exitstatus == 0);
          gij_tested = true;
        }
  
      if (gij_present)
        {
          char *old_classpath;
          char **argv = (char **) xmalloca ((2 + nargs + 1) * sizeof (char *));
          unsigned int i;
  
          /* Set CLASSPATH.  */
          old_classpath =
            set_classpath (classpaths, classpaths_count, use_minimal_classpath,
                           verbose);
  
          argv[0] = "gij";
          argv[1] = (char *) class_name;
          for (i = 0; i <= nargs; i++)
            argv[2 + i] = (char *) args[i];
  
          if (verbose)
            {
              char *command = shell_quote_argv (argv);
              printf ("%s\n", command);
              free (command);
            }
  
          err = executer ("gij", "gij", argv, private_data);
  
          /* Reset CLASSPATH.  */
          reset_classpath (old_classpath);
  
          freea (argv);
  
          goto done2;
        }
    }
  
    {
      static bool java_tested;
      static bool java_present;
  
      if (!java_tested)
        {
          /* Test for presence of java: "java -version 2> /dev/null"  */
          char *argv[3];
          int exitstatus;
  
          argv[0] = "java";
          argv[1] = "-version";
          argv[2] = NULL;
          exitstatus = execute ("java", "java", argv, false, false, true, true,
                                true, false, NULL);
          java_present = (exitstatus == 0);
          java_tested = true;
        }
  
      if (java_present)
        {
          char *old_classpath;
          char **argv = (char **) xmalloca ((2 + nargs + 1) * sizeof (char *));
          unsigned int i;
  
          /* Set CLASSPATH.  We don't use the "-classpath ..." option because
             in JDK 1.1.x its argument should also contain the JDK's classes.zip,
             but we don't know its location.  (In JDK 1.3.0 it would work.)  */
          old_classpath =
            set_classpath (classpaths, classpaths_count, use_minimal_classpath,
                           verbose);
  
          argv[0] = "java";
          argv[1] = (char *) class_name;
          for (i = 0; i <= nargs; i++)
            argv[2 + i] = (char *) args[i];
  
          if (verbose)
            {
              char *command = shell_quote_argv (argv);
              printf ("%s\n", command);
              free (command);
            }
  
          err = executer ("java", "java", argv, private_data);
  
          /* Reset CLASSPATH.  */
          reset_classpath (old_classpath);
  
          freea (argv);
  
          goto done2;
        }
    }
  
    {
      static bool jre_tested;
      static bool jre_present;
  
      if (!jre_tested)
        {
          /* Test for presence of jre: "jre 2> /dev/null ; test $? = 1"  */
          char *argv[2];
          int exitstatus;
  
          argv[0] = "jre";
          argv[1] = NULL;
          exitstatus = execute ("jre", "jre", argv, false, false, true, true,
                                true, false, NULL);
          jre_present = (exitstatus == 0 || exitstatus == 1);
          jre_tested = true;
        }
  
      if (jre_present)
        {
          char *old_classpath;
          char **argv = (char **) xmalloca ((2 + nargs + 1) * sizeof (char *));
          unsigned int i;
  
          /* Set CLASSPATH.  We don't use the "-classpath ..." option because
             in JDK 1.1.x its argument should also contain the JDK's classes.zip,
             but we don't know its location.  */
          old_classpath =
            set_classpath (classpaths, classpaths_count, use_minimal_classpath,
                           verbose);
  
          argv[0] = "jre";
          argv[1] = (char *) class_name;
          for (i = 0; i <= nargs; i++)
            argv[2 + i] = (char *) args[i];
  
          if (verbose)
            {
              char *command = shell_quote_argv (argv);
              printf ("%s\n", command);
              free (command);
            }
  
          err = executer ("jre", "jre", argv, private_data);
  
          /* Reset CLASSPATH.  */
          reset_classpath (old_classpath);
  
          freea (argv);
  
          goto done2;
        }
    }
  
  #if defined _WIN32 || defined __CYGWIN__
    /* Native Windows, Cygwin */
    {
      static bool jview_tested;
      static bool jview_present;
  
      if (!jview_tested)
        {
          /* Test for presence of jview: "jview -? >nul ; test $? = 1"  */
          char *argv[3];
          int exitstatus;
  
          argv[0] = "jview";
          argv[1] = "-?";
          argv[2] = NULL;
          exitstatus = execute ("jview", "jview", argv, false, false, true, true,
                                true, false, NULL);
          jview_present = (exitstatus == 0 || exitstatus == 1);
          jview_tested = true;
        }
  
      if (jview_present)
        {
          char *old_classpath;
          char **argv = (char **) xmalloca ((2 + nargs + 1) * sizeof (char *));
          unsigned int i;
  
          /* Set CLASSPATH.  */
          old_classpath =
            set_classpath (classpaths, classpaths_count, use_minimal_classpath,
                           verbose);
  
          argv[0] = "jview";
          argv[1] = (char *) class_name;
          for (i = 0; i <= nargs; i++)
            argv[2 + i] = (char *) args[i];
  
          if (verbose)
            {
              char *command = shell_quote_argv (argv);
              printf ("%s\n", command);
              free (command);
            }
  
          err = executer ("jview", "jview", argv, private_data);
  
          /* Reset CLASSPATH.  */
          reset_classpath (old_classpath);
  
          freea (argv);
  
          goto done2;
        }
    }
  #endif
  
    if (!quiet)
      error (0, 0, _("Java virtual machine not found, try installing gij or set $JAVA"));
    err = true;
  
   done2:
    if (old_JAVA_HOME != NULL)
      {
        xsetenv ("JAVA_HOME", old_JAVA_HOME, 1);
        free (old_JAVA_HOME);
      }
  
   done1:
    return err;
  }
  

Download