#include "lexer.h"

int 			len_is_not_sep(char *input)
{
	int i;

	i = -1;
	while(input[++i])
	{
		if (lexer_sep(input[i]))
		{
			if (input[i + 1] == ' ')
				while(input[++i] == ' ')
					;
			return(i);
		}
		if (input[i] == '\'' || input[i] == '"')
			return(i);
		if (input[i] == ' ')
		{
			while(input[++i] == ' ')
				;
			return (i);
		}
	}
	return(i);
}

int				check_input(char *input)
{
	int 				i;

	i = 0;
	if (lexer_sep(input[i]))
	{
		while(input[i] == input[i + 1])
			i++;
		i += lexe_space(&input[i + 1]);
		return (i + 1);
	}
	if (input[i] == 39 || input[i] == '"')
		return(lexer_verif_entre_cote(input, i));
	if (input[i] == ' ')
	{
		while(input[++i] == ' ')
			;
		return (i);
	}
	return(len_is_not_sep(&input[i]));
}


int 					check_input_out(char *input)
{
	int i;
	int j;

	i = 0;
	while(input[i] != '\0')
	{
		j = 0;
		j += len_is_not_sep(&input[i]);
		if (j != 0)
			return(j);
		i += j;
		j = check_input(&input[i]);
		return(j);
	}
	return(0);
}

t_token 						*lexer_lst_token_str(char *input, int i, int j)
{
	t_token 					*lst_token;

	if (!(lst_token = malloc(sizeof(t_token) * 1)))
		return (NULL);
	lst_token->tag = 0;
	lst_token->content = NULL;
	if (!(lst_token->content = malloc(sizeof(char) * j + 1)))
		return(0);
	if (!(ft_strlcpy(lst_token->content, &input[i], j + 1)))
	{
		free(lst_token);
		return(0);
	}
	//printf("%s-\n", lst_token->content);
	return (lst_token);
}

enum e_token_tag token_verif_stick(t_token *lst_token)
{
	int i;

	i = ft_strlen(lst_token->content);

	if (i > 0)
		if (lst_token->content[i - 1] == ' ')
			return(lst_token->tag);
	return(lst_token->tag | TAG_STICK);
}

enum e_token_tag token_str_or_cote(t_token *lst_token)
{
	int i;

	i = 0;
	while(lst_token->content[i] != '\0')
	{
		if(lst_token->content[i] == '\'')
		{
			return (lst_token->tag = TAG_STR_SINGLE);
			return(token_verif_stick(lst_token));
		}
		if(lst_token->content[i] == '"')
		{
			lst_token->tag = TAG_STR_DOUBLE;
			return(token_verif_stick(lst_token));
		}
		else
		{
			lst_token->tag = TAG_STR;
			return(token_verif_stick(lst_token));
		}
		i++;
	}
	return(0);
}

t_token			*push_token_enum_and_trim(t_token *lst_token)
{
	enum e_token_tag 		tk;

	tk = ret_token(lst_token->content, 0);

	if (tk == 0)
		lst_token->tag = token_str_or_cote(lst_token);
	else
		lst_token->tag = tk;
	//printf("%s-, %d\n",lst_token->content, lst_token->tag);
	return (lst_token);
}

static t_ftlst				*create_token_list(char *input, t_ftlst **lst)
{
	t_token 				*lst_token;
	t_ftlst					*new;
	int 					i;
	int						j;

	i = 0;
	while (i < (int)ft_strlen(input))
	{
		j = 0;
		j += check_input(&input[i]);
		lst_token = lexer_lst_token_str(input,i,j);
		lst_token = push_token_enum_and_trim(lst_token);
		new = ft_lstnew((void *) lst_token);
		ft_lstpush_back(lst, new);
		i += j;
	}
	return (*lst);
}

t_ftlst        			*lexer(char *input)
{
	t_ftlst		**lst;
	/* int			i; */

	if (!input)
		return (0);
	lst = malloc(sizeof(t_ftlst *) * 1);
	if (!lst)
		return(0);
	*lst = create_token_list(input, lst);
	/* i = ft_lstsize(*lst); */
	return (*lst);
}