Lines Matching refs:part1
47 Var *varPtr, CONST char *part1, CONST char *part2,
65 CONST char *part1, CONST char *part2,
70 Interp *iPtr, CONST char *part1, CONST char *part2,
160 * part1 and part2, or NULL if the variable couldn't be found. If the
186 TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2,
189 CONST char *part1; /* If part2 isn't NULL, this is the name of
230 * Parse part1 into array name and index.
231 * Always check if part1 is an array element name and allow it only if
240 for (p = part1; *p ; p++) {
242 openParen = p - part1;
250 VarErrMsg(interp, part1, part2, msg, needArray);
254 closeParen = p - part1;
265 memcpy(newVarName, part1, (unsigned int) closeParen);
268 part1 = newVarName;
272 varPtr = TclLookupSimpleVar(interp, part1, flags,
276 VarErrMsg(interp, part1, elName, msg, errMsg);
284 varPtr = TclLookupArrayElement(interp, part1, elName, flags,
366 char *part1;
390 part1 = TclGetString(part1Ptr);
391 VarErrMsg(interp, part1, part2, msg, needArray);
401 part1 = Tcl_GetStringFromObj(part1Ptr, &len1);
433 || ((*part1 == ':') && (*(part1+1) == ':'))
463 if (!parsed && (*(part1 + len1 - 1) == ')')) {
471 if (*(part1 + i) == '(') {
474 VarErrMsg(interp, part1, part2, msg, needArray);
483 part2 = part1 + i + 1;
506 * typePtr and part1 to contain the references to the
510 part1Ptr = Tcl_NewStringObj(part1, len1);
517 part1 = TclGetString(part1Ptr);
534 varPtr = TclLookupSimpleVar(interp, part1, flags,
538 VarErrMsg(interp, part1, part2, msg, errMsg);
591 part1 = TclGetString(part1Ptr);
592 VarErrMsg(interp, part1, part2, msg,
607 part1 = TclGetString(part1Ptr);
609 varPtr = TclLookupArrayElement(interp, part1, part2,
1039 * by part1 and part2 as a string. If the specified variable doesn't
1053 Tcl_GetVar2(interp, part1, part2, flags)
1056 CONST char *part1; /* Name of an array (if part2 is non-NULL)
1059 * in the array part1. */
1066 objPtr = Tcl_GetVar2Ex(interp, part1, part2, flags);
1098 Tcl_GetVar2Ex(interp, part1, part2, flags)
1101 CONST char *part1; /* Name of an array (if part2 is non-NULL)
1104 * in the array part1. */
1112 varPtr = TclLookupVar(interp, part1, part2, flags, "read",
1118 return TclPtrGetVar(interp, varPtr, arrayPtr, part1, part2, flags);
1159 char *part1, *part2;
1161 part1 = Tcl_GetString(part1Ptr);
1172 return TclPtrGetVar(interp, varPtr, arrayPtr, part1, part2, flags);
1200 TclPtrGetVar(interp, varPtr, arrayPtr, part1, part2, flags)
1206 CONST char *part1; /* Name of an array (if part2 is non-NULL)
1209 * in the array part1. */
1222 if (TCL_ERROR == CallVarTraces(iPtr, arrayPtr, varPtr, part1, part2,
1246 VarErrMsg(interp, part1, part2, "read", msg);
1379 Tcl_SetVar2(interp, part1, part2, newValue, flags)
1382 CONST char *part1; /* If part2 is NULL, this is name of scalar
1404 varValuePtr = Tcl_SetVar2Ex(interp, part1, part2, valuePtr, flags);
1453 Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags)
1456 CONST char *part1; /* Name of an array (if part2 is non-NULL)
1459 * in the array part1. */
1471 varPtr = TclLookupVar(interp, part1, part2, flags, "set",
1477 return TclPtrSetVar(interp, varPtr, arrayPtr, part1, part2,
1523 char *part1, *part2;
1525 part1 = TclGetString(part1Ptr);
1537 return TclPtrSetVar(interp, varPtr, arrayPtr, part1, part2,
1570 TclPtrSetVar(interp, varPtr, arrayPtr, part1, part2, newValuePtr, flags)
1575 CONST char *part1; /* Name of an array (if part2 is non-NULL)
1578 * in the array part1. */
1599 VarErrMsg(interp, part1, part2, "set", danglingElement);
1601 VarErrMsg(interp, part1, part2, "set", danglingVar);
1613 VarErrMsg(interp, part1, part2, "set", isArray);
1628 if (TCL_ERROR == CallVarTraces(iPtr, arrayPtr, varPtr, part1, part2,
1719 if (TCL_ERROR == CallVarTraces(iPtr, arrayPtr, varPtr, part1, part2,
1799 char *part1, *part2;
1801 part1 = TclGetString(part1Ptr);
1811 return TclPtrIncrVar(interp, varPtr, arrayPtr, part1, part2,
1843 TclPtrIncrVar(interp, varPtr, arrayPtr, part1, part2, incrAmount, flags)
1848 CONST char *part1; /* Points to an object holding the name of
1866 varValuePtr = TclPtrGetVar(interp, varPtr, arrayPtr, part1, part2, flags);
1916 return TclPtrSetVar(interp, varPtr, arrayPtr, part1, part2,
1970 * If part1 and part2 indicate a local or global variable in interp,
1971 * it is deleted. If part1 is an array name and part2 is NULL, then
1978 Tcl_UnsetVar2(interp, part1, part2, flags)
1981 CONST char *part1; /* Name of variable or array. */
1990 part1Ptr = Tcl_NewStringObj(part1, -1);
2037 char *part1;
2039 part1 = TclGetString(part1Ptr);
2057 UnsetVarStruct(varPtr, arrayPtr, iPtr, part1, part2, flags);
2065 VarErrMsg(interp, part1, part2, "unset",
2113 UnsetVarStruct(varPtr, arrayPtr, iPtr, part1, part2, flags)
2117 CONST char *part1;
2181 CallVarTraces(iPtr, arrayPtr, &dummyVar, part1, part2,
2206 DeleteArray(iPtr, part1, dummyVarPtr, (flags
2281 * A trace is set up on the variable given by part1 and part2, such
2290 Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData)
2293 CONST char *part1; /* Name of scalar variable or array. */
2316 varPtr = TclLookupVar(interp, part1, part2,
2397 * If there exists a trace for the variable given by part1
2405 Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData)
2407 CONST char *part1; /* Name of variable or array. */
2431 varPtr = TclLookupVar(interp, part1, part2, flags & flagMask,
2553 Tcl_VarTraceInfo2(interp, part1, part2, flags, proc, prevClientData)
2555 CONST char *part1; /* Name of variable or array. */
2571 varPtr = TclLookupVar(interp, part1, part2,
2699 char *part1;
2719 part1 = TclGetString(objv[1]);
2731 varValuePtr = TclPtrSetVar(interp, varPtr, arrayPtr, part1, NULL,
2773 char *part1;
2827 part1 = TclGetString(objv[1]);
2828 varValuePtr = TclPtrGetVar(interp, varPtr, arrayPtr, part1, NULL,
2910 newValuePtr = TclPtrSetVar(interp, varPtr, arrayPtr, part1, NULL,
3758 * The variable in frameName whose name is given by part1 and
3767 Tcl_UpVar2(interp, frameName, part1, part2, localName, flags)
3772 CONST char *part1;
3787 part1Ptr = Tcl_NewStringObj(part1, -1);
4210 CallVarTraces(iPtr, arrayPtr, varPtr, part1, part2, flags, leaveErrMsg)
4217 CONST char *part1;
4263 for (p = part1; *p ; p++) {
4271 int offset = (openParen - part1);
4274 Tcl_DStringAppend(&nameCopy, part1, (p-part1));
4277 part1 = newPart1;
4307 (Tcl_Interp *) iPtr, part1, part2, flags);
4343 (Tcl_Interp *) iPtr, part1, part2, flags);
4386 VarErrMsg((Tcl_Interp *) iPtr, part1, part2, type,
4389 VarErrMsg((Tcl_Interp *) iPtr, part1, part2, type, result);
5102 * variable given by part1 and part2 and describing why the
5109 VarErrMsg(interp, part1, part2, operation, reason)
5111 CONST char *part1;
5118 Tcl_AppendResult(interp, "can't ", operation, " \"", part1,
5359 char *part1, *p;
5369 part1 = Tcl_GetStringFromObj(arrayPtr, &len1);
5377 memcpy(p, part1, (unsigned int) len1);