#ifdef IN_RTS
#include "tconfig.h"
#include "tsystem.h"
#include <sys/stat.h>
#include <fcntl.h>
#include <time.h>
#ifdef VMS
#include <unixio.h>
#endif
#if defined (__APPLE__)
#include <crt_externs.h>
#endif
#if defined (__MINGW32__)
#include <stdlib.h>
#endif
#if defined (__vxworks) && ! (defined (__RTP__) || defined (__COREOS__))
#include "envLib.h"
extern char** ppGlobalEnviron;
#endif
#define xmalloc(S) malloc (S)
#else
#include "config.h"
#include "system.h"
#endif
#include "env.h"
void
__gnat_getenv (char *name, int *len, char **value)
{
*value = getenv (name);
if (!*value)
*len = 0;
else
*len = strlen (*value);
return;
}
#ifdef VMS
static char *to_host_path_spec (char *);
struct descriptor_s
{
unsigned short len, mbz;
__char_ptr32 adr;
};
typedef struct _ile3
{
unsigned short len, code;
__char_ptr32 adr;
unsigned short *retlen_adr;
} ile_s;
#endif
void
__gnat_setenv (char *name, char *value)
{
#ifdef MSDOS
#elif defined (VMS)
struct descriptor_s name_desc;
struct descriptor_s table_desc = {7, 0, "LNM$JOB"};
char *host_pathspec = value;
char *copy_pathspec;
int num_dirs_in_pathspec = 1;
char *ptr;
long status;
name_desc.len = strlen (name);
name_desc.mbz = 0;
name_desc.adr = name;
if (*host_pathspec == 0)
{
status = LIB$DELETE_LOGICAL (&name_desc, &table_desc);
return;
}
ptr = host_pathspec;
while (*ptr++)
if (*ptr == ',')
num_dirs_in_pathspec++;
{
int i, status;
ile_s *ile_array = alloca (sizeof (ile_s) * (num_dirs_in_pathspec + 1));
char *copy_pathspec = alloca (strlen (host_pathspec) + 1);
char *curr, *next;
strcpy (copy_pathspec, host_pathspec);
curr = copy_pathspec;
for (i = 0; i < num_dirs_in_pathspec; i++)
{
next = strchr (curr, ',');
if (next == 0)
next = strchr (curr, 0);
*next = 0;
ile_array[i].len = strlen (curr);
ile_array[i].code = 2;
ile_array[i].adr = curr;
ile_array[i].retlen_adr = 0;
curr = next + 1;
}
ile_array[i].len = 0;
ile_array[i].code = 0;
ile_array[i].adr = 0;
ile_array[i].retlen_adr = 0;
status = LIB$SET_LOGICAL (&name_desc, 0, &table_desc, 0, ile_array);
if ((status & 1) != 1)
LIB$SIGNAL (status);
}
#elif defined (__vxworks) && defined (__RTP__)
setenv (name, value, 1);
#else
size_t size = strlen (name) + strlen (value) + 2;
char *expression;
expression = (char *) xmalloc (size * sizeof (char));
sprintf (expression, "%s=%s", name, value);
putenv (expression);
#if defined (__FreeBSD__) || defined (__APPLE__) || defined (__MINGW32__) \
||(defined (__vxworks) && ! defined (__RTP__))
free (expression);
#endif
#endif
}
char **
__gnat_environ (void)
{
#if defined (VMS)
return NULL;
#elif defined (__APPLE__)
char ***result = _NSGetEnviron ();
return *result;
#elif defined (__MINGW32__)
return _environ;
#elif defined (sun)
extern char **_environ;
return _environ;
#else
#if ! (defined (__vxworks) && ! (defined (__RTP__) || defined (__COREOS__)))
extern char **environ;
#endif
return environ;
#endif
}
void __gnat_unsetenv (char *name) {
#if defined (VMS)
return;
#elif defined (__hpux__) || defined (sun) \
|| (defined (__mips) && defined (__sgi)) \
|| (defined (__vxworks) && ! defined (__RTP__)) \
|| defined (_AIX)
char **env = __gnat_environ ();
int index = 0;
size_t size = strlen (name);
while (env[index] != NULL) {
if (strlen (env[index]) > size) {
if (strstr (env[index], name) == env[index] &&
env[index][size] == '=') {
#if defined (__vxworks) && ! defined (__RTP__)
free (env[index]);
#endif
while (env[index] != NULL) {
env[index]=env[index + 1];
index++;
}
} else
index++;
} else
index++;
}
#elif defined (__MINGW32__)
size_t size = strlen (name) + 2;
char *expression;
expression = (char *) xmalloc (size * sizeof (char));
sprintf (expression, "%s=", name);
putenv (expression);
free (expression);
#else
unsetenv (name);
#endif
}
void __gnat_clearenv (void) {
#if defined (VMS)
return;
#elif defined (sun) || (defined (__mips) && defined (__sgi)) \
|| (defined (__vxworks) && ! defined (__RTP__)) || defined (__Lynx__)
char **env = __gnat_environ ();
int index = 0;
while (env[index] != NULL) {
env[index]=NULL;
index++;
}
#elif defined (__MINGW32__) || defined (__FreeBSD__) || defined (__APPLE__) \
|| (defined (__vxworks) && defined (__RTP__)) || defined (__CYGWIN__)
char **env = __gnat_environ ();
size_t size;
while (env[0] != NULL) {
size = 0;
while (env[0][size] != '=')
size++;
size++;
{
char expression[size];
strncpy (expression, env[0], size);
expression[size - 1] = 0;
__gnat_unsetenv (expression);
}
}
#else
clearenv ();
#endif
}