#include "pipex.h"

char	*read_file(int fd)
{
	char	*str;
	int		len;
	int		old_len;

	str = get_next_line(fd);
	len = ft_strlen(str);
	old_len = 0;
	while (len != old_len)
	{
		old_len = len;
		str = ft_strjoin_free(str, get_next_line(fd), 2);
		len = ft_strlen(str);
	}
	str[len] = '\0';
	return (str);
}

int	get_next(char *cmd, char c)
{
	int	i;

	i = 0;
	while (cmd[i] != c)
		i++;
	return (i);
}

char	*get_flags(char *cmd)
{
	int		i;
	int		y;
	char	*new_str;

	i = get_next(cmd, ' ');
	new_str = ft_calloc(ft_strlen(cmd) - i + 1, 1);
	y = i;
	while (cmd[i])
		new_str[y++] = cmd[i++];
	new_str[y] = '\0';
	return (new_str);
}

char	*get_command(char *cmd)
{
	int		i;
	char	*new_str;

	new_str = ft_calloc(get_next(cmd, ' ') + 1, 1);
	i = -1;
	while (cmd[++i] != ' ')
		new_str[i] = cmd[i];
	new_str[i] = '\0';
	return (new_str);
}

int	parsing(char *argv[], t_data *data)
{
	int	fd1;
	int	fd2;

	fd2 = open(argv[4], O_WRONLY | O_TRUNC | O_CREAT);
	if (fd2 < 0)
		return (-1);
	fd1 = open(argv[1], O_RDONLY | O_TRUNC | O_CREAT);
	if (fd1 < 0)
	{
		close(fd2);
		return (-1);
	}
	data->cmd1 = get_command(argv[2]);
	data->cmd2 = get_command(argv[3]);
	data->flg1 = get_flags(argv[2]);
	data->flg2 = get_flags(argv[3]);
	data->fl1 = argv[1];
	data->fl2 = argv[4];
	data->ct_fl1 = read_file(fd1);
	data->fd1 = fd1;
	data->fd2 = fd2;
	return (0);
}

char	*find_command(char **env, char *cmd)
{
	char	*path;
	char	*s;
	int	fd;
	int	i;
	int	y;

	while (*env != NULL)
	{
		if (ft_strnstr(*env, "PATH=/", ft_strlen(*env)))
			break;
		env++;
	}
	i = 4;
	y = 4;
	s = malloc(ft_strlen(*env) + 1);
	while (*env[i])
	{
		if (*env[i] != ':')
			s[y++] = *env[i];
		else
		{
			path = ft_strjoin(s, cmd);
			fd = open(path, O_RDONLY);
			free(path);
			if (fd != -1)
			{
				free(s);
				return (path);
			}
			y = 0;
		}
		i++;		
	}
	return (NULL);
}

void	first_cmd(int fd[2], t_data data)
{
	dup2(data.fd1, 0);
	dup2(fd[1], 1);
	close(fd[0]);
	close(fd[1]);
	execve(data.cmd1, &data.flg1, NULL);
}

void	second_cmd(int fd[2], t_data data)
{
	dup2(fd[0], 0);
	dup2(data.fd2, 1);
	close(fd[0]);
	close(fd[1]);
	execve(data.cmd2, &data.flg2, NULL);
}

int	pipex(t_data data)
{
	int	fd[2];
	int	cmd1;
	int	cmd2;

	if (pipe(fd) < -1)
		return (1);
	cmd1 = fork();
	if (cmd1 == 0)
		first_cmd(fd, data);
	cmd2 = fork();
	if (cmd2 == 0)
		second_cmd(fd, data);
	close(fd[0]);
	close(fd[1]);
	waitpid(cmd1, NULL, 0);
	waitpid(cmd2, NULL, 0);
	return (0);
}

#include <stdio.h>

int	main(int argc, char *argv[], char **env)
{
	t_data	data;

	//(void)argc;
	//(void)argv;
	if (argc < 5)
		return (1);
	if (parsing(argv, &data))
		return (2);
	data.cmd1 = find_command(env, data.cmd1);
	if (data.cmd1 == NULL)
		return (3);
	data.cmd2 = find_command(env, data.cmd2);
	if (data.cmd2 == NULL)
		return (4);
	if (pipex(data))
		return (5);
	free(data.fl1);
	close(data.fd1);
	close(data.fd2);
	return (0);
}