compiler/clib/execl.c

   1 /*
   2     Copyright © 1995-2003, 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 <stdlib.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <unistd.h>
  16
  17         int execl(
  18
  19 /*  SYNOPSIS */
  20         const char *path,
  21         const char *arg, ...)
  22
  23 /*  FUNCTION
  24
  25     INPUTS
  26
  27     RESULT
  28
  29     NOTES
  30         Not implemented.
  31
  32     EXAMPLE
  33
  34     BUGS
  35
  36     SEE ALSO
  37
  38     INTERNALS
  39
  40 ******************************************************************************/
  41 {
  42     va_list args;
  43     char default_argv[] = { NULL };
  44     char **argv;
  45
  46     if(arg != NULL)
  47     {
  48         int argc = 1;
  49         va_start(args,arg);
  50         while(va_arg(args,const char *) != NULL)
  51             argc++;
  52         va_end(args);
  53
  54         argv = (char**) malloc(sizeof(char*) * (argc + 1));
  55         if(!argv)
  56         {
  57             errno = ENOMEM;
  58             return -1;
  59         }
  60
  61         argv[0] = arg;
  62         int argi;
  63         va_start(args,arg);
  64         for(argi = 1; argi < argc; argi++)
  65             argv[argi] = va_arg(args,const char *);
  66         va_end(args);
  67         argv[argc] = NULL;
  68     }
  69     else
  70         argv = default_argv;
  71
  72     return execve(path, argv, environ);
  73 } /* execl() */
  74