Lines Matching defs:varPtr
22 * the values of Tcl object-valued variables. varPtr[i] is the i-th
27 static Tcl_Obj *varPtr[NUMBER_OF_OBJECT_VARS];
96 varPtr[i] = NULL;
173 if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) {
174 Tcl_SetBooleanObj(varPtr[varIndex], boolValue);
178 Tcl_SetObjResult(interp, varPtr[varIndex]);
186 Tcl_SetObjResult(interp, varPtr[varIndex]);
194 if (Tcl_GetBooleanFromObj(interp, varPtr[varIndex],
198 if (!Tcl_IsShared(varPtr[varIndex])) {
199 Tcl_SetBooleanObj(varPtr[varIndex], !boolValue);
203 Tcl_SetObjResult(interp, varPtr[varIndex]);
328 if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) {
329 Tcl_SetDoubleObj(varPtr[varIndex], doubleValue);
333 Tcl_SetObjResult(interp, varPtr[varIndex]);
341 Tcl_SetObjResult(interp, varPtr[varIndex]);
349 if (Tcl_GetDoubleFromObj(interp, varPtr[varIndex],
353 if (!Tcl_IsShared(varPtr[varIndex])) {
354 Tcl_SetDoubleObj(varPtr[varIndex], (doubleValue * 10.0));
358 Tcl_SetObjResult(interp, varPtr[varIndex]);
366 if (Tcl_GetDoubleFromObj(interp, varPtr[varIndex],
370 if (!Tcl_IsShared(varPtr[varIndex])) {
371 Tcl_SetDoubleObj(varPtr[varIndex], (doubleValue / 10.0));
375 Tcl_SetObjResult(interp, varPtr[varIndex]);
551 if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) {
552 Tcl_SetIntObj(varPtr[varIndex], intValue);
556 Tcl_SetObjResult(interp, varPtr[varIndex]);
566 if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) {
567 Tcl_SetIntObj(varPtr[varIndex], intValue);
580 if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) {
581 Tcl_SetLongObj(varPtr[varIndex], intValue);
585 Tcl_SetObjResult(interp, varPtr[varIndex]);
591 if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) {
592 Tcl_SetLongObj(varPtr[varIndex], maxLong);
603 if (Tcl_GetLongFromObj(interp, varPtr[varIndex], &longValue) != TCL_OK) {
615 Tcl_SetObjResult(interp, varPtr[varIndex]);
623 string = Tcl_GetString(varPtr[varIndex]);
639 if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) {
640 Tcl_SetLongObj(varPtr[varIndex], LONG_MAX);
644 if (Tcl_GetIntFromObj(interp, varPtr[varIndex], &i) != TCL_OK) {
658 if (Tcl_GetIntFromObj(interp, varPtr[varIndex],
662 if (!Tcl_IsShared(varPtr[varIndex])) {
663 Tcl_SetIntObj(varPtr[varIndex], (intValue * 10));
667 Tcl_SetObjResult(interp, varPtr[varIndex]);
675 if (Tcl_GetIntFromObj(interp, varPtr[varIndex],
679 if (!Tcl_IsShared(varPtr[varIndex])) {
680 Tcl_SetIntObj(varPtr[varIndex], (intValue / 10));
684 Tcl_SetObjResult(interp, varPtr[varIndex]);
746 SetVarToObj(destIndex, varPtr[varIndex]);
747 Tcl_SetObjResult(interp, varPtr[destIndex]);
766 if (Tcl_ConvertToType(interp, varPtr[varIndex], targetType)
770 Tcl_SetObjResult(interp, varPtr[varIndex]);
786 SetVarToObj(destIndex, Tcl_DuplicateObj(varPtr[varIndex]));
787 Tcl_SetObjResult(interp, varPtr[destIndex]);
793 if (varPtr[i] != NULL) {
794 Tcl_DecrRefCount(varPtr[i]);
795 varPtr[i] = NULL;
809 Tcl_InvalidateStringRep( varPtr[varIndex] );
810 Tcl_SetObjResult( interp, varPtr[varIndex] );
820 Tcl_SetObjResult(interp, varPtr[varIndex]);
851 TclFormatInt(buf, varPtr[varIndex]->refCount);
864 if (varPtr[varIndex]->typePtr == NULL) { /* a string! */
868 varPtr[varIndex]->typePtr->name, -1);
950 if (varPtr[varIndex] == NULL) {
959 if (Tcl_IsShared(varPtr[varIndex])) {
960 SetVarToObj(varIndex, Tcl_DuplicateObj(varPtr[varIndex]));
963 Tcl_AppendToObj(varPtr[varIndex], string, length);
964 Tcl_SetObjResult(interp, varPtr[varIndex]);
970 if (varPtr[varIndex] == NULL) {
979 if (Tcl_IsShared(varPtr[varIndex])) {
980 SetVarToObj(varIndex, Tcl_DuplicateObj(varPtr[varIndex]));
988 Tcl_AppendStringsToObj(varPtr[varIndex], strings[0], strings[1],
992 Tcl_SetObjResult(interp, varPtr[varIndex]);
1001 Tcl_SetObjResult(interp, varPtr[varIndex]);
1010 string = Tcl_GetString(varPtr[varIndex]);
1017 Tcl_SetIntObj(Tcl_GetObjResult(interp), (varPtr[varIndex] != NULL)
1018 ? varPtr[varIndex]->length : -1);
1024 if (varPtr[varIndex] != NULL) {
1026 (varPtr[varIndex])->internalRep.otherValuePtr;
1048 if ((varPtr[varIndex] != NULL)
1049 && !Tcl_IsShared(varPtr[varIndex])) {
1050 Tcl_SetStringObj(varPtr[varIndex], string, length);
1054 Tcl_SetObjResult(interp, varPtr[varIndex]);
1069 if (varPtr[varIndex] != NULL) {
1070 Tcl_SetObjLength(varPtr[varIndex], length);
1077 if (varPtr[varIndex] != NULL) {
1079 (varPtr[varIndex])->internalRep.otherValuePtr;
1090 Tcl_GetUnicodeFromObj(varPtr[varIndex], NULL);
1096 if (varPtr[varIndex] == NULL) {
1105 if (Tcl_IsShared(varPtr[varIndex])) {
1106 SetVarToObj(varIndex, Tcl_DuplicateObj(varPtr[varIndex]));
1109 string = Tcl_GetStringFromObj(varPtr[varIndex], &length);
1120 Tcl_AppendToObj(varPtr[varIndex], string + i, length - i);
1121 Tcl_SetObjResult(interp, varPtr[varIndex]);
1127 if (varPtr[varIndex] == NULL) {
1136 if (Tcl_IsShared(varPtr[varIndex])) {
1137 SetVarToObj(varIndex, Tcl_DuplicateObj(varPtr[varIndex]));
1140 unicode = Tcl_GetUnicodeFromObj(varPtr[varIndex], &length);
1151 Tcl_AppendUnicodeToObj(varPtr[varIndex], unicode + i, length - i);
1152 Tcl_SetObjResult(interp, varPtr[varIndex]);
1184 if (varPtr[varIndex] != NULL) {
1185 Tcl_DecrRefCount(varPtr[varIndex]);
1187 varPtr[varIndex] = objPtr;
1240 * i.e., that varPtr[varIndex] is non-NULL.
1257 if (varPtr[varIndex] == NULL) {