compiler/clib/execl.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX function execl().
   6 */
   7
   8 #include <aros/debug.h>
   9 #include <errno.h>
  10 #include <assert.h>
  11 #include <stdlib.h>
  12
  13 #include "__arosc_privdata.h"
  14 #include "__exec.h"
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <unistd.h>
  20
  21         int execl(
  22
  23 /*  SYNOPSIS */
  24         const char *path,
  25         const char *arg, ...)
  26
  27 /*  FUNCTION
  28         Executes a file located in given path with specified arguments.
  29
  30     INPUTS
  31         path - Pathname of the file to execute.
  32         arg - First argument passed to the executed file.
  33         ... - Other arguments passed to the executed file.
  34
  35     RESULT
  36         Returns -1 and sets errno appropriately in case of error, otherwise
  37         doesn't return.
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         execve(), execlp(), execv(), execvp()
  47
  48     INTERNALS
  49
  50 ******************************************************************************/
  51 {
  52     va_list args;
  53     char *const *argv;
  54     char ***environptr = __arosc_get_environptr();
  55     char **environ = (environptr != NULL) ? *environptr : NULL;
  56
  57     va_start(args, arg);
  58
  59     if(!(argv = __exec_valist2array(arg, args)))
  60     {
  61         errno = ENOMEM;
  62         return -1;
  63     }
  64
  65     va_end(args);
  66
  67     APTR id = __exec_prepare(path, 0, argv, environ);
  68     __exec_cleanup_array();
  69     if (!id)
  70         return -1;
  71
  72     __exec_do(id);
  73
  74     assert(0); /* Should not be reached */
  75     return -1;
  76 } /* execl() */
  77