/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   u_vars_next.c                                      :+:      :+:    :+:   */
/*                                                    +:+ +:+         +:+     */
/*   By: rbousset <marvin@42.fr>                    +#+  +:+       +#+        */
/*                                                +#+#+#+#+#+   +#+           */
/*   Created: 2020/02/14 17:19:27 by rbousset          #+#    #+#             */
/*   Updated: 2020/02/14 17:19:29 by rbousset         ###   ########lyon.fr   */
/*                                                                            */
/* ************************************************************************** */

#include <libft.h>
#include <inttypes.h>
#include <stdlib.h>
#include <linux/limits.h>

#include "d_enum.h"
#include "s_lvars.h"
#include "s_struct.h"
#include "u_parse.h"
#include "u_utils.h"

static int64_t
	u_get_env_var_line(const char varname[], t_msh *msh)
{
	char	**env_dup;
	int64_t	i;

	env_dup = u_get_env_var_names(msh);
	i = 0;
	while (env_dup[i] != NULL &&
		ft_strncmp(varname, env_dup[i], ft_strlen(env_dup[i]) + 1) != 0)
	{
		i++;
	}
	if (env_dup[i] == NULL)
	{
		i = -1;
	}
	ft_delwords(env_dup);
	return (i);
}

static t_bool
	u_get_custom_var_existance(const char varname[], t_msh *msh)
{
	t_lvars	*ptr;

	ptr = msh->vars;
	while (ptr &&
		ft_strncmp(varname, ptr->name, ft_strlen(varname) + 1) != 0)
	{
		ptr = ptr->next;
	}
	if (ptr != NULL)
	{
		return (TRUE);
	}
	else
	{
		return (FALSE);
	}
}

/* static void */
/* 	u_newval_subst(char newval_subst[], const char newval[]) */
/* { */
/* } */

/*
** void
** u_subst_var_value(const char varname[], const char newval[], t_msh *msh);
**
** DESCRIPTION
** The subst_var_value() changes the value of msh->envp
** variable varname[] with newval[]. If varname[] wasn't found
** in msh->envp, varname[] is searched in msh->vars. Otherwise
** varname[] is added to msh->vars.
*/

void
	u_subst_var_value(const char varname[], const char newval[], t_msh *msh)
{
	char	new_line_fmt[ARG_MAX];
	int64_t	env_line;

	if ((env_line = u_get_env_var_line(varname + 1, msh)) > -1)
	{
		ft_memdel((void*)&msh->envp[env_line]);
		ft_sprintf(new_line_fmt, "%s=%s", varname + 1, newval);
		if ((msh->envp[env_line] = (char*)malloc((ft_strlen(new_line_fmt) + 1) *
			sizeof(char))) == NULL)
		{
			/* TODO: Handle this fail */
		}
		(void)ft_strlcpy(msh->envp[env_line],
			new_line_fmt, ft_strlen(new_line_fmt) + 1);
	}
	else if ((env_line = u_get_custom_var_existance(varname + 1, msh)) == TRUE)
	{
		lvars_rebind(&msh->vars, varname + 1, newval);
	}
	else
	{
		lvars_add_front(&msh->vars, lvars_new(varname + 1, newval));
	}
}