thread fixes for MSW (samples doesn't compile currently under !MSW, will

[wxWidgets.git] / src / motif / utilsexc.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        utilsexec.cpp
// Purpose:     Execution-related utilities
// Author:      Julian Smart
// Modified by:
// Created:     17/09/98
// RCS-ID:      $Id$
// Copyright:   (c) Julian Smart
// Licence:   	wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
// #pragma implementation
#endif

#include "wx/utils.h"
#include "wx/app.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>

#ifdef VMS
/*steve*/
#ifdef __HIDE_FORBIDDEN_NAMES
#undefine __HIDE_FORBIDDEN_NAMES
#endif
#include <socket.h>
#ifdef VAX
/*because 'noshare' is not valid in vax C++*/
#define CC$VAXCSHR 1
#endif
#include <unixlib.h>
#define unlink DELETE

#else

#if defined(__AIX__) || defined(__xlC__)
#include <sys/socket.h>
#include <sys/select.h>
#else
#ifndef __DATA_GENERAL__
#include <sys/syscall.h>
#endif
#endif

#include <sys/wait.h>
#include <unistd.h>
#include <dirent.h>
#include <pwd.h>

#endif

#ifdef __SVR4__
  #include <sys/systeminfo.h>
#endif

#ifdef __SOLARIS__
// somehow missing from sys/wait.h but in the system's docs
extern "C"
{
   pid_t wait4(pid_t pid, int *statusp, int options, struct rusage
               *rusage);
}
#endif

#include <sys/time.h>
#include <errno.h>

#include <Xm/Xm.h>

struct wxLocalProcessData
{
  int pid, end_process;
  wxProcess *process;
};

#ifdef __SOLARIS__
// somehow missing from sys/wait.h but in the system's docs
extern "C"
{
   pid_t wait4(pid_t pid, int *statusp, int options, struct rusage
               *rusage);
}
#endif

void xt_notify_end_process(XtPointer client, int *fid,
			   XtInputId *id)
{
  wxLocalProcessData *process_data = (wxLocalProcessData *)client;

  int pid;

  pid = (process_data->pid > 0) ? process_data->pid : -(process_data->pid);

  /* wait4 is not part of any standard, use at own risk
   * not sure what wait4 does, but wait3 seems to be closest, whats a digit ;-)
   * --- offer@sgi.com */
#if !defined(__sgi) && !defined(__SGI__) && !defined(__ALPHA__) && !defined(__SUNCC__)
  wait4(process_data->pid, NULL, 0, NULL);
#else
  wait3((int *) NULL, 0, (rusage *) NULL);
#endif

  XtRemoveInput(*id);
  if (process_data->process)
    process_data->process->OnTerminate(process_data->pid);

  process_data->end_process = TRUE;

  if (process_data->pid > 0)
    delete process_data;
  else
    process_data->pid = 0;
}

long wxExecute(char **argv, bool sync, wxProcess *handler)
{
#ifdef VMS
  return(0);
#else
  if (*argv == NULL)
    return 0;	// Nothing???

  int proc_link[2];
  if (pipe(proc_link))
    return 0;

  /* fork the process */
#if defined(sun) || defined(__ultrix) || defined(__bsdi__)
  pid_t pid = vfork ();
#else
  pid_t pid = fork ();
#endif

  if (pid == -1)
    {
      return 0;
    }
  else if (pid == 0)
    {
/* GUILHEM: Close all fds when sync == 0 */
      if (sync == 0)
        for (int fd=0;fd<FD_SETSIZE;fd++) {
          if (proc_link[1] != fd)
            close(fd);
        }
      /* child */
#ifdef _AIX
      execvp ((const char *)*argv, (const char **)argv);
#else
      execvp (*argv, argv);
#endif
/* GUILHEM: Reopen output stream */
//      open("/dev/console", O_WRONLY);
/* GUILHEM: End */
      if (errno == ENOENT)
	printf ("%s: command not found\n", *argv);
      else
	perror (*argv);
      printf ("wxWindows: could not execute '%s'\n", *argv);
      _exit (-1);
    }

  wxLocalProcessData *process_data = new wxLocalProcessData;

  process_data->end_process = 0;
  process_data->process = handler;
  process_data->pid = (sync) ? pid : -pid;

  close(proc_link[1]);
  XtAppAddInput((XtAppContext) wxTheApp->GetAppContext(), proc_link[0],
                (XtPointer *) XtInputReadMask,
                (XtInputCallbackProc) xt_notify_end_process,
                (XtPointer) process_data);

  if (sync) {
    while (!process_data->end_process)
       XtAppProcessEvent((XtAppContext) wxTheApp->GetAppContext(), XtIMAll);

    if (WIFEXITED(process_data->end_process) != 0)
      return WEXITSTATUS(process_data->end_process);
  }

  delete process_data;

  return pid;
#endif
  // end VMS
}

long wxExecute (const wxString& command, bool sync, wxProcess* handler)
{
#ifdef VMS
  return(0);
#else
  if (command.IsNull() || command == "")
    return 0; // Nothing to do

  // Run a program the recomended way under X (XView) 
  int argc = 0;
  char *argv[127];
  char tmp[1024];
  const char *IFS = " \t\n";

  // Build argument vector 
  strncpy (tmp, (const char*) command, sizeof (tmp) / sizeof (char) - 1);
  tmp[sizeof (tmp) / sizeof (char) - 1] = '\0';
  argv[argc++] = strtok (tmp, IFS);
  while ((argv[argc++] = strtok (NULL, IFS)) != NULL)
    /* loop */ ;

  return wxExecute(argv, sync, handler);
#endif
  // VMS
}