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: |
07324777f2f13e35a10a1c469384cde3 |
User & Date: | mistachkin 2016-01-17 23:00:41.149 |
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
Changes to src/th.c.
︙ | ︙ | |||
9 10 11 12 13 14 15 | #include <string.h> #include <assert.h> /* ** Values used for element values in the tcl_platform array. */ | | | | | | | 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(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. */ |
︙ | ︙ | |||
1781 1782 1783 1784 1785 1786 1787 | /* ** Initialize an interpreter. */ static int thInitialize(Th_Interp *interp){ assert(interp->pFrame); | | | | 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, TH_ENGINE, -1); Th_SetVar(interp, (char *)"::tcl_platform(platform)", -1, TH_PLATFORM, -1); return TH_OK; } /* ** Delete an interpreter. */ |
︙ | ︙ |