diff options
| -rw-r--r-- | generic/tcl.h | 37 | ||||
| -rw-r--r-- | generic/tclCmdIL.c | 42 | ||||
| -rw-r--r-- | generic/tclNamesp.c | 25 | ||||
| -rw-r--r-- | generic/tclVar.c | 10 |
4 files changed, 56 insertions, 58 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 1a44df7..34fb82f 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.57 1999/08/10 23:16:25 redman Exp $ + * RCS: @(#) $Id: tcl.h,v 1.58 1999/10/05 22:45:39 hobbs Exp $ */ #ifndef _TCL @@ -38,28 +38,27 @@ extern "C" { * When version numbers change here, must also go into the following files * and update the version numbers: * - * library/init.tcl (only if major.minor changes, not patchlevel) - * unix/configure.in - * win/configure.in (only if major.minor changes, not patchlevel) - * win/makefile.bc (only if major.minor changes, not patchlevel) - * win/makefile.vc (only if major.minor changes, not patchlevel) - * win/pkgIndex.tcl (for tclregNN.dll, not patchlevel) - * README - * mac/README - * win/README.binary - * win/README (only if major.minor changes, not patchlevel) - * unix/README (only if major.minor changes, not patchlevel) - * tools/tcl.hpj.in (for windows installer) + * library/init.tcl (only if Major.minor changes, not patchlevel) 1 LOC + * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) + * win/configure.in (as above) + * win/makefile.vc (not patchlevel) 2 LOC + * win/pkgIndex.tcl (not patchlevel, for tclregNN.dll) + * README (sections 0 and 2) + * mac/README (2 LOC) + * win/README.binary (sections 0-4) + * win/README (not patchlevel) (sections 0 and 2) + * unix/README (not patchlevel) (part (h)) + * tools/tcl.hpj.in (not patchlevel, for windows installer) * tools/tcl.wse.in (for windows installer) */ #define TCL_MAJOR_VERSION 8 -#define TCL_MINOR_VERSION 2 -#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TCL_RELEASE_SERIAL 0 +#define TCL_MINOR_VERSION 3 +#define TCL_RELEASE_LEVEL TCL_ALPHA_RELEASE +#define TCL_RELEASE_SERIAL 1 -#define TCL_VERSION "8.2" -#define TCL_PATCH_LEVEL "8.2.0" +#define TCL_VERSION "8.3" +#define TCL_PATCH_LEVEL "8.3a1" /* * The following definitions set up the proper options for Windows @@ -681,7 +680,7 @@ typedef struct Tcl_SavedResult { /* * The following definitions support Tcl's namespace facility. * Note: the first five fields must match exactly the fields in a - * Namespace structure (see tcl.h). + * Namespace structure (see tclInt.h). */ typedef struct Tcl_Namespace { diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 49d9b77..c74278c 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.16 1999/09/21 04:20:40 hobbs Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.17 1999/10/05 22:45:40 hobbs Exp $ */ #include "tclInt.h" @@ -465,7 +465,7 @@ Tcl_InfoObjCmd(clientData, interp, objc, objv) * info args procName * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -527,7 +527,7 @@ InfoArgsCmd(dummy, interp, objc, objv) * info body procName * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -596,7 +596,7 @@ InfoBodyCmd(dummy, interp, objc, objv) * info cmdcount * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -638,7 +638,7 @@ InfoCmdCountCmd(dummy, interp, objc, objv) * info commands ?pattern? * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -764,7 +764,7 @@ InfoCommandsCmd(dummy, interp, objc, objv) * info complete command * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -806,7 +806,7 @@ InfoCompleteCmd(dummy, interp, objc, objv) * info default procName arg varName * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -890,7 +890,7 @@ InfoDefaultCmd(dummy, interp, objc, objv) * info exists varName * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -936,7 +936,7 @@ InfoExistsCmd(dummy, interp, objc, objv) * info globals ?pattern? * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1002,7 +1002,7 @@ InfoGlobalsCmd(dummy, interp, objc, objv) * info hostname * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1046,7 +1046,7 @@ InfoHostnameCmd(dummy, interp, objc, objv) * info level ?number? * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1120,7 +1120,7 @@ InfoLevelCmd(dummy, interp, objc, objv) * info library * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1165,7 +1165,7 @@ InfoLibraryCmd(dummy, interp, objc, objv) * info loaded ?interp? * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1210,7 +1210,7 @@ InfoLoadedCmd(dummy, interp, objc, objv) * info locals ?pattern? * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1339,7 +1339,7 @@ AppendLocals(interp, listPtr, pattern, includeLinks) * info nameofexecutable * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1382,7 +1382,7 @@ InfoNameOfExecutableCmd(dummy, interp, objc, objv) * info patchlevel * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1426,7 +1426,7 @@ InfoPatchLevelCmd(dummy, interp, objc, objv) * info procs ?pattern? * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1502,7 +1502,7 @@ InfoProcsCmd(dummy, interp, objc, objv) * info script * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1542,7 +1542,7 @@ InfoScriptCmd(dummy, interp, objc, objv) * info sharedlibextension * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1580,7 +1580,7 @@ InfoSharedlibCmd(dummy, interp, objc, objv) * info tclversion * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is @@ -1627,7 +1627,7 @@ InfoTclVersionCmd(dummy, interp, objc, objv) * info vars ?pattern? * * Results: - * Returns TCL_OK is successful and TCL_ERROR is there is an error. + * Returns TCL_OK if successful and TCL_ERROR if there is an error. * * Side effects: * Returns a result in the interpreter's result object. If there is diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index b01cb84..b8b3fd5 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -19,7 +19,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNamesp.c,v 1.11 1999/04/16 00:46:50 stanton Exp $ + * RCS: @(#) $Id: tclNamesp.c,v 1.12 1999/10/05 22:45:40 hobbs Exp $ */ #include "tclInt.h" @@ -256,7 +256,7 @@ Tcl_PushCallFrame(interp, callFramePtr, namespacePtr, isProcCallFrame) Tcl_Interp *interp; /* Interpreter in which the new call frame * is to be pushed. */ Tcl_CallFrame *callFramePtr; /* Points to a call frame structure to - * push. Storage for this have already been + * push. Storage for this has already been * allocated by the caller; typically this * is the address of a CallFrame structure * allocated on the caller's C stack. The @@ -874,8 +874,8 @@ NamespaceFree(nsPtr) * Tcl_Export -- * * Makes all the commands matching a pattern available to later be - * imported from the namespace specified by contextNsPtr (or the - * current namespace if contextNsPtr is NULL). The specified pattern is + * imported from the namespace specified by namespacePtr (or the + * current namespace if namespacePtr is NULL). The specified pattern is * appended onto the namespace's export pattern list, which is * optionally cleared beforehand. * @@ -902,8 +902,7 @@ Tcl_Export(interp, namespacePtr, pattern, resetListFirst) * in the specified namespace may be * exported. */ int resetListFirst; /* If nonzero, resets the namespace's - * export list before appending - * be overwritten by imported commands. + * export list before appending. * If 0, return an error if an imported * cmd conflicts with an existing one. */ { @@ -1057,7 +1056,7 @@ Tcl_AppendExportList(interp, namespacePtr, objPtr) * Tcl_Import -- * * Imports all of the commands matching a pattern into the namespace - * specified by contextNsPtr (or the current namespace if contextNsPtr + * specified by namespacePtr (or the current namespace if contextNsPtr * is NULL). This is done by creating a new command (the "imported * command") that points to the real command in its original namespace. * @@ -1382,10 +1381,10 @@ Tcl_ForgetImport(interp, namespacePtr, pattern) * * TclGetOriginalCommand -- * - * An imported command is created in an namespace when it imports a - * "real" command from another namespace. If the specified command is a + * An imported command is created in an namespace when a "real" command + * is imported from another namespace. If the specified command is an * imported command, this procedure returns the original command it - * refers to. + * refers to. * * Results: * If the command was imported into a sequence of namespaces a, b,...,n @@ -1402,8 +1401,8 @@ Tcl_ForgetImport(interp, namespacePtr, pattern) Tcl_Command TclGetOriginalCommand(command) - Tcl_Command command; /* The command for which the original - * command should be returned. */ + Tcl_Command command; /* The imported command for which the + * original command should be returned. */ { register Command *cmdPtr = (Command *) command; ImportedCmdData *dataPtr; @@ -2301,7 +2300,7 @@ TclResetShadowedCmdRefs(interp, newCmdPtr) * * GetNamespaceFromObj -- * - * Returns the namespace specified by the name in a Tcl_Obj. + * Gets the namespace specified by the name in a Tcl_Obj. * * Results: * Returns TCL_OK if the namespace was resolved successfully, and diff --git a/generic/tclVar.c b/generic/tclVar.c index f7ceedc..252da01 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclVar.c,v 1.13 1999/09/21 04:20:41 hobbs Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.14 1999/10/05 22:45:40 hobbs Exp $ */ #include "tclInt.h" @@ -1263,12 +1263,12 @@ Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags) if (oldValuePtr == NULL) { TclNewObj(oldValuePtr); varPtr->value.objPtr = oldValuePtr; - Tcl_IncrRefCount(oldValuePtr); /* since var is reference */ + Tcl_IncrRefCount(oldValuePtr); /* since var is referenced */ } else if (Tcl_IsShared(oldValuePtr)) { varPtr->value.objPtr = Tcl_DuplicateObj(oldValuePtr); Tcl_DecrRefCount(oldValuePtr); oldValuePtr = varPtr->value.objPtr; - Tcl_IncrRefCount(oldValuePtr); /* since var is reference */ + Tcl_IncrRefCount(oldValuePtr); /* since var is referenced */ } result = Tcl_ListObjAppendElement(interp, oldValuePtr, newValuePtr); @@ -2469,8 +2469,8 @@ Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) Tcl_Interp *interp; /* Interpreter containing variable. */ char *varName; /* Name of variable; may end with "(index)" * to signify an array reference. */ - int flags; /* 0, TCL_GLOBAL_ONLY, or - * TCL_NAMESPACE_ONLY. */ + int flags; /* OR-ed combo or TCL_GLOBAL_ONLY, + * TCL_NAMESPACE_ONLY (can be 0). */ Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */ ClientData prevClientData; /* If non-NULL, gives last value returned * by this procedure, so this call will |