diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 62 |
1 files changed, 45 insertions, 17 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 3844e16..a817bd9 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.218 2006/11/15 20:08:42 dgp Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.219 2006/11/20 14:28:02 dkf Exp $ */ #include "tclInt.h" @@ -83,7 +83,7 @@ static void MathFuncWrongNumArgs (Tcl_Interp* interp, int expected, extern TclStubs tclStubs; /* - * The following structure defines the commands in the Tcl core. + * The following structures define the commands in the Tcl core. */ typedef struct { @@ -94,12 +94,20 @@ typedef struct { * safe interpreter. Otherwise it will be * hidden. */ } CmdInfo; +typedef struct { + const char *name; /* Name of object-based command. */ + const char *name2; /* Name of secondary object-based command. */ + Tcl_ObjCmdProc *objProc; /* Object-based function for command. */ + int isSafe; /* If non-zero, command will be present in + * safe interpreter. Otherwise it will be + * hidden. */ +} CmdInfo2; /* * The built-in commands, and the functions that implement them: */ -static CmdInfo builtInCmds[] = { +static const CmdInfo builtInCmds[] = { /* * Commands in the generic core. */ @@ -119,8 +127,6 @@ static CmdInfo builtInCmds[] = { {"eval", Tcl_EvalObjCmd, NULL, 1}, {"exit", Tcl_ExitObjCmd, NULL, 0}, {"expr", Tcl_ExprObjCmd, TclCompileExprCmd, 1}, - {"fcopy", Tcl_FcopyObjCmd, NULL, 1}, - {"fileevent", Tcl_FileEventObjCmd, NULL, 1}, {"for", Tcl_ForObjCmd, TclCompileForCmd, 1}, {"foreach", Tcl_ForeachObjCmd, TclCompileForeachCmd, 1}, {"format", Tcl_FormatObjCmd, NULL, 1}, @@ -171,22 +177,12 @@ static CmdInfo builtInCmds[] = { #ifndef TCL_GENERIC_ONLY {"after", Tcl_AfterObjCmd, NULL, 1}, {"cd", Tcl_CdObjCmd, NULL, 0}, - {"close", Tcl_CloseObjCmd, NULL, 1}, - {"eof", Tcl_EofObjCmd, NULL, 1}, - {"fblocked", Tcl_FblockedObjCmd, NULL, 1}, - {"fconfigure", Tcl_FconfigureObjCmd, NULL, 0}, {"file", Tcl_FileObjCmd, NULL, 0}, - {"flush", Tcl_FlushObjCmd, NULL, 1}, - {"gets", Tcl_GetsObjCmd, NULL, 1}, {"glob", Tcl_GlobObjCmd, NULL, 0}, {"open", Tcl_OpenObjCmd, NULL, 0}, {"pid", Tcl_PidObjCmd, NULL, 1}, - {"puts", Tcl_PutsObjCmd, NULL, 1}, {"pwd", Tcl_PwdObjCmd, NULL, 0}, - {"read", Tcl_ReadObjCmd, NULL, 1}, - {"seek", Tcl_SeekObjCmd, NULL, 1}, {"socket", Tcl_SocketObjCmd, NULL, 0}, - {"tell", Tcl_TellObjCmd, NULL, 1}, {"time", Tcl_TimeObjCmd, NULL, 1}, {"update", Tcl_UpdateObjCmd, NULL, 1}, {"vwait", Tcl_VwaitObjCmd, NULL, 1}, @@ -196,6 +192,24 @@ static CmdInfo builtInCmds[] = { {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}, + {"fconfigure", "::tcl::chan::configure", Tcl_FconfigureObjCmd, 0}, + {"flush", "::tcl::chan::flush", Tcl_FlushObjCmd, 1}, + {"gets", "::tcl::chan::gets", Tcl_GetsObjCmd, 1}, + {"puts", "::tcl::chan::puts", Tcl_PutsObjCmd, 1}, + {"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} +}; + /* * Math functions */ @@ -206,7 +220,7 @@ typedef struct { Tcl_ObjCmdProc *objCmdProc; /* Function that evaluates the function */ ClientData clientData; /* Client data for the function */ } BuiltinFuncDef; -static BuiltinFuncDef BuiltinFuncTable[] = { +static const BuiltinFuncDef BuiltinFuncTable[] = { { "abs", ExprAbsFunc, NULL }, { "acos", ExprUnaryFunc, (ClientData) acos }, { "asin", ExprUnaryFunc, (ClientData) asin }, @@ -262,8 +276,9 @@ Tcl_CreateInterp(void) Interp *iPtr; Tcl_Interp *interp; Command *cmdPtr; - BuiltinFuncDef *builtinFuncPtr; + const BuiltinFuncDef *builtinFuncPtr; const CmdInfo *cmdInfoPtr; + const CmdInfo2 *cmdInfo2Ptr; Tcl_Namespace *mathfuncNSPtr; union { char c[sizeof(short)]; @@ -501,6 +516,12 @@ Tcl_CreateInterp(void) TclClockInit(interp); + for (cmdInfo2Ptr=builtInCmds2; cmdInfo2Ptr->name!=NULL; cmdInfo2Ptr++) { + Tcl_CreateObjCommand(interp, cmdInfo2Ptr->name, cmdInfo2Ptr->objProc, + NULL, NULL); + Tcl_CreateObjCommand(interp, cmdInfo2Ptr->name2, cmdInfo2Ptr->objProc, + NULL, NULL); + } /* TIP #208 */ Tcl_CreateObjCommand(interp, "::tcl::chan::Truncate", TclChanTruncateObjCmd, (ClientData) NULL, NULL); @@ -632,6 +653,7 @@ TclHideUnsafeCommands( Tcl_Interp *interp) /* Hide commands in this interpreter. */ { register const CmdInfo *cmdInfoPtr; + register const CmdInfo2 *cmdInfo2Ptr; if (interp == NULL) { return TCL_ERROR; @@ -641,6 +663,12 @@ TclHideUnsafeCommands( Tcl_HideCommand(interp, cmdInfoPtr->name, cmdInfoPtr->name); } } + for (cmdInfo2Ptr=builtInCmds2; cmdInfo2Ptr->name!=NULL; cmdInfo2Ptr++) { + if (!cmdInfo2Ptr->isSafe) { + Tcl_HideCommand(interp, cmdInfo2Ptr->name, cmdInfo2Ptr->name); + Tcl_HideCommand(interp, cmdInfo2Ptr->name2, cmdInfo2Ptr->name2); + } + } return TCL_OK; } |