summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tcl.h37
-rw-r--r--generic/tclCmdIL.c42
-rw-r--r--generic/tclNamesp.c25
-rw-r--r--generic/tclVar.c10
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