/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   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];
	char	*ptr;
	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')
			{
				ft_memmove(var + i, var + i + 3, ft_strlen(var + i + 3) + 1);
				var[i] = C_ESC;
			}
			else if (var[i + 1] == 'w')
			{
				u_get_var_value(tmp, "$PWD", PATH_MAX, msh);
				if (tmp[0] != C_NUL)
					var = ft_strsubst(var, "\\w", tmp);
				else
					var = ft_strsubst(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));
					}
					var = ft_strsubst(var, "\\W", tmp);
				}
				else
					var = ft_strsubst(var, "\\w", "?");
			}
			else if (var[i + 1] == 'v')
				var = ft_strsubst(var, "\\v", FT_MSH_VERSION);
			else if (var[i + 1] == 's')
				var = ft_strsubst(var, "\\s", FT_PROGNAME);
		}
		i++;
	}
	return (var);
}

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

	ft_sprintf(psx, "$PS%hhu", x);
	u_get_var_value(var, psx, 2048, 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, ft_strlen(var) + 1);
}

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