Back to index

cell-binutils  2.17cvs20070401
Defines | Functions
pex-djgpp.c File Reference
#include "pex-common.h"
#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <fcntl.h>
#include <unistd.h>
#include <sys/stat.h>
#include <process.h>

Go to the source code of this file.

Defines

#define PWAIT_ERROR   EINVAL

Functions

static int pex_djgpp_open_read (struct pex_obj *, const char *, int)
static int pex_djgpp_open_write (struct pex_obj *, const char *, int)
static long pex_djgpp_exec_child (struct pex_obj *, int, const char *, char *const *, char *const *, int, int, int, int, const char **, int *)
static int pex_djgpp_close (struct pex_obj *, int)
static int pex_djgpp_wait (struct pex_obj *, long, int *, struct pex_time *, int, const char **, int *)
struct pex_objpex_init (int flags, const char *pname, const char *tempbase)
static int pex_djgpp_open_read (struct pex_obj *obj ATTRIBUTE_UNUSED, const char *name, int binary)
static int pex_djgpp_open_write (struct pex_obj *obj ATTRIBUTE_UNUSED, const char *name, int binary)
static int pex_djgpp_close (struct pex_obj *obj ATTRIBUTE_UNUSED, int fd)
static long pex_djgpp_exec_child (struct pex_obj *obj, int flags, const char *executable, char *const *argv, char *const *env, int in, int out, int errdes, int toclose ATTRIBUTE_UNUSED, const char **errmsg, int *err)
static int pex_djgpp_wait (struct pex_obj *obj, long pid, int *status, struct pex_time *time, int done ATTRIBUTE_UNUSED, const char **errmsg ATTRIBUTE_UNUSED, int *err ATTRIBUTE_UNUSED)

Define Documentation

#define PWAIT_ERROR   EINVAL

Definition at line 42 of file pex-djgpp.c.


Function Documentation

static int pex_djgpp_close ( struct pex_obj ,
int   
) [static]
static int pex_djgpp_close ( struct pex_obj *obj  ATTRIBUTE_UNUSED,
int  fd 
) [static]

Definition at line 106 of file pex-djgpp.c.

{
  return close (fd);
}
static long pex_djgpp_exec_child ( struct pex_obj ,
int  ,
const char *  ,
char *const ,
char *const ,
int  ,
int  ,
int  ,
int  ,
const char **  ,
int  
) [static]
static long pex_djgpp_exec_child ( struct pex_obj obj,
int  flags,
const char *  executable,
char *const argv,
char *const env,
int  in,
int  out,
int  errdes,
int toclose  ATTRIBUTE_UNUSED,
const char **  errmsg,
int err 
) [static]

Definition at line 114 of file pex-djgpp.c.

{
  int org_in, org_out, org_errdes;
  int status;
  int *statuses;

  org_in = -1;
  org_out = -1;
  org_errdes = -1;

  if (in != STDIN_FILE_NO)
    {
      org_in = dup (STDIN_FILE_NO);
      if (org_in < 0)
       {
         *err = errno;
         *errmsg = "dup";
         return -1;
       }
      if (dup2 (in, STDIN_FILE_NO) < 0)
       {
         *err = errno;
         *errmsg = "dup2";
         return -1;
       }
      if (close (in) < 0)
       {
         *err = errno;
         *errmsg = "close";
         return -1;
       }
    }

  if (out != STDOUT_FILE_NO)
    {
      org_out = dup (STDOUT_FILE_NO);
      if (org_out < 0)
       {
         *err = errno;
         *errmsg = "dup";
         return -1;
       }
      if (dup2 (out, STDOUT_FILE_NO) < 0)
       {
         *err = errno;
         *errmsg = "dup2";
         return -1;
       }
      if (close (out) < 0)
       {
         *err = errno;
         *errmsg = "close";
         return -1;
       }
    }

  if (errdes != STDERR_FILE_NO
      || (flags & PEX_STDERR_TO_STDOUT) != 0)
    {
      org_errdes = dup (STDERR_FILE_NO);
      if (org_errdes < 0)
       {
         *err = errno;
         *errmsg = "dup";
         return -1;
       }
      if (dup2 ((flags & PEX_STDERR_TO_STDOUT) != 0 ? STDOUT_FILE_NO : errdes,
               STDERR_FILE_NO) < 0)
       {
         *err = errno;
         *errmsg = "dup2";
         return -1;
       }
      if (errdes != STDERR_FILE_NO)
       {
         if (close (errdes) < 0)
           {
             *err = errno;
             *errmsg = "close";
             return -1;
           }
       }
    }

  if (env)
    status = (((flags & PEX_SEARCH) != 0 ? spawnvpe : spawnve)
             (P_WAIT, executable, argv, env));
  else
    status = (((flags & PEX_SEARCH) != 0 ? spawnvp : spawnv)
             (P_WAIT, executable, argv));

  if (status == -1)
    {
      *err = errno;
      *errmsg = ((flags & PEX_SEARCH) != 0) ? "spawnvp" : "spawnv";
    }

  if (in != STDIN_FILE_NO)
    {
      if (dup2 (org_in, STDIN_FILE_NO) < 0)
       {
         *err = errno;
         *errmsg = "dup2";
         return -1;
       }
      if (close (org_in) < 0)
       {
         *err = errno;
         *errmsg = "close";
         return -1;
       }
    }

  if (out != STDOUT_FILE_NO)
    {
      if (dup2 (org_out, STDOUT_FILE_NO) < 0)
       {
         *err = errno;
         *errmsg = "dup2";
         return -1;
       }
      if (close (org_out) < 0)
       {
         *err = errno;
         *errmsg = "close";
         return -1;
       }
    }

  if (errdes != STDERR_FILE_NO
      || (flags & PEX_STDERR_TO_STDOUT) != 0)
    {
      if (dup2 (org_errdes, STDERR_FILE_NO) < 0)
       {
         *err = errno;
         *errmsg = "dup2";
         return -1;
       }
      if (close (org_errdes) < 0)
       {
         *err = errno;
         *errmsg = "close";
         return -1;
       }
    }

  /* Save the exit status for later.  When we are called, obj->count
     is the number of children which have executed before this
     one.  */
  statuses = (int *) obj->sysdep;
  statuses = XRESIZEVEC (int, statuses, obj->count + 1);
  statuses[obj->count] = status;
  obj->sysdep = (void *) statuses;

  return obj->count;
}
static int pex_djgpp_open_read ( struct pex_obj ,
const char *  ,
int   
) [static]
static int pex_djgpp_open_read ( struct pex_obj *obj  ATTRIBUTE_UNUSED,
const char *  name,
int  binary 
) [static]

Definition at line 83 of file pex-djgpp.c.

{
  return open (name, O_RDONLY | (binary ? O_BINARY : O_TEXT));
}
static int pex_djgpp_open_write ( struct pex_obj ,
const char *  ,
int   
) [static]
static int pex_djgpp_open_write ( struct pex_obj *obj  ATTRIBUTE_UNUSED,
const char *  name,
int  binary 
) [static]

Definition at line 92 of file pex-djgpp.c.

{
  /* Note that we can't use O_EXCL here because gcc may have already
     created the temporary file via make_temp_file.  */
  return open (name,
              (O_WRONLY | O_CREAT | O_TRUNC
              | (binary ? O_BINARY : O_TEXT)),
              S_IRUSR | S_IWUSR);
}
static int pex_djgpp_wait ( struct pex_obj ,
long  ,
int ,
struct pex_time ,
int  ,
const char **  ,
int  
) [static]
static int pex_djgpp_wait ( struct pex_obj obj,
long  pid,
int status,
struct pex_time time,
int done  ATTRIBUTE_UNUSED,
const char **errmsg  ATTRIBUTE_UNUSED,
int *err  ATTRIBUTE_UNUSED 
) [static]

Definition at line 280 of file pex-djgpp.c.

{
  int *statuses;

  if (time != NULL)
    memset (time, 0, sizeof *time);

  statuses = (int *) obj->sysdep;
  *status = statuses[pid];

  return 0;
}

Here is the call graph for this function:

struct pex_obj* pex_init ( int  flags,
const char *  pname,
const char *  tempbase 
) [read]

Definition at line 73 of file pex-djgpp.c.

{
  /* DJGPP does not support pipes.  */
  flags &= ~ PEX_USE_PIPES;
  return pex_init_common (flags, pname, tempbase, &funcs);
}

Here is the call graph for this function: