/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   builtin_env.c                                      :+:      :+:    :+:   */
/*                                                    +:+ +:+         +:+     */
/*   By: gwojda <gwojda@student.42.fr>              +#+  +:+       +#+        */
/*                                                +#+#+#+#+#+   +#+           */
/*   Created: 2017/03/22 16:20:31 by gwojda            #+#    #+#             */
/*   Updated: 2017/03/25 20:40:41 by jhalford         ###   ########.fr       */
/*                                                                            */
/* ************************************************************************** */

#include "minishell.h"

#define ENV_USAGE	"env [-i] [name=value]... [utility [argument...]]"
#define ENV_NOFILE	"env: %s: No such file or directory"
#define ENV_NOPERM	"env: %s: Permission denied"

static t_cliopts	g_env_opts[] =
{
	{'i', NULL, 0, 0, &bt_env_opt_i, 0},
	{'u', NULL, 0, 0, &bt_env_opt_u, 1},
	{0, 0, 0, 0, 0, 0},
};

static int			bt_env_getcustom(char ***av, t_env_data *data)
{
	if (!av || !*av || !data)
		return (1);
	while (**av && ft_strchr(**av, '='))
	{
		data->custom_env = ft_sstradd(data->custom_env, **av);
		++(*av);
	}
	return (0);
}

static int			bt_env_parse(t_env_data *data, char **av)
{
	data->flag = 0;
	data->av_data = NULL;
	data->custom_env = ft_sstrdup(data_singleton()->env);
	if (cliopts_get(av, g_env_opts, data))
		return (1);
	bt_env_getcustom(&data->av_data, data);
	return (0);
}

int					display_env(char **av)
{
	if (av && *av)
	{
		ft_sstrprint(av, '\n');
		ft_putchar('\n');
		ft_tabdel(&av);
	}
	return (0);
}

int					builtin_env(const char *path,
							char *const argv[], char *const envp[])
{
	t_env_data	dat;
	int			status;
	pid_t		pid;

	(void)envp;
	if (bt_env_parse(&dat, (char**)argv))
		return (ft_perror("env") && SH_ERR("usage: %s", ENV_USAGE));
	if (!*dat.av_data)
		return (display_env(dat.custom_env));
	else if ((pid = fork()) == 0)
	{
		if (!(path = ft_strchr(dat.av_data[0], '/') ? ft_strdup(dat.av_data[0])
					: ft_hash(dat.av_data[0])) || access(path, F_OK) != 0)
			exit(SH_ERR(ENV_NOFILE, dat.av_data[0]));
		if (is_directory(path) || access(path, X_OK) != 0)
			exit(SH_ERR(ENV_NOPERM, dat.av_data[0]));
		execve(path, dat.av_data, dat.custom_env);
	}
	waitpid(pid, &status, 0);
	ft_sstrfree(dat.custom_env);
	tcsetpgrp(STDIN, data_singleton()->jobc.shell_pgid);
	return (WIFEXITED(status) ? WEXITSTATUS(status) : 128 + WTERMSIG(status));
}