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

#include "d_define.h"
#include "m_prompt.h"
#include "s_struct.h"
#include "u_vars.h"

static char
	*m_subst_prompt_rice(char var[], t_msh *msh)
{
	char	tmp[PATH_MAX];
	size_t	i;
	size_t	j;

	i = 0;
	while (var[i] != C_NUL)
	{
		if (var[i] == C_BACKS)
		{
			if (var[i + 1] == '0' && var[i + 2] == '3' && var[i + 3] == '3')
			{
				(void)ft_memmove(var + i, var + (i + 3), (ft_strlen(var + (i + 3)) + 1) * sizeof(char));
				var[i] = C_ESC;
			}
			else if (var[i + 1] == 'n')
			{
				(void)ft_memmove(var + i, var + (i + 1), (ft_strlen(var + (i + 1)) + 1) * sizeof(char));
				var[i] = C_LF;
			}
			else if (var[i + 1] == 'h' || var[i + 1] == 'H')
			{
				gethostname(tmp, 255);
				(void)ft_memmove(var + i + ft_strlen(tmp), var + (i + 2), (ft_strlen(var + (i + 2)) + 1) * sizeof(char));
				(void)ft_memcpy(var + i, tmp, ft_strlen(tmp) * sizeof(char));
			}
			else if (var[i + 1] == 'w')
			{
				u_get_var_value(tmp, "$PWD", PATH_MAX, msh);
				if (tmp[0] != C_NUL)
					ft_strsubst_s(var, "\\w", tmp);
				else
					ft_strsubst_s(var, "\\w", "?");
			}
			else if (var[i + 1] == 'W')
			{
				u_get_var_value(tmp, "$PWD", PATH_MAX, msh);
				if (tmp[0] != C_NUL)
				{
					j = ft_strlen(tmp);
					if (j > 1)
					{
						while (tmp[j] != '/' && j != 0)
							j--;
						j++;
						(void)ft_memmove(tmp, tmp + j,
							((ft_strlen(tmp) - j) + 1) * sizeof(char));
					}
					ft_strsubst_s(var, "\\W", tmp);
				}
				else
					ft_strsubst_s(var, "\\w", "?");
			}
			else if (var[i + 1] == 'v')
				ft_strsubst_s(var, "\\v", FT_MSH_VERSION);
			else if (var[i + 1] == 's')
				ft_strsubst_s(var, "\\s", FT_PROGNAME);
			else if (var[i + 1] == '?')
			{
				ft_uitoa_s(tmp, msh->ret);
				ft_strsubst_s(var, "\\?", tmp);
			}
		}
		i++;
	}
	return (var);
}

static void
	m_update_psx(uint8_t x, t_msh *msh)
{
	char	var[ARG_MAX];
	char	psx[5];

	ft_sprintf(psx, "$PS%hhu", x);
	u_get_var_value(var, psx, ARG_MAX, msh);
	if (var[0] == C_NUL)
	{
		msh->ps[x - 1][0] = '\0';
		return ;
	}
	m_subst_prompt_rice(var, msh);
	ft_strlcpy(msh->ps[x - 1], var, 255);
}

void
	m_prompt_psx(uint8_t x, t_msh *msh)
{
	m_update_psx(x, msh);
	ft_dprintf(STDERR_FILENO, "%s", msh->ps[x - 1]);
}