9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
-
-
+
+
-
+
-
+
-
+
|
#include <string.h>
#include <assert.h>
/*
** Values used for element values in the tcl_platform array.
*/
#if !defined(TH1_ENGINE)
# define TH1_ENGINE "TH1"
#if !defined(TH_ENGINE)
# define TH_ENGINE "TH1"
#endif
#if !defined(TH1_PLATFORM)
#if !defined(TH_PLATFORM)
# if defined(_WIN32) || defined(WIN32)
# define TH1_PLATFORM "windows"
# define TH_PLATFORM "windows"
# else
# define TH1_PLATFORM "unix"
# define TH_PLATFORM "unix"
# endif
#endif
/*
** Forward declarations for structures defined below.
*/
|
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
|
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
|
-
-
+
+
|
/*
** Initialize an interpreter.
*/
static int thInitialize(Th_Interp *interp){
assert(interp->pFrame);
Th_SetVar(interp, (char *)"::tcl_platform(engine)", -1, TH1_ENGINE, -1);
Th_SetVar(interp, (char *)"::tcl_platform(platform)", -1, TH1_PLATFORM, -1);
Th_SetVar(interp, (char *)"::tcl_platform(engine)", -1, TH_ENGINE, -1);
Th_SetVar(interp, (char *)"::tcl_platform(platform)", -1, TH_PLATFORM, -1);
return TH_OK;
}
/*
** Delete an interpreter.
*/
|