/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   u_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 <unistd.h>
#include <termios.h>
#include <stdlib.h>
#include <string.h>
#include <term.h>
#include <libft.h>

#include "c_init.h"
#include "c_input.h"
#include "c_utils.h"
#include "s_struct.h"
#include "m_prompt.h"

static char
	*ft_strjoin_m(char *s1,
				  char *s2)
{
	size_t  i;
	size_t  j;
	char    *dst;
	size_t  size1;
	size_t  size2;

	i = -1;
	j = -1;
	size1 = ft_strlen(s1);
	size2 = ft_strlen(s2);
	if (!(dst = (char*)malloc((size1 + size2 + 1) * sizeof(char))))
		return (NULL);
	while (++i < size1)
		dst[i] = s1[i];
	while (++j < size2)
		dst[i + j] = s2[j];
	dst[i + j] = '\0';
	ft_memdel((void*)&s1);
	return (dst);
}

static t_caps
	*c_get_struct(int mode,
			  t_caps *src)
{
	static t_caps *caps;

	if (mode == 1)
	{
		caps = src;
	}
	return (caps);
}

int16_t
	c_set_term_raw(uint8_t mode)
{
	struct termios tios;

	ft_memset(&tios, 0, sizeof(tios));
	tcgetattr(STDIN_FILENO, &tios);
	if (mode)
	{
		tios.c_lflag &= ~(ECHO | ICANON | ISIG);
		tios.c_oflag &= ~(OPOST);
		tios.c_cc[VMIN] = 1;
		tios.c_cc[VTIME] = 0;
	}
	else
	{
		tios.c_lflag |= (ECHO | ICANON | ISIG);
		tios.c_oflag |= (OPOST);
	}
	tcsetattr(STDIN_FILENO, TCSAFLUSH, &tios);
	mode ? tputs(tgetstr("ns", NULL), 1, ft_putchar) : 0;
	return (1);
}

/*  c_insert_char */

int16_t
	c_process_key(char *buf,
				t_caps *tcaps,
				t_msh *msh)
{
	static char *line = NULL;
	int i;

	i = -1;
	if (line == NULL)
		if (!(line = ft_calloc(2, sizeof(char))))
			return (0);
	if (ft_isprint(buf[0]))
	{
		if (tcaps->cpos == ft_strlen(line))
			line = ft_strjoin_m(line, buf);
		else
			line = c_insert_char(line, buf[0], tcaps);
		c_redraw_line(line, tcaps->cpos, msh);
		tcaps->cpos++;
	}
	else
	{
		if (strncmp(buf, tcaps->KL, 4) == 0)
		{
			return (c_key_left(ft_strlen(line), tcaps));
		}
		else if (strncmp(buf, tcaps->KR, 4) == 0)
		{
			return (c_key_right(ft_strlen(line), tcaps));
		}
		else if (strncmp(buf, tcaps->CL, ft_strlen(tgetstr("kb", NULL))) == 0)
		{
			return (c_ctrl_l(line, tcaps, msh));
		}
		else if (strncmp(buf, tgetstr("kb", NULL), ft_strlen(tgetstr("kb", NULL))) == 0)
		{
			return (c_back_slash(&line, tcaps));
		}
		else if (buf[0] == '\n')
		{
			return (c_new_line(buf, &line, msh, tcaps));
		}
	}
	return (0);
}

int16_t
	c_init_tcaps(t_msh *msh)
{
	t_caps tcaps;
	char *bp;
	char *term;
	char nread[5];
	int ret;

	bp = NULL;
	term = getenv("TERM");
	if (!tgetent(bp, term))
		return (-1);
	tcaps.cpos = 0;
	c_set_term_raw(1);
	c_get_struct(1, &tcaps);
	c_init_keys(&tcaps);
	m_prompt_psx(1, msh);
	if (!(c_get_win_size(&tcaps.ws)))
		return (-1);
	while (1)
	{
		ft_bzero(nread, 5);
		if (!(read(STDIN_FILENO, nread, 4)))
			return (0);
		tputs(tgetstr("vi", NULL), 1, ft_putchar);
		ret = c_process_key(nread, &tcaps, msh);
		tputs(tgetstr("ve", NULL), 1, ft_putchar);
	}
	return (1);
}