/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   ft_parse_map.c                                     :+:      :+:    :+:   */
/*                                                    +:+ +:+         +:+     */
/*   By: rbousset <marvin@42.fr>                    +#+  +:+       +#+        */
/*                                                +#+#+#+#+#+   +#+           */
/*   Created: 2020/02/14 17:28:56 by rbousset          #+#    #+#             */
/*   Updated: 2020/02/14 17:28:56 by rbousset         ###   ########lyon.fr   */
/*                                                                            */
/* ************************************************************************** */

#include <libft.h>
#include <cub3d.h>
#include <stdlib.h>
#include <fcntl.h>
#include <unistd.h>
#include <stdint.h>

static void
	ft_check_map_last_line(t_cub *clist)
{
	t_map	*ml;
	size_t	i;
	size_t	j;

	i = 0;
	ml = clist->mlist;
	while (ml->map[i])
		i++;
	j = 0;
	while (ml->map[i - 1][j])
	{
		if (ml->map[i - 1][j] != '1' && ml->map[i - 1][j] != '\0')
			ft_map_error(FT_ERR_MAP_L_L, clist);
		j++;
	}
}

static int8_t
ft_error_here(const char *errmsg, char *line, t_cub *clist)
{
	ft_memdel((void**)&line);
	return (ft_map_error(errmsg, clist));
}

static int8_t
	ft_parse_it(int fd, t_cub *clist)
{
	char	*line;
	char	**words;
	int		ret;

	clist->mlist->line_chk += 1;
	if ((ret = get_next_line(fd, &line)) < 0)
		return (ft_map_error(FT_ERR_READ, clist));
	if (ret == 0)
		return (ft_error_here(FT_ERR_UNFINISHED, line, clist));
	if (!line[0])
	{
		ft_memdel((void**)&line);
		return (ft_parse_it(fd, clist));
	}
	if (!ft_ischarset("RNSEWFC1\0", line[0])
		|| !(words = ft_split(line, ' ')))
		return (ft_error_here(FT_ERR_ILL_ENTRY, line, clist));
	if ((ret = ft_select_get(words, clist)) == 12)
		return ((ft_get_map_first_line(line, clist) < 0) ? (-1) : (12));
	ft_memdel((void**)&line);
	return (ret);
}

static void
	ft_no_map_error(t_cub *clist)
{
	ft_dprintf(STDERR_FILENO, "Error\n");
	ft_dprintf(STDERR_FILENO, "\033[31;1mNo map\033[0m\n");
	ft_exit(5, clist);
}

void
	ft_parse_map(const char *map_path, t_cub *clist)
{
	int		fd;
	int8_t	ret;

	if (ft_check_ext(map_path, ".cub") < 0)
		ft_map_error(FT_ERR_NOT_A_CUB, clist);
	fd = open(map_path, O_RDONLY);
	if (fd < 0)
		ft_no_map_error(clist);
	ret = 1;
	while (ret != 12 && ret >= 0)
		ret = ft_parse_it(fd, clist);
	(ret == -2) ? (ft_map_error(FT_ERR_ALR_SET, clist)) : 0;
	(ret == -1) ? (ft_map_error(clist->errmsg, clist)) : 0;
	if (ft_get_map_core(fd, clist) < 0)
		ft_map_error(clist->errmsg, clist);
	ft_check_map_last_line(clist);
	ft_get_player_spawn(clist->plist, clist);
	ft_check_missing(clist);
	ft_set_minimap_scale(clist);
	ft_print_list(clist);
	close(fd);
}