/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   e_externs.c                                        :+:      :+:    :+:   */
/*                                                    +:+ +:+         +:+     */
/*   By: rbousset <marvin@42.fr>                    +#+  +:+       +#+        */
/*                                                +#+#+#+#+#+   +#+           */
/*   Created: 2020/02/14 17:19:27 by rbousset          #+#    #+#             */
/*   Updated: 2020/02/14 17:19:29 by rbousset         ###   ########lyon.fr   */
/*                                                                            */
/* ************************************************************************** */

#include <sys/wait.h>

#include <fcntl.h>
#include <errno.h>
#include <libft.h>
#ifdef __linux__
# include <linux/limits.h>
#else
# include <limits.h>
#endif
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#include "b_export_next.h"
#include "d_define.h"
#include "f_fail.h"
#include "e_redirs.h"
#include "e_unshebanged.h"
#include "s_com.h"
#include "s_destroy.h"
#include "s_line.h"
#include "s_struct.h"
#include "u_path.h"
#include "u_utils.h"

static void	e_extern_child(const char fullpath[], t_com *ptr, t_msh *msh)
{
	if (execve(fullpath, ptr->argv, msh->envp) == -1)
	{
		if (errno != ENOEXEC)
		{
			f_exec(fullpath, ptr->bin);
			u_eof_fd(msh->fd);
			s_com_destroy(&msh->com);
			s_line_clear(&msh->curr);
			s_destroy(msh);
			exit(errno);
			return ;
		}
		e_extern_read_script(fullpath, ptr, msh, FALSE);
	}
}

static void	e_export_env_fork(t_com *ptr, t_msh *msh)
{
	char	**re_ptr;

	re_ptr = ptr->env_fork;
	while (*re_ptr != NULL)
	{
		b_export_with_equals(*re_ptr, msh);
		re_ptr++;
	}
}

static void	e_fullpath_not_found(t_com *ptr, t_msh *msh)
{
	f_command_not_found(ptr->bin);
	u_eof_fd(msh->fd);
	s_com_destroy(&msh->com);
	s_line_clear(&msh->curr);
	s_destroy(msh);
	exit(127);
}

/*
** TODO: handle fork failed
*/

static void	e_exec_path(const char fullpath[],
						t_com *ptr,
						unsigned char fp_ret,
						t_msh *msh)
{
	pid_t	pid;
	int		status;

	if ((pid = fork()) == 0)
	{
		if (ptr->env_fork != NULL)
			e_export_env_fork(ptr, msh);
		e_dup_redirs(ptr, msh);
		if (fp_ret == 2)
			e_fullpath_not_found(ptr, msh);
		e_extern_child(fullpath, ptr, msh);
	}
	else if (pid < 0)
	{
	}
	else
	{
		while (wait(&status) != pid)
			;
		msh->ret = (msh->sig != 0) ? msh->sig : WEXITSTATUS(status);
	}
}

void		e_extern(t_com *ptr, t_msh *msh)
{
	char			fullpath[PATH_MAX];
	unsigned char	fp_ret;

	fullpath[0] = C_NUL;
	if (ptr->bin != NULL && ft_strchr(ptr->bin, '/') != NULL)
	{
		ft_strlcpy(fullpath, ptr->bin, PATH_MAX);
		e_exec_path(fullpath, ptr, 0, msh);
		return ;
	}
	else
	{
		fp_ret = u_search_in_path(fullpath, ptr->bin, PATH_MAX, msh);
		e_exec_path(fullpath, ptr, fp_ret, msh);
	}
}