/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   s_init.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 <stdint.h>
#include <stdlib.h>
#include <unistd.h>

#include "d_define.h"
#include "m_funptr.h"
#include "s_init.h"
#include "u_vars.h"
#include "u_vars_next.h"

static char
	**dupenv_del(char **nenvp,
					uint64_t i)
{
	while (i > 0)
	{
		ft_memdel((void*)&nenvp[i]);
		i--;
	}
	ft_memdel((void*)&nenvp);
	return (NULL);
}

static char
	**dupenv(char *const envp[])
{
	uint64_t	i;
	char		**nenvp;

	i = 0;
	while (envp[i])
	{
		i++;
	}
	if (!(nenvp = (char**)malloc((i + 1) * sizeof(char*))))
	{
		return (NULL);
	}
	i = 0;
	while (envp[i])
	{
		if (!(nenvp[i] = ft_strdup(envp[i])))
			return (dupenv_del(nenvp, i));
		i++;
	}
	nenvp[i] = NULL;
	return (nenvp);
}

static void
	inc_shlvl(t_msh *msh)
{
	char	*str_one;
	char	*str_two;

	u_subst_var_value("$SHLVL",
		str_one = ft_itoa(
		ft_atoi(str_two = u_get_var_value("$SHLVL", msh)) + 1), msh);
	ft_memdel((void*)&str_one);
	ft_memdel((void*)&str_two);
}

t_msh
	*init_msh(char *const argv[],
			char *const envp[])
{
	t_msh	*msh;

	if (!(msh = (t_msh*)malloc(sizeof(t_msh))))
		return (NULL);
	if (!(msh->ps_one = ft_strdup(FT_PS_ONE)))
		return (NULL);
	if (!(msh->shname = ft_strdup(argv[0])))
		return (NULL);
	/* TODO: shname: care about "./", try with symlinks */
	msh->envp = NULL;
	if (!(msh->envp = dupenv(envp)))
		return (NULL);
	msh->ret = 0;
	init_buptr(msh);
	msh->curr = NULL;
	msh->vars = NULL;
	msh->cwd = NULL;
	if ((msh->cwd = u_get_var_value("$PWD", msh)) == NULL)
		msh->cwd = getcwd(NULL, 0);
	inc_shlvl(msh);
	return (msh);
}