read_in.c

#include "fillit.h"

/*
 **  Reads the tetrimino from the fd to the buffer,
 **  ensures that it's valid, determines the tetrimino type
 **  and the order
 */

t_lst	*read_in(int fd, char order, t_lst *list, char *old_buf)
{
	char *buf;

	buf = ft_memalloc(TET_SIZE + 1);
	if (!buf)
		error_message();
	ssize_t read_size = read(fd, (void *)buf, TET_SIZE);
	buf[read_size] = '\0';
	if (read_size == 0 && check_doublen(old_buf))
		return (list);
	else if (read_size != 21 && read_size != 20)
		error_message();
	else
	{
		free(old_buf);
		old_buf = NULL;
		if (!check_tet(buf) || !check_tet2(buf) || !check_tet3(buf))
			error_message();
		if (process_string(buf, list, order))
			order++;
	}
	return (read_in(fd, order, list, buf));
}

int		first_check(char *buf)
{
	int i;
	int c;

	i = 0;
	c = 0;
	while (buf[i] != '\0')
	{
		if (buf[i] == '.')
			c++;
		i++;
	}
	if (c != 12)
		return (0);
	return (1);
}

int		check_doublen(char *buf)
{
	ssize_t end;
	
	if (!buf)
		return (0);
	end = ft_strlen(buf) - 1;
	if (buf[end] == '\n' && buf[end - 1] == '\n')
		error_message();
	return (1);
}

void	free_vars(char *var1, char *var2)
{
	free(var1);
	free(var2);
	var1 = NULL;
	var2 = NULL;
}

int		process_string(void *buf, t_lst *list, char order)
{
	char	*type_string;
	char	*final_string;
	t_type	*save;

	create_typelist();
	type_string = tet_string(buf);
	final_string = remove_newlines(type_string);
	if ((save = tet_types(final_string)) == NULL)
	{
		free_vars(type_string, final_string);
		error_message();
	}
	to_struct(list, save, order);
	free_vars(type_string, final_string);
	return (1);
}

/*
**  Puts type and order into a struct
*/

void	to_struct(t_lst *list, t_type *type, char order)
{
	if (order == 'A')
	{
		list->size = 1;
		list->head = new_tet(type, order, 0, 0);
		list->current = list->head;
	}
	else
	{
		list->size = list->size + 1;
		list->current->next = new_tet(type, order, 0, 0);
		list->current = list->current->next;
	}
}

/*
**  Defines the tetrimino type as a string
**  (trimmed and with '\n's)
*/

char	*tet_string(char *buf)
{
	char	*type_string;
	int		hash_count;
	int		index;
	int		index2;

	index = 0;
	index2 = 0;
	if (!(type_string = (char *)malloc(sizeof(char) * TET_SIZE)))
		return (0);
	hash_count = 4;
	while (buf[index] != '\0')
	{
		if (buf[index] == '#')
		{
			while (hash_count >= 1)
			{
				if (buf[index] == '#')
					hash_count--;
				type_string[index2++] = buf[index++];
			}
			type_string[index2] = '\0';
		}
		index++;
	}
	return (type_string);
}

/*
**  Removes '\n's from the trimmed string
*/

char	*remove_newlines(char *type_string)
{
	char	*final_string;
	char	**arr;

	arr = ft_strsplit(type_string, '\n');
	if (!(final_string = (char *)malloc(sizeof(char) * ft_strlen(type_string))))
		return (NULL);
	while (*arr != '\0')
		ft_strcat(final_string, *arr++);
	return (final_string);
}