1 files changed, 131 insertions, 0 deletions
diff --git a/src/b_export.c b/src/b_export.c
new file mode 100644
index 0000000..fa9a6d1
--- /dev/null
+++ b/src/b_export.c
@@ -0,0 +1,131 @@
+/* ************************************************************************** */
+/*                                                                            */
+/*                                                        :::      ::::::::   */
+/*   b_export.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 <stdlib.h>
+#include <stdint.h>
+
+#include "b_env.h"
+#include "b_export_next.h"
+#include "d_enum.h"
+#include "f_fail.h"
+#include "s_destroy.h"
+#include "s_lcom.h"
+#include "s_lvars.h"
+#include "s_struct.h"
+#include "u_utils.h"
+#include "u_vars.h"
+
+static t_bool
+	check_valid_identifier(const char arg[])
+{
+	char	*ptr;
+
+	ptr = (char*)arg;
+	if (ft_isalpha(ptr[0]) || ptr[0] == '_')
+	{
+		return (TRUE);
+	}
+	return (FALSE);
+}
+
+static t_bool
+	check_equals(const char *arg)
+{
+	char	*ptr;
+
+	ptr = (char*)arg;
+	while (*ptr != '\0')
+	{
+		if (*ptr == '=')
+		{
+			return (TRUE);
+		}
+		ptr++;
+	}
+	return (FALSE);
+}
+
+static void
+	b_add_to_env_from_globals(const char varname[],
+							const char var[],
+							t_msh *msh)
+{
+	size_t	i;
+	char	**nenvp;
+
+	i = 0;
+	while (msh->envp[i] != NULL)
+		i++;
+	if (!(nenvp = (char**)malloc((i + 2) * sizeof(char*))))
+		f_fail_alloc_and_destroy(msh);
+	i = 0;
+	while (msh->envp[i] != NULL)
+	{
+		if (!(nenvp[i] = ft_strdup(msh->envp[i])))
+			f_fail_alloc_and_destroy(msh);
+		i++;
+	}
+	if (!(nenvp[i] = ft_strdup(var)))
+		f_fail_alloc_and_destroy(msh);
+	nenvp[i + 1] = 0;
+	ft_delwords(msh->envp);
+	lvars_delone(&msh->vars, varname);
+	msh->envp = nenvp;
+}
+
+uint8_t
+	b_export(char *args[],
+			t_msh *msh)
+{
+	/* TODO: norme */
+	char	**ptr;
+	char	*varval;
+	char	fmt[4096];
+	t_bool	next;
+	uint8_t	r;
+
+	if (args[0] == NULL)
+	{
+		return (b_env(NULL, msh));
+	}
+	r = 0;
+	ptr = args;
+	while (*ptr != NULL)
+	{
+		next = FALSE;
+		if (check_valid_identifier(*ptr) == FALSE)
+		{
+			f_fail_identifier("export", *ptr);
+			next = TRUE;
+			r = 1;
+		}
+		if (next == FALSE && check_equals(*ptr) == FALSE)
+		{
+			next = TRUE;
+			ft_sprintf(fmt, "$%s", *ptr);
+			varval = u_get_cstm_vr(fmt, msh);
+			if (varval != NULL)
+			{
+				ft_sprintf(fmt, "%s=%s", *ptr, varval);
+				b_add_to_env_from_globals(*ptr, fmt, msh);
+			}
+		}
+		else if (next == FALSE && check_equals(*ptr) == TRUE)
+		{
+			b_export_with_equals(*ptr, msh);
+		}
+		ptr++;
+	}
+	 /* TODO: finish export */
+	return (r);
+}