/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   tokenizer.c                                        :+:      :+:    :+:   */
/*                                                    +:+ +:+         +:+     */
/*   By: nalebrun <nalebrun@student.s19.be>         +#+  +:+       +#+        */
/*                                                +#+#+#+#+#+   +#+           */
/*   Created: 2025/01/15 13:27:57 by lderidde          #+#    #+#             */
/*   Updated: 2025/02/11 16:31:30 by nalebrun         ###   ########.fr       */
/*                                                                            */
/* ************************************************************************** */

#include "../../../includes/minishell.h"

static t_node	*tokenize_base(char *str)
{
	int		i;
	t_node	*head;
	char	**tab;

	tab = ft_split_keep(str, " \t\n");
	if (!tab)
		return (NULL);
	head = NULL;
	i = 0;
	while (tab[i])
	{
		if (!add_node_back(&head, tab[i], 0, 0))
			return (free_tab(tab), NULL);
		i++;
	}
	free_tab(tab);
	return (head);
}

static int	unstick_nodes(t_node *head)
{
	t_node	*it;
	char	*first_str;
	char	*second_str;
	int		copied;

	it = head;
	while (it != NULL)
	{
		if (is_sticked(it->val))
		{
			if (is_meta(it->val[0]))
				first_str = copy_meta(it->val, &copied);
			else
				first_str = copy_unmeta(it->val, &copied);
			second_str = ft_substr(it->val, copied, ft_strlen(it->val)
					- copied);
			ft_free(&it->val);
			it->val = ft_strdup(first_str);
			create_node_after(it, second_str);
			ft_free(&first_str);
			ft_free(&second_str);
		}
		it = it->next;
	}
	return (1);
}

static int	stick_quote_node(t_node *head, char q)
{
	t_node	*it;

	it = head;
	while (it != NULL)
	{
		if (ft_strchr(it->val, q) && ft_strchr(it->val,
				q) == ft_strrchr(it->val, q))
		{
			while (it->next && !ft_strchr(it->next->val, q))
				if (!merge_with_next_node(it))
					return (0);
			if (it->next && !merge_with_next_node(it))
				return (0);
		}
		it = it->next;
	}
	return (1);
}

static void	del_void_nodes(t_node **head)
{
	t_node	*cpy;
	t_node	*tmp;

	cpy = *head;
	if (ft_strlen((*head)->val) == 0)
	{
		cpy = (*head)->next;
		free((*head)->val);
		free(*head);
	}
	*head = cpy;
	while (cpy)
	{
		if (cpy->next && ft_strlen(cpy->next->val) == 0)
		{
			tmp = cpy->next->next;
			free(cpy->next->val);
			free(cpy->next);
			cpy->next = tmp;
		}
		cpy = cpy->next;
	}
}

t_node	*tokenize(char *str)
{
	t_node	*head;

	head = tokenize_base(str);
	if (!head)
		return (NULL);
	// debug_token_list(head, "tokenizer base");
	
	if (!trim_nodes(head))
		return (NULL);
	// debug_token_list(head, "trim");
	
	if (!unstick_nodes(head))
		return (NULL);
	// debug_token_list(head, "unstick");

	stick_quote_node(head, 39);
	stick_quote_node(head, '"');
	// debug_token_list(head, "stick_quote_node");
	
	set_token(head);
	// debug_token_list(head, "set token");

	if (!trim_nodes(head))
		return (NULL);
	// debug_token_list(head, "trim2");
	
	del_void_nodes(&head);
	// debug_token_list(head, "del_void_nodes");
	debug_token_list(head, "tokenizer");

	if (syntax_error(head))
		return (free_linked_list(head), NULL);
	return (head);
}