summaryrefslogtreecommitdiff
path: root/lisp/env.c
diff options
context:
space:
mode:
authorpcpa <paulo.cesar.pereira.de.andrade@gmail.com>2012-05-24 14:40:35 -0300
committerAlan Coopersmith <alan.coopersmith@oracle.com>2012-05-31 23:00:34 -0700
commitc110109f1710758d7c87c05720bdff4df316fc7d (patch)
treefb0717e57a29f7c82458a615ca6a97a5bad3707b /lisp/env.c
parentb6927e08121d5ccd9ef061ec0c393a7e23220114 (diff)
Update fallback implementation of missing libc functions
This commit updates realpath.c from http://www.openbsd.org/cgi-bin/cvsweb/src/lib/libc/stdlib/realpath.c?rev=1.14;content-type=text/plain and lisp/env.c from http://www.openbsd.org/cgi-bin/cvsweb/src/lib/libc/stdlib/getenv.c?rev=1.10;content-type=text/plain and http://www.openbsd.org/cgi-bin/cvsweb/src/lib/libc/stdlib/setenv.c?rev=1.13;content-type=text/plain The update reason is to replace files under "4 clause BSD", that is considered problematic or require special documentation notation or conditions when redistributing free software. Signed-off-by: pcpa <paulo.cesar.pereira.de.andrade@gmail.com> Signed-off-by: Alan Coopersmith <alan.coopersmith@oracle.com>
Diffstat (limited to 'lisp/env.c')
-rw-r--r--lisp/env.c151
1 files changed, 0 insertions, 151 deletions
diff --git a/lisp/env.c b/lisp/env.c
deleted file mode 100644
index e87793a..0000000
--- a/lisp/env.c
+++ /dev/null
@@ -1,151 +0,0 @@
-/*
- * Provide setenv() and unsetenv() on platforms that don't have them.
- * From FreeBSD's libc.
- */
-
-/*
- * Copyright (c) 1987, 1993
- * The Regents of the University of California. All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- * must display the following acknowledgement:
- * This product includes software developed by the University of
- * California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
- * may be used to endorse or promote products derived from this software
- * without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- */
-
-/* $XFree86$ */
-
-
-#include <stdlib.h>
-#include <stddef.h>
-#include <string.h>
-
-extern char **environ;
-
-extern int setenv(const char *name, const char *value, int overwrite);
-extern void unsetenv(const char *name);
-
-static char *
-findenv(const char *name, int *offset)
-{
- int len, i;
- const char *np;
- char **p, *cp;
-
- if (name == NULL || environ == NULL)
- return NULL;
-
- for (np = name; *np && *np != '='; ++np)
- continue;
- len = np - name;
- for (p = environ; (cp = *p) != NULL; ++p) {
- for (np = name, i = len; i && *cp; i--)
- if (*cp++ != *np++)
- break;
- if (i == 0 && *cp++ == '=') {
- *offset = p - environ;
- return cp;
- }
- }
- return NULL;
-}
-
-/*
- * setenv --
- * Set the value of the environmental variable "name" to be
- * "value". If overwrite is set, replace any current value.
- */
-
-int
-setenv(const char *name, const char *value, int overwrite)
-{
- static char **alloced; /* if allocated space before */
- char *c;
- int l_value, offset;
-
- if (*value == '=') /* no '=' in value */
- ++value;
- l_value = strlen(value);
- if ((c = findenv(name, &offset))) { /* find if already exists */
- if (!overwrite)
- return 0;
- if (strlen(c) >= l_value) { /* old larger; copy over */
- while ((*c++ = *value++))
- ;
- return 0;
- }
- } else { /* create new slot */
- int cnt;
- char **p;
-
- for (p = environ, cnt = 0; *p; ++p, ++cnt)
- ;
- if (alloced == environ) { /* just increase size */
- p = (char **)realloc((char *)environ,
- sizeof(char *) * (cnt + 2));
- if (!p)
- return -1;
- alloced = environ = p;
- } else { /* get new space */
- /* copy old entries into it */
- p = malloc(sizeof(char *) * (cnt + 2));
- if (!p)
- return -1;
- memcpy(p, environ, cnt * sizeof(char *));
- alloced = environ = p;
- }
- environ[cnt + 1] = NULL;
- offset = cnt;
- }
- for (c = (char *)name; *c && *c != '='; ++c) /* no '=' in name */
- ;
- if (!(environ[offset] = /* name + '=' + value */
- malloc((int)(c - name) + l_value + 2)))
- return -1;
- for (c = environ[offset]; (*c = *name++) && *c != '='; ++c)
- ;
- for (*c++ = '='; (*c++ = *value++); )
- ;
- return 0;
-}
-
-/*
- * unsetenv(name) --
- * Delete environmental variable "name".
- */
-
-void
-unsetenv(const char *name)
-{
- char **p;
- int offset;
-
- while (findenv(name, &offset)) /* if set multiple times */
- for (p = &environ[offset];; ++p)
- if (!(*p = *(p + 1)))
- break;
-}
-