diff options
| author | davygrvy <davygrvy@pobox.com> | 2002-02-12 14:22:09 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2002-02-12 14:22:09 (GMT) |
| commit | de72c79290dc40def3b8de1d7256b060d965ce7e (patch) | |
| tree | e271264a7d2a240921b9f282ebbb0ac8b72c1f73 /unix/tclUnixInit.c | |
| parent | 13191824d02cbbc7920899e1c1f0ee85841e6d3a (diff) | |
| download | tcl-de72c79290dc40def3b8de1d7256b060d965ce7e.zip tcl-de72c79290dc40def3b8de1d7256b060d965ce7e.tar.gz tcl-de72c79290dc40def3b8de1d7256b060d965ce7e.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) { |