1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include <stdlib.h>
#include <string.h>
#define import_xnames
#include "bootlib.h"
#define SZ_VALUE SZ_COMMAND
#ifdef NOVOS
/* OS_PUTENV -- Set the value of the named environment variable.
*/
void
os_putenv (
char *name,
char *value
)
{
char buf[SZ_VALUE], *env;
sprintf (buf, "%s=%s", name, value);
if ( (env = (char *) malloc (strlen(buf) + 1)) ) {
strcpy (env, buf);
#ifdef ultrix
putenv (env); /* must keep env around. */
#else
#ifdef vax
setenv (name, value, 1);
#else
putenv (env); /* must keep env around. */
#endif
#endif
}
}
#else
/* OS_PUTENV -- Set the value of the named environment variable.
*/
void
os_putenv (
char *name,
char *value
)
{
XCHAR x_name[SZ_FNAME+1];
XCHAR x_value[SZ_VALUE+1];
char buf[SZ_VALUE], *env;
extern void ENVRESET();
/* Set the VOS environment. */
os_strupk (name, x_name, SZ_FNAME);
os_strupk (value, x_value, SZ_VALUE);
ENVRESET (x_name, x_value);
/* Set the HOST environment. */
sprintf (buf, "%s=%s", name, value);
if ( (env = (char *) malloc (strlen(buf) + 1)) ) {
strcpy (env, buf);
#ifdef ultrix
putenv (env);
#else
#ifdef vax
setenv (name, value, 1);
#else
putenv (env); /* must keep env around. */
#endif
#endif
}
}
#endif
|
