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
73
74
75
76
77
78
79
80
81
82
83
|
/* Allan CORNET INRIA 2005 */
#include "../machine.h"
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#ifdef WITH_TK
#include "../tclsci/TCL_Global.h"
#endif
#ifdef WIN32
#include "../os_specific/win_mem_alloc.h" /* MALLOC */
#else
#include "../os_specific/sci_mem_alloc.h" /* MALLOC */
#endif
#ifdef WIN32
static char *env=NULL;
#endif
int UpdateEnvVar=0;
/*-----------------------------------------------------------------------------------*/
#ifdef WITH_TK
int setenvtcl(char *string,char *value)
{
int bOK=FALSE;
char MyTclCommand[2048];
sprintf(MyTclCommand,"env(%s)",string);
if (TCLinterp==NULL) return((int)FALSE);
if ( !Tcl_SetVar(TCLinterp,MyTclCommand, value, TCL_GLOBAL_ONLY) )
{
bOK=(int)(FALSE);
}
else
{
bOK=(int)(TRUE);
}
return bOK;
}
#endif
/*-----------------------------------------------------------------------------------*/
/* returns 0 if there is a problem else 1 */
int setenvc(char *string,char *value)
{
#define TRUE 1
#define FALSE 0
int ret=0;
char* env;
#if linux
if ( setenv(string,value,1) ) ret=FALSE;
else
{
ret=TRUE;
UpdateEnvVar=1;
}
#else /* others HP Solaris WIN32*/
env=(char*)MALLOC((strlen(string)+strlen(value)+2)*sizeof(char));
sprintf(env,"%s=%s",string,value);
if ( putenv(env) ) ret=FALSE;
else
{
#ifdef WITH_TK
setenvtcl(string,value);
#endif
ret=TRUE;
UpdateEnvVar=1;
}
#ifdef WIN32
if (env)
{
FREE(env);
env=NULL;
}
#endif
#endif
return ret;
}
|
