/*
 * Copyright (c) 2010 Wind River Systems; see
 * guts/COPYRIGHT for information.
 *
 * static int
 * wrap_execl(const char *file, const char *arg, va_list ap) {
 *	int rc = -1;
 */

  size_t i = 0;
  size_t alloc_size = 256;
  const char **argv = malloc(sizeof (const char *) * alloc_size);
  if (!argv) {
	pseudo_debug(1, "execl failed: couldn't allocate memory for %lu arguments\n",
		(unsigned long) alloc_size);
	errno = ENOMEM;
	return -1;
  }

  argv[i++] = arg;

  while (argv[i-1]) {
	argv[i++] = va_arg (ap, const char *);
	if ( i > alloc_size - 1 ) {
		alloc_size = alloc_size + 256;
		argv = realloc(argv, sizeof (const char *) * alloc_size);
		if (!argv) {
			pseudo_debug(1, "execl failed: couldn't allocate memory for %lu arguments\n",
				(unsigned long) alloc_size);
			errno = ENOMEM;
			return -1;
		}
	}
  }

  rc = wrap_execv (file, (char *const *) argv);

  free (argv);

/*	return rc;
 * }
 */