summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authordgp <dgp@noemail.net>2002-07-16 16:29:07 (GMT)
committerdgp <dgp@noemail.net>2002-07-16 16:29:07 (GMT)
commitbf9d16938dc453da7430e16f453b28e899a24082 (patch)
tree312dafd73cb22659d16fab323f8c142e62bb691f /generic/tclVar.c
parent09cee6804e4632dd03b674af795ced3143ede97c (diff)
downloadtcl-bf9d16938dc453da7430e16f453b28e899a24082.zip
tcl-bf9d16938dc453da7430e16f453b28e899a24082.tar.gz
tcl-bf9d16938dc453da7430e16f453b28e899a24082.tar.bz2
style guide fixes
FossilOrigin-Name: 64ad5c1003fae9364fc69cc329ad6b869507b6ac
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r--generic/tclVar.c175
1 files changed, 103 insertions, 72 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index 249b45c..487edc6 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -15,7 +15,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.55 2002/07/16 12:54:34 msofer Exp $
+ * RCS: @(#) $Id: tclVar.c,v 1.56 2002/07/16 16:29:07 dgp Exp $
*/
#include "tclInt.h"
@@ -26,12 +26,14 @@
* variable access is denied.
*/
-static CONST char *noSuchVar = "no such variable";
+static CONST char *noSuchVar = "no such variable";
static CONST char *isArray = "variable is array";
-static CONST char *needArray = "variable isn't array";
+static CONST char *needArray = "variable isn't array";
static CONST char *noSuchElement = "no such element in array";
-static CONST char *danglingElement = "upvar refers to element in deleted array";
-static CONST char *danglingVar = "upvar refers to variable in deleted namespace";
+static CONST char *danglingElement =
+ "upvar refers to element in deleted array";
+static CONST char *danglingVar =
+ "upvar refers to variable in deleted namespace";
static CONST char *badNamespace = "parent namespace doesn't exist";
static CONST char *missingName = "missing variable name";
static CONST char *isArrayElement = "name refers to an element in an array";
@@ -56,10 +58,11 @@ static int ObjMakeUpvar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char *myName, CONST int myFlags, int index));
static Var * NewVar _ANSI_ARGS_((void));
static ArraySearch * ParseSearchId _ANSI_ARGS_((Tcl_Interp *interp,
- CONST Var *varPtr, CONST char *varName, Tcl_Obj *handleObj));
+ CONST Var *varPtr, CONST char *varName,
+ Tcl_Obj *handleObj));
static void VarErrMsg _ANSI_ARGS_((Tcl_Interp *interp,
- CONST char *part1, CONST char *part2, CONST char *operation,
- CONST char *reason));
+ CONST char *part1, CONST char *part2,
+ CONST char *operation, CONST char *reason));
static int SetArraySearchObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj *objPtr));
@@ -70,24 +73,28 @@ static int SetArraySearchObj _ANSI_ARGS_((Tcl_Interp *interp,
* in the public interface.
*/
-Var * TclLookupArrayElement _ANSI_ARGS_((Tcl_Interp *interp,
- CONST char *arrayName, CONST char *elName, CONST int flags, CONST char *msg,
- CONST int createPart1, CONST int createPart2, Var *arrayPtr));
-Var * TclLookupSimpleVar _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName,
- int flags, CONST int create, CONST char **errMsgPtr, int *indexPtr));
-Var * TclObjLookupVar _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *part1Ptr,
- CONST char *part2, int flags, CONST char *msg, CONST int createPart1,
- CONST int createPart2, Var **arrayPtrPtr));
-int TclObjUnsetVar2 _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *part1Ptr,
- CONST char *part2, int flags));
-Tcl_Obj * TclPtrGetVar _ANSI_ARGS_((Tcl_Interp *interp, Var *varPtr,
- Var *arrayPtr, char *part1, CONST char *part2, CONST int flags));
-Tcl_Obj * TclPtrSetVar _ANSI_ARGS_((Tcl_Interp *interp, Var *varPtr,
- Var *arrayPtr, char *part1, CONST char *part2,
- Tcl_Obj *newValuePtr, CONST int flags));
-Tcl_Obj * TclPtrIncrVar _ANSI_ARGS_((Tcl_Interp *interp, Var *varPtr,
- Var *arrayPtr, char *part1, CONST char *part2,
- CONST long i, CONST int flags));
+Var * TclLookupArrayElement _ANSI_ARGS_((Tcl_Interp *interp,
+ CONST char *arrayName, CONST char *elName, CONST int flags,
+ CONST char *msg, CONST int createPart1,
+ CONST int createPart2, Var *arrayPtr));
+Var * TclLookupSimpleVar _ANSI_ARGS_((Tcl_Interp *interp,
+ CONST char *varName, int flags, CONST int create,
+ CONST char **errMsgPtr, int *indexPtr));
+Var * TclObjLookupVar _ANSI_ARGS_((Tcl_Interp *interp,
+ Tcl_Obj *part1Ptr, CONST char *part2, int flags,
+ CONST char *msg, CONST int createPart1,
+ CONST int createPart2, Var **arrayPtrPtr));
+int TclObjUnsetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
+ Tcl_Obj *part1Ptr, CONST char *part2, int flags));
+Tcl_Obj * TclPtrGetVar _ANSI_ARGS_((Tcl_Interp *interp, Var *varPtr,
+ Var *arrayPtr, char *part1, CONST char *part2,
+ CONST int flags));
+Tcl_Obj * TclPtrSetVar _ANSI_ARGS_((Tcl_Interp *interp, Var *varPtr,
+ Var *arrayPtr, char *part1, CONST char *part2,
+ Tcl_Obj *newValuePtr, CONST int flags));
+Tcl_Obj * TclPtrIncrVar _ANSI_ARGS_((Tcl_Interp *interp, Var *varPtr,
+ Var *arrayPtr, char *part1, CONST char *part2,
+ CONST long i, CONST int flags));
static Tcl_FreeInternalRepProc FreeLocalVarName;
static Tcl_DupInternalRepProc DupLocalVarName;
@@ -565,7 +572,8 @@ TclObjLookupVar(interp, part1Ptr, part2, flags, msg, createPart1, createPart2,
if (varPtr == NULL) {
if (flags & TCL_LEAVE_ERR_MSG) {
part1 = TclGetString(part1Ptr);
- VarErrMsg(interp, part1, part2, msg, "Cached variable reference is NULL.");
+ VarErrMsg(interp, part1, part2, msg,
+ "Cached variable reference is NULL.");
}
return NULL;
}
@@ -617,14 +625,15 @@ TclObjLookupVar(interp, part1Ptr, part2, flags, msg, createPart1, createPart2,
* . resolution by a namespace or interp resolver
*
* If the variable isn't found and creation wasn't specified, or some
- * other error occurs, NULL is returned and the corresponding error message
- * is left in *errMsgPtr.
+ * other error occurs, NULL is returned and the corresponding error
+ * message is left in *errMsgPtr.
*
* Note: it's possible for the variable returned to be VAR_UNDEFINED
- * even if create is 1 (this only causes the hash table entry to be created).
- * For example, the variable might be a global that has been unset but is still
- * referenced by a procedure, or a variable that has been unset but it only being
- * kept in existence (if VAR_UNDEFINED) by a trace.
+ * even if create is 1 (this only causes the hash table entry to be
+ * created). For example, the variable might be a global that has been
+ * unset but is still referenced by a procedure, or a variable that has
+ * been unset but it only being kept in existence (if VAR_UNDEFINED) by
+ * a trace.
*
* Side effects:
* A new hashtable entry may be created if create is 1.
@@ -1270,14 +1279,18 @@ TclGetIndexedScalar(interp, localIndex, flags)
int localCt = varFramePtr->procPtr->numCompiledLocals;
if (compiledLocals == NULL) {
- fprintf(stderr, "\nTclGetIndexedScalar: can't get local %i in frame 0x%x, no compiled locals\n",
- localIndex, (unsigned int) varFramePtr);
+ fprintf(stderr, "\nTclGetIndexedScalar: can't get ");
+ fprintf(stderr, "local %i in frame 0x%x, ", localIndex,
+ (unsigned int) varFramePtr);
+ fprintf(stderr, "no compiled locals\n");
panic("TclGetIndexedScalar: no compiled locals in frame 0x%x",
(unsigned int) varFramePtr);
}
if ((localIndex < 0) || (localIndex >= localCt)) {
- fprintf(stderr, "\nTclGetIndexedScalar: can't get local %i in frame 0x%x with %i locals\n",
- localIndex, (unsigned int) varFramePtr, localCt);
+ fprintf(stderr, "\nTclGetIndexedScalar: can't get ");
+ fprintf(stderr, "local %i in frame 0x%x " localIndex,
+ (unsigned int) varFramePtr);
+ fprintf(stderr, "with %i locals\n", localCt);
panic("TclGetIndexedScalar: bad local index %i in frame 0x%x",
localIndex, (unsigned int) varFramePtr);
}
@@ -1386,14 +1399,17 @@ TclGetElementOfIndexedArray(interp, localIndex, elemPtr, flags)
int localCt = procPtr->numCompiledLocals;
if (compiledLocals == NULL) {
- fprintf(stderr, "\nTclGetElementOfIndexedArray: can't get element of local %i in frame 0x%x, no compiled locals\n",
- localIndex, (unsigned int) varFramePtr);
+ fprintf(stderr, "\nTclGetElementOfIndexedArray: can't get element ");
+ fprintf(stderr, "of local %i in frame 0x%x, " localIndex,
+ (unsigned int) varFramePtr);
+ fprintf(stderr, "no compiled locals\n");
panic("TclGetIndexedScalar: no compiled locals in frame 0x%x",
(unsigned int) varFramePtr);
}
if ((localIndex < 0) || (localIndex >= localCt)) {
- fprintf(stderr, "\nTclGetIndexedScalar: can't get element of local %i in frame 0x%x with %i locals\n",
- localIndex, (unsigned int) varFramePtr, localCt);
+ fprintf(stderr, "\nTclGetIndexedScalar: can't get element of "
+ "local %i in frame 0x%x with %i locals\n", localIndex,
+ (unsigned int) varFramePtr, localCt);
panic("TclGetElementOfIndexedArray: bad local index %i in frame 0x%x",
localIndex, (unsigned int) varFramePtr);
}
@@ -2019,14 +2035,18 @@ TclSetIndexedScalar(interp, localIndex, newValuePtr, flags)
int localCt = procPtr->numCompiledLocals;
if (compiledLocals == NULL) {
- fprintf(stderr, "\nTclSetIndexedScalar: can't set local %i in frame 0x%x, no compiled locals\n",
- localIndex, (unsigned int) varFramePtr);
+ fprintf(stderr, "\nTclSetIndexedScalar: can't set ");
+ fprintf(stderr, "local %i in ", localIndex);
+ fprintf(stderr, "frame 0x%x, no compiled locals\n",
+ (unsigned int) varFramePtr);
panic("TclSetIndexedScalar: no compiled locals in frame 0x%x",
(unsigned int) varFramePtr);
}
if ((localIndex < 0) || (localIndex >= localCt)) {
- fprintf(stderr, "\nTclSetIndexedScalar: can't set local %i in frame 0x%x with %i locals\n",
- localIndex, (unsigned int) varFramePtr, localCt);
+ fprintf(stderr, "\nTclSetIndexedScalar: can't set ");
+ fprintf(stderr, "local %i in " localIndex);
+ fprintf(stderr, "frame 0x%x with %i locals\n",
+ (unsigned int) varFramePtr, localCt);
panic("TclSetIndexedScalar: bad local index %i in frame 0x%x",
localIndex, (unsigned int) varFramePtr);
}
@@ -2254,14 +2274,18 @@ TclSetElementOfIndexedArray(interp, localIndex, elemPtr, newValuePtr, flags)
int localCt = procPtr->numCompiledLocals;
if (compiledLocals == NULL) {
- fprintf(stderr, "\nTclSetElementOfIndexedArray: can't set element of local %i in frame 0x%x, no compiled locals\n",
- localIndex, (unsigned int) varFramePtr);
+ fprintf(stderr, "\nTclSetElementOfIndexedArray: can't set element ");
+ fprintf(stderr, "of local %i in frame 0x%x, ", localIndex,
+ (unsigned int) varFramePtr);
+ fprintf(stderr, "no compiled locals\n");
panic("TclSetIndexedScalar: no compiled locals in frame 0x%x",
(unsigned int) varFramePtr);
}
if ((localIndex < 0) || (localIndex >= localCt)) {
- fprintf(stderr, "\nTclSetIndexedScalar: can't set element of local %i in frame 0x%x with %i locals\n",
- localIndex, (unsigned int) varFramePtr, localCt);
+ fprintf(stderr, "\nTclSetIndexedScalar: can't set element of ");
+ fprintf(stderr, "local %i in frame 0x%x ", localIndex,
+ (unsigned int) varFramePtr);
+ fprintf(stderr, "with %i locals\n", localCt);
panic("TclSetElementOfIndexedArray: bad local index %i in frame 0x%x",
localIndex, (unsigned int) varFramePtr);
}
@@ -2502,13 +2526,15 @@ TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, flags)
part1 = TclGetString(part1Ptr);
part2 = ((part2Ptr == NULL)? NULL : TclGetString(part2Ptr));
- varPtr = TclObjLookupVar(interp, part1Ptr, part2, flags, "read", 0, 1, &arrayPtr);
+ varPtr = TclObjLookupVar(interp, part1Ptr, part2, flags, "read",
+ 0, 1, &arrayPtr);
if (varPtr == NULL) {
Tcl_AddObjErrorInfo(interp,
"\n (reading value of variable to increment)", -1);
return NULL;
}
- return TclPtrIncrVar(interp, varPtr, arrayPtr, part1, part2, incrAmount, flags);
+ return TclPtrIncrVar(interp, varPtr, arrayPtr, part1, part2,
+ incrAmount, flags);
}
/*
@@ -2620,7 +2646,8 @@ TclPtrIncrVar(interp, varPtr, arrayPtr, part1, part2, incrAmount, flags)
* Store the variable's new value and run any write traces.
*/
- return TclPtrSetVar(interp, varPtr, arrayPtr, part1, part2, varValuePtr, flags);
+ return TclPtrSetVar(interp, varPtr, arrayPtr, part1, part2,
+ varValuePtr, flags);
}
/*
@@ -3036,7 +3063,8 @@ TclObjUnsetVar2(interp, part1Ptr, part2, flags)
*/
varPtr->refCount++;
DeleteArray(iPtr, part1, dummyVarPtr,
- (flags & (TCL_GLOBAL_ONLY|TCL_NAMESPACE_ONLY)) | TCL_TRACE_UNSETS);
+ (flags & (TCL_GLOBAL_ONLY|TCL_NAMESPACE_ONLY))
+ | TCL_TRACE_UNSETS);
/* Decr ref count */
varPtr->refCount--;
}
@@ -3559,8 +3587,8 @@ Tcl_AppendObjCmd(dummy, interp, objc, objv)
return TCL_ERROR;
}
} else {
- varPtr = TclObjLookupVar(interp, objv[1], NULL, TCL_LEAVE_ERR_MSG, "set",
- /*createPart1*/ 1, /*createPart2*/ 1, &arrayPtr);
+ varPtr = TclObjLookupVar(interp, objv[1], NULL, TCL_LEAVE_ERR_MSG,
+ "set", /*createPart1*/ 1, /*createPart2*/ 1, &arrayPtr);
part1 = TclGetString(objv[1]);
if (varPtr == NULL) {
return TCL_ERROR;
@@ -3659,8 +3687,8 @@ Tcl_LappendObjCmd(dummy, interp, objc, objv)
* even if the variable was undefined and unused.
*/
- varPtr = TclObjLookupVar(interp, objv[1], NULL, TCL_LEAVE_ERR_MSG, "set",
- /*createPart1*/ 1, /*createPart2*/ 1, &arrayPtr);
+ varPtr = TclObjLookupVar(interp, objv[1], NULL, TCL_LEAVE_ERR_MSG,
+ "set", /*createPart1*/ 1, /*createPart2*/ 1, &arrayPtr);
if (varPtr == NULL) {
return TCL_ERROR;
}
@@ -4323,8 +4351,9 @@ TclArraySet(interp, arrayNameObj, arrayElemObj)
}
}
- varPtr = TclObjLookupVar(interp, arrayNameObj, NULL, /*flags*/ TCL_LEAVE_ERR_MSG,
- /*msg*/ "set", /*createPart1*/ 1, /*createPart2*/ 0, &arrayPtr);
+ varPtr = TclObjLookupVar(interp, arrayNameObj, NULL,
+ /*flags*/ TCL_LEAVE_ERR_MSG, /*msg*/ "set", /*createPart1*/ 1,
+ /*createPart2*/ 0, &arrayPtr);
if (varPtr == NULL) {
return TCL_ERROR;
}
@@ -4353,8 +4382,8 @@ TclArraySet(interp, arrayNameObj, arrayElemObj)
Var *elemVarPtr = TclLookupArrayElement(interp, varName,
part2, TCL_LEAVE_ERR_MSG, "set", 1, 1, varPtr);
if ((elemVarPtr == NULL) ||
- (TclPtrSetVar(interp, elemVarPtr, varPtr, varName, part2,
- elemPtrs[i+1], TCL_LEAVE_ERR_MSG) == NULL)) {
+ (TclPtrSetVar(interp, elemVarPtr, varPtr, varName,
+ part2, elemPtrs[i+1], TCL_LEAVE_ERR_MSG) == NULL)) {
result = TCL_ERROR;
break;
}
@@ -4474,8 +4503,8 @@ ObjMakeUpvar(interp, framePtr, otherP1Ptr, otherP2, otherFlags, myName, myFlags,
|| !varFramePtr->isProcCallFrame
|| (strstr(myName, "::") != NULL))) {
Tcl_AppendResult((Tcl_Interp *) iPtr, "bad variable name \"",
- myName, "\": upvar won't create namespace variable that refers to procedure variable",
- (char *) NULL);
+ myName, "\": upvar won't create namespace variable that ",
+ "refers to procedure variable", (char *) NULL);
return TCL_ERROR;
}
@@ -4855,8 +4884,8 @@ Tcl_VariableObjCmd(dummy, interp, objc, objv)
*/
if (i+1 < objc) { /* a value was specified */
- varValuePtr = TclPtrSetVar(interp, varPtr, arrayPtr, varName, NULL, objv[i+1],
- (TCL_NAMESPACE_ONLY | TCL_LEAVE_ERR_MSG));
+ varValuePtr = TclPtrSetVar(interp, varPtr, arrayPtr, varName, NULL,
+ objv[i+1], (TCL_NAMESPACE_ONLY | TCL_LEAVE_ERR_MSG));
if (varValuePtr == NULL) {
return TCL_ERROR;
}
@@ -4962,8 +4991,8 @@ Tcl_UpvarObjCmd(dummy, interp, objc, objv)
for ( ; objc > 0; objc -= 2, objv += 2) {
localName = TclGetString(objv[1]);
- result = ObjMakeUpvar(interp, framePtr, /* othervarName */ objv[0], NULL,
- 0, /* myVarName */ localName, /*flags*/ 0, -1);
+ result = ObjMakeUpvar(interp, framePtr, /* othervarName */ objv[0],
+ NULL, 0, /* myVarName */ localName, /*flags*/ 0, -1);
if (result != TCL_OK) {
return TCL_ERROR;
}
@@ -5341,7 +5370,7 @@ static ArraySearch *
ParseSearchId(interp, varPtr, varName, handleObj)
Tcl_Interp *interp; /* Interpreter containing variable. */
CONST Var *varPtr; /* Array variable search is for. */
- CONST char *varName; /* Name of array variable that search is
+ CONST char *varName; /* Name of array variable that search is
* supposed to be for. */
Tcl_Obj *handleObj; /* Object containing id of search. Must have
* form "search-num-var" where "num" is a
@@ -5829,9 +5858,9 @@ VarErrMsg(interp, part1, part2, operation, reason)
Tcl_Interp *interp; /* Interpreter in which to record message. */
CONST char *part1;
CONST char *part2; /* Variable's two-part name. */
- CONST char *operation; /* String describing operation that failed,
+ CONST char *operation; /* String describing operation that failed,
* e.g. "read", "set", or "unset". */
- CONST char *reason; /* String describing why operation failed. */
+ CONST char *reason; /* String describing why operation failed. */
{
Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "can't ", operation, " \"", part1,
@@ -6032,7 +6061,8 @@ static void
FreeParsedVarName(objPtr)
Tcl_Obj *objPtr;
{
- register Tcl_Obj *arrayPtr = (Tcl_Obj *) objPtr->internalRep.twoPtrValue.ptr1;
+ register Tcl_Obj *arrayPtr =
+ (Tcl_Obj *) objPtr->internalRep.twoPtrValue.ptr1;
register char *elem = (char *) objPtr->internalRep.twoPtrValue.ptr2;
if (arrayPtr != NULL) {
@@ -6046,7 +6076,8 @@ DupParsedVarName(srcPtr, dupPtr)
Tcl_Obj *srcPtr;
Tcl_Obj *dupPtr;
{
- register Tcl_Obj *arrayPtr = (Tcl_Obj *) srcPtr->internalRep.twoPtrValue.ptr1;
+ register Tcl_Obj *arrayPtr =
+ (Tcl_Obj *) srcPtr->internalRep.twoPtrValue.ptr1;
register char *elem = (char *) srcPtr->internalRep.twoPtrValue.ptr2;
char *elemCopy;
unsigned int elemLen;