/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   threads.c                                          :+:      :+:    :+:   */
/*                                                    +:+ +:+         +:+     */
/*   By: erey-bet <marvin@42.fr>                    +#+  +:+       +#+        */
/*                                                +#+#+#+#+#+   +#+           */
/*   Created: 2023/03/08 20:08:33 by erey-bet          #+#    #+#             */
/*   Updated: 2023/03/25 00:17:08 by erey-bet         ###   ########.fr       */
/*                                                                            */
/* ************************************************************************** */

#include "philo.h"

long	get_usec(long long time)
{
	return (time % 1000000);
}

long long	get_time()
{
	struct timeval	time;
	long long	new_time;

	gettimeofday(&time, NULL);
	new_time = time.tv_sec * 1000000;
	new_time += time.tv_usec;
	return (new_time);
}

void	message(int id, char *msg)
{
	char	*all;
	char	*id_str;
	char	*time;
	int		i;

	id_str = ft_itoa(id);
	time = ft_itoa(get_time());
	all = ft_calloc(ft_strlen(id_str) + ft_strlen(msg) + ft_strlen(time) + 1, 1);
	i = -1;
	while (time[++i])
		all[i] = time[i];
	while (id_str[++i - ft_strlen(time)])
		all[i] = id_str[i - ft_strlen(time)];
	while (msg[++i - ft_strlen(time) - ft_strlen(id_str)])
		all[i] = msg[i - ft_strlen(time) - ft_strlen(id_str)];
	write(1, all, ft_strlen(all));
}

void	*philosopher(t_philo *philo)
{
	long long	time;
	long long	last_eat_time;
	int		id;
	int		next_id;

	id = *philo->only->id;
	next_id = (*philo->only->id + 1) % philo->same->config->nbr_philo;
	usleep((*philo->only->id % 2) * 50);
	time = get_time();
	last_eat_time = time;
	while (get_time() - last_eat_time < philo->same->config->time_die && !*philo->same->death)
	{
		message (id, "is thinking\n");
		if (!*philo->same->death && !pthread_mutex_lock(&philo->same->mutex[id]))
		{
		//	printf("%ld %d is taking %d fork\n"  , get_usec(time), id, id);
			if (!*philo->same->death && !pthread_mutex_lock(&philo->same->mutex[next_id]))
			{
				//printf("%ld %d is taking %d fork\n"  , get_usec(time), id, next_id);
				printf("%ld %d is eating\n"  , get_usec(get_time() - time), id);
				if (get_time() - last_eat_time + philo->same->config->time_eat >= philo->same->config->time_die || *philo->same->death)
				{
					printf("%lld | %d dieing 1\n", get_time() - last_eat_time, id);
					break ;
				}
				else
					usleep(philo->same->config->time_eat);
				last_eat_time = get_time();
				pthread_mutex_unlock(&philo->same->mutex[next_id]);
				pthread_mutex_unlock(&philo->same->mutex[id]);
				printf("%ld %d is sleeping\n"  , get_usec(get_time() - time), id);
				if (get_time() - last_eat_time + philo->same->config->time_sleep >= philo->same->config->time_die || *philo->same->death)
				{
					printf("%lld | %d dieing 2\n",get_time() - last_eat_time, id);
					break;
				}
				else
					usleep(philo->same->config->time_sleep);
				printf("after sleep last_eat_time: %lld\n"  , get_time() - last_eat_time);
			}
			else
				pthread_mutex_unlock(&philo->same->mutex[id]);
		}
		{
			printf("%lld | %d dieing 3\n",get_time() - last_eat_time, id);
			break;
		}
	}
	if (!*philo->same->death)
	{
		*philo->same->death = 1;
		printf("%ld %d died\n"  , get_usec(get_time() - time), id);
	}
	//else
		//printf("%ld %d stop\n"  , get_usec(time), id);
	return (NULL);
}

void	init_mutex(pthread_mutex_t *mutex, int nbr)
{
	int	i;

	i = -1;
	while (++i < nbr)
		pthread_mutex_init(&mutex[i], NULL);
}

void	destroy_mutex(pthread_mutex_t *mutex, int nbr)
{
	int	i;

	i = -1;
	while (++i < nbr)
		pthread_mutex_destroy(&mutex[i]);
}

t_same	*create_struct_same(t_config *config)
{
	t_same	*same;
	pthread_mutex_t	*mutex;
	long long		*time;
	int		*death;

	same = ft_calloc(sizeof(t_same), 1);
	time = ft_calloc(sizeof(long long), 1);
	mutex = ft_calloc(sizeof(pthread_mutex_t), config->nbr_philo + 1);
	init_mutex(mutex, config->nbr_philo + 1);
	same->config = config;
	same->mutex = mutex;
	same->time = time;
	death = ft_calloc(sizeof(int), 1); 
	*death = 0;
	same->death = death;
	return (same);
}

t_only	*create_struct_only(int	id)
{
	t_only	*only;
	int	*id_alloc;

	only = ft_calloc(sizeof(t_only), 1);
	id_alloc = ft_calloc(sizeof(int), 1);
	*id_alloc = id;
	only->id = id_alloc;
	return (only);
}

t_philo *init_philo(t_same *same, t_only *only)
{
	t_philo	*philo;

	philo = ft_calloc(sizeof(t_philo), 1);
	philo->same = same;
	philo->only = only;
	return (philo);
}

int	manage_threads(t_config *config)
{
	(void)config;
	message(1, "testfuck\n");
	return (0);
	/*pthread_t	*threads;
	t_same		*same;
	int			i;

	threads = ft_calloc(config->nbr_philo + 1, sizeof(pthread_t));
	if (threads == NULL)
		return (1);
	same = create_struct_same(config);
	i = -1;
	while (++i < config->nbr_philo)
	{
		if (pthread_create(&threads[i + 1], NULL, (void *)&philosopher, init_philo(same, create_struct_only(i))) != 0)
		{
			write(2, "Error thread creation\n", 21);
			return (1);
		}
	}
	while (--i > -1)
	{
		if (pthread_join(threads[i], NULL) != 0)
		{
			write(2, "Error thread finish\n", 20);
			return (1);
		}
	}
	destroy_mutex(same->mutex, 3);
	return (0);*/
}