/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   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 <limits.h>
#include <dirent.h>
#include <errno.h>

#include "b_export_next.h"
#include "d_define.h"
#include "f_fail.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)
{
	int32_t	shlvl;
	char	*str_one;
	char	*str_two;
	char	*tmp;
	char	fmt[8];

	if ((tmp = u_get_var_value("$SHLVL", msh)) == NULL)
	{
		ft_memcpy(fmt, "SHLVL=1", 8);
		b_export_with_equals(fmt, msh);
	}
	else
	{
		ft_memdel((void*)&tmp);
		str_two = u_get_var_value("$SHLVL", msh);
		shlvl = ft_atoi(str_two);
		if (shlvl >= 999)
			f_shlvl_too_high(shlvl);
		shlvl = (shlvl >= 999) ? 0 : shlvl;
		shlvl = (shlvl < 0) ? 0 : shlvl + 1;
		str_one = ft_itoa(shlvl);
		u_subst_var_value("$SHLVL", str_one, msh);
		ft_memdel((void*)&str_one);
		ft_memdel((void*)&str_two);
	}
}

static char
	*set_cwd(t_msh *msh)
{
	char	*cwd;
	char	fmt[PATH_MAX];
	DIR		*dir;

	if ((cwd = u_get_var_value("$PWD", msh)) == NULL)
	{
		cwd = getcwd(NULL, 0);
		ft_sprintf(fmt, "%s=%s", "PWD", cwd);
		b_export_with_equals(fmt, msh);
		return (cwd);
	}
	if ((dir = opendir(cwd)) != NULL)
		closedir(dir);
	else if (errno == ENOENT)
	{
		ft_memdel((void*)&cwd);
		cwd = getcwd(NULL, 0);
		ft_sprintf(fmt, "%s=%s", "PWD", cwd);
		b_export_with_equals(fmt, msh);
		return (cwd);
	}
	return (cwd);
}

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->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 = set_cwd(msh);
	msh->env_fork_tmp[0][0] = '\0';
	inc_shlvl(msh);
	return (msh);
}