Added missing _fexecl function needed by BASIC chain

Author: totalspectrum

include/libc/unix/execl.c

@@ -26,3 +26,25 @@ int _execl(const char *path, const char *arg0, ...)
     va_end(args);
     return r;
 }
+
+static int _fexeclv(int fd, const char *arg0, va_list args)
+{
+    static const char *argv[MAX_ARGC];
+    int argc = 0;
+
+    do {
+        argv[argc++] = arg0;
+        arg0 = va_arg(args, const char *);
+    } while (arg0 && argc < MAX_ARGC);
+    return _fexecve(fd, argv, NULL);
+}
+
+int _fexecl(int fd, const char *arg0, ...)
+{
+    int r;
+    va_list args;
+    va_start(args, arg0);
+    r = _fexeclv(fd, arg0, args);
+    va_end(args);
+    return r;
+}

include/sys/unistd.h

@@ -65,6 +65,8 @@ extern "C" {
 
   int _execve(const char *path, char **args, char **env) _COMPLEXIO _IMPL("libc/unix/exec.c");
   int _execl(const char *path, const char *arg0, ...) _COMPLEXIO _IMPL("libc/unix/execl.c");
+  int _fexecve(int fd, char **args, char **env) _COMPLEXIO _IMPL("libc/unix/exec.c");
+  int _fexecl(int fd, const char *arg0, ...) _COMPLEXIO _IMPL("libc/unix/execl.c");
 
 #if defined(__cplusplus)
 }