Lines Matching defs:dictPtr
67 static void FreeDictInternalRep(Tcl_Obj *dictPtr);
70 static void UpdateStringOfDict(Tcl_Obj *dictPtr);
401 Tcl_Obj *dictPtr)
403 Dict *dict = dictPtr->internalRep.otherValuePtr;
410 dictPtr->internalRep.otherValuePtr = NULL; /* Belt and braces! */
467 Tcl_Obj *dictPtr)
471 Dict *dict = dictPtr->internalRep.otherValuePtr;
493 dictPtr->length = 1;
502 dictPtr->length += Tcl_ScanCountedElement(elem, length,
507 dictPtr->length += Tcl_ScanCountedElement(elem, length,
515 dictPtr->bytes = ckalloc((unsigned) dictPtr->length);
516 dst = dictPtr->bytes;
533 if (dst == dictPtr->bytes) {
538 dictPtr->length = dst - dictPtr->bytes;
788 Tcl_Obj *dictPtr,
796 if (dictPtr->typePtr != &tclDictType) {
797 if (SetDictFromAny(interp, dictPtr) != TCL_OK) {
801 dict = dictPtr->internalRep.otherValuePtr;
855 newDict->chain = dictPtr;
858 dictPtr = tmpObj;
860 return dictPtr;
915 * The object pointed to by dictPtr is converted to a dictionary if it is
925 Tcl_Obj *dictPtr,
933 if (Tcl_IsShared(dictPtr)) {
937 if (dictPtr->typePtr != &tclDictType) {
938 int result = SetDictFromAny(interp, dictPtr);
945 if (dictPtr->bytes != NULL) {
946 Tcl_InvalidateStringRep(dictPtr);
948 dict = dictPtr->internalRep.otherValuePtr;
976 * The object pointed to by dictPtr is converted to a dictionary if it is
985 Tcl_Obj *dictPtr,
992 if (dictPtr->typePtr != &tclDictType) {
993 int result = SetDictFromAny(interp, dictPtr);
999 dict = dictPtr->internalRep.otherValuePtr;
1022 * The object pointed to by dictPtr is converted to a dictionary if it is
1032 Tcl_Obj *dictPtr,
1037 if (Tcl_IsShared(dictPtr)) {
1041 if (dictPtr->typePtr != &tclDictType) {
1042 int result = SetDictFromAny(interp, dictPtr);
1048 if (dictPtr->bytes != NULL) {
1049 Tcl_InvalidateStringRep(dictPtr);
1051 dict = dictPtr->internalRep.otherValuePtr;
1071 * The dictPtr object is converted to a dictionary type if it is not a
1080 Tcl_Obj *dictPtr,
1085 if (dictPtr->typePtr != &tclDictType) {
1086 int result = SetDictFromAny(interp, dictPtr);
1092 dict = dictPtr->internalRep.otherValuePtr;
1114 * The dictPtr object is converted to a dictionary type if it is not a
1126 Tcl_Obj *dictPtr, /* Dictionary to traverse. */
1140 if (dictPtr->typePtr != &tclDictType) {
1141 int result = SetDictFromAny(interp, dictPtr);
1148 dict = dictPtr->internalRep.otherValuePtr;
1306 Tcl_Obj *dictPtr,
1315 if (Tcl_IsShared(dictPtr)) {
1322 dictPtr = TclTraceDictPath(interp, dictPtr, keyc-1,keyv, DICT_PATH_CREATE);
1323 if (dictPtr == NULL) {
1327 dict = dictPtr->internalRep.otherValuePtr;
1335 InvalidateDictChain(dictPtr);
1366 Tcl_Obj *dictPtr,
1372 if (Tcl_IsShared(dictPtr)) {
1379 dictPtr = TclTraceDictPath(interp, dictPtr, keyc-1,keyv, DICT_PATH_UPDATE);
1380 if (dictPtr == NULL) {
1384 dict = dictPtr->internalRep.otherValuePtr;
1386 InvalidateDictChain(dictPtr);
1421 Tcl_Obj *dictPtr;
1424 TclNewObj(dictPtr);
1425 Tcl_InvalidateStringRep(dictPtr);
1431 dictPtr->internalRep.otherValuePtr = dict;
1432 dictPtr->typePtr = &tclDictType;
1433 return dictPtr;
1471 Tcl_Obj *dictPtr;
1474 TclDbNewObj(dictPtr, file, line);
1475 Tcl_InvalidateStringRep(dictPtr);
1481 dictPtr->internalRep.otherValuePtr = dict;
1482 dictPtr->typePtr = &tclDictType;
1483 return dictPtr;
1568 Tcl_Obj *dictPtr, *valuePtr = NULL;
1616 dictPtr = TclTraceDictPath(interp, objv[1], objc-3,objv+2, DICT_PATH_READ);
1617 if (dictPtr == NULL) {
1620 result = Tcl_DictObjGet(interp, dictPtr, objv[objc-1], &valuePtr);
1660 Tcl_Obj *dictPtr;
1669 dictPtr = objv[1];
1670 if (Tcl_IsShared(dictPtr)) {
1671 dictPtr = Tcl_DuplicateObj(dictPtr);
1675 result = Tcl_DictObjPut(interp, dictPtr, objv[i], objv[i+1]);
1678 TclDecrRefCount(dictPtr);
1683 Tcl_SetObjResult(interp, dictPtr);
1713 Tcl_Obj *dictPtr;
1722 dictPtr = objv[1];
1723 if (Tcl_IsShared(dictPtr)) {
1724 dictPtr = Tcl_DuplicateObj(dictPtr);
1728 result = Tcl_DictObjRemove(interp, dictPtr, objv[i]);
1731 TclDecrRefCount(dictPtr);
1736 Tcl_SetObjResult(interp, dictPtr);
2040 Tcl_Obj *dictPtr, *valuePtr;
2048 dictPtr = TclTraceDictPath(interp, objv[1], objc-3, objv+2,
2050 if (dictPtr == NULL) {
2053 if (dictPtr == DICT_PATH_NON_EXISTENT) {
2057 result = Tcl_DictObjGet(interp, dictPtr, objv[objc-1], &valuePtr);
2091 Tcl_Obj *dictPtr;
2099 dictPtr = objv[1];
2100 if (dictPtr->typePtr != &tclDictType) {
2101 int result = SetDictFromAny(interp, dictPtr);
2106 dict = dictPtr->internalRep.otherValuePtr;
2143 Tcl_Obj *dictPtr, *valuePtr = NULL;
2150 dictPtr = Tcl_ObjGetVar2(interp, objv[1], NULL, 0);
2151 if (dictPtr == NULL) {
2156 dictPtr = Tcl_NewDictObj();
2157 } else if (Tcl_DictObjGet(interp, dictPtr, objv[2], &valuePtr) != TCL_OK) {
2164 if (Tcl_IsShared(dictPtr)) {
2170 char *saved = dictPtr->bytes;
2171 Tcl_Obj *oldPtr = dictPtr;
2173 dictPtr->bytes = NULL;
2174 dictPtr = Tcl_DuplicateObj(dictPtr);
2199 Tcl_DictObjPut(interp, dictPtr, objv[2], objv[3]);
2202 Tcl_DictObjPut(interp, dictPtr, objv[2], Tcl_NewIntObj(1));
2211 Tcl_DictObjPut(interp, dictPtr, objv[2], valuePtr);
2224 Tcl_InvalidateStringRep(dictPtr);
2226 dictPtr, TCL_LEAVE_ERR_MSG);
2232 } else if (dictPtr->refCount == 0) {
2233 Tcl_DecrRefCount(dictPtr);
2264 Tcl_Obj *dictPtr, *valuePtr, *resultPtr;
2272 dictPtr = Tcl_ObjGetVar2(interp, objv[1], NULL, 0);
2273 if (dictPtr == NULL) {
2275 dictPtr = Tcl_NewDictObj();
2276 } else if (Tcl_IsShared(dictPtr)) {
2278 dictPtr = Tcl_DuplicateObj(dictPtr);
2281 if (Tcl_DictObjGet(interp, dictPtr, objv[2], &valuePtr) != TCL_OK) {
2283 TclDecrRefCount(dictPtr);
2304 TclDecrRefCount(dictPtr);
2312 Tcl_DictObjPut(interp, dictPtr, objv[2], valuePtr);
2313 } else if (dictPtr->bytes != NULL) {
2314 Tcl_InvalidateStringRep(dictPtr);
2317 resultPtr = Tcl_ObjSetVar2(interp, objv[1], NULL, dictPtr,
2352 Tcl_Obj *dictPtr, *valuePtr, *resultPtr;
2360 dictPtr = Tcl_ObjGetVar2(interp, objv[1], NULL, 0);
2361 if (dictPtr == NULL) {
2363 dictPtr = Tcl_NewDictObj();
2364 } else if (Tcl_IsShared(dictPtr)) {
2366 dictPtr = Tcl_DuplicateObj(dictPtr);
2369 if (Tcl_DictObjGet(interp, dictPtr, objv[2], &valuePtr) != TCL_OK) {
2371 TclDecrRefCount(dictPtr);
2388 Tcl_DictObjPut(interp, dictPtr, objv[2], valuePtr);
2390 resultPtr = Tcl_ObjSetVar2(interp, objv[1], NULL, dictPtr,
2551 Tcl_Obj *dictPtr, *resultPtr;
2559 dictPtr = Tcl_ObjGetVar2(interp, objv[1], NULL, 0);
2560 if (dictPtr == NULL) {
2562 dictPtr = Tcl_NewDictObj();
2563 } else if (Tcl_IsShared(dictPtr)) {
2565 dictPtr = Tcl_DuplicateObj(dictPtr);
2568 result = Tcl_DictObjPutKeyList(interp, dictPtr, objc-3, objv+2,
2572 TclDecrRefCount(dictPtr);
2577 resultPtr = Tcl_ObjSetVar2(interp, objv[1], NULL, dictPtr,
2612 Tcl_Obj *dictPtr, *resultPtr;
2620 dictPtr = Tcl_ObjGetVar2(interp, objv[1], NULL, 0);
2621 if (dictPtr == NULL) {
2623 dictPtr = Tcl_NewDictObj();
2624 } else if (Tcl_IsShared(dictPtr)) {
2626 dictPtr = Tcl_DuplicateObj(dictPtr);
2629 result = Tcl_DictObjRemoveKeyList(interp, dictPtr, objc-2, objv+2);
2632 TclDecrRefCount(dictPtr);
2637 resultPtr = Tcl_ObjSetVar2(interp, objv[1], NULL, dictPtr,
2934 Tcl_Obj *dictPtr, *objPtr;
2944 dictPtr = Tcl_ObjGetVar2(interp, objv[1], NULL, TCL_LEAVE_ERR_MSG);
2945 if (dictPtr == NULL) {
2948 if (Tcl_DictObjSize(interp, dictPtr, &dummy) != TCL_OK) {
2951 Tcl_IncrRefCount(dictPtr);
2953 if (Tcl_DictObjGet(interp, dictPtr, objv[i], &objPtr) != TCL_OK) {
2954 TclDecrRefCount(dictPtr);
2962 TclDecrRefCount(dictPtr);
2966 TclDecrRefCount(dictPtr);
2981 dictPtr = Tcl_ObjGetVar2(interp, objv[1], NULL, 0);
2982 if (dictPtr == NULL) {
2991 if (Tcl_DictObjSize(interp, dictPtr, &dummy) != TCL_OK) {
2996 if (Tcl_IsShared(dictPtr)) {
2997 dictPtr = Tcl_DuplicateObj(dictPtr);
3008 Tcl_DictObjRemove(interp, dictPtr, objv[i]);
3009 } else if (objPtr == dictPtr) {
3015 Tcl_DictObjPut(interp, dictPtr, objv[i],
3019 Tcl_DictObjPut(interp, dictPtr, objv[i], objPtr);
3027 if (Tcl_ObjSetVar2(interp, objv[1], NULL, dictPtr,
3063 Tcl_Obj *dictPtr, *keysPtr, *keyPtr, *valPtr, **keyv, *leafPtr;
3077 dictPtr = Tcl_ObjGetVar2(interp, objv[1], NULL, TCL_LEAVE_ERR_MSG);
3078 if (dictPtr == NULL) {
3082 dictPtr = TclTraceDictPath(interp, dictPtr, objc-3, objv+2,
3084 if (dictPtr == NULL) {
3096 if (Tcl_DictObjFirst(interp, dictPtr, &s, &keyPtr, &valPtr,
3128 dictPtr = Tcl_ObjGetVar2(interp, objv[1], NULL, 0);
3129 if (dictPtr == NULL) {
3139 if (Tcl_DictObjSize(interp, dictPtr, &i) != TCL_OK) {
3145 if (Tcl_IsShared(dictPtr)) {
3146 dictPtr = Tcl_DuplicateObj(dictPtr);
3160 leafPtr = TclTraceDictPath(interp, dictPtr, objc-3, objv+2,
3165 TclDecrRefCount(dictPtr);
3173 TclDecrRefCount(dictPtr);
3178 leafPtr = dictPtr;
3216 if (Tcl_ObjSetVar2(interp, objv[1], NULL, dictPtr,