Fossil SCM
Minor naming tweak.
Commit
07324777f2f13e35a10a1c469384cde3dce01bfa
Parent
663b722e270738a…
1 file changed
+7
-7
M
src/th.c
+7
-7
| --- src/th.c | ||
| +++ src/th.c | ||
| @@ -11,19 +11,19 @@ | ||
| 11 | 11 | |
| 12 | 12 | /* |
| 13 | 13 | ** Values used for element values in the tcl_platform array. |
| 14 | 14 | */ |
| 15 | 15 | |
| 16 | -#if !defined(TH1_ENGINE) | |
| 17 | -# define TH1_ENGINE "TH1" | |
| 16 | +#if !defined(TH_ENGINE) | |
| 17 | +# define TH_ENGINE "TH1" | |
| 18 | 18 | #endif |
| 19 | 19 | |
| 20 | -#if !defined(TH1_PLATFORM) | |
| 20 | +#if !defined(TH_PLATFORM) | |
| 21 | 21 | # if defined(_WIN32) || defined(WIN32) |
| 22 | -# define TH1_PLATFORM "windows" | |
| 22 | +# define TH_PLATFORM "windows" | |
| 23 | 23 | # else |
| 24 | -# define TH1_PLATFORM "unix" | |
| 24 | +# define TH_PLATFORM "unix" | |
| 25 | 25 | # endif |
| 26 | 26 | #endif |
| 27 | 27 | |
| 28 | 28 | /* |
| 29 | 29 | ** Forward declarations for structures defined below. |
| @@ -1783,12 +1783,12 @@ | ||
| 1783 | 1783 | ** Initialize an interpreter. |
| 1784 | 1784 | */ |
| 1785 | 1785 | static int thInitialize(Th_Interp *interp){ |
| 1786 | 1786 | assert(interp->pFrame); |
| 1787 | 1787 | |
| 1788 | - Th_SetVar(interp, (char *)"::tcl_platform(engine)", -1, TH1_ENGINE, -1); | |
| 1789 | - Th_SetVar(interp, (char *)"::tcl_platform(platform)", -1, TH1_PLATFORM, -1); | |
| 1788 | + Th_SetVar(interp, (char *)"::tcl_platform(engine)", -1, TH_ENGINE, -1); | |
| 1789 | + Th_SetVar(interp, (char *)"::tcl_platform(platform)", -1, TH_PLATFORM, -1); | |
| 1790 | 1790 | |
| 1791 | 1791 | return TH_OK; |
| 1792 | 1792 | } |
| 1793 | 1793 | |
| 1794 | 1794 | /* |
| 1795 | 1795 |
| --- src/th.c | |
| +++ src/th.c | |
| @@ -11,19 +11,19 @@ | |
| 11 | |
| 12 | /* |
| 13 | ** Values used for element values in the tcl_platform array. |
| 14 | */ |
| 15 | |
| 16 | #if !defined(TH1_ENGINE) |
| 17 | # define TH1_ENGINE "TH1" |
| 18 | #endif |
| 19 | |
| 20 | #if !defined(TH1_PLATFORM) |
| 21 | # if defined(_WIN32) || defined(WIN32) |
| 22 | # define TH1_PLATFORM "windows" |
| 23 | # else |
| 24 | # define TH1_PLATFORM "unix" |
| 25 | # endif |
| 26 | #endif |
| 27 | |
| 28 | /* |
| 29 | ** Forward declarations for structures defined below. |
| @@ -1783,12 +1783,12 @@ | |
| 1783 | ** Initialize an interpreter. |
| 1784 | */ |
| 1785 | static int thInitialize(Th_Interp *interp){ |
| 1786 | assert(interp->pFrame); |
| 1787 | |
| 1788 | Th_SetVar(interp, (char *)"::tcl_platform(engine)", -1, TH1_ENGINE, -1); |
| 1789 | Th_SetVar(interp, (char *)"::tcl_platform(platform)", -1, TH1_PLATFORM, -1); |
| 1790 | |
| 1791 | return TH_OK; |
| 1792 | } |
| 1793 | |
| 1794 | /* |
| 1795 |
| --- src/th.c | |
| +++ src/th.c | |
| @@ -11,19 +11,19 @@ | |
| 11 | |
| 12 | /* |
| 13 | ** Values used for element values in the tcl_platform array. |
| 14 | */ |
| 15 | |
| 16 | #if !defined(TH_ENGINE) |
| 17 | # define TH_ENGINE "TH1" |
| 18 | #endif |
| 19 | |
| 20 | #if !defined(TH_PLATFORM) |
| 21 | # if defined(_WIN32) || defined(WIN32) |
| 22 | # define TH_PLATFORM "windows" |
| 23 | # else |
| 24 | # define TH_PLATFORM "unix" |
| 25 | # endif |
| 26 | #endif |
| 27 | |
| 28 | /* |
| 29 | ** Forward declarations for structures defined below. |
| @@ -1783,12 +1783,12 @@ | |
| 1783 | ** Initialize an interpreter. |
| 1784 | */ |
| 1785 | static int thInitialize(Th_Interp *interp){ |
| 1786 | assert(interp->pFrame); |
| 1787 | |
| 1788 | Th_SetVar(interp, (char *)"::tcl_platform(engine)", -1, TH_ENGINE, -1); |
| 1789 | Th_SetVar(interp, (char *)"::tcl_platform(platform)", -1, TH_PLATFORM, -1); |
| 1790 | |
| 1791 | return TH_OK; |
| 1792 | } |
| 1793 | |
| 1794 | /* |
| 1795 |