environ.c

#include "shs.h"

/**
 * copy_info - copies info to create
 * a new env or alias
 * @name: name (env or alias)
 * @value: value (env or alias)
 *
 * Return: new env or alias.
 */
char *copy_info(char *name, char *value)
{
	char *new;
	int len_name, len_value, len;

	len_name = _strlen(name);
	len_value = _strlen(value);
	len = len_name + len_value + 2;
	new = malloc(sizeof(char) * len);
	_strcpy(new, name);
	_strcat(new, "=");
	_strcat(new, value);
	_strcat(new, "\0");

	return (new);
}

/**
 * set_env_var - sets an environment variable
 *
 * @name: name of the environment variable
 * @value: value of the environment variable
 * @shdata: data structure (environ)
 * Return: no return
 */
void set_env_var(char *name, char *value, shell_data *shdata)
{
	int i;
	char *var_env, *name_env;

	for (i = 0; shdata->_environ[i]; i++)
	{
		var_env = _strdup(shdata->_environ[i]);
		name_env = _strtok(var_env, "=");
		if (_strcmp(name_env, name) == 0)
		{
			free(shdata->_environ[i]);
			shdata->_environ[i] = copy_info(name_env, value);
			free(var_env);
			return;
		}
		free(var_env);
	}

	shdata->_environ = _realloc_ptr(shdata->_environ,
			i, sizeof(char *) * (i + 2));
	shdata->_environ[i] = copy_info(name, value);
	shdata->_environ[i + 1] = NULL;
}

/**
 * _setenv - compares env variables names
 * with the name passed.
 * @shdata: data relevant (env name and env value)
 *
 * Return: 1 on success.
 */
int _setenv(shell_data *shdata)
{
	if (shdata->args[1] == NULL || shdata->args[2] == NULL)
	{
		error_code(shdata, -1);
		return (1);
	}

	set_env_var(shdata->args[1], shdata->args[2], shdata);

	return (1);
}

/**
 * _delenv - deletes an environment variable
 *
 * @shdata: data relevant (env name)
 *
 * Return: 1 on success.
 */
int _delenv(shell_data *shdata)
{
	char **realloc_environ, *var_env, *name_env;
	int i, j, k;

	if (shdata->args[1] == NULL)
	{
		error_code(shdata, -1);
		return (1);
	}
	k = -1;
	for (i = 0; shdata->_environ[i]; i++)
	{
		var_env = _strdup(shdata->_environ[i]);
		name_env = _strtok(var_env, "=");
		if (_strcmp(name_env, shdata->args[1]) == 0)
		{
			k = i;
		}
		free(var_env);
	}

	if (k == -1)
	{
		error_code(shdata, -1);
		return (1);
	}

	realloc_environ = malloc(sizeof(char *) * (i));
	for (i = j = 0; shdata->_environ[i]; i++)
	{
		if (i != k)
		{
			realloc_environ[j] = shdata->_environ[i];
			j++;
		}
	}
	realloc_environ[j] = NULL;
	free(shdata->_environ[k]);
	free(shdata->_environ);

	shdata->_environ = realloc_environ;
	return (1);
}

/**
 * cmp_env_name - compares env variables names
 * with the name passed.
 * @nenv: name of the environment variable
 * @name: name passed
 *
 * Return: 0 if they are not equal, another value if they are.
 */
int cmp_env_name(const char *nenv, const char *name)
{
	int i;

	for (i = 0; nenv[i] != '='; i++)
	{
		if (nenv[i] != name[i])
		{
			return (0);
		}
	}

	return (i + 1);
}