Blame glib/glib/gspawn.c

Packit db3073
/* gspawn.c - Process launching
Packit db3073
 *
Packit db3073
 *  Copyright 2000 Red Hat, Inc.
Packit db3073
 *  g_execvpe implementation based on GNU libc execvp:
Packit db3073
 *   Copyright 1991, 92, 95, 96, 97, 98, 99 Free Software Foundation, Inc.
Packit db3073
 *
Packit db3073
 * GLib is free software; you can redistribute it and/or
Packit db3073
 * modify it under the terms of the GNU Lesser General Public License as
Packit db3073
 * published by the Free Software Foundation; either version 2 of the
Packit db3073
 * License, or (at your option) any later version.
Packit db3073
 *
Packit db3073
 * GLib is distributed in the hope that it will be useful,
Packit db3073
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit db3073
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Packit db3073
 * Lesser General Public License for more details.
Packit db3073
 *
Packit db3073
 * You should have received a copy of the GNU Lesser General Public
Packit db3073
 * License along with GLib; see the file COPYING.LIB.  If not, write
Packit db3073
 * to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Packit db3073
 * Boston, MA 02111-1307, USA.
Packit db3073
 */
Packit db3073
Packit db3073
#include "config.h"
Packit db3073
Packit db3073
#include <sys/time.h>
Packit db3073
#include <sys/types.h>
Packit db3073
#include <sys/wait.h>
Packit db3073
#include <unistd.h>
Packit db3073
#include <errno.h>
Packit db3073
#include <fcntl.h>
Packit db3073
#include <signal.h>
Packit db3073
#include <string.h>
Packit db3073
#include <stdlib.h>   /* for fdwalk */
Packit db3073
#include <dirent.h>
Packit db3073
Packit db3073
#ifdef HAVE_SYS_SELECT_H
Packit db3073
#include <sys/select.h>
Packit db3073
#endif /* HAVE_SYS_SELECT_H */
Packit db3073
Packit db3073
#ifdef HAVE_SYS_RESOURCE_H
Packit db3073
#include <sys/resource.h>
Packit db3073
#endif /* HAVE_SYS_RESOURCE_H */
Packit db3073
Packit db3073
#include "gspawn.h"
Packit db3073
Packit db3073
#include "genviron.h"
Packit db3073
#include "gmem.h"
Packit db3073
#include "gshell.h"
Packit db3073
#include "gstring.h"
Packit db3073
#include "gstrfuncs.h"
Packit db3073
#include "gtestutils.h"
Packit db3073
#include "gutils.h"
Packit db3073
#include "glibintl.h"
Packit db3073
Packit db3073
Packit db3073
/**
Packit db3073
 * SECTION:spawn
Packit db3073
 * @Short_description: process launching
Packit db3073
 * @Title: Spawning Processes
Packit db3073
 */
Packit db3073
Packit db3073
Packit db3073
Packit db3073
static gint g_execute (const gchar  *file,
Packit db3073
                       gchar **argv,
Packit db3073
                       gchar **envp,
Packit db3073
                       gboolean search_path);
Packit db3073
Packit db3073
static gboolean make_pipe            (gint                  p[2],
Packit db3073
                                      GError              **error);
Packit db3073
static gboolean fork_exec_with_pipes (gboolean              intermediate_child,
Packit db3073
                                      const gchar          *working_directory,
Packit db3073
                                      gchar               **argv,
Packit db3073
                                      gchar               **envp,
Packit db3073
                                      gboolean              close_descriptors,
Packit db3073
                                      gboolean              search_path,
Packit db3073
                                      gboolean              stdout_to_null,
Packit db3073
                                      gboolean              stderr_to_null,
Packit db3073
                                      gboolean              child_inherits_stdin,
Packit db3073
                                      gboolean              file_and_argv_zero,
Packit db3073
                                      GSpawnChildSetupFunc  child_setup,
Packit db3073
                                      gpointer              user_data,
Packit db3073
                                      GPid                 *child_pid,
Packit db3073
                                      gint                 *standard_input,
Packit db3073
                                      gint                 *standard_output,
Packit db3073
                                      gint                 *standard_error,
Packit db3073
                                      GError              **error);
Packit db3073
Packit db3073
GQuark
Packit db3073
g_spawn_error_quark (void)
Packit db3073
{
Packit db3073
  return g_quark_from_static_string ("g-exec-error-quark");
Packit db3073
}
Packit db3073
Packit db3073
/**
Packit db3073
 * g_spawn_async:
Packit db3073
 * @working_directory: (allow-none): child's current working directory, or %NULL to inherit parent's
Packit db3073
 * @argv: (array zero-terminated=1): child's argument vector
Packit db3073
 * @envp: (array zero-terminated=1) (allow-none): child's environment, or %NULL to inherit parent's
Packit db3073
 * @flags: flags from #GSpawnFlags
Packit db3073
 * @child_setup: (scope async) (allow-none): function to run in the child just before exec()
Packit db3073
 * @user_data: (closure): user data for @child_setup
Packit db3073
 * @child_pid: (out) (allow-none): return location for child process reference, or %NULL
Packit db3073
 * @error: return location for error
Packit db3073
 * 
Packit db3073
 * See g_spawn_async_with_pipes() for a full description; this function
Packit db3073
 * simply calls the g_spawn_async_with_pipes() without any pipes.
Packit db3073
 *
Packit db3073
 * You should call g_spawn_close_pid() on the returned child process
Packit db3073
 * reference when you don't need it any more.
Packit db3073
 * 
Packit db3073
 * <note><para>
Packit db3073
 * If you are writing a GTK+ application, and the program you 
Packit db3073
 * are spawning is a graphical application, too, then you may
Packit db3073
 * want to use gdk_spawn_on_screen() instead to ensure that
Packit db3073
 * the spawned program opens its windows on the right screen.
Packit db3073
 * </para></note>
Packit db3073
 *
Packit db3073
 * <note><para> Note that the returned @child_pid on Windows is a
Packit db3073
 * handle to the child process and not its identifier. Process handles
Packit db3073
 * and process identifiers are different concepts on Windows.
Packit db3073
 * </para></note>
Packit db3073
 *
Packit db3073
 * Return value: %TRUE on success, %FALSE if error is set
Packit db3073
 **/
Packit db3073
gboolean
Packit db3073
g_spawn_async (const gchar          *working_directory,
Packit db3073
               gchar               **argv,
Packit db3073
               gchar               **envp,
Packit db3073
               GSpawnFlags           flags,
Packit db3073
               GSpawnChildSetupFunc  child_setup,
Packit db3073
               gpointer              user_data,
Packit db3073
               GPid                 *child_pid,
Packit db3073
               GError              **error)
Packit db3073
{
Packit db3073
  g_return_val_if_fail (argv != NULL, FALSE);
Packit db3073
  
Packit db3073
  return g_spawn_async_with_pipes (working_directory,
Packit db3073
                                   argv, envp,
Packit db3073
                                   flags,
Packit db3073
                                   child_setup,
Packit db3073
                                   user_data,
Packit db3073
                                   child_pid,
Packit db3073
                                   NULL, NULL, NULL,
Packit db3073
                                   error);
Packit db3073
}
Packit db3073
Packit db3073
/* Avoids a danger in threaded situations (calling close()
Packit db3073
 * on a file descriptor twice, and another thread has
Packit db3073
 * re-opened it since the first close)
Packit db3073
 */
Packit db3073
static gint
Packit db3073
close_and_invalidate (gint *fd)
Packit db3073
{
Packit db3073
  gint ret;
Packit db3073
Packit db3073
  if (*fd < 0)
Packit db3073
    return -1;
Packit db3073
  else
Packit db3073
    {
Packit db3073
    again:
Packit db3073
      ret = close (*fd);
Packit db3073
      if (ret == -1 && errno == EINTR)
Packit db3073
	goto again;
Packit db3073
      *fd = -1;
Packit db3073
    }
Packit db3073
Packit db3073
  return ret;
Packit db3073
}
Packit db3073
Packit db3073
/* Some versions of OS X define READ_OK in public headers */
Packit db3073
#undef READ_OK
Packit db3073
Packit db3073
typedef enum
Packit db3073
{
Packit db3073
  READ_FAILED = 0, /* FALSE */
Packit db3073
  READ_OK,
Packit db3073
  READ_EOF
Packit db3073
} ReadResult;
Packit db3073
Packit db3073
static ReadResult
Packit db3073
read_data (GString *str,
Packit db3073
           gint     fd,
Packit db3073
           GError **error)
Packit db3073
{
Packit db3073
  gssize bytes;
Packit db3073
  gchar buf[4096];
Packit db3073
Packit db3073
 again:
Packit db3073
  bytes = read (fd, buf, 4096);
Packit db3073
Packit db3073
  if (bytes == 0)
Packit db3073
    return READ_EOF;
Packit db3073
  else if (bytes > 0)
Packit db3073
    {
Packit db3073
      g_string_append_len (str, buf, bytes);
Packit db3073
      return READ_OK;
Packit db3073
    }
Packit db3073
  else if (errno == EINTR)
Packit db3073
    goto again;
Packit db3073
  else
Packit db3073
    {
Packit db3073
      int errsv = errno;
Packit db3073
Packit db3073
      g_set_error (error,
Packit db3073
                   G_SPAWN_ERROR,
Packit db3073
                   G_SPAWN_ERROR_READ,
Packit db3073
                   _("Failed to read data from child process (%s)"),
Packit db3073
                   g_strerror (errsv));
Packit db3073
Packit db3073
      return READ_FAILED;
Packit db3073
    }
Packit db3073
}
Packit db3073
Packit db3073
/**
Packit db3073
 * g_spawn_sync:
Packit db3073
 * @working_directory: (allow-none): child's current working directory, or %NULL to inherit parent's
Packit db3073
 * @argv: (array zero-terminated=1): child's argument vector
Packit db3073
 * @envp: (array zero-terminated=1) (allow-none): child's environment, or %NULL to inherit parent's
Packit db3073
 * @flags: flags from #GSpawnFlags
Packit db3073
 * @child_setup: (scope async) (allow-none): function to run in the child just before exec()
Packit db3073
 * @user_data: (closure): user data for @child_setup
Packit db3073
 * @standard_output: (out) (array zero-terminated=1) (element-type guint8) (allow-none): return location for child output, or %NULL
Packit db3073
 * @standard_error: (out) (array zero-terminated=1) (element-type guint8) (allow-none): return location for child error messages, or %NULL
Packit db3073
 * @exit_status: (out) (allow-none): return location for child exit status, as returned by waitpid(), or %NULL
Packit db3073
 * @error: return location for error, or %NULL
Packit db3073
 *
Packit db3073
 * Executes a child synchronously (waits for the child to exit before returning).
Packit db3073
 * All output from the child is stored in @standard_output and @standard_error,
Packit db3073
 * if those parameters are non-%NULL. Note that you must set the  
Packit db3073
 * %G_SPAWN_STDOUT_TO_DEV_NULL and %G_SPAWN_STDERR_TO_DEV_NULL flags when
Packit db3073
 * passing %NULL for @standard_output and @standard_error.
Packit db3073
 * If @exit_status is non-%NULL, the exit status of the child is stored
Packit db3073
 * there as it would be returned by waitpid(); standard UNIX macros such 
Packit db3073
 * as WIFEXITED() and WEXITSTATUS() must be used to evaluate the exit status.
Packit db3073
 * Note that this function call waitpid() even if @exit_status is %NULL, and
Packit db3073
 * does not accept the %G_SPAWN_DO_NOT_REAP_CHILD flag.
Packit db3073
 * If an error occurs, no data is returned in @standard_output, 
Packit db3073
 * @standard_error, or @exit_status. 
Packit db3073
 *
Packit db3073
 * This function calls g_spawn_async_with_pipes() internally; see that
Packit db3073
 * function for full details on the other parameters and details on
Packit db3073
 * how these functions work on Windows.
Packit db3073
 * 
Packit db3073
 * Return value: %TRUE on success, %FALSE if an error was set.
Packit db3073
 **/
Packit db3073
gboolean
Packit db3073
g_spawn_sync (const gchar          *working_directory,
Packit db3073
              gchar               **argv,
Packit db3073
              gchar               **envp,
Packit db3073
              GSpawnFlags           flags,
Packit db3073
              GSpawnChildSetupFunc  child_setup,
Packit db3073
              gpointer              user_data,
Packit db3073
              gchar               **standard_output,
Packit db3073
              gchar               **standard_error,
Packit db3073
              gint                 *exit_status,
Packit db3073
              GError              **error)     
Packit db3073
{
Packit db3073
  gint outpipe = -1;
Packit db3073
  gint errpipe = -1;
Packit db3073
  GPid pid;
Packit db3073
  fd_set fds;
Packit db3073
  gint ret;
Packit db3073
  GString *outstr = NULL;
Packit db3073
  GString *errstr = NULL;
Packit db3073
  gboolean failed;
Packit db3073
  gint status;
Packit db3073
  
Packit db3073
  g_return_val_if_fail (argv != NULL, FALSE);
Packit db3073
  g_return_val_if_fail (!(flags & G_SPAWN_DO_NOT_REAP_CHILD), FALSE);
Packit db3073
  g_return_val_if_fail (standard_output == NULL ||
Packit db3073
                        !(flags & G_SPAWN_STDOUT_TO_DEV_NULL), FALSE);
Packit db3073
  g_return_val_if_fail (standard_error == NULL ||
Packit db3073
                        !(flags & G_SPAWN_STDERR_TO_DEV_NULL), FALSE);
Packit db3073
  
Packit db3073
  /* Just to ensure segfaults if callers try to use
Packit db3073
   * these when an error is reported.
Packit db3073
   */
Packit db3073
  if (standard_output)
Packit db3073
    *standard_output = NULL;
Packit db3073
Packit db3073
  if (standard_error)
Packit db3073
    *standard_error = NULL;
Packit db3073
  
Packit db3073
  if (!fork_exec_with_pipes (FALSE,
Packit db3073
                             working_directory,
Packit db3073
                             argv,
Packit db3073
                             envp,
Packit db3073
                             !(flags & G_SPAWN_LEAVE_DESCRIPTORS_OPEN),
Packit db3073
                             (flags & G_SPAWN_SEARCH_PATH) != 0,
Packit db3073
                             (flags & G_SPAWN_STDOUT_TO_DEV_NULL) != 0,
Packit db3073
                             (flags & G_SPAWN_STDERR_TO_DEV_NULL) != 0,
Packit db3073
                             (flags & G_SPAWN_CHILD_INHERITS_STDIN) != 0,
Packit db3073
                             (flags & G_SPAWN_FILE_AND_ARGV_ZERO) != 0,
Packit db3073
                             child_setup,
Packit db3073
                             user_data,
Packit db3073
                             &pid,
Packit db3073
                             NULL,
Packit db3073
                             standard_output ? &outpipe : NULL,
Packit db3073
                             standard_error ? &errpipe : NULL,
Packit db3073
                             error))
Packit db3073
    return FALSE;
Packit db3073
Packit db3073
  /* Read data from child. */
Packit db3073
  
Packit db3073
  failed = FALSE;
Packit db3073
Packit db3073
  if (outpipe >= 0)
Packit db3073
    {
Packit db3073
      outstr = g_string_new (NULL);
Packit db3073
    }
Packit db3073
      
Packit db3073
  if (errpipe >= 0)
Packit db3073
    {
Packit db3073
      errstr = g_string_new (NULL);
Packit db3073
    }
Packit db3073
Packit db3073
  /* Read data until we get EOF on both pipes. */
Packit db3073
  while (!failed &&
Packit db3073
         (outpipe >= 0 ||
Packit db3073
          errpipe >= 0))
Packit db3073
    {
Packit db3073
      ret = 0;
Packit db3073
          
Packit db3073
      FD_ZERO (&fds);
Packit db3073
      if (outpipe >= 0)
Packit db3073
        FD_SET (outpipe, &fds);
Packit db3073
      if (errpipe >= 0)
Packit db3073
        FD_SET (errpipe, &fds);
Packit db3073
          
Packit db3073
      ret = select (MAX (outpipe, errpipe) + 1,
Packit db3073
                    &fds,
Packit db3073
                    NULL, NULL,
Packit db3073
                    NULL /* no timeout */);
Packit db3073
Packit db3073
      if (ret < 0)
Packit db3073
        {
Packit db3073
          int errsv = errno;
Packit db3073
Packit db3073
	  if (errno == EINTR)
Packit db3073
	    continue;
Packit db3073
Packit db3073
          failed = TRUE;
Packit db3073
Packit db3073
          g_set_error (error,
Packit db3073
                       G_SPAWN_ERROR,
Packit db3073
                       G_SPAWN_ERROR_READ,
Packit db3073
                       _("Unexpected error in select() reading data from a child process (%s)"),
Packit db3073
                       g_strerror (errsv));
Packit db3073
              
Packit db3073
          break;
Packit db3073
        }
Packit db3073
Packit db3073
      if (outpipe >= 0 && FD_ISSET (outpipe, &fds))
Packit db3073
        {
Packit db3073
          switch (read_data (outstr, outpipe, error))
Packit db3073
            {
Packit db3073
            case READ_FAILED:
Packit db3073
              failed = TRUE;
Packit db3073
              break;
Packit db3073
            case READ_EOF:
Packit db3073
              close_and_invalidate (&outpipe);
Packit db3073
              outpipe = -1;
Packit db3073
              break;
Packit db3073
            default:
Packit db3073
              break;
Packit db3073
            }
Packit db3073
Packit db3073
          if (failed)
Packit db3073
            break;
Packit db3073
        }
Packit db3073
Packit db3073
      if (errpipe >= 0 && FD_ISSET (errpipe, &fds))
Packit db3073
        {
Packit db3073
          switch (read_data (errstr, errpipe, error))
Packit db3073
            {
Packit db3073
            case READ_FAILED:
Packit db3073
              failed = TRUE;
Packit db3073
              break;
Packit db3073
            case READ_EOF:
Packit db3073
              close_and_invalidate (&errpipe);
Packit db3073
              errpipe = -1;
Packit db3073
              break;
Packit db3073
            default:
Packit db3073
              break;
Packit db3073
            }
Packit db3073
Packit db3073
          if (failed)
Packit db3073
            break;
Packit db3073
        }
Packit db3073
    }
Packit db3073
Packit db3073
  /* These should only be open still if we had an error.  */
Packit db3073
  
Packit db3073
  if (outpipe >= 0)
Packit db3073
    close_and_invalidate (&outpipe);
Packit db3073
  if (errpipe >= 0)
Packit db3073
    close_and_invalidate (&errpipe);
Packit db3073
  
Packit db3073
  /* Wait for child to exit, even if we have
Packit db3073
   * an error pending.
Packit db3073
   */
Packit db3073
 again:
Packit db3073
      
Packit db3073
  ret = waitpid (pid, &status, 0);
Packit db3073
Packit db3073
  if (ret < 0)
Packit db3073
    {
Packit db3073
      if (errno == EINTR)
Packit db3073
        goto again;
Packit db3073
      else if (errno == ECHILD)
Packit db3073
        {
Packit db3073
          if (exit_status)
Packit db3073
            {
Packit db3073
              g_warning ("In call to g_spawn_sync(), exit status of a child process was requested but SIGCHLD action was set to SIG_IGN and ECHILD was received by waitpid(), so exit status can't be returned. This is a bug in the program calling g_spawn_sync(); either don't request the exit status, or don't set the SIGCHLD action.");
Packit db3073
            }
Packit db3073
          else
Packit db3073
            {
Packit db3073
              /* We don't need the exit status. */
Packit db3073
            }
Packit db3073
        }
Packit db3073
      else
Packit db3073
        {
Packit db3073
          if (!failed) /* avoid error pileups */
Packit db3073
            {
Packit db3073
              int errsv = errno;
Packit db3073
Packit db3073
              failed = TRUE;
Packit db3073
                  
Packit db3073
              g_set_error (error,
Packit db3073
                           G_SPAWN_ERROR,
Packit db3073
                           G_SPAWN_ERROR_READ,
Packit db3073
                           _("Unexpected error in waitpid() (%s)"),
Packit db3073
                           g_strerror (errsv));
Packit db3073
            }
Packit db3073
        }
Packit db3073
    }
Packit db3073
  
Packit db3073
  if (failed)
Packit db3073
    {
Packit db3073
      if (outstr)
Packit db3073
        g_string_free (outstr, TRUE);
Packit db3073
      if (errstr)
Packit db3073
        g_string_free (errstr, TRUE);
Packit db3073
Packit db3073
      return FALSE;
Packit db3073
    }
Packit db3073
  else
Packit db3073
    {
Packit db3073
      if (exit_status)
Packit db3073
        *exit_status = status;
Packit db3073
      
Packit db3073
      if (standard_output)        
Packit db3073
        *standard_output = g_string_free (outstr, FALSE);
Packit db3073
Packit db3073
      if (standard_error)
Packit db3073
        *standard_error = g_string_free (errstr, FALSE);
Packit db3073
Packit db3073
      return TRUE;
Packit db3073
    }
Packit db3073
}
Packit db3073
Packit db3073
/**
Packit db3073
 * g_spawn_async_with_pipes:
Packit db3073
 * @working_directory: (allow-none): child's current working directory, or %NULL to inherit parent's, in the GLib file name encoding
Packit db3073
 * @argv: (array zero-terminated=1): child's argument vector, in the GLib file name encoding
Packit db3073
 * @envp: (array zero-terminated=1) (allow-none): child's environment, or %NULL to inherit parent's, in the GLib file name encoding
Packit db3073
 * @flags: flags from #GSpawnFlags
Packit db3073
 * @child_setup: (scope async) (allow-none): function to run in the child just before exec()
Packit db3073
 * @user_data: (closure): user data for @child_setup
Packit db3073
 * @child_pid: (out) (allow-none): return location for child process ID, or %NULL
Packit db3073
 * @standard_input: (out) (allow-none): return location for file descriptor to write to child's stdin, or %NULL
Packit db3073
 * @standard_output: (out) (allow-none): return location for file descriptor to read child's stdout, or %NULL
Packit db3073
 * @standard_error: (out) (allow-none): return location for file descriptor to read child's stderr, or %NULL
Packit db3073
 * @error: return location for error
Packit db3073
 *
Packit db3073
 * Executes a child program asynchronously (your program will not
Packit db3073
 * block waiting for the child to exit). The child program is
Packit db3073
 * specified by the only argument that must be provided, @argv. @argv
Packit db3073
 * should be a %NULL-terminated array of strings, to be passed as the
Packit db3073
 * argument vector for the child. The first string in @argv is of
Packit db3073
 * course the name of the program to execute. By default, the name of
Packit db3073
 * the program must be a full path; the <envar>PATH</envar> shell variable 
Packit db3073
 * will only be searched if you pass the %G_SPAWN_SEARCH_PATH flag.
Packit db3073
 * If the program name is not a full path and %G_SPAWN_SEARCH_PATH flag is not
Packit db3073
 * used, then the program will be run from the current directory (or
Packit db3073
 * @working_directory, if specified); this might be unexpected or even
Packit db3073
 * dangerous in some cases when the current directory is world-writable.
Packit db3073
 *
Packit db3073
 * On Windows, note that all the string or string vector arguments to
Packit db3073
 * this function and the other g_spawn*() functions are in UTF-8, the
Packit db3073
 * GLib file name encoding. Unicode characters that are not part of
Packit db3073
 * the system codepage passed in these arguments will be correctly
Packit db3073
 * available in the spawned program only if it uses wide character API
Packit db3073
 * to retrieve its command line. For C programs built with Microsoft's
Packit db3073
 * tools it is enough to make the program have a wmain() instead of
Packit db3073
 * main(). wmain() has a wide character argument vector as parameter.
Packit db3073
 *
Packit db3073
 * At least currently, mingw doesn't support wmain(), so if you use
Packit db3073
 * mingw to develop the spawned program, it will have to call the
Packit db3073
 * undocumented function __wgetmainargs() to get the wide character
Packit db3073
 * argument vector and environment. See gspawn-win32-helper.c in the
Packit db3073
 * GLib sources or init.c in the mingw runtime sources for a prototype
Packit db3073
 * for that function. Alternatively, you can retrieve the Win32 system
Packit db3073
 * level wide character command line passed to the spawned program
Packit db3073
 * using the GetCommandLineW() function.
Packit db3073
 *
Packit db3073
 * On Windows the low-level child process creation API
Packit db3073
 * <function>CreateProcess()</function> doesn't use argument vectors,
Packit db3073
 * but a command line. The C runtime library's
Packit db3073
 * <function>spawn*()</function> family of functions (which
Packit db3073
 * g_spawn_async_with_pipes() eventually calls) paste the argument
Packit db3073
 * vector elements together into a command line, and the C runtime startup code
Packit db3073
 * does a corresponding reconstruction of an argument vector from the
Packit db3073
 * command line, to be passed to main(). Complications arise when you have
Packit db3073
 * argument vector elements that contain spaces of double quotes. The
Packit db3073
 * <function>spawn*()</function> functions don't do any quoting or
Packit db3073
 * escaping, but on the other hand the startup code does do unquoting
Packit db3073
 * and unescaping in order to enable receiving arguments with embedded
Packit db3073
 * spaces or double quotes. To work around this asymmetry,
Packit db3073
 * g_spawn_async_with_pipes() will do quoting and escaping on argument
Packit db3073
 * vector elements that need it before calling the C runtime
Packit db3073
 * spawn() function.
Packit db3073
 *
Packit db3073
 * The returned @child_pid on Windows is a handle to the child
Packit db3073
 * process, not its identifier. Process handles and process
Packit db3073
 * identifiers are different concepts on Windows.
Packit db3073
 *
Packit db3073
 * @envp is a %NULL-terminated array of strings, where each string
Packit db3073
 * has the form <literal>KEY=VALUE</literal>. This will become
Packit db3073
 * the child's environment. If @envp is %NULL, the child inherits its
Packit db3073
 * parent's environment.
Packit db3073
 *
Packit db3073
 * @flags should be the bitwise OR of any flags you want to affect the
Packit db3073
 * function's behaviour. The %G_SPAWN_DO_NOT_REAP_CHILD means that the
Packit db3073
 * child will not automatically be reaped; you must use a child watch to
Packit db3073
 * be notified about the death of the child process. Eventually you must
Packit db3073
 * call g_spawn_close_pid() on the @child_pid, in order to free
Packit db3073
 * resources which may be associated with the child process. (On Unix,
Packit db3073
 * using a child watch is equivalent to calling waitpid() or handling
Packit db3073
 * the <literal>SIGCHLD</literal> signal manually. On Windows, calling g_spawn_close_pid()
Packit db3073
 * is equivalent to calling CloseHandle() on the process handle returned
Packit db3073
 * in @child_pid).  See g_child_watch_add().
Packit db3073
 *
Packit db3073
 * %G_SPAWN_LEAVE_DESCRIPTORS_OPEN means that the parent's open file
Packit db3073
 * descriptors will be inherited by the child; otherwise all
Packit db3073
 * descriptors except stdin/stdout/stderr will be closed before
Packit db3073
 * calling exec() in the child. %G_SPAWN_SEARCH_PATH 
Packit db3073
 * means that <literal>argv[0]</literal> need not be an absolute path, it
Packit db3073
 * will be looked for in the user's <envar>PATH</envar>. 
Packit db3073
 * %G_SPAWN_STDOUT_TO_DEV_NULL means that the child's standard output will 
Packit db3073
 * be discarded, instead of going to the same location as the parent's 
Packit db3073
 * standard output. If you use this flag, @standard_output must be %NULL.
Packit db3073
 * %G_SPAWN_STDERR_TO_DEV_NULL means that the child's standard error
Packit db3073
 * will be discarded, instead of going to the same location as the parent's
Packit db3073
 * standard error. If you use this flag, @standard_error must be %NULL.
Packit db3073
 * %G_SPAWN_CHILD_INHERITS_STDIN means that the child will inherit the parent's
Packit db3073
 * standard input (by default, the child's standard input is attached to
Packit db3073
 * /dev/null). If you use this flag, @standard_input must be %NULL.
Packit db3073
 * %G_SPAWN_FILE_AND_ARGV_ZERO means that the first element of @argv is
Packit db3073
 * the file to execute, while the remaining elements are the
Packit db3073
 * actual argument vector to pass to the file. Normally
Packit db3073
 * g_spawn_async_with_pipes() uses @argv[0] as the file to execute, and
Packit db3073
 * passes all of @argv to the child.
Packit db3073
 *
Packit db3073
 * @child_setup and @user_data are a function and user data. On POSIX
Packit db3073
 * platforms, the function is called in the child after GLib has
Packit db3073
 * performed all the setup it plans to perform (including creating
Packit db3073
 * pipes, closing file descriptors, etc.) but before calling
Packit db3073
 * exec(). That is, @child_setup is called just
Packit db3073
 * before calling exec() in the child. Obviously
Packit db3073
 * actions taken in this function will only affect the child, not the
Packit db3073
 * parent.
Packit db3073
 *
Packit db3073
 * On Windows, there is no separate fork() and exec()
Packit db3073
 * functionality. Child processes are created and run with a single
Packit db3073
 * API call, CreateProcess(). There is no sensible thing @child_setup
Packit db3073
 * could be used for on Windows so it is ignored and not called.
Packit db3073
 *
Packit db3073
 * If non-%NULL, @child_pid will on Unix be filled with the child's
Packit db3073
 * process ID. You can use the process ID to send signals to the
Packit db3073
 * child, or to use g_child_watch_add() (or waitpid()) if you specified the
Packit db3073
 * %G_SPAWN_DO_NOT_REAP_CHILD flag. On Windows, @child_pid will be
Packit db3073
 * filled with a handle to the child process only if you specified the
Packit db3073
 * %G_SPAWN_DO_NOT_REAP_CHILD flag. You can then access the child
Packit db3073
 * process using the Win32 API, for example wait for its termination
Packit db3073
 * with the <function>WaitFor*()</function> functions, or examine its
Packit db3073
 * exit code with GetExitCodeProcess(). You should close the handle 
Packit db3073
 * with CloseHandle() or g_spawn_close_pid() when you no longer need it.
Packit db3073
 *
Packit db3073
 * If non-%NULL, the @standard_input, @standard_output, @standard_error
Packit db3073
 * locations will be filled with file descriptors for writing to the child's
Packit db3073
 * standard input or reading from its standard output or standard error.
Packit db3073
 * The caller of g_spawn_async_with_pipes() must close these file descriptors
Packit db3073
 * when they are no longer in use. If these parameters are %NULL, the corresponding
Packit db3073
 * pipe won't be created.
Packit db3073
 *
Packit db3073
 * If @standard_input is NULL, the child's standard input is attached to 
Packit db3073
 * /dev/null unless %G_SPAWN_CHILD_INHERITS_STDIN is set.
Packit db3073
 *
Packit db3073
 * If @standard_error is NULL, the child's standard error goes to the same 
Packit db3073
 * location as the parent's standard error unless %G_SPAWN_STDERR_TO_DEV_NULL 
Packit db3073
 * is set.
Packit db3073
 *
Packit db3073
 * If @standard_output is NULL, the child's standard output goes to the same 
Packit db3073
 * location as the parent's standard output unless %G_SPAWN_STDOUT_TO_DEV_NULL 
Packit db3073
 * is set.
Packit db3073
 *
Packit db3073
 * @error can be %NULL to ignore errors, or non-%NULL to report errors.
Packit db3073
 * If an error is set, the function returns %FALSE. Errors
Packit db3073
 * are reported even if they occur in the child (for example if the
Packit db3073
 * executable in <literal>argv[0]</literal> is not found). Typically
Packit db3073
 * the <literal>message</literal> field of returned errors should be displayed
Packit db3073
 * to users. Possible errors are those from the #G_SPAWN_ERROR domain.
Packit db3073
 *
Packit db3073
 * If an error occurs, @child_pid, @standard_input, @standard_output,
Packit db3073
 * and @standard_error will not be filled with valid values.
Packit db3073
 *
Packit db3073
 * If @child_pid is not %NULL and an error does not occur then the returned
Packit db3073
 * process reference must be closed using g_spawn_close_pid().
Packit db3073
 *
Packit db3073
 * <note><para>
Packit db3073
 * If you are writing a GTK+ application, and the program you 
Packit db3073
 * are spawning is a graphical application, too, then you may
Packit db3073
 * want to use gdk_spawn_on_screen_with_pipes() instead to ensure that
Packit db3073
 * the spawned program opens its windows on the right screen.
Packit db3073
 * </para></note>
Packit db3073
 * 
Packit db3073
 * Return value: %TRUE on success, %FALSE if an error was set
Packit db3073
 **/
Packit db3073
gboolean
Packit db3073
g_spawn_async_with_pipes (const gchar          *working_directory,
Packit db3073
                          gchar               **argv,
Packit db3073
                          gchar               **envp,
Packit db3073
                          GSpawnFlags           flags,
Packit db3073
                          GSpawnChildSetupFunc  child_setup,
Packit db3073
                          gpointer              user_data,
Packit db3073
                          GPid                 *child_pid,
Packit db3073
                          gint                 *standard_input,
Packit db3073
                          gint                 *standard_output,
Packit db3073
                          gint                 *standard_error,
Packit db3073
                          GError              **error)
Packit db3073
{
Packit db3073
  g_return_val_if_fail (argv != NULL, FALSE);
Packit db3073
  g_return_val_if_fail (standard_output == NULL ||
Packit db3073
                        !(flags & G_SPAWN_STDOUT_TO_DEV_NULL), FALSE);
Packit db3073
  g_return_val_if_fail (standard_error == NULL ||
Packit db3073
                        !(flags & G_SPAWN_STDERR_TO_DEV_NULL), FALSE);
Packit db3073
  /* can't inherit stdin if we have an input pipe. */
Packit db3073
  g_return_val_if_fail (standard_input == NULL ||
Packit db3073
                        !(flags & G_SPAWN_CHILD_INHERITS_STDIN), FALSE);
Packit db3073
  
Packit db3073
  return fork_exec_with_pipes (!(flags & G_SPAWN_DO_NOT_REAP_CHILD),
Packit db3073
                               working_directory,
Packit db3073
                               argv,
Packit db3073
                               envp,
Packit db3073
                               !(flags & G_SPAWN_LEAVE_DESCRIPTORS_OPEN),
Packit db3073
                               (flags & G_SPAWN_SEARCH_PATH) != 0,
Packit db3073
                               (flags & G_SPAWN_STDOUT_TO_DEV_NULL) != 0,
Packit db3073
                               (flags & G_SPAWN_STDERR_TO_DEV_NULL) != 0,
Packit db3073
                               (flags & G_SPAWN_CHILD_INHERITS_STDIN) != 0,
Packit db3073
                               (flags & G_SPAWN_FILE_AND_ARGV_ZERO) != 0,
Packit db3073
                               child_setup,
Packit db3073
                               user_data,
Packit db3073
                               child_pid,
Packit db3073
                               standard_input,
Packit db3073
                               standard_output,
Packit db3073
                               standard_error,
Packit db3073
                               error);
Packit db3073
}
Packit db3073
Packit db3073
/**
Packit db3073
 * g_spawn_command_line_sync:
Packit db3073
 * @command_line: a command line 
Packit db3073
 * @standard_output: (out) (array zero-terminated=1) (element-type guint8) (allow-none): return location for child output
Packit db3073
 * @standard_error: (out) (array zero-terminated=1) (element-type guint8) (allow-none): return location for child errors
Packit db3073
 * @exit_status: (out) (allow-none): return location for child exit status, as returned by waitpid()
Packit db3073
 * @error: return location for errors
Packit db3073
 *
Packit db3073
 * A simple version of g_spawn_sync() with little-used parameters
Packit db3073
 * removed, taking a command line instead of an argument vector.  See
Packit db3073
 * g_spawn_sync() for full details. @command_line will be parsed by
Packit db3073
 * g_shell_parse_argv(). Unlike g_spawn_sync(), the %G_SPAWN_SEARCH_PATH flag
Packit db3073
 * is enabled. Note that %G_SPAWN_SEARCH_PATH can have security
Packit db3073
 * implications, so consider using g_spawn_sync() directly if
Packit db3073
 * appropriate. Possible errors are those from g_spawn_sync() and those
Packit db3073
 * from g_shell_parse_argv().
Packit db3073
 *
Packit db3073
 * If @exit_status is non-%NULL, the exit status of the child is stored there as
Packit db3073
 * it would be returned by waitpid(); standard UNIX macros such as WIFEXITED()
Packit db3073
 * and WEXITSTATUS() must be used to evaluate the exit status.
Packit db3073
 * 
Packit db3073
 * On Windows, please note the implications of g_shell_parse_argv()
Packit db3073
 * parsing @command_line. Parsing is done according to Unix shell rules, not 
Packit db3073
 * Windows command interpreter rules.
Packit db3073
 * Space is a separator, and backslashes are
Packit db3073
 * special. Thus you cannot simply pass a @command_line containing
Packit db3073
 * canonical Windows paths, like "c:\\program files\\app\\app.exe", as
Packit db3073
 * the backslashes will be eaten, and the space will act as a
Packit db3073
 * separator. You need to enclose such paths with single quotes, like
Packit db3073
 * "'c:\\program files\\app\\app.exe' 'e:\\folder\\argument.txt'".
Packit db3073
 *
Packit db3073
 * Return value: %TRUE on success, %FALSE if an error was set
Packit db3073
 **/
Packit db3073
gboolean
Packit db3073
g_spawn_command_line_sync (const gchar  *command_line,
Packit db3073
                           gchar       **standard_output,
Packit db3073
                           gchar       **standard_error,
Packit db3073
                           gint         *exit_status,
Packit db3073
                           GError      **error)
Packit db3073
{
Packit db3073
  gboolean retval;
Packit db3073
  gchar **argv = NULL;
Packit db3073
Packit db3073
  g_return_val_if_fail (command_line != NULL, FALSE);
Packit db3073
  
Packit db3073
  if (!g_shell_parse_argv (command_line,
Packit db3073
                           NULL, &argv,
Packit db3073
                           error))
Packit db3073
    return FALSE;
Packit db3073
  
Packit db3073
  retval = g_spawn_sync (NULL,
Packit db3073
                         argv,
Packit db3073
                         NULL,
Packit db3073
                         G_SPAWN_SEARCH_PATH,
Packit db3073
                         NULL,
Packit db3073
                         NULL,
Packit db3073
                         standard_output,
Packit db3073
                         standard_error,
Packit db3073
                         exit_status,
Packit db3073
                         error);
Packit db3073
  g_strfreev (argv);
Packit db3073
Packit db3073
  return retval;
Packit db3073
}
Packit db3073
Packit db3073
/**
Packit db3073
 * g_spawn_command_line_async:
Packit db3073
 * @command_line: a command line
Packit db3073
 * @error: return location for errors
Packit db3073
 * 
Packit db3073
 * A simple version of g_spawn_async() that parses a command line with
Packit db3073
 * g_shell_parse_argv() and passes it to g_spawn_async(). Runs a
Packit db3073
 * command line in the background. Unlike g_spawn_async(), the
Packit db3073
 * %G_SPAWN_SEARCH_PATH flag is enabled, other flags are not. Note
Packit db3073
 * that %G_SPAWN_SEARCH_PATH can have security implications, so
Packit db3073
 * consider using g_spawn_async() directly if appropriate. Possible
Packit db3073
 * errors are those from g_shell_parse_argv() and g_spawn_async().
Packit db3073
 * 
Packit db3073
 * The same concerns on Windows apply as for g_spawn_command_line_sync().
Packit db3073
 *
Packit db3073
 * Return value: %TRUE on success, %FALSE if error is set.
Packit db3073
 **/
Packit db3073
gboolean
Packit db3073
g_spawn_command_line_async (const gchar *command_line,
Packit db3073
                            GError     **error)
Packit db3073
{
Packit db3073
  gboolean retval;
Packit db3073
  gchar **argv = NULL;
Packit db3073
Packit db3073
  g_return_val_if_fail (command_line != NULL, FALSE);
Packit db3073
Packit db3073
  if (!g_shell_parse_argv (command_line,
Packit db3073
                           NULL, &argv,
Packit db3073
                           error))
Packit db3073
    return FALSE;
Packit db3073
  
Packit db3073
  retval = g_spawn_async (NULL,
Packit db3073
                          argv,
Packit db3073
                          NULL,
Packit db3073
                          G_SPAWN_SEARCH_PATH,
Packit db3073
                          NULL,
Packit db3073
                          NULL,
Packit db3073
                          NULL,
Packit db3073
                          error);
Packit db3073
  g_strfreev (argv);
Packit db3073
Packit db3073
  return retval;
Packit db3073
}
Packit db3073
Packit db3073
static gint
Packit db3073
exec_err_to_g_error (gint en)
Packit db3073
{
Packit db3073
  switch (en)
Packit db3073
    {
Packit db3073
#ifdef EACCES
Packit db3073
    case EACCES:
Packit db3073
      return G_SPAWN_ERROR_ACCES;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef EPERM
Packit db3073
    case EPERM:
Packit db3073
      return G_SPAWN_ERROR_PERM;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef E2BIG
Packit db3073
    case E2BIG:
Packit db3073
      return G_SPAWN_ERROR_TOO_BIG;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef ENOEXEC
Packit db3073
    case ENOEXEC:
Packit db3073
      return G_SPAWN_ERROR_NOEXEC;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef ENAMETOOLONG
Packit db3073
    case ENAMETOOLONG:
Packit db3073
      return G_SPAWN_ERROR_NAMETOOLONG;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef ENOENT
Packit db3073
    case ENOENT:
Packit db3073
      return G_SPAWN_ERROR_NOENT;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef ENOMEM
Packit db3073
    case ENOMEM:
Packit db3073
      return G_SPAWN_ERROR_NOMEM;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef ENOTDIR
Packit db3073
    case ENOTDIR:
Packit db3073
      return G_SPAWN_ERROR_NOTDIR;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef ELOOP
Packit db3073
    case ELOOP:
Packit db3073
      return G_SPAWN_ERROR_LOOP;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
      
Packit db3073
#ifdef ETXTBUSY
Packit db3073
    case ETXTBUSY:
Packit db3073
      return G_SPAWN_ERROR_TXTBUSY;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef EIO
Packit db3073
    case EIO:
Packit db3073
      return G_SPAWN_ERROR_IO;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef ENFILE
Packit db3073
    case ENFILE:
Packit db3073
      return G_SPAWN_ERROR_NFILE;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef EMFILE
Packit db3073
    case EMFILE:
Packit db3073
      return G_SPAWN_ERROR_MFILE;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef EINVAL
Packit db3073
    case EINVAL:
Packit db3073
      return G_SPAWN_ERROR_INVAL;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef EISDIR
Packit db3073
    case EISDIR:
Packit db3073
      return G_SPAWN_ERROR_ISDIR;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef ELIBBAD
Packit db3073
    case ELIBBAD:
Packit db3073
      return G_SPAWN_ERROR_LIBBAD;
Packit db3073
      break;
Packit db3073
#endif
Packit db3073
      
Packit db3073
    default:
Packit db3073
      return G_SPAWN_ERROR_FAILED;
Packit db3073
      break;
Packit db3073
    }
Packit db3073
}
Packit db3073
Packit db3073
static gssize
Packit db3073
write_all (gint fd, gconstpointer vbuf, gsize to_write)
Packit db3073
{
Packit db3073
  gchar *buf = (gchar *) vbuf;
Packit db3073
  
Packit db3073
  while (to_write > 0)
Packit db3073
    {
Packit db3073
      gssize count = write (fd, buf, to_write);
Packit db3073
      if (count < 0)
Packit db3073
        {
Packit db3073
          if (errno != EINTR)
Packit db3073
            return FALSE;
Packit db3073
        }
Packit db3073
      else
Packit db3073
        {
Packit db3073
          to_write -= count;
Packit db3073
          buf += count;
Packit db3073
        }
Packit db3073
    }
Packit db3073
  
Packit db3073
  return TRUE;
Packit db3073
}
Packit db3073
Packit db3073
G_GNUC_NORETURN
Packit db3073
static void
Packit db3073
write_err_and_exit (gint fd, gint msg)
Packit db3073
{
Packit db3073
  gint en = errno;
Packit db3073
  
Packit db3073
  write_all (fd, &msg, sizeof(msg));
Packit db3073
  write_all (fd, &en, sizeof(en));
Packit db3073
  
Packit db3073
  _exit (1);
Packit db3073
}
Packit db3073
Packit db3073
static int
Packit db3073
set_cloexec (void *data, gint fd)
Packit db3073
{
Packit db3073
  if (fd >= GPOINTER_TO_INT (data))
Packit db3073
    fcntl (fd, F_SETFD, FD_CLOEXEC);
Packit db3073
Packit db3073
  return 0;
Packit db3073
}
Packit db3073
Packit db3073
#ifndef HAVE_FDWALK
Packit db3073
static int
Packit db3073
fdwalk (int (*cb)(void *data, int fd), void *data)
Packit db3073
{
Packit db3073
  gint open_max;
Packit db3073
  gint fd;
Packit db3073
  gint res = 0;
Packit db3073
  
Packit db3073
#ifdef HAVE_SYS_RESOURCE_H
Packit db3073
  struct rlimit rl;
Packit db3073
#endif
Packit db3073
Packit db3073
#ifdef __linux__  
Packit db3073
  DIR *d;
Packit db3073
Packit db3073
  if ((d = opendir("/proc/self/fd"))) {
Packit db3073
      struct dirent *de;
Packit db3073
Packit db3073
      while ((de = readdir(d))) {
Packit db3073
          glong l;
Packit db3073
          gchar *e = NULL;
Packit db3073
Packit db3073
          if (de->d_name[0] == '.')
Packit db3073
              continue;
Packit db3073
            
Packit db3073
          errno = 0;
Packit db3073
          l = strtol(de->d_name, &e, 10);
Packit db3073
          if (errno != 0 || !e || *e)
Packit db3073
              continue;
Packit db3073
Packit db3073
          fd = (gint) l;
Packit db3073
Packit db3073
          if ((glong) fd != l)
Packit db3073
              continue;
Packit db3073
Packit db3073
          if (fd == dirfd(d))
Packit db3073
              continue;
Packit db3073
Packit db3073
          if ((res = cb (data, fd)) != 0)
Packit db3073
              break;
Packit db3073
        }
Packit db3073
      
Packit db3073
      closedir(d);
Packit db3073
      return res;
Packit db3073
  }
Packit db3073
Packit db3073
  /* If /proc is not mounted or not accessible we fall back to the old
Packit db3073
   * rlimit trick */
Packit db3073
Packit db3073
#endif
Packit db3073
  
Packit db3073
#ifdef HAVE_SYS_RESOURCE_H
Packit db3073
      
Packit db3073
  if (getrlimit(RLIMIT_NOFILE, &rl) == 0 && rl.rlim_max != RLIM_INFINITY)
Packit db3073
      open_max = rl.rlim_max;
Packit db3073
  else
Packit db3073
#endif
Packit db3073
      open_max = sysconf (_SC_OPEN_MAX);
Packit db3073
Packit db3073
  for (fd = 0; fd < open_max; fd++)
Packit db3073
      if ((res = cb (data, fd)) != 0)
Packit db3073
          break;
Packit db3073
Packit db3073
  return res;
Packit db3073
}
Packit db3073
#endif
Packit db3073
Packit db3073
static gint
Packit db3073
sane_dup2 (gint fd1, gint fd2)
Packit db3073
{
Packit db3073
  gint ret;
Packit db3073
Packit db3073
 retry:
Packit db3073
  ret = dup2 (fd1, fd2);
Packit db3073
  if (ret < 0 && errno == EINTR)
Packit db3073
    goto retry;
Packit db3073
Packit db3073
  return ret;
Packit db3073
}
Packit db3073
Packit db3073
static gint
Packit db3073
sane_open (const char *path, gint mode)
Packit db3073
{
Packit db3073
  gint ret;
Packit db3073
Packit db3073
 retry:
Packit db3073
  ret = open (path, mode);
Packit db3073
  if (ret < 0 && errno == EINTR)
Packit db3073
    goto retry;
Packit db3073
Packit db3073
  return ret;
Packit db3073
}
Packit db3073
Packit db3073
enum
Packit db3073
{
Packit db3073
  CHILD_CHDIR_FAILED,
Packit db3073
  CHILD_EXEC_FAILED,
Packit db3073
  CHILD_DUP2_FAILED,
Packit db3073
  CHILD_FORK_FAILED
Packit db3073
};
Packit db3073
Packit db3073
static void
Packit db3073
do_exec (gint                  child_err_report_fd,
Packit db3073
         gint                  stdin_fd,
Packit db3073
         gint                  stdout_fd,
Packit db3073
         gint                  stderr_fd,
Packit db3073
         const gchar          *working_directory,
Packit db3073
         gchar               **argv,
Packit db3073
         gchar               **envp,
Packit db3073
         gboolean              close_descriptors,
Packit db3073
         gboolean              search_path,
Packit db3073
         gboolean              stdout_to_null,
Packit db3073
         gboolean              stderr_to_null,
Packit db3073
         gboolean              child_inherits_stdin,
Packit db3073
         gboolean              file_and_argv_zero,
Packit db3073
         GSpawnChildSetupFunc  child_setup,
Packit db3073
         gpointer              user_data)
Packit db3073
{
Packit db3073
  if (working_directory && chdir (working_directory) < 0)
Packit db3073
    write_err_and_exit (child_err_report_fd,
Packit db3073
                        CHILD_CHDIR_FAILED);
Packit db3073
Packit db3073
  /* Close all file descriptors but stdin stdout and stderr as
Packit db3073
   * soon as we exec. Note that this includes
Packit db3073
   * child_err_report_fd, which keeps the parent from blocking
Packit db3073
   * forever on the other end of that pipe.
Packit db3073
   */
Packit db3073
  if (close_descriptors)
Packit db3073
    {
Packit db3073
      fdwalk (set_cloexec, GINT_TO_POINTER(3));
Packit db3073
    }
Packit db3073
  else
Packit db3073
    {
Packit db3073
      /* We need to do child_err_report_fd anyway */
Packit db3073
      set_cloexec (GINT_TO_POINTER(0), child_err_report_fd);
Packit db3073
    }
Packit db3073
  
Packit db3073
  /* Redirect pipes as required */
Packit db3073
  
Packit db3073
  if (stdin_fd >= 0)
Packit db3073
    {
Packit db3073
      /* dup2 can't actually fail here I don't think */
Packit db3073
          
Packit db3073
      if (sane_dup2 (stdin_fd, 0) < 0)
Packit db3073
        write_err_and_exit (child_err_report_fd,
Packit db3073
                            CHILD_DUP2_FAILED);
Packit db3073
Packit db3073
      /* ignore this if it doesn't work */
Packit db3073
      close_and_invalidate (&stdin_fd);
Packit db3073
    }
Packit db3073
  else if (!child_inherits_stdin)
Packit db3073
    {
Packit db3073
      /* Keep process from blocking on a read of stdin */
Packit db3073
      gint read_null = open ("/dev/null", O_RDONLY);
Packit db3073
      g_assert (read_null != -1);
Packit db3073
      sane_dup2 (read_null, 0);
Packit db3073
      close_and_invalidate (&read_null);
Packit db3073
    }
Packit db3073
Packit db3073
  if (stdout_fd >= 0)
Packit db3073
    {
Packit db3073
      /* dup2 can't actually fail here I don't think */
Packit db3073
          
Packit db3073
      if (sane_dup2 (stdout_fd, 1) < 0)
Packit db3073
        write_err_and_exit (child_err_report_fd,
Packit db3073
                            CHILD_DUP2_FAILED);
Packit db3073
Packit db3073
      /* ignore this if it doesn't work */
Packit db3073
      close_and_invalidate (&stdout_fd);
Packit db3073
    }
Packit db3073
  else if (stdout_to_null)
Packit db3073
    {
Packit db3073
      gint write_null = sane_open ("/dev/null", O_WRONLY);
Packit db3073
      g_assert (write_null != -1);
Packit db3073
      sane_dup2 (write_null, 1);
Packit db3073
      close_and_invalidate (&write_null);
Packit db3073
    }
Packit db3073
Packit db3073
  if (stderr_fd >= 0)
Packit db3073
    {
Packit db3073
      /* dup2 can't actually fail here I don't think */
Packit db3073
          
Packit db3073
      if (sane_dup2 (stderr_fd, 2) < 0)
Packit db3073
        write_err_and_exit (child_err_report_fd,
Packit db3073
                            CHILD_DUP2_FAILED);
Packit db3073
Packit db3073
      /* ignore this if it doesn't work */
Packit db3073
      close_and_invalidate (&stderr_fd);
Packit db3073
    }
Packit db3073
  else if (stderr_to_null)
Packit db3073
    {
Packit db3073
      gint write_null = sane_open ("/dev/null", O_WRONLY);
Packit db3073
      sane_dup2 (write_null, 2);
Packit db3073
      close_and_invalidate (&write_null);
Packit db3073
    }
Packit db3073
  
Packit db3073
  /* Call user function just before we exec */
Packit db3073
  if (child_setup)
Packit db3073
    {
Packit db3073
      (* child_setup) (user_data);
Packit db3073
    }
Packit db3073
Packit db3073
  g_execute (argv[0],
Packit db3073
             file_and_argv_zero ? argv + 1 : argv,
Packit db3073
             envp, search_path);
Packit db3073
Packit db3073
  /* Exec failed */
Packit db3073
  write_err_and_exit (child_err_report_fd,
Packit db3073
                      CHILD_EXEC_FAILED);
Packit db3073
}
Packit db3073
Packit db3073
static gboolean
Packit db3073
read_ints (int      fd,
Packit db3073
           gint*    buf,
Packit db3073
           gint     n_ints_in_buf,    
Packit db3073
           gint    *n_ints_read,      
Packit db3073
           GError **error)
Packit db3073
{
Packit db3073
  gsize bytes = 0;    
Packit db3073
  
Packit db3073
  while (TRUE)
Packit db3073
    {
Packit db3073
      gssize chunk;    
Packit db3073
Packit db3073
      if (bytes >= sizeof(gint)*2)
Packit db3073
        break; /* give up, who knows what happened, should not be
Packit db3073
                * possible.
Packit db3073
                */
Packit db3073
          
Packit db3073
    again:
Packit db3073
      chunk = read (fd,
Packit db3073
                    ((gchar*)buf) + bytes,
Packit db3073
                    sizeof(gint) * n_ints_in_buf - bytes);
Packit db3073
      if (chunk < 0 && errno == EINTR)
Packit db3073
        goto again;
Packit db3073
          
Packit db3073
      if (chunk < 0)
Packit db3073
        {
Packit db3073
          int errsv = errno;
Packit db3073
Packit db3073
          /* Some weird shit happened, bail out */
Packit db3073
          g_set_error (error,
Packit db3073
                       G_SPAWN_ERROR,
Packit db3073
                       G_SPAWN_ERROR_FAILED,
Packit db3073
                       _("Failed to read from child pipe (%s)"),
Packit db3073
                       g_strerror (errsv));
Packit db3073
Packit db3073
          return FALSE;
Packit db3073
        }
Packit db3073
      else if (chunk == 0)
Packit db3073
        break; /* EOF */
Packit db3073
      else /* chunk > 0 */
Packit db3073
	bytes += chunk;
Packit db3073
    }
Packit db3073
Packit db3073
  *n_ints_read = (gint)(bytes / sizeof(gint));
Packit db3073
Packit db3073
  return TRUE;
Packit db3073
}
Packit db3073
Packit db3073
static gboolean
Packit db3073
fork_exec_with_pipes (gboolean              intermediate_child,
Packit db3073
                      const gchar          *working_directory,
Packit db3073
                      gchar               **argv,
Packit db3073
                      gchar               **envp,
Packit db3073
                      gboolean              close_descriptors,
Packit db3073
                      gboolean              search_path,
Packit db3073
                      gboolean              stdout_to_null,
Packit db3073
                      gboolean              stderr_to_null,
Packit db3073
                      gboolean              child_inherits_stdin,
Packit db3073
                      gboolean              file_and_argv_zero,
Packit db3073
                      GSpawnChildSetupFunc  child_setup,
Packit db3073
                      gpointer              user_data,
Packit db3073
                      GPid                 *child_pid,
Packit db3073
                      gint                 *standard_input,
Packit db3073
                      gint                 *standard_output,
Packit db3073
                      gint                 *standard_error,
Packit db3073
                      GError              **error)     
Packit db3073
{
Packit db3073
  GPid pid = -1;
Packit db3073
  gint stdin_pipe[2] = { -1, -1 };
Packit db3073
  gint stdout_pipe[2] = { -1, -1 };
Packit db3073
  gint stderr_pipe[2] = { -1, -1 };
Packit db3073
  gint child_err_report_pipe[2] = { -1, -1 };
Packit db3073
  gint child_pid_report_pipe[2] = { -1, -1 };
Packit db3073
  gint status;
Packit db3073
  
Packit db3073
  if (!make_pipe (child_err_report_pipe, error))
Packit db3073
    return FALSE;
Packit db3073
Packit db3073
  if (intermediate_child && !make_pipe (child_pid_report_pipe, error))
Packit db3073
    goto cleanup_and_fail;
Packit db3073
  
Packit db3073
  if (standard_input && !make_pipe (stdin_pipe, error))
Packit db3073
    goto cleanup_and_fail;
Packit db3073
  
Packit db3073
  if (standard_output && !make_pipe (stdout_pipe, error))
Packit db3073
    goto cleanup_and_fail;
Packit db3073
Packit db3073
  if (standard_error && !make_pipe (stderr_pipe, error))
Packit db3073
    goto cleanup_and_fail;
Packit db3073
Packit db3073
  pid = fork ();
Packit db3073
Packit db3073
  if (pid < 0)
Packit db3073
    {
Packit db3073
      int errsv = errno;
Packit db3073
Packit db3073
      g_set_error (error,
Packit db3073
                   G_SPAWN_ERROR,
Packit db3073
                   G_SPAWN_ERROR_FORK,
Packit db3073
                   _("Failed to fork (%s)"),
Packit db3073
                   g_strerror (errsv));
Packit db3073
Packit db3073
      goto cleanup_and_fail;
Packit db3073
    }
Packit db3073
  else if (pid == 0)
Packit db3073
    {
Packit db3073
      /* Immediate child. This may or may not be the child that
Packit db3073
       * actually execs the new process.
Packit db3073
       */
Packit db3073
Packit db3073
      /* Reset some signal handlers that we may use */
Packit db3073
      signal (SIGCHLD, SIG_DFL);
Packit db3073
      signal (SIGINT, SIG_DFL);
Packit db3073
      signal (SIGTERM, SIG_DFL);
Packit db3073
      signal (SIGHUP, SIG_DFL);
Packit db3073
      
Packit db3073
      /* Be sure we crash if the parent exits
Packit db3073
       * and we write to the err_report_pipe
Packit db3073
       */
Packit db3073
      signal (SIGPIPE, SIG_DFL);
Packit db3073
Packit db3073
      /* Close the parent's end of the pipes;
Packit db3073
       * not needed in the close_descriptors case,
Packit db3073
       * though
Packit db3073
       */
Packit db3073
      close_and_invalidate (&child_err_report_pipe[0]);
Packit db3073
      close_and_invalidate (&child_pid_report_pipe[0]);
Packit db3073
      close_and_invalidate (&stdin_pipe[1]);
Packit db3073
      close_and_invalidate (&stdout_pipe[0]);
Packit db3073
      close_and_invalidate (&stderr_pipe[0]);
Packit db3073
      
Packit db3073
      if (intermediate_child)
Packit db3073
        {
Packit db3073
          /* We need to fork an intermediate child that launches the
Packit db3073
           * final child. The purpose of the intermediate child
Packit db3073
           * is to exit, so we can waitpid() it immediately.
Packit db3073
           * Then the grandchild will not become a zombie.
Packit db3073
           */
Packit db3073
          GPid grandchild_pid;
Packit db3073
Packit db3073
          grandchild_pid = fork ();
Packit db3073
Packit db3073
          if (grandchild_pid < 0)
Packit db3073
            {
Packit db3073
              /* report -1 as child PID */
Packit db3073
              write_all (child_pid_report_pipe[1], &grandchild_pid,
Packit db3073
                         sizeof(grandchild_pid));
Packit db3073
              
Packit db3073
              write_err_and_exit (child_err_report_pipe[1],
Packit db3073
                                  CHILD_FORK_FAILED);              
Packit db3073
            }
Packit db3073
          else if (grandchild_pid == 0)
Packit db3073
            {
Packit db3073
              do_exec (child_err_report_pipe[1],
Packit db3073
                       stdin_pipe[0],
Packit db3073
                       stdout_pipe[1],
Packit db3073
                       stderr_pipe[1],
Packit db3073
                       working_directory,
Packit db3073
                       argv,
Packit db3073
                       envp,
Packit db3073
                       close_descriptors,
Packit db3073
                       search_path,
Packit db3073
                       stdout_to_null,
Packit db3073
                       stderr_to_null,
Packit db3073
                       child_inherits_stdin,
Packit db3073
                       file_and_argv_zero,
Packit db3073
                       child_setup,
Packit db3073
                       user_data);
Packit db3073
            }
Packit db3073
          else
Packit db3073
            {
Packit db3073
              write_all (child_pid_report_pipe[1], &grandchild_pid, sizeof(grandchild_pid));
Packit db3073
              close_and_invalidate (&child_pid_report_pipe[1]);
Packit db3073
              
Packit db3073
              _exit (0);
Packit db3073
            }
Packit db3073
        }
Packit db3073
      else
Packit db3073
        {
Packit db3073
          /* Just run the child.
Packit db3073
           */
Packit db3073
Packit db3073
          do_exec (child_err_report_pipe[1],
Packit db3073
                   stdin_pipe[0],
Packit db3073
                   stdout_pipe[1],
Packit db3073
                   stderr_pipe[1],
Packit db3073
                   working_directory,
Packit db3073
                   argv,
Packit db3073
                   envp,
Packit db3073
                   close_descriptors,
Packit db3073
                   search_path,
Packit db3073
                   stdout_to_null,
Packit db3073
                   stderr_to_null,
Packit db3073
                   child_inherits_stdin,
Packit db3073
                   file_and_argv_zero,
Packit db3073
                   child_setup,
Packit db3073
                   user_data);
Packit db3073
        }
Packit db3073
    }
Packit db3073
  else
Packit db3073
    {
Packit db3073
      /* Parent */
Packit db3073
      
Packit db3073
      gint buf[2];
Packit db3073
      gint n_ints = 0;    
Packit db3073
Packit db3073
      /* Close the uncared-about ends of the pipes */
Packit db3073
      close_and_invalidate (&child_err_report_pipe[1]);
Packit db3073
      close_and_invalidate (&child_pid_report_pipe[1]);
Packit db3073
      close_and_invalidate (&stdin_pipe[0]);
Packit db3073
      close_and_invalidate (&stdout_pipe[1]);
Packit db3073
      close_and_invalidate (&stderr_pipe[1]);
Packit db3073
Packit db3073
      /* If we had an intermediate child, reap it */
Packit db3073
      if (intermediate_child)
Packit db3073
        {
Packit db3073
        wait_again:
Packit db3073
          if (waitpid (pid, &status, 0) < 0)
Packit db3073
            {
Packit db3073
              if (errno == EINTR)
Packit db3073
                goto wait_again;
Packit db3073
              else if (errno == ECHILD)
Packit db3073
                ; /* do nothing, child already reaped */
Packit db3073
              else
Packit db3073
                g_warning ("waitpid() should not fail in "
Packit db3073
			   "'fork_exec_with_pipes'");
Packit db3073
            }
Packit db3073
        }
Packit db3073
      
Packit db3073
Packit db3073
      if (!read_ints (child_err_report_pipe[0],
Packit db3073
                      buf, 2, &n_ints,
Packit db3073
                      error))
Packit db3073
        goto cleanup_and_fail;
Packit db3073
        
Packit db3073
      if (n_ints >= 2)
Packit db3073
        {
Packit db3073
          /* Error from the child. */
Packit db3073
Packit db3073
          switch (buf[0])
Packit db3073
            {
Packit db3073
            case CHILD_CHDIR_FAILED:
Packit db3073
              g_set_error (error,
Packit db3073
                           G_SPAWN_ERROR,
Packit db3073
                           G_SPAWN_ERROR_CHDIR,
Packit db3073
                           _("Failed to change to directory '%s' (%s)"),
Packit db3073
                           working_directory,
Packit db3073
                           g_strerror (buf[1]));
Packit db3073
Packit db3073
              break;
Packit db3073
              
Packit db3073
            case CHILD_EXEC_FAILED:
Packit db3073
              g_set_error (error,
Packit db3073
                           G_SPAWN_ERROR,
Packit db3073
                           exec_err_to_g_error (buf[1]),
Packit db3073
                           _("Failed to execute child process \"%s\" (%s)"),
Packit db3073
                           argv[0],
Packit db3073
                           g_strerror (buf[1]));
Packit db3073
Packit db3073
              break;
Packit db3073
              
Packit db3073
            case CHILD_DUP2_FAILED:
Packit db3073
              g_set_error (error,
Packit db3073
                           G_SPAWN_ERROR,
Packit db3073
                           G_SPAWN_ERROR_FAILED,
Packit db3073
                           _("Failed to redirect output or input of child process (%s)"),
Packit db3073
                           g_strerror (buf[1]));
Packit db3073
Packit db3073
              break;
Packit db3073
Packit db3073
            case CHILD_FORK_FAILED:
Packit db3073
              g_set_error (error,
Packit db3073
                           G_SPAWN_ERROR,
Packit db3073
                           G_SPAWN_ERROR_FORK,
Packit db3073
                           _("Failed to fork child process (%s)"),
Packit db3073
                           g_strerror (buf[1]));
Packit db3073
              break;
Packit db3073
              
Packit db3073
            default:
Packit db3073
              g_set_error (error,
Packit db3073
                           G_SPAWN_ERROR,
Packit db3073
                           G_SPAWN_ERROR_FAILED,
Packit db3073
                           _("Unknown error executing child process \"%s\""),
Packit db3073
                           argv[0]);
Packit db3073
              break;
Packit db3073
            }
Packit db3073
Packit db3073
          goto cleanup_and_fail;
Packit db3073
        }
Packit db3073
Packit db3073
      /* Get child pid from intermediate child pipe. */
Packit db3073
      if (intermediate_child)
Packit db3073
        {
Packit db3073
          n_ints = 0;
Packit db3073
          
Packit db3073
          if (!read_ints (child_pid_report_pipe[0],
Packit db3073
                          buf, 1, &n_ints, error))
Packit db3073
            goto cleanup_and_fail;
Packit db3073
Packit db3073
          if (n_ints < 1)
Packit db3073
            {
Packit db3073
              int errsv = errno;
Packit db3073
Packit db3073
              g_set_error (error,
Packit db3073
                           G_SPAWN_ERROR,
Packit db3073
                           G_SPAWN_ERROR_FAILED,
Packit db3073
                           _("Failed to read enough data from child pid pipe (%s)"),
Packit db3073
                           g_strerror (errsv));
Packit db3073
              goto cleanup_and_fail;
Packit db3073
            }
Packit db3073
          else
Packit db3073
            {
Packit db3073
              /* we have the child pid */
Packit db3073
              pid = buf[0];
Packit db3073
            }
Packit db3073
        }
Packit db3073
      
Packit db3073
      /* Success against all odds! return the information */
Packit db3073
      close_and_invalidate (&child_err_report_pipe[0]);
Packit db3073
      close_and_invalidate (&child_pid_report_pipe[0]);
Packit db3073
 
Packit db3073
      if (child_pid)
Packit db3073
        *child_pid = pid;
Packit db3073
Packit db3073
      if (standard_input)
Packit db3073
        *standard_input = stdin_pipe[1];
Packit db3073
      if (standard_output)
Packit db3073
        *standard_output = stdout_pipe[0];
Packit db3073
      if (standard_error)
Packit db3073
        *standard_error = stderr_pipe[0];
Packit db3073
      
Packit db3073
      return TRUE;
Packit db3073
    }
Packit db3073
Packit db3073
 cleanup_and_fail:
Packit db3073
Packit db3073
  /* There was an error from the Child, reap the child to avoid it being
Packit db3073
     a zombie.
Packit db3073
   */
Packit db3073
Packit db3073
  if (pid > 0)
Packit db3073
  {
Packit db3073
    wait_failed:
Packit db3073
     if (waitpid (pid, NULL, 0) < 0)
Packit db3073
       {
Packit db3073
          if (errno == EINTR)
Packit db3073
            goto wait_failed;
Packit db3073
          else if (errno == ECHILD)
Packit db3073
            ; /* do nothing, child already reaped */
Packit db3073
          else
Packit db3073
            g_warning ("waitpid() should not fail in "
Packit db3073
                       "'fork_exec_with_pipes'");
Packit db3073
       }
Packit db3073
   }
Packit db3073
Packit db3073
  close_and_invalidate (&child_err_report_pipe[0]);
Packit db3073
  close_and_invalidate (&child_err_report_pipe[1]);
Packit db3073
  close_and_invalidate (&child_pid_report_pipe[0]);
Packit db3073
  close_and_invalidate (&child_pid_report_pipe[1]);
Packit db3073
  close_and_invalidate (&stdin_pipe[0]);
Packit db3073
  close_and_invalidate (&stdin_pipe[1]);
Packit db3073
  close_and_invalidate (&stdout_pipe[0]);
Packit db3073
  close_and_invalidate (&stdout_pipe[1]);
Packit db3073
  close_and_invalidate (&stderr_pipe[0]);
Packit db3073
  close_and_invalidate (&stderr_pipe[1]);
Packit db3073
Packit db3073
  return FALSE;
Packit db3073
}
Packit db3073
Packit db3073
static gboolean
Packit db3073
make_pipe (gint     p[2],
Packit db3073
           GError **error)
Packit db3073
{
Packit db3073
  if (pipe (p) < 0)
Packit db3073
    {
Packit db3073
      gint errsv = errno;
Packit db3073
      g_set_error (error,
Packit db3073
                   G_SPAWN_ERROR,
Packit db3073
                   G_SPAWN_ERROR_FAILED,
Packit db3073
                   _("Failed to create pipe for communicating with child process (%s)"),
Packit db3073
                   g_strerror (errsv));
Packit db3073
      return FALSE;
Packit db3073
    }
Packit db3073
  else
Packit db3073
    return TRUE;
Packit db3073
}
Packit db3073
Packit db3073
/* Based on execvp from GNU C Library */
Packit db3073
Packit db3073
static void
Packit db3073
script_execute (const gchar *file,
Packit db3073
                gchar      **argv,
Packit db3073
                gchar      **envp,
Packit db3073
                gboolean     search_path)
Packit db3073
{
Packit db3073
  /* Count the arguments.  */
Packit db3073
  int argc = 0;
Packit db3073
  while (argv[argc])
Packit db3073
    ++argc;
Packit db3073
  
Packit db3073
  /* Construct an argument list for the shell.  */
Packit db3073
  {
Packit db3073
    gchar **new_argv;
Packit db3073
Packit db3073
    new_argv = g_new0 (gchar*, argc + 2); /* /bin/sh and NULL */
Packit db3073
    
Packit db3073
    new_argv[0] = (char *) "/bin/sh";
Packit db3073
    new_argv[1] = (char *) file;
Packit db3073
    while (argc > 0)
Packit db3073
      {
Packit db3073
	new_argv[argc + 1] = argv[argc];
Packit db3073
	--argc;
Packit db3073
      }
Packit db3073
Packit db3073
    /* Execute the shell. */
Packit db3073
    if (envp)
Packit db3073
      execve (new_argv[0], new_argv, envp);
Packit db3073
    else
Packit db3073
      execv (new_argv[0], new_argv);
Packit db3073
    
Packit db3073
    g_free (new_argv);
Packit db3073
  }
Packit db3073
}
Packit db3073
Packit db3073
static gchar*
Packit db3073
my_strchrnul (const gchar *str, gchar c)
Packit db3073
{
Packit db3073
  gchar *p = (gchar*) str;
Packit db3073
  while (*p && (*p != c))
Packit db3073
    ++p;
Packit db3073
Packit db3073
  return p;
Packit db3073
}
Packit db3073
Packit db3073
static gint
Packit db3073
g_execute (const gchar *file,
Packit db3073
           gchar      **argv,
Packit db3073
           gchar      **envp,
Packit db3073
           gboolean     search_path)
Packit db3073
{
Packit db3073
  if (*file == '\0')
Packit db3073
    {
Packit db3073
      /* We check the simple case first. */
Packit db3073
      errno = ENOENT;
Packit db3073
      return -1;
Packit db3073
    }
Packit db3073
Packit db3073
  if (!search_path || strchr (file, '/') != NULL)
Packit db3073
    {
Packit db3073
      /* Don't search when it contains a slash. */
Packit db3073
      if (envp)
Packit db3073
        execve (file, argv, envp);
Packit db3073
      else
Packit db3073
        execv (file, argv);
Packit db3073
      
Packit db3073
      if (errno == ENOEXEC)
Packit db3073
	script_execute (file, argv, envp, FALSE);
Packit db3073
    }
Packit db3073
  else
Packit db3073
    {
Packit db3073
      gboolean got_eacces = 0;
Packit db3073
      const gchar *path, *p;
Packit db3073
      gchar *name, *freeme;
Packit db3073
      gsize len;
Packit db3073
      gsize pathlen;
Packit db3073
Packit db3073
      path = g_getenv ("PATH");
Packit db3073
      if (path == NULL)
Packit db3073
	{
Packit db3073
	  /* There is no `PATH' in the environment.  The default
Packit db3073
	   * search path in libc is the current directory followed by
Packit db3073
	   * the path `confstr' returns for `_CS_PATH'.
Packit db3073
           */
Packit db3073
Packit db3073
          /* In GLib we put . last, for security, and don't use the
Packit db3073
           * unportable confstr(); UNIX98 does not actually specify
Packit db3073
           * what to search if PATH is unset. POSIX may, dunno.
Packit db3073
           */
Packit db3073
          
Packit db3073
          path = "/bin:/usr/bin:.";
Packit db3073
	}
Packit db3073
Packit db3073
      len = strlen (file) + 1;
Packit db3073
      pathlen = strlen (path);
Packit db3073
      freeme = name = g_malloc (pathlen + len + 1);
Packit db3073
      
Packit db3073
      /* Copy the file name at the top, including '\0'  */
Packit db3073
      memcpy (name + pathlen + 1, file, len);
Packit db3073
      name = name + pathlen;
Packit db3073
      /* And add the slash before the filename  */
Packit db3073
      *name = '/';
Packit db3073
Packit db3073
      p = path;
Packit db3073
      do
Packit db3073
	{
Packit db3073
	  char *startp;
Packit db3073
Packit db3073
	  path = p;
Packit db3073
	  p = my_strchrnul (path, ':');
Packit db3073
Packit db3073
	  if (p == path)
Packit db3073
	    /* Two adjacent colons, or a colon at the beginning or the end
Packit db3073
             * of `PATH' means to search the current directory.
Packit db3073
             */
Packit db3073
	    startp = name + 1;
Packit db3073
	  else
Packit db3073
	    startp = memcpy (name - (p - path), path, p - path);
Packit db3073
Packit db3073
	  /* Try to execute this name.  If it works, execv will not return.  */
Packit db3073
          if (envp)
Packit db3073
            execve (startp, argv, envp);
Packit db3073
          else
Packit db3073
            execv (startp, argv);
Packit db3073
          
Packit db3073
	  if (errno == ENOEXEC)
Packit db3073
	    script_execute (startp, argv, envp, search_path);
Packit db3073
Packit db3073
	  switch (errno)
Packit db3073
	    {
Packit db3073
	    case EACCES:
Packit db3073
	      /* Record the we got a `Permission denied' error.  If we end
Packit db3073
               * up finding no executable we can use, we want to diagnose
Packit db3073
               * that we did find one but were denied access.
Packit db3073
               */
Packit db3073
	      got_eacces = TRUE;
Packit db3073
Packit db3073
              /* FALL THRU */
Packit db3073
              
Packit db3073
	    case ENOENT:
Packit db3073
#ifdef ESTALE
Packit db3073
	    case ESTALE:
Packit db3073
#endif
Packit db3073
#ifdef ENOTDIR
Packit db3073
	    case ENOTDIR:
Packit db3073
#endif
Packit db3073
	      /* Those errors indicate the file is missing or not executable
Packit db3073
               * by us, in which case we want to just try the next path
Packit db3073
               * directory.
Packit db3073
               */
Packit db3073
	      break;
Packit db3073
Packit db3073
	    case ENODEV:
Packit db3073
	    case ETIMEDOUT:
Packit db3073
	      /* Some strange filesystems like AFS return even
Packit db3073
	       * stranger error numbers.  They cannot reasonably mean anything
Packit db3073
	       * else so ignore those, too.
Packit db3073
	       */
Packit db3073
	      break;
Packit db3073
Packit db3073
	    default:
Packit db3073
	      /* Some other error means we found an executable file, but
Packit db3073
               * something went wrong executing it; return the error to our
Packit db3073
               * caller.
Packit db3073
               */
Packit db3073
              g_free (freeme);
Packit db3073
	      return -1;
Packit db3073
	    }
Packit db3073
	}
Packit db3073
      while (*p++ != '\0');
Packit db3073
Packit db3073
      /* We tried every element and none of them worked.  */
Packit db3073
      if (got_eacces)
Packit db3073
	/* At least one failure was due to permissions, so report that
Packit db3073
         * error.
Packit db3073
         */
Packit db3073
        errno = EACCES;
Packit db3073
Packit db3073
      g_free (freeme);
Packit db3073
    }
Packit db3073
Packit db3073
  /* Return the error from the last attempt (probably ENOENT).  */
Packit db3073
  return -1;
Packit db3073
}
Packit db3073
Packit db3073
/**
Packit db3073
 * g_spawn_close_pid:
Packit db3073
 * @pid: The process reference to close
Packit db3073
 *
Packit db3073
 * On some platforms, notably Windows, the #GPid type represents a resource
Packit db3073
 * which must be closed to prevent resource leaking. g_spawn_close_pid()
Packit db3073
 * is provided for this purpose. It should be used on all platforms, even
Packit db3073
 * though it doesn't do anything under UNIX.
Packit db3073
 **/
Packit db3073
void
Packit db3073
g_spawn_close_pid (GPid pid)
Packit db3073
{
Packit db3073
}