Fossil

Check-in [07324777]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Minor naming tweak.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tclPlatform
Files: files | file ages | folders
SHA1:07324777f2f13e35a10a1c469384cde3dce01bfa
User & Date: mistachkin 2016-01-17 23:00:41
Context
2016-01-18
01:42
Update TH1 docs. check-in: d4bdaeab user: mistachkin tags: tclPlatform
2016-01-17
23:00
Minor naming tweak. check-in: 07324777 user: mistachkin tags: tclPlatform
22:17
Add support for the tcl_platform(platform) and tcl_platform(engine) array elements to TH1. check-in: 663b722e user: mistachkin tags: tclPlatform
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/th.c.

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
....
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
#include <string.h>
#include <assert.h>

/*
** Values used for element values in the tcl_platform array.
*/

#if !defined(TH1_ENGINE)
#  define TH1_ENGINE         "TH1"
#endif

#if !defined(TH1_PLATFORM)
#  if defined(_WIN32) || defined(WIN32)
#    define TH1_PLATFORM     "windows"
#  else
#    define TH1_PLATFORM     "unix"
#  endif
#endif

/*
** Forward declarations for structures defined below.
*/

................................................................................

/*
** 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);

  return TH_OK;
}

/*
** Delete an interpreter.
*/







|
|


|

|

|







 







|
|







9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
....
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
#include <string.h>
#include <assert.h>

/*
** Values used for element values in the tcl_platform array.
*/

#if !defined(TH_ENGINE)
#  define TH_ENGINE          "TH1"
#endif

#if !defined(TH_PLATFORM)
#  if defined(_WIN32) || defined(WIN32)
#    define TH_PLATFORM      "windows"
#  else
#    define TH_PLATFORM      "unix"
#  endif
#endif

/*
** Forward declarations for structures defined below.
*/

................................................................................

/*
** Initialize an interpreter.
*/
static int thInitialize(Th_Interp *interp){
  assert(interp->pFrame);

  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.
*/