diff options
| author | davygrvy@pobox.com <davygrvy> | 2002-02-12 14:22:09 (GMT) |
|---|---|---|
| committer | davygrvy@pobox.com <davygrvy> | 2002-02-12 14:22:09 (GMT) |
| commit | e81715002384029bc5cc860ce5afcd153cdb125d (patch) | |
| tree | e271264a7d2a240921b9f282ebbb0ac8b72c1f73 /unix/tclUnixInit.c | |
| parent | 6d75d4cc8858f8fff8dc530009e9d27509f02478 (diff) | |
| download | tcl-e81715002384029bc5cc860ce5afcd153cdb125d.zip tcl-e81715002384029bc5cc860ce5afcd153cdb125d.tar.gz tcl-e81715002384029bc5cc860ce5afcd153cdb125d.tar.bz2 | |
* djgpp/ (new directory)
* djgpp/Makefile (new):
* unix/tclAppInit.c:
* unix/tclMtherr.c:
* unix/tclUnixFCmd.c:
* unix/tclUnixFile.c:
* unix/tclUnixInit.c:
* unix/tclUnixPort.h: Early stage of DJGPP support for building
Tcl on DOS. Dynamic loading isn't working, yet. Requires watt32
for the TCP/IP stack. No autoconf, yet. Barely tested, but
makes a working exe that runs Tcl in protected-mode, flat memory.
[exec] and pipes will need the most work as multi-tasking on DOS
has to be carefully.
Diffstat (limited to 'unix/tclUnixInit.c')
| -rw-r--r-- | unix/tclUnixInit.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index 309260f..e0f202d 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -7,7 +7,7 @@ * Copyright (c) 1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclUnixInit.c,v 1.30 2002/02/08 02:52:54 dgp Exp $ + * RCS: @(#) $Id: tclUnixInit.c,v 1.31 2002/02/12 14:31:54 davygrvy Exp $ */ #include "tclInt.h" @@ -682,7 +682,11 @@ TclpSetVariables(interp) Tcl_SetVar(interp, "tclDefaultLibrary", defaultLibraryDir, TCL_GLOBAL_ONLY); Tcl_SetVar(interp, "tcl_pkgPath", pkgPath, TCL_GLOBAL_ONLY); +#ifdef DJGPP + Tcl_SetVar2(interp, "tcl_platform", "platform", "dos", TCL_GLOBAL_ONLY); +#else Tcl_SetVar2(interp, "tcl_platform", "platform", "unix", TCL_GLOBAL_ONLY); +#endif unameOK = 0; #ifndef NO_UNAME if (uname(&name) >= 0) { |