1999-05-12 13:23:44 +02:00
|
|
|
// natPosixProcess.cc - Native side of POSIX process code.
|
|
|
|
|
2006-01-05 18:35:20 +01:00
|
|
|
/* Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 2005, 2006 Free Software Foundation
|
1999-05-12 13:23:44 +02:00
|
|
|
|
|
|
|
This file is part of libgcj.
|
|
|
|
|
|
|
|
This software is copyrighted work licensed under the terms of the
|
|
|
|
Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
|
|
|
|
details. */
|
|
|
|
|
|
|
|
#include <config.h>
|
|
|
|
|
|
|
|
#ifdef HAVE_UNISTD_H
|
|
|
|
#include <unistd.h>
|
|
|
|
#endif
|
|
|
|
#include <errno.h>
|
|
|
|
#include <fcntl.h>
|
|
|
|
#include <sys/types.h>
|
|
|
|
#include <sys/wait.h>
|
|
|
|
#include <signal.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <stdlib.h>
|
1999-06-09 19:42:26 +02:00
|
|
|
#include <stdio.h>
|
2004-08-12 18:20:11 +02:00
|
|
|
#include <unistd.h>
|
|
|
|
#include <pthread.h>
|
1999-05-12 13:23:44 +02:00
|
|
|
|
1999-09-11 00:03:10 +02:00
|
|
|
#include <gcj/cni.h>
|
1999-05-12 13:23:44 +02:00
|
|
|
#include <jvm.h>
|
|
|
|
|
2004-08-12 18:20:11 +02:00
|
|
|
#include <java/lang/ConcreteProcess$ProcessManager.h>
|
1999-05-12 13:23:44 +02:00
|
|
|
#include <java/lang/ConcreteProcess.h>
|
|
|
|
#include <java/lang/IllegalThreadStateException.h>
|
2004-08-12 18:20:11 +02:00
|
|
|
#include <java/lang/InternalError.h>
|
1999-05-12 13:23:44 +02:00
|
|
|
#include <java/lang/InterruptedException.h>
|
|
|
|
#include <java/lang/NullPointerException.h>
|
|
|
|
#include <java/lang/Thread.h>
|
2002-08-14 03:07:59 +02:00
|
|
|
#include <java/io/File.h>
|
1999-05-12 13:23:44 +02:00
|
|
|
#include <java/io/FileDescriptor.h>
|
2004-02-29 20:14:20 +01:00
|
|
|
#include <gnu/java/nio/channels/FileChannelImpl.h>
|
1999-05-12 13:23:44 +02:00
|
|
|
#include <java/io/FileInputStream.h>
|
|
|
|
#include <java/io/FileOutputStream.h>
|
|
|
|
#include <java/io/IOException.h>
|
2000-09-06 20:14:15 +02:00
|
|
|
#include <java/lang/OutOfMemoryError.h>
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2004-02-29 20:14:20 +01:00
|
|
|
using gnu::java::nio::channels::FileChannelImpl;
|
|
|
|
|
1999-05-12 13:23:44 +02:00
|
|
|
extern char **environ;
|
|
|
|
|
|
|
|
static char *
|
|
|
|
new_string (jstring string)
|
|
|
|
{
|
|
|
|
jsize s = _Jv_GetStringUTFLength (string);
|
|
|
|
char *buf = (char *) _Jv_Malloc (s + 1);
|
2003-11-14 02:48:30 +01:00
|
|
|
_Jv_GetStringUTFRegion (string, 0, string->length(), buf);
|
1999-05-12 13:23:44 +02:00
|
|
|
buf[s] = '\0';
|
|
|
|
return buf;
|
|
|
|
}
|
|
|
|
|
2000-09-06 20:14:15 +02:00
|
|
|
static void
|
2002-08-14 21:53:54 +02:00
|
|
|
cleanup (char **args, char **env, char *path)
|
2000-09-06 20:14:15 +02:00
|
|
|
{
|
|
|
|
if (args != NULL)
|
|
|
|
{
|
|
|
|
for (int i = 0; args[i] != NULL; ++i)
|
|
|
|
_Jv_Free (args[i]);
|
|
|
|
_Jv_Free (args);
|
|
|
|
}
|
|
|
|
if (env != NULL)
|
|
|
|
{
|
|
|
|
for (int i = 0; env[i] != NULL; ++i)
|
|
|
|
_Jv_Free (env[i]);
|
|
|
|
_Jv_Free (env);
|
|
|
|
}
|
2002-08-14 21:53:54 +02:00
|
|
|
if (path != NULL)
|
|
|
|
_Jv_Free (path);
|
2000-09-06 20:14:15 +02:00
|
|
|
}
|
|
|
|
|
2002-02-02 08:43:16 +01:00
|
|
|
// This makes our error handling a bit simpler and it lets us avoid
|
|
|
|
// thread bugs where we close a possibly-reopened file descriptor for
|
|
|
|
// a second time.
|
|
|
|
static void
|
|
|
|
myclose (int &fd)
|
|
|
|
{
|
|
|
|
if (fd != -1)
|
|
|
|
close (fd);
|
|
|
|
fd = -1;
|
|
|
|
}
|
|
|
|
|
2004-08-12 18:20:11 +02:00
|
|
|
// There has to be a signal handler in order to be able to
|
|
|
|
// sigwait() on SIGCHLD. The information passed is ignored as it
|
|
|
|
// will be recovered by the waitpid() call.
|
|
|
|
static void
|
|
|
|
sigchld_handler (int)
|
|
|
|
{
|
|
|
|
// Ignore.
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// Get ready to enter the main reaper thread loop.
|
1999-05-12 13:23:44 +02:00
|
|
|
void
|
2004-08-12 18:20:11 +02:00
|
|
|
java::lang::ConcreteProcess$ProcessManager::init ()
|
1999-05-12 13:23:44 +02:00
|
|
|
{
|
2004-08-12 18:20:11 +02:00
|
|
|
using namespace java::lang;
|
|
|
|
// Remenber our PID so other threads can kill us.
|
|
|
|
reaperPID = (jlong) pthread_self ();
|
|
|
|
|
|
|
|
// SIGCHLD is blocked in all threads in posix-threads.cc.
|
|
|
|
// Setup the SIGCHLD handler.
|
|
|
|
struct sigaction sa;
|
|
|
|
memset (&sa, 0, sizeof (sa));
|
|
|
|
|
|
|
|
sa.sa_handler = sigchld_handler;
|
|
|
|
// We only want signals when the things exit.
|
|
|
|
sa.sa_flags = SA_NOCLDSTOP;
|
|
|
|
|
|
|
|
if (-1 == sigaction (SIGCHLD, &sa, NULL))
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
// All OK.
|
|
|
|
return;
|
|
|
|
|
|
|
|
error:
|
|
|
|
throw new InternalError (JvNewStringUTF (strerror (errno)));
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
java::lang::ConcreteProcess$ProcessManager::waitForSignal ()
|
|
|
|
{
|
|
|
|
// Wait for SIGCHLD
|
2004-09-14 22:09:31 +02:00
|
|
|
sigset_t mask;
|
2004-08-18 17:12:32 +02:00
|
|
|
pthread_sigmask (0, NULL, &mask);
|
|
|
|
sigdelset (&mask, SIGCHLD);
|
2004-09-14 22:09:31 +02:00
|
|
|
|
2004-08-18 17:12:32 +02:00
|
|
|
// Use sigsuspend() instead of sigwait() as sigwait() doesn't play
|
|
|
|
// nicely with the GC's use of signals.
|
2004-09-14 22:09:31 +02:00
|
|
|
sigsuspend (&mask);
|
2004-08-12 18:20:11 +02:00
|
|
|
|
2004-09-14 22:09:31 +02:00
|
|
|
// Do not check sigsuspend return value. The only legitimate return
|
|
|
|
// is EINTR, but there is a known kernel bug affecting alpha-linux
|
|
|
|
// wrt sigsuspend+handler+sigreturn that can result in a return value
|
|
|
|
// of __NR_sigsuspend and errno unset. Don't fail unnecessarily on
|
|
|
|
// older kernel versions.
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2004-08-12 18:20:11 +02:00
|
|
|
// All OK.
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
jboolean java::lang::ConcreteProcess$ProcessManager::reap ()
|
|
|
|
{
|
|
|
|
using namespace java::lang;
|
|
|
|
|
|
|
|
pid_t pid;
|
|
|
|
|
|
|
|
for (;;)
|
|
|
|
{
|
|
|
|
// Get the return code from a dead child process.
|
|
|
|
int status;
|
|
|
|
pid = waitpid ((pid_t) - 1, &status, WNOHANG);
|
|
|
|
if (pid == -1)
|
|
|
|
{
|
|
|
|
if (errno == ECHILD)
|
|
|
|
return false;
|
|
|
|
else
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (pid == 0)
|
|
|
|
return true; // No children to wait for.
|
|
|
|
|
|
|
|
// Look up the process in our pid map.
|
|
|
|
ConcreteProcess * process = removeProcessFromMap ((jlong) pid);
|
|
|
|
|
2006-01-05 18:35:20 +01:00
|
|
|
// Note that if process==NULL, then we have an unknown child.
|
|
|
|
// This is not common, but can happen, and isn't an error.
|
2004-08-12 18:20:11 +02:00
|
|
|
if (process)
|
|
|
|
{
|
|
|
|
JvSynchronize sync (process);
|
|
|
|
process->status = WIFEXITED (status) ? WEXITSTATUS (status) : -1;
|
|
|
|
process->state = ConcreteProcess::STATE_TERMINATED;
|
|
|
|
process->processTerminationCleanup();
|
|
|
|
process->notifyAll ();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
error:
|
|
|
|
throw new InternalError (JvNewStringUTF (strerror (errno)));
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
java::lang::ConcreteProcess$ProcessManager::signalReaper ()
|
|
|
|
{
|
|
|
|
int c = pthread_kill ((pthread_t) reaperPID, SIGCHLD);
|
|
|
|
if (c == 0)
|
|
|
|
return;
|
|
|
|
// pthread_kill() failed.
|
|
|
|
throw new InternalError (JvNewStringUTF (strerror (c)));
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
java::lang::ConcreteProcess::nativeDestroy ()
|
|
|
|
{
|
|
|
|
int c = kill ((pid_t) pid, SIGKILL);
|
|
|
|
if (c == 0)
|
|
|
|
return;
|
|
|
|
// kill() failed.
|
|
|
|
throw new InternalError (JvNewStringUTF (strerror (errno)));
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
java::lang::ConcreteProcess::nativeSpawn ()
|
|
|
|
{
|
|
|
|
using namespace java::io;
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2002-03-06 06:13:58 +01:00
|
|
|
// Initialize all locals here to make cleanup simpler.
|
|
|
|
char **args = NULL;
|
1999-05-12 13:23:44 +02:00
|
|
|
char **env = NULL;
|
2002-08-14 21:53:54 +02:00
|
|
|
char *path = NULL;
|
2002-03-06 06:13:58 +01:00
|
|
|
int inp[2], outp[2], errp[2], msgp[2];
|
|
|
|
inp[0] = -1;
|
|
|
|
inp[1] = -1;
|
|
|
|
outp[0] = -1;
|
|
|
|
outp[1] = -1;
|
|
|
|
errp[0] = -1;
|
|
|
|
errp[1] = -1;
|
|
|
|
msgp[0] = -1;
|
|
|
|
msgp[1] = -1;
|
|
|
|
errorStream = NULL;
|
|
|
|
inputStream = NULL;
|
|
|
|
outputStream = NULL;
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2000-09-06 20:14:15 +02:00
|
|
|
try
|
1999-05-12 13:23:44 +02:00
|
|
|
{
|
2002-03-06 06:13:58 +01:00
|
|
|
// Transform arrays to native form.
|
2004-08-12 18:20:11 +02:00
|
|
|
args = (char **) _Jv_Malloc ((progarray->length + 1) * sizeof (char *));
|
2002-03-06 06:13:58 +01:00
|
|
|
|
|
|
|
// Initialize so we can gracefully recover.
|
|
|
|
jstring *elts = elements (progarray);
|
|
|
|
for (int i = 0; i <= progarray->length; ++i)
|
|
|
|
args[i] = NULL;
|
|
|
|
|
2000-09-06 20:14:15 +02:00
|
|
|
for (int i = 0; i < progarray->length; ++i)
|
|
|
|
args[i] = new_string (elts[i]);
|
|
|
|
args[progarray->length] = NULL;
|
|
|
|
|
|
|
|
if (envp)
|
|
|
|
{
|
|
|
|
env = (char **) _Jv_Malloc ((envp->length + 1) * sizeof (char *));
|
|
|
|
elts = elements (envp);
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2000-09-06 20:14:15 +02:00
|
|
|
// Initialize so we can gracefully recover.
|
|
|
|
for (int i = 0; i <= envp->length; ++i)
|
|
|
|
env[i] = NULL;
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2000-09-06 20:14:15 +02:00
|
|
|
for (int i = 0; i < envp->length; ++i)
|
|
|
|
env[i] = new_string (elts[i]);
|
|
|
|
env[envp->length] = NULL;
|
|
|
|
}
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2002-08-14 21:53:54 +02:00
|
|
|
// We allocate this here because we can't call malloc() after
|
|
|
|
// the fork.
|
|
|
|
if (dir != NULL)
|
|
|
|
path = new_string (dir->getPath ());
|
|
|
|
|
2002-03-06 06:13:58 +01:00
|
|
|
// Create pipes for I/O. MSGP is for communicating exec()
|
|
|
|
// status.
|
|
|
|
if (pipe (inp) || pipe (outp) || pipe (errp) || pipe (msgp)
|
|
|
|
|| fcntl (msgp[1], F_SETFD, FD_CLOEXEC))
|
2004-08-12 18:20:11 +02:00
|
|
|
throw new IOException (JvNewStringUTF (strerror (errno)));
|
2000-09-06 20:14:15 +02:00
|
|
|
|
2002-03-06 06:13:58 +01:00
|
|
|
// We create the streams before forking. Otherwise if we had an
|
|
|
|
// error while creating the streams we would have run the child
|
|
|
|
// with no way to communicate with it.
|
2004-08-12 18:20:11 +02:00
|
|
|
errorStream =
|
|
|
|
new FileInputStream (new
|
|
|
|
FileChannelImpl (errp[0], FileChannelImpl::READ));
|
|
|
|
inputStream =
|
|
|
|
new FileInputStream (new
|
|
|
|
FileChannelImpl (inp[0], FileChannelImpl::READ));
|
|
|
|
outputStream =
|
|
|
|
new FileOutputStream (new FileChannelImpl (outp[1],
|
|
|
|
FileChannelImpl::WRITE));
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2002-03-06 06:13:58 +01:00
|
|
|
// We don't use vfork() because that would cause the local
|
|
|
|
// environment to be set by the child.
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2004-08-12 18:20:11 +02:00
|
|
|
// Use temporary for fork result to avoid dirtying an extra page.
|
|
|
|
pid_t pid_tmp;
|
|
|
|
if ((pid_tmp = fork ()) == -1)
|
|
|
|
throw new IOException (JvNewStringUTF (strerror (errno)));
|
|
|
|
|
|
|
|
if (pid_tmp == 0)
|
2002-03-06 06:13:58 +01:00
|
|
|
{
|
2002-08-14 03:07:59 +02:00
|
|
|
// Child process, so remap descriptors, chdir and exec.
|
2002-03-06 06:13:58 +01:00
|
|
|
if (envp)
|
1999-06-09 19:42:26 +02:00
|
|
|
{
|
2002-03-06 06:13:58 +01:00
|
|
|
// Preserve PATH and LD_LIBRARY_PATH unless specified
|
|
|
|
// explicitly.
|
|
|
|
char *path_val = getenv ("PATH");
|
|
|
|
char *ld_path_val = getenv ("LD_LIBRARY_PATH");
|
|
|
|
environ = env;
|
2004-02-04 01:07:19 +01:00
|
|
|
if (path_val && getenv ("PATH") == NULL)
|
2002-03-06 06:13:58 +01:00
|
|
|
{
|
2004-08-12 18:20:11 +02:00
|
|
|
char *path_env =
|
|
|
|
(char *) _Jv_Malloc (strlen (path_val) + 5 + 1);
|
2002-03-06 06:13:58 +01:00
|
|
|
strcpy (path_env, "PATH=");
|
|
|
|
strcat (path_env, path_val);
|
|
|
|
putenv (path_env);
|
|
|
|
}
|
2004-02-04 01:07:19 +01:00
|
|
|
if (ld_path_val && getenv ("LD_LIBRARY_PATH") == NULL)
|
2002-03-06 06:13:58 +01:00
|
|
|
{
|
2004-08-12 18:20:11 +02:00
|
|
|
char *ld_path_env =
|
|
|
|
(char *) _Jv_Malloc (strlen (ld_path_val) + 16 + 1);
|
2002-03-06 06:13:58 +01:00
|
|
|
strcpy (ld_path_env, "LD_LIBRARY_PATH=");
|
|
|
|
strcat (ld_path_env, ld_path_val);
|
|
|
|
putenv (ld_path_env);
|
|
|
|
}
|
1999-06-09 19:42:26 +02:00
|
|
|
}
|
2002-03-06 06:13:58 +01:00
|
|
|
|
|
|
|
// We ignore errors from dup2 because they should never occur.
|
|
|
|
dup2 (outp[0], 0);
|
|
|
|
dup2 (inp[1], 1);
|
|
|
|
dup2 (errp[1], 2);
|
|
|
|
|
|
|
|
// Use close and not myclose -- we're in the child, and we
|
|
|
|
// aren't worried about the possible race condition.
|
|
|
|
close (inp[0]);
|
|
|
|
close (inp[1]);
|
|
|
|
close (errp[0]);
|
|
|
|
close (errp[1]);
|
|
|
|
close (outp[0]);
|
|
|
|
close (outp[1]);
|
|
|
|
close (msgp[0]);
|
2002-08-14 03:07:59 +02:00
|
|
|
|
|
|
|
// Change directory.
|
2002-08-14 21:53:54 +02:00
|
|
|
if (path != NULL)
|
2002-08-14 03:07:59 +02:00
|
|
|
{
|
2002-08-14 21:53:54 +02:00
|
|
|
if (chdir (path) != 0)
|
2002-08-14 03:07:59 +02:00
|
|
|
{
|
|
|
|
char c = errno;
|
|
|
|
write (msgp[1], &c, 1);
|
|
|
|
_exit (127);
|
|
|
|
}
|
|
|
|
}
|
2002-03-06 06:13:58 +01:00
|
|
|
|
2005-11-08 22:00:15 +01:00
|
|
|
// Make sure that SIGCHLD is unblocked for the new process.
|
|
|
|
sigset_t mask;
|
|
|
|
sigemptyset (&mask);
|
|
|
|
sigaddset (&mask, SIGCHLD);
|
|
|
|
sigprocmask (SIG_UNBLOCK, &mask, NULL);
|
|
|
|
|
2002-03-06 06:13:58 +01:00
|
|
|
execvp (args[0], args);
|
|
|
|
|
|
|
|
// Send the parent notification that the exec failed.
|
|
|
|
char c = errno;
|
|
|
|
write (msgp[1], &c, 1);
|
|
|
|
_exit (127);
|
1999-06-09 19:42:26 +02:00
|
|
|
}
|
2002-03-06 06:13:58 +01:00
|
|
|
|
|
|
|
// Parent. Close extra file descriptors and mark ours as
|
|
|
|
// close-on-exec.
|
2004-08-12 18:20:11 +02:00
|
|
|
pid = (jlong) pid_tmp;
|
|
|
|
|
2002-03-06 06:13:58 +01:00
|
|
|
myclose (outp[0]);
|
|
|
|
myclose (inp[1]);
|
|
|
|
myclose (errp[1]);
|
|
|
|
myclose (msgp[1]);
|
|
|
|
|
|
|
|
char c;
|
|
|
|
int r = read (msgp[0], &c, 1);
|
|
|
|
if (r == -1)
|
2004-08-12 18:20:11 +02:00
|
|
|
throw new IOException (JvNewStringUTF (strerror (errno)));
|
2002-03-06 06:13:58 +01:00
|
|
|
else if (r != 0)
|
2004-08-12 18:20:11 +02:00
|
|
|
throw new IOException (JvNewStringUTF (strerror (c)));
|
1999-05-12 13:23:44 +02:00
|
|
|
}
|
2002-03-06 06:13:58 +01:00
|
|
|
catch (java::lang::Throwable *thrown)
|
|
|
|
{
|
|
|
|
// Do some cleanup we only do on failure. If a stream object
|
|
|
|
// has been created, we must close the stream itself (to avoid
|
|
|
|
// duplicate closes when the stream object is collected).
|
|
|
|
// Otherwise we simply close the underlying file descriptor.
|
|
|
|
// We ignore errors here as they are uninteresting.
|
|
|
|
|
|
|
|
try
|
|
|
|
{
|
|
|
|
if (inputStream != NULL)
|
|
|
|
inputStream->close ();
|
|
|
|
else
|
|
|
|
myclose (inp[0]);
|
|
|
|
}
|
|
|
|
catch (java::lang::Throwable *ignore)
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
try
|
|
|
|
{
|
|
|
|
if (outputStream != NULL)
|
|
|
|
outputStream->close ();
|
|
|
|
else
|
|
|
|
myclose (outp[1]);
|
|
|
|
}
|
|
|
|
catch (java::lang::Throwable *ignore)
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
try
|
|
|
|
{
|
|
|
|
if (errorStream != NULL)
|
|
|
|
errorStream->close ();
|
|
|
|
else
|
|
|
|
myclose (errp[0]);
|
|
|
|
}
|
|
|
|
catch (java::lang::Throwable *ignore)
|
|
|
|
{
|
|
|
|
}
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2002-03-06 06:13:58 +01:00
|
|
|
// These are potentially duplicate, but it doesn't matter due to
|
|
|
|
// the use of myclose.
|
|
|
|
myclose (outp[0]);
|
|
|
|
myclose (inp[1]);
|
|
|
|
myclose (errp[1]);
|
|
|
|
myclose (msgp[1]);
|
2000-09-06 20:14:15 +02:00
|
|
|
|
2004-08-12 18:20:11 +02:00
|
|
|
exception = thrown;
|
2002-03-06 06:13:58 +01:00
|
|
|
}
|
2000-09-06 20:14:15 +02:00
|
|
|
|
2002-02-02 08:43:16 +01:00
|
|
|
myclose (msgp[0]);
|
2002-08-14 21:53:54 +02:00
|
|
|
cleanup (args, env, path);
|
1999-05-12 13:23:44 +02:00
|
|
|
|
2004-08-12 18:20:11 +02:00
|
|
|
if (exception == NULL)
|
2002-03-06 06:13:58 +01:00
|
|
|
{
|
|
|
|
fcntl (outp[1], F_SETFD, FD_CLOEXEC);
|
|
|
|
fcntl (inp[0], F_SETFD, FD_CLOEXEC);
|
|
|
|
fcntl (errp[0], F_SETFD, FD_CLOEXEC);
|
|
|
|
}
|
1999-05-12 13:23:44 +02:00
|
|
|
}
|