/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   parse_map.c                                        :+:      :+:    :+:   */
/*                                                    +:+ +:+         +:+     */
/*   By: sadjigui <sadjigui@student.42.fr>          +#+  +:+       +#+        */
/*                                                +#+#+#+#+#+   +#+           */
/*   Created: 2022/05/10 17:54:25 by sadjigui          #+#    #+#             */
/*   Updated: 2022/06/13 19:57:27 by sadjigui         ###   ########.fr       */
/*                                                                            */
/* ************************************************************************** */

#include "../../includes/Cub3D.h"

void ft_exit(char *str)
{
	ft_putstr_fd(str, 2);
	exit(1);
}

void error_msg(t_data *img)
{
	if (img->map.error == 1)
		ft_putstr_fd("Error: Map isn't closed\n", 2);
	if (img->map.error == 2)
		ft_putstr_fd("Error: Missing player\n", 2);
	if (img->map.error == 3)
		ft_putstr_fd("Error: Too many players\n", 2);
	if (img->map.error == -1)
		ft_putstr_fd("Error: Bad character in map\n", 2);
}

void free_tab(char **tab)
{
	int i;

	i = 0;
	while (tab[i])
	{
		free(tab[i]);
		i++;
	}
	free(tab);
	tab = NULL;
}

void size_line(char *str, t_data *img)
{
	int i;

	i = 0;

	while (str[i])
		i++;
	if (i > img->map.x)
		img->map.x = i;
	printf("sizelie= %s, size= %d\n", str, i);
}

char *charge_new(t_data *img)
{
	char *str;
	int i;

	i = 0;
	str = malloc(sizeof(char) * (img->map.x + 3));
	if (!str)
		return (NULL);
	while (i < img->map.x + 2)
	{
		str[i] = '3';
		i++;
	}
	str[i] = '\0';
	return (str);
}

int	reverse_comp(char *s1, char *s2)
{
	int	size_s1;
	int	size_s2;

	size_s1 = ft_strlen(s1);
	size_s2 = ft_strlen(s2);
	while (size_s2 >= 0)
	{
		if (!(s2[size_s2] == s1[size_s1]))
			return (1);
		size_s1--;
		size_s2--;
	}
	return (0);
}

void inter_map(char **split, char **tmp, t_data *img)
{
	int i;
	int j;

	i = 0;
	while (split[i])
	{
		j = 0;
		while(split[i][j])
		{
			if (split[i][j] == '3')
			{
				img->map.error = -1;
				printf("%s %d\n", "-------------------------------------------", img->map.error);
			}
			else if (split[i][j] != ' ')
				tmp[i + 1][j + 1] = split[i][j];
			j++;
		}
		i++;
	}
}

void close_or_not(char **tab, int i, int j, t_data *img)
{
	if(tab[i + 1][j] == '3' || tab[i - 1][j] == '3')
		img->map.error = 1;
	if(tab[i][j + 1] == '3' || tab[i][j - 1] == '3')
		img->map.error = 1;
	if(tab[i + 1][j + 1] == '3' || tab[i + 1][j - 1] == '3')
		img->map.error = 1;
	if(tab[i - 1][j + 1] == '3' || tab[i - 1][j - 1] == '3')
		img->map.error = 1;
	if (img->map.error != 1)
		img->map.error = 0;
}

int	check_inner_utils(char *line)
{
	int	i;
	int player;

	i = 0;
	player = 0;
	while (line[i])
	{
		// if (line[i] == '0' || line[i] == '1' || line[i] == '3' || line[i] == '\n')
		// 	i++;
		if (line[i] == 'N' || line[i] == 'S' || line[i] == 'E' || line[i] == 'W')
			player++;
		else if (line[i] != '3' && line[i] != '0' && line[i] != '1')
			return (100);
		// else
		// 	return (2);
		i++;
	}
	return (player);
}

void check_inner(char **map, t_data *img)//fonction bizarre
{
	int i;
	int player;

	i = 0;
	player = 0;
	while (map[i])
	{
		player += check_inner_utils(map[i]);
		i++;
	}
	if (player == 0)
		img->map.error = 2;
	if (player > 1 && player < 100)//?????? pk 3 et -1?
		img->map.error = 3;
	if (player >= 100)
		img->map.error = -1;
}

void check_border(char **tab, t_data *img)
{
	int i;
	int j;

	i = 0;
	while (tab[i])
	{
		j = 0;
		while (tab[i][j])
		{
			if (tab[i][j] == '0' || tab[i][j] == 'W' || tab[i][j] == 'N' || tab[i][j] == 'S' || tab[i][j] == 'E')
				close_or_not(tab, i, j, img);
			j++;
		}
		i++;
	}
}

void	check_zero_one(char **split, t_data *img)
{
	char **tmp;
	int i;

	i = 0;
	while (split[i])
	{
		size_line(split[i], img);
		i++;
	}
	img->map.y = i;
	tmp = malloc(sizeof(char *) * (i + 3));
	if (!tmp)
		return ;
	i = 0;
	while(i < img->map.y + 2)
	{
		tmp[i] = charge_new(img);
		i++;
	}
	tmp[i] = NULL;
	inter_map(split, tmp, img);
	if (img->map.error == -1)
		return;
	check_border(tmp, img);
	check_inner(tmp, img);
	free_tab(tmp);
}

// typedef struct 	s_global
// {
// 	int 	err;
// }		t_global;

int	is_in_charset(char c, char *charset)
{
	while (*charset)
	{
		if (c == *charset)
			return (1);
		charset++;
	}
	return (0);
}

int	detect_map_line(char *line)
{
	int	i;

	i = 0;
	if (!line)
		return (0);
	if (*line == '\0')
		return (0);
	while (line[i])
	{
		if (is_in_charset(line[i], " 01NSEW\n") == 0)
			return (0);
		i++;
	}
	return (1);
}

char	**isafile(char **av, t_data *img)
{
	// t_global g;
	img->err = 0;

	int		fd;
	char	*line;
	char	*str;
	char	*tmp;
	char	**split;

	fd = open(av[1], O_RDONLY);
	str = NULL;
	tmp = NULL;
	if (fd == - 1)
		ft_exit("Error: File doesn't exist\n");
	while ((line = get_next_line(fd)) != NULL)
	{
		if (line[0] != '\n' && img->err == 0)
			if (detect_map_line(line))
				img->err = 1;
			if (line[0] == '\n' && img->err == 1)
				img->err = 2;
		tmp = ft_strjoin(str, line);
		if (str != NULL)
			free(str);
		str = tmp;
		//size_line(line, img);
		free(line);
		line = NULL;
	}
	if (img->err == 2)
	{
		// free(line);
		free(str);
		ft_exit("Error\nBad texture file\n");
	}
	split = ft_split(str, '\n');
	free(str);
	free(line);
	close(fd);
	int pass = 0;
	pass = check_texture_color(split, img);
	check_zero_one(split + pass, img);
	//leaks here
	transform_map(split + pass, img);
	free_double(split);
	return (0);
}

int check_map(char **av, t_data *img)
{
	char	**map;

	img->map.x = 0;
	img->map.y = 0;
	img->map.error = 0;

	map = NULL;
	if (reverse_comp(av[1], ".cub") || (ft_strlen(av[1]) == ft_strlen(".cub")))
	{
		ft_putstr_fd("Error: Not a valid file \".cub\"\n", 2);
		return (1);
	}
	map = isafile(av, img);

	if (img->map.x > img->map.y)
		img->map.max = img->map.x;
	else
		img->map.max = img->map.y;
	printf("----------------- d = %d", img->map.error);

	if (img->map.error != 0)
	{
		error_msg(img);
		exit(1);//surely leak
	}
	return (0);
}

/*int		main(int ac, char **av)
{
	t_root img;

	if (check_map(av, &img))
		return (0);
	else
		printf("map is clean\n");
}*/