diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-09-05 21:31:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-09-05 21:31:01 (GMT) |
| commit | 3ba6d8349dcdfb6638956648ba6800f8255c29e8 (patch) | |
| tree | e1c80edc7a685448f24059f26524a5a378ce8cb9 /generic/tclBasic.c | |
| parent | c4b8fc25c68476800d7e9a8a872844807666a46b (diff) | |
| download | tcl-3ba6d8349dcdfb6638956648ba6800f8255c29e8.zip tcl-3ba6d8349dcdfb6638956648ba6800f8255c29e8.tar.gz tcl-3ba6d8349dcdfb6638956648ba6800f8255c29e8.tar.bz2 | |
* generic/tclBasic.c: Removed support for the unmaintained
* generic/tclExecute.c: -DTCL_GENERIC_ONLY configuration. [Bug 1264623]
* unix/Makefile.in:
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index cea8816..3babbf9 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.266 2007/08/28 16:24:28 dgp Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.267 2007/09/05 21:31:01 dgp Exp $ */ #include "tclInt.h" @@ -186,7 +186,6 @@ static const CmdInfo builtInCmds[] = { * Commands in the UNIX core: */ -#ifndef TCL_GENERIC_ONLY {"after", Tcl_AfterObjCmd, NULL, 1}, {"cd", Tcl_CdObjCmd, NULL, 0}, {"file", Tcl_FileObjCmd, NULL, 0}, @@ -200,14 +199,12 @@ static const CmdInfo builtInCmds[] = { {"vwait", Tcl_VwaitObjCmd, NULL, 1}, {"exec", Tcl_ExecObjCmd, NULL, 0}, {"source", Tcl_SourceObjCmd, NULL, 0}, -#endif /* TCL_GENERIC_ONLY */ {NULL, NULL, NULL, 0} }; static const CmdInfo2 builtInCmds2[] = { {"fileevent", "::tcl::chan::event", Tcl_FileEventObjCmd, 1}, {"fcopy", "::tcl::chan::copy", Tcl_FcopyObjCmd, 1}, -#ifndef TCL_GENERIC_ONLY {"close", "::tcl::chan::close", Tcl_CloseObjCmd, 1}, {"eof", "::tcl::chan::eof", Tcl_EofObjCmd, 1}, {"fblocked", "::tcl::chan::blocked", Tcl_FblockedObjCmd, 1}, @@ -218,7 +215,6 @@ static const CmdInfo2 builtInCmds2[] = { {"read", "::tcl::chan::read", Tcl_ReadObjCmd, 1}, {"seek", "::tcl::chan::seek", Tcl_SeekObjCmd, 1}, {"tell", "::tcl::chan::tell", Tcl_TellObjCmd, 1}, -#endif /* TCL_GENERIC_ONLY */ {NULL, NULL, 0} }; @@ -705,10 +701,7 @@ Tcl_CreateInterp(void) */ TclInterpInit(interp); - -#ifndef TCL_GENERIC_ONLY TclSetupEnv(interp); -#endif /* * TIP #59: Make embedded configuration information |