From e90fcc54809db2591dc083f43ef54c6ec8c60847 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 18:16:13 +0200 Subject: Adding upstream version 4.96. Signed-off-by: Daniel Baumann --- src/setenv.c | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 58 insertions(+) create mode 100644 src/setenv.c (limited to 'src/setenv.c') diff --git a/src/setenv.c b/src/setenv.c new file mode 100644 index 0000000..90e6793 --- /dev/null +++ b/src/setenv.c @@ -0,0 +1,58 @@ +/************************************************* +* Exim - an Internet mail transport agent * +*************************************************/ + +/* Copyright (c) Michael Haardt 2015 + * Copyright (c) Jeremy Harris 2015 - 2016 + * Copyright (c) The Exim Maintainers 2016 */ +/* See the file NOTICE for conditions of use and distribution. */ + +/* This module provides (un)setenv routines for those environments +lacking them in libraries. It is #include'd by OS/os.c-foo files. */ + + +int +setenv(const char * name, const char * val, int overwrite) +{ +uschar * s; +if (Ustrchr(name, '=')) return -1; +if (overwrite || !getenv(name)) + putenv(CS string_copy_perm(string_sprintf("%s=%s", name, val), FALSE)); +return 0; +} + +int +unsetenv(const char *name) +{ +size_t len; +const char * end; +extern char ** environ; + +if (!name) + { + errno = EINVAL; + return -1; + } + +if (!environ) + return 0; + +for (end = name; *end != '=' && *end; ) end++; +len = end - name; + +/* Find name in environment and move remaining variables down. +Do not early-out in case there are duplicate names. */ + +for (char ** e = environ; *e; e++) + if (strncmp(*e, name, len) == 0 && (*e)[len] == '=') + { + char ** sp = e; + do *sp = sp[1]; while (*++sp); + } + +return 0; +} + +/* vi: aw ai sw=2 +*/ +/* End of setenv.c */ -- cgit v1.2.3