Merge branch 'master' into fix-pwd

1 files changed, 183 insertions, 0 deletions

diff --git a/src/u_vars.c b/src/u_vars.c
new file mode 100644
index 0000000..2a78f3d
--- /dev/null
+++ b/src/u_vars.c
@@ -0,0 +1,183 @@
+/* ************************************************************************** */
+/*                                                                            */
+/*                                                        :::      ::::::::   */
+/*   u_vars.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 "d_define.h"
+#include "f_fail.h"
+#include "s_destroy.h"
+#include "s_lcom.h"
+#include "s_struct.h"
+
+static char
+	*u_set_rva(const char varname[],
+			t_msh *msh)
+{
+	char	*rvarname;
+
+	if (!(rvarname = (char*)malloc((ft_strlen(varname) + 1) * sizeof(char))))
+	{
+		lcom_clear(&msh->curr);
+		s_destroy(msh);
+		f_fail_alloc(msh);
+	}
+	(void)ft_memcpy((char*)rvarname, (const char*)varname + 1,
+		ft_strlen(varname + 1));
+	*(rvarname + ft_strlen(varname + 1)) = '=';
+	*(rvarname + ft_strlen(varname + 1) + 1) = '\0';
+	return (rvarname);
+}
+
+static char
+	*u_dup_env(char *p_env,
+			char *rvarname,
+			t_msh *msh)
+{
+	char	*varval;
+
+	if (!(varval = ft_strdup(p_env)))
+	{
+		ft_memdel((void*)&rvarname);
+		lcom_clear(&msh->curr);
+		s_destroy(msh);
+		f_fail_alloc(msh);
+	}
+	ft_memdel((void*)&rvarname);
+	return (varval);
+}
+
+static char
+	*u_get_frm_env(char rvarname[],
+					t_msh *msh)
+{
+	char	**p_env;
+	char	*pp_env;
+	char	*varval;
+
+	p_env = msh->envp;
+	while (*p_env)
+	{
+		if (!ft_strncmp(rvarname, *p_env, ft_strclen(*p_env, '=')))
+		{
+			pp_env = *p_env;
+			while (*pp_env != '\0' && *pp_env != '=')
+				pp_env += 1;
+			if (*pp_env == '=')
+				pp_env += 1;
+			varval = u_dup_env(pp_env, rvarname, msh);
+			return (varval);
+		}
+		p_env += 1;
+	}
+	ft_memdel((void*)&rvarname);
+	return (NULL);
+}
+
+static char
+	*u_get_special_var(const char varname[],
+					t_msh *msh)
+{
+	char	*varval;
+
+	if (ft_strncmp(varname, FT_RET_VAR, 3) == 0)
+	{
+		if ((varval = ft_uitoa(msh->ret)) == NULL)
+		{
+			lcom_clear(&msh->curr);
+			s_destroy(msh);
+			f_fail_alloc(msh);
+		}
+		return (varval);
+	}
+	else if (ft_strncmp(varname, FT_ZER_VAR, 3) == 0)
+	{
+		if ((varval = ft_strdup(msh->shname)) == NULL)
+		{
+			lcom_clear(&msh->curr);
+			s_destroy(msh);
+			f_fail_alloc(msh);
+		}
+		return (varval);
+	}
+	return (NULL);
+}
+
+char
+	*u_get_cstm_vr(const char varname[],
+				t_msh *msh)
+{
+	t_lvars	*ptr;
+	char	*varval;
+
+	ptr = msh->vars;
+	while (ptr != NULL &&
+		ft_strncmp(varname + 1, ptr->name, ft_strlen(varname + 1) + 1) != 0)
+	{
+		ptr = ptr->next;
+	}
+	if (ptr != NULL)
+	{
+		if (!(varval = ft_strdup(ptr->val)))
+		{
+			lcom_clear(&msh->curr);
+			s_destroy(msh);
+			f_fail_alloc(msh);
+		}
+		return (varval);
+	}
+	else
+	{
+		return (NULL);
+	}
+}
+
+/*
+** char*
+** u_get_var_value(const char varname[], t_msh *msh);
+**
+** DESCRIPTION
+** The u_get_var_value() function returns
+** a heap-allocated, null-terminated string
+** that may later be free'd containing the
+** value of the variable varname[] including
+** the '$' prefix. NULL is returned if varname[]
+** wasn't found.
+*/
+
+char
+	*u_get_var_value(const char varname[],
+					t_msh *msh)
+{
+	/* TODO: check behaviour on empty vars -> "QWE=" */
+	/* TODO: add support for global variables -> "$hey $nigga..." */
+	char	*varval;
+	char	*rvarname;
+
+	varval = NULL;
+	if ((varval = u_get_special_var(varname, msh)) != NULL)
+	{
+		return (varval);
+	}
+	else if ((varval = u_get_cstm_vr(varname, msh)) != NULL)
+	{
+		return (varval);
+	}
+	else
+	{
+		rvarname = u_set_rva(varname, msh);
+		varval = u_get_frm_env(rvarname, msh);
+		return (varval);
+	}
+	return (NULL);
+}