/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   ft_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 <libft.h>
#include <stdlib.h>
#include <fcntl.h>
#include <unistd.h>
#include <errno.h>

#include "ft_f_file.h"
#include "ft_e_externs_next.h"
#include "ft_s_lcom.h"
#include "ft_s_struct.h"
#include "ft_s_destroy.h"

static void
	ft_dup_redirs(const t_lcom *ptr,
				t_msh *msh)
{
	int32_t	fd;

	if (ptr->redir == -1)
	{
		if ((fd = open(ptr->rdrpath, O_RDONLY)) == -1)
			ft_f_file(ptr->rdrpath, msh);
		/* TODO: handle < redir */
	}
	if (ptr->redir == 1)
	{
		if ((fd = open(ptr->rdrpath,
					   O_CREAT | O_TRUNC | O_WRONLY, 0644)) == -1)
			ft_f_file(ptr->rdrpath, msh);
		dup2(fd, STDOUT_FILENO);
		close(fd);
	}
	if (ptr->redir == 2)
	{
		if ((fd = open(ptr->rdrpath,
					   O_CREAT | O_APPEND | O_WRONLY, 0644)) == -1)
			ft_f_file(ptr->rdrpath, msh);
		dup2(fd, STDOUT_FILENO);
		close(fd);
	}
}

static void
ft_e_extern_child(const char *fullpath,
				t_lcom *ptr,
				t_msh *msh)
{
	int32_t	ret;

	ft_dup_redirs(ptr, msh);
	ret = execve(fullpath, ptr->argv, msh->envp);
	/* TODO: handle execve failed */
	ft_lcom_clear(&msh->curr);
	ft_s_destroy(msh);
	exit(ret);
}

static void
	ft_exec_path(const char fullpath[],
				t_lcom *ptr,
				t_msh *msh)
{
	pid_t	pid;
	int32_t	status;

	if ((pid = fork()) == 0)
	{
		ft_e_extern_child(fullpath, ptr, msh);
	}
	else if (pid < 0)
	{
		/* TODO: handle fork failed */
	}
	else
	{
		while (wait(&status) != pid)
			;
		msh->ret = WEXITSTATUS(status);
	}
}

void
	ft_e_extern(t_lcom *ptr,
				t_msh *msh)
{
	char	**envpath;
	char	*fullpath;

	if (ft_ischarset("/.", ptr->com[0]))
	{
		/* TODO: ft_get_absolute_path(ptr->com); */
	}
	else if ((envpath = ft_get_env_path(msh)) != NULL)
	{
		fullpath = ft_search_in_path(ptr->com, envpath, msh);
		/* TODO: exec $PATH stuff */
		ft_delwords(envpath);
	}
	/* TODO: deal if not found etc */
	ft_exec_path(fullpath, ptr, msh);
	ft_memdel((void*)&fullpath);
}