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/tclAppInit.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/tclAppInit.c')
| -rw-r--r-- | unix/tclAppInit.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c index bc5b44c..55893b7 100644 --- a/unix/tclAppInit.c +++ b/unix/tclAppInit.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAppInit.c,v 1.9 2000/04/18 23:06:39 hobbs Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.10 2002/02/12 14:23:33 davygrvy Exp $ */ #include "tcl.h" @@ -177,6 +177,10 @@ Tcl_AppInit(interp) * then no user-specific startup file will be run under any conditions. */ +#ifdef DJGPP + Tcl_SetVar(interp, "tcl_rcFileName", "~/tclsh.rc", TCL_GLOBAL_ONLY); +#else Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclshrc", TCL_GLOBAL_ONLY); +#endif return TCL_OK; } |