compiler/posixc/execl.c

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