#include "libftx/libftx.h"
#include "minishell.h"
#include "utils/utils.h"
#include <unistd.h>

static char	*ft_get_variable(char **env, char *variable)
{
	size_t	i;

	i = 0;
	while (env[i] != NULL)
	{
		if (ft_strncmp(variable, env[i], ft_strlen(variable)) == 0)
			return (ft_strchr(env[i], '=') + 1);
		i++;
	}
	return (NULL);
}

static char	*ft_get_executable_path(char *executable_name, char **env)
{
	char	*path;
	char	*temp;
	char	**tab;
	size_t	i;

	path = NULL;
	if (executable_name[0] == '.' || executable_name[0] == '/')
		path = ft_strdup(executable_name);
	else
	{
		tab = ft_split(ft_get_variable(env, "PATH"), ':');
		if (tab == NULL)
			return (NULL);
		i = 0;
		while (tab[i] != NULL)
		{
			temp = ft_strmerger(3, tab[i], "/", executable_name);
			if (temp == NULL)
			{
				ft_freer_tab_ultimate(1, tab);
				free(executable_name);
				ft_eprintf("minishell: malloc failed\n");
			}
			if (access(temp, X_OK) == 0)
			{
				path = temp;
				break ;
			}
			free(temp);
			i++;
		}
		if (path == NULL)
		{
			ft_eprintf("%s: command not found\n", executable_name);
		}
		ft_freer_tab_ultimate(1, tab);
	}
	return (path);
}

static int	ft_excutor(t_cmd *cmd, char **env)
{
	int		pid;
	int		return_value;

	pid = fork();
	if (pid == -1)
		return (1);
	if (pid == 0)
	{
		dup2(cmd->fd_out, 1);
		dup2(cmd->fd_in, 0);
		execve(cmd->executable, cmd->args, env);
	}
	else
		waitpid(pid, &return_value, 0);
	return (return_value);
}

int	ft_cmds_executor(t_list **cmds, char **env)
{
	t_cmd	*content;
	t_list	*current;
	int		fds[2];

	current = *cmds;
	while (current != NULL)
	{
		content = current->content;
		if (current->next != NULL)
		{
			if (pipe(fds) == -1)
			{
				ft_eprintf("minishell: pipe failed\n");
				return (1);
			}
			content->fd_out = fds[1];
			((t_cmd *) current->next->content)->fd_in = fds[0];
		}
		content->executable = ft_get_executable_path(content->executable, env);
		if (content->executable != NULL)
			ft_excutor(content, env);
		close(content->fd_in);
		close(content->fd_out);
		current = current->next;
	}
	return (0);
}