diff options
| author | Joe Mistachkin <joe@mistachkin.com> | 2016-01-14 23:55:45 (GMT) |
|---|---|---|
| committer | Joe Mistachkin <joe@mistachkin.com> | 2016-01-14 23:55:45 (GMT) |
| commit | 247529b2e2220a8d411a33788f9e7be3828d12a6 (patch) | |
| tree | d220ba0a84d8cb7972d41cad1b14106f5c98b4c4 | |
| parent | 7b79011075ebaea03aecd04ccb351f56681469a4 (diff) | |
| download | tcl-247529b2e2220a8d411a33788f9e7be3828d12a6.zip tcl-247529b2e2220a8d411a33788f9e7be3828d12a6.tar.gz tcl-247529b2e2220a8d411a33788f9e7be3828d12a6.tar.bz2 | |
Add the tcl_platform(engine) element, TIP to be written.
| -rw-r--r-- | generic/tclBasic.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 5c5bc64..0bb43cc 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -916,6 +916,13 @@ Tcl_CreateInterp(void) TclInitEmbeddedConfigurationInformation(interp); /* + * TIP #XXX: Declare the name of the script engine to be "Tcl". + */ + + Tcl_SetVar2(interp, "tcl_platform", "engine", "Tcl", + TCL_GLOBAL_ONLY); + + /* * Compute the byte order of this machine. */ |