Attachment "1338280-84.patch" to
ticket [1338280fff]
added by
dgp
2005-11-03 00:10:18.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 49 6e 74 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d clInt.h.========
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
0060: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
0070: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 cl/tcl/generic/t
0080: 63 6c 49 6e 74 2e 68 2c 76 0a 72 65 74 72 69 65 clInt.h,v.retrie
0090: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
00a0: 31 31 38 2e 32 2e 31 38 0a 64 69 66 66 20 2d 75 118.2.18.diff -u
00b0: 20 2d 72 31 2e 31 31 38 2e 32 2e 31 38 20 74 63 -r1.118.2.18 tc
00c0: 6c 49 6e 74 2e 68 0a 2d 2d 2d 20 67 65 6e 65 72 lInt.h.--- gener
00d0: 69 63 2f 74 63 6c 49 6e 74 2e 68 09 31 30 20 4f ic/tclInt.h.10 O
00e0: 63 74 20 32 30 30 35 20 32 31 3a 33 33 3a 30 39 ct 2005 21:33:09
00f0: 20 2d 30 30 30 30 09 31 2e 31 31 38 2e 32 2e 31 -0000.1.118.2.1
0100: 38 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 8.+++ generic/tc
0110: 6c 49 6e 74 2e 68 09 32 20 4e 6f 76 20 32 30 30 lInt.h.2 Nov 200
0120: 35 20 31 37 3a 30 38 3a 34 31 20 2d 30 30 30 30 5 17:08:41 -0000
0130: 0a 40 40 20 2d 31 36 35 32 2c 36 20 2b 31 36 35 .@@ -1652,6 +165
0140: 32 2c 37 20 40 40 0a 20 09 09 09 20 20 20 20 54 2,7 @@. ... T
0150: 63 6c 5f 4f 62 6a 20 2a 61 72 72 61 79 4e 61 6d cl_Obj *arrayNam
0160: 65 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 61 eObj, Tcl_Obj *a
0170: 72 72 61 79 45 6c 65 6d 4f 62 6a 29 29 3b 0a 20 rrayElemObj));.
0180: 45 58 54 45 52 4e 20 69 6e 74 09 09 54 63 6c 43 EXTERN int..TclC
0190: 68 65 63 6b 42 61 64 4f 63 74 61 6c 20 5f 41 4e heckBadOctal _AN
01a0: 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e SI_ARGS_((Tcl_In
01b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 09 terp *interp,. .
01c0: 09 09 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 .. CONST char
01d0: 20 2a 76 61 6c 75 65 29 29 3b 0a 2b 45 58 54 45 *value));.+EXTE
01e0: 52 4e 20 76 6f 69 64 09 09 54 63 6c 44 65 6c 65 RN void..TclDele
01f0: 74 65 4e 61 6d 65 73 70 61 63 65 56 61 72 73 20 teNamespaceVars
0200: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 4e 61 6d _ANSI_ARGS_((Nam
0210: 65 73 70 61 63 65 20 2a 6e 73 50 74 72 29 29 3b espace *nsPtr));
0220: 0a 20 45 58 54 45 52 4e 20 76 6f 69 64 09 09 54 . EXTERN void..T
0230: 63 6c 45 78 70 61 6e 64 54 6f 6b 65 6e 41 72 72 clExpandTokenArr
0240: 61 79 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 ay _ANSI_ARGS_((
0250: 0a 20 09 09 09 20 20 20 20 54 63 6c 5f 50 61 72 . ... Tcl_Par
0260: 73 65 20 2a 70 61 72 73 65 50 74 72 29 29 3b 0a se *parsePtr));.
0270: 20 45 58 54 45 52 4e 20 69 6e 74 09 09 54 63 6c EXTERN int..Tcl
0280: 46 69 6c 65 41 74 74 72 73 43 6d 64 20 5f 41 4e FileAttrsCmd _AN
0290: 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e SI_ARGS_((Tcl_In
02a0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 49 6e terp *interp,.In
02b0: 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c dex: generic/tcl
02c0: 4e 61 6d 65 73 70 2e 63 0a 3d 3d 3d 3d 3d 3d 3d Namesp.c.=======
02d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0300: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 ============.RCS
0310: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
0320: 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f tcl/tcl/generic/
0330: 74 63 6c 4e 61 6d 65 73 70 2e 63 2c 76 0a 72 65 tclNamesp.c,v.re
0340: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
0350: 6e 20 31 2e 33 31 2e 32 2e 38 0a 64 69 66 66 20 n 1.31.2.8.diff
0360: 2d 75 20 2d 72 31 2e 33 31 2e 32 2e 38 20 74 63 -u -r1.31.2.8 tc
0370: 6c 4e 61 6d 65 73 70 2e 63 0a 2d 2d 2d 20 67 65 lNamesp.c.--- ge
0380: 6e 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 2e neric/tclNamesp.
0390: 63 09 32 36 20 4a 75 6c 20 32 30 30 35 20 31 36 c.26 Jul 2005 16
03a0: 3a 32 30 3a 34 34 20 2d 30 30 30 30 09 31 2e 33 :20:44 -0000.1.3
03b0: 31 2e 32 2e 38 0a 2b 2b 2b 20 67 65 6e 65 72 69 1.2.8.+++ generi
03c0: 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 09 32 20 c/tclNamesp.c.2
03d0: 4e 6f 76 20 32 30 30 35 20 31 37 3a 30 38 3a 34 Nov 2005 17:08:4
03e0: 31 20 2d 30 30 30 30 0a 40 40 20 2d 36 32 39 2c 1 -0000.@@ -629,
03f0: 37 20 2b 36 32 39 2c 37 20 40 40 0a 20 20 20 20 7 +629,7 @@.
0400: 20 20 20 20 20 20 20 20 20 20 2a 20 76 61 72 69 * vari
0410: 61 62 6c 65 20 6c 69 73 74 20 6f 6e 65 20 6c 61 able list one la
0420: 73 74 20 74 69 6d 65 2e 0a 20 09 20 20 20 20 20 st time.. .
0430: 2a 2f 0a 20 0a 2d 20 20 20 20 20 20 20 20 20 20 */. .-
0440: 20 20 54 63 6c 44 65 6c 65 74 65 56 61 72 73 28 TclDeleteVars(
0450: 28 49 6e 74 65 72 70 20 2a 29 20 6e 73 50 74 72 (Interp *) nsPtr
0460: 2d 3e 69 6e 74 65 72 70 2c 20 26 6e 73 50 74 72 ->interp, &nsPtr
0470: 2d 3e 76 61 72 54 61 62 6c 65 29 3b 0a 2b 20 20 ->varTable);.+
0480: 20 20 20 20 20 20 20 20 20 20 54 63 6c 44 65 6c TclDel
0490: 65 74 65 4e 61 6d 65 73 70 61 63 65 56 61 72 73 eteNamespaceVars
04a0: 28 6e 73 50 74 72 29 3b 0a 20 09 20 20 20 20 0a (nsPtr);. . .
04b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c Tcl
04c0: 5f 44 65 6c 65 74 65 48 61 73 68 54 61 62 6c 65 _DeleteHashTable
04d0: 28 26 6e 73 50 74 72 2d 3e 63 68 69 6c 64 54 61 (&nsPtr->childTa
04e0: 62 6c 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ble);.
04f0: 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 48 61 73 Tcl_DeleteHas
0500: 68 54 61 62 6c 65 28 26 6e 73 50 74 72 2d 3e 63 hTable(&nsPtr->c
0510: 6d 64 54 61 62 6c 65 29 3b 0a 40 40 20 2d 37 31 mdTable);.@@ -71
0520: 33 2c 37 20 2b 37 31 33 2c 37 20 40 40 0a 20 09 3,7 +713,7 @@. .
0530: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
0540: 6f 75 6e 74 28 65 72 72 6f 72 43 6f 64 65 29 3b ount(errorCode);
0550: 0a 20 09 7d 0a 20 0a 2d 20 20 20 20 20 20 20 20 . .}. .-
0560: 54 63 6c 44 65 6c 65 74 65 56 61 72 73 28 69 50 TclDeleteVars(iP
0570: 74 72 2c 20 26 6e 73 50 74 72 2d 3e 76 61 72 54 tr, &nsPtr->varT
0580: 61 62 6c 65 29 3b 0a 2b 20 20 20 20 20 20 20 20 able);.+
0590: 54 63 6c 44 65 6c 65 74 65 4e 61 6d 65 73 70 61 TclDeleteNamespa
05a0: 63 65 56 61 72 73 28 6e 73 50 74 72 29 3b 0a 20 ceVars(nsPtr);.
05b0: 20 20 20 20 20 20 20 20 54 63 6c 5f 49 6e 69 74 Tcl_Init
05c0: 48 61 73 68 54 61 62 6c 65 28 26 6e 73 50 74 72 HashTable(&nsPtr
05d0: 2d 3e 76 61 72 54 61 62 6c 65 2c 20 54 43 4c 5f ->varTable, TCL_
05e0: 53 54 52 49 4e 47 5f 4b 45 59 53 29 3b 0a 20 0a STRING_KEYS);. .
05f0: 20 09 69 66 20 28 65 72 72 6f 72 49 6e 66 6f 29 .if (errorInfo)
0600: 20 7b 0a 40 40 20 2d 37 33 32 2c 37 20 2b 37 33 {.@@ -732,7 +73
0610: 32 2c 37 20 40 40 0a 20 09 20 2a 20 66 72 65 65 2,7 @@. . * free
0620: 73 20 69 74 2c 20 73 6f 20 77 65 20 72 65 69 6e s it, so we rein
0630: 69 74 69 61 6c 69 7a 65 20 69 74 20 61 66 74 65 itialize it afte
0640: 72 77 61 72 64 73 2e 0a 20 09 20 2a 2f 0a 20 20 rwards.. . */.
0650: 20 20 20 0a 2d 20 20 20 20 20 20 20 20 54 63 6c .- Tcl
0660: 44 65 6c 65 74 65 56 61 72 73 28 69 50 74 72 2c DeleteVars(iPtr,
0670: 20 26 6e 73 50 74 72 2d 3e 76 61 72 54 61 62 6c &nsPtr->varTabl
0680: 65 29 3b 0a 2b 20 20 20 20 20 20 20 20 54 63 6c e);.+ Tcl
0690: 44 65 6c 65 74 65 4e 61 6d 65 73 70 61 63 65 56 DeleteNamespaceV
06a0: 61 72 73 28 6e 73 50 74 72 29 3b 0a 20 20 20 20 ars(nsPtr);.
06b0: 20 20 20 20 20 54 63 6c 5f 49 6e 69 74 48 61 73 Tcl_InitHas
06c0: 68 54 61 62 6c 65 28 26 6e 73 50 74 72 2d 3e 76 hTable(&nsPtr->v
06d0: 61 72 54 61 62 6c 65 2c 20 54 43 4c 5f 53 54 52 arTable, TCL_STR
06e0: 49 4e 47 5f 4b 45 59 53 29 3b 0a 20 20 20 20 20 ING_KEYS);.
06f0: 7d 0a 20 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 }. .Index: gener
0700: 69 63 2f 74 63 6c 56 61 72 2e 63 0a 3d 3d 3d 3d ic/tclVar.c.====
0710: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0720: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0730: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0740: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
0750: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
0760: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 ot/tcl/tcl/gener
0770: 69 63 2f 74 63 6c 56 61 72 2e 63 2c 76 0a 72 65 ic/tclVar.c,v.re
0780: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
0790: 6e 20 31 2e 36 39 2e 32 2e 39 0a 64 69 66 66 20 n 1.69.2.9.diff
07a0: 2d 75 20 2d 72 31 2e 36 39 2e 32 2e 39 20 74 63 -u -r1.69.2.9 tc
07b0: 6c 56 61 72 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 lVar.c.--- gener
07c0: 69 63 2f 74 63 6c 56 61 72 2e 63 09 32 33 20 4f ic/tclVar.c.23 O
07d0: 63 74 20 32 30 30 35 20 32 32 3a 30 31 3a 33 31 ct 2005 22:01:31
07e0: 20 2d 30 30 30 30 09 31 2e 36 39 2e 32 2e 39 0a -0000.1.69.2.9.
07f0: 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 56 +++ generic/tclV
0800: 61 72 2e 63 09 32 20 4e 6f 76 20 32 30 30 35 20 ar.c.2 Nov 2005
0810: 31 37 3a 30 38 3a 34 32 20 2d 30 30 30 30 0a 40 17:08:42 -0000.@
0820: 40 20 2d 36 36 2c 37 20 2b 36 36 2c 39 20 40 40 @ -66,7 +66,9 @@
0830: 0a 20 09 09 09 20 20 20 20 43 4f 4e 53 54 20 63 . ... CONST c
0840: 68 61 72 20 2a 6f 70 65 72 61 74 69 6f 6e 2c 20 har *operation,
0850: 43 4f 4e 53 54 20 63 68 61 72 20 2a 72 65 61 73 CONST char *reas
0860: 6f 6e 29 29 3b 0a 20 73 74 61 74 69 63 20 69 6e on));. static in
0870: 74 09 09 53 65 74 41 72 72 61 79 53 65 61 72 63 t..SetArraySearc
0880: 68 4f 62 6a 20 5f 41 4e 53 49 5f 41 52 47 53 5f hObj _ANSI_ARGS_
0890: 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e ((Tcl_Interp *in
08a0: 74 65 72 70 2c 0a 20 09 09 09 20 20 20 20 54 63 terp,. ... Tc
08b0: 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 29 29 3b l_Obj *objPtr));
08c0: 0a 2d 0a 2b 73 74 61 74 69 63 20 76 6f 69 64 09 .-.+static void.
08d0: 09 55 6e 73 65 74 56 61 72 53 74 72 75 63 74 20 .UnsetVarStruct
08e0: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 56 61 72 _ANSI_ARGS_((Var
08f0: 20 2a 76 61 72 50 74 72 2c 20 56 61 72 20 2a 61 *varPtr, Var *a
0900: 72 72 61 79 50 74 72 2c 0a 2b 09 09 09 20 20 20 rrayPtr,.+...
0910: 20 49 6e 74 65 72 70 20 2a 69 50 74 72 2c 20 43 Interp *iPtr, C
0920: 4f 4e 53 54 20 63 68 61 72 20 2a 70 61 72 74 31 ONST char *part1
0930: 2c 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 70 61 , CONST char *pa
0940: 72 74 32 2c 0a 2b 09 09 09 20 20 20 20 69 6e 74 rt2,.+... int
0950: 20 66 6c 61 67 73 29 29 3b 0a 20 0a 20 2f 2a 0a flags));. . /*.
0960: 20 20 2a 20 46 75 6e 63 74 69 6f 6e 73 20 64 65 * Functions de
0970: 66 69 6e 65 64 20 69 6e 20 74 68 69 73 20 66 69 fined in this fi
0980: 6c 65 20 74 68 61 74 20 6d 61 79 20 62 65 20 65 le that may be e
0990: 78 70 6f 72 74 65 64 20 69 6e 20 74 68 65 20 66 xported in the f
09a0: 75 74 75 72 65 0a 40 40 20 2d 31 39 38 36 2c 33 uture.@@ -1986,3
09b0: 39 20 2b 31 39 38 38 2c 34 33 20 40 40 0a 20 20 9 +1988,43 @@.
09c0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
09d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 2f 0a 20 0a 2d -------. */. .-
0a10: 69 6e 74 0a 2d 54 63 6c 4f 62 6a 55 6e 73 65 74 int.-TclObjUnset
0a20: 56 61 72 32 28 69 6e 74 65 72 70 2c 20 70 61 72 Var2(interp, par
0a30: 74 31 50 74 72 2c 20 70 61 72 74 32 2c 20 66 6c t1Ptr, part2, fl
0a40: 61 67 73 29 0a 2d 20 20 20 20 54 63 6c 5f 49 6e ags).- Tcl_In
0a50: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f terp *interp;../
0a60: 2a 20 43 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 * Command interp
0a70: 72 65 74 65 72 20 69 6e 20 77 68 69 63 68 20 76 reter in which v
0a80: 61 72 4e 61 6d 65 20 69 73 0a 2d 09 09 09 09 20 arName is.-....
0a90: 2a 20 74 6f 20 62 65 20 6c 6f 6f 6b 65 64 20 75 * to be looked u
0aa0: 70 2e 20 2a 2f 0a 2d 20 20 20 20 54 63 6c 5f 4f p. */.- Tcl_O
0ab0: 62 6a 20 2a 70 61 72 74 31 50 74 72 3b 09 09 2f bj *part1Ptr;../
0ac0: 2a 20 4e 61 6d 65 20 6f 66 20 76 61 72 69 61 62 * Name of variab
0ad0: 6c 65 20 6f 72 20 61 72 72 61 79 2e 20 2a 2f 0a le or array. */.
0ae0: 2d 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 20 - CONST char
0af0: 2a 70 61 72 74 32 3b 09 09 2f 2a 20 4e 61 6d 65 *part2;../* Name
0b00: 20 6f 66 20 65 6c 65 6d 65 6e 74 20 77 69 74 68 of element with
0b10: 69 6e 20 61 72 72 61 79 20 6f 72 20 4e 55 4c 4c in array or NULL
0b20: 2e 20 2a 2f 0a 2d 20 20 20 20 69 6e 74 20 66 6c . */.- int fl
0b30: 61 67 73 3b 09 09 09 2f 2a 20 4f 52 2d 65 64 20 ags;.../* OR-ed
0b40: 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 61 combination of a
0b50: 6e 79 20 6f 66 0a 2d 09 09 09 09 20 2a 20 54 43 ny of.-.... * TC
0b60: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 2c 20 54 L_GLOBAL_ONLY, T
0b70: 43 4c 5f 4e 41 4d 45 53 50 41 43 45 5f 4f 4e 4c CL_NAMESPACE_ONL
0b80: 59 2c 0a 2d 09 09 09 09 20 2a 20 54 43 4c 5f 4c Y,.-.... * TCL_L
0b90: 45 41 56 45 5f 45 52 52 5f 4d 53 47 2e 20 2a 2f EAVE_ERR_MSG. */
0ba0: 0a 2b 73 74 61 74 69 63 20 76 6f 69 64 0a 2b 55 .+static void.+U
0bb0: 6e 73 65 74 56 61 72 53 74 72 75 63 74 28 76 61 nsetVarStruct(va
0bc0: 72 50 74 72 2c 20 61 72 72 61 79 50 74 72 2c 20 rPtr, arrayPtr,
0bd0: 69 50 74 72 2c 20 70 61 72 74 31 2c 20 70 61 72 iPtr, part1, par
0be0: 74 32 2c 20 66 6c 61 67 73 29 0a 2b 20 20 20 20 t2, flags).+
0bf0: 56 61 72 20 2a 76 61 72 50 74 72 3b 0a 2b 20 20 Var *varPtr;.+
0c00: 20 20 56 61 72 20 2a 61 72 72 61 79 50 74 72 3b Var *arrayPtr;
0c10: 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a 69 50 .+ Interp *iP
0c20: 74 72 3b 0a 2b 20 20 20 20 43 4f 4e 53 54 20 63 tr;.+ CONST c
0c30: 68 61 72 20 2a 70 61 72 74 31 3b 0a 2b 20 20 20 har *part1;.+
0c40: 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 70 61 72 CONST char *par
0c50: 74 32 3b 0a 2b 20 20 20 20 69 6e 74 20 66 6c 61 t2;.+ int fla
0c60: 67 73 3b 0a 20 7b 0a 20 20 20 20 20 56 61 72 20 gs;. {. Var
0c70: 64 75 6d 6d 79 56 61 72 3b 0a 2d 20 20 20 20 56 dummyVar;.- V
0c80: 61 72 20 2a 76 61 72 50 74 72 2c 20 2a 64 75 6d ar *varPtr, *dum
0c90: 6d 79 56 61 72 50 74 72 3b 0a 2d 20 20 20 20 49 myVarPtr;.- I
0ca0: 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20 28 49 nterp *iPtr = (I
0cb0: 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72 70 3b nterp *) interp;
0cc0: 0a 2d 20 20 20 20 56 61 72 20 2a 61 72 72 61 79 .- Var *array
0cd0: 50 74 72 3b 0a 2b 20 20 20 20 56 61 72 20 2a 64 Ptr;.+ Var *d
0ce0: 75 6d 6d 79 56 61 72 50 74 72 3b 0a 20 20 20 20 ummyVarPtr;.
0cf0: 20 41 63 74 69 76 65 56 61 72 54 72 61 63 65 20 ActiveVarTrace
0d00: 2a 61 63 74 69 76 65 50 74 72 3b 0a 2d 20 20 20 *activePtr;.-
0d10: 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 Tcl_Obj *objPtr
0d20: 3b 0a 2d 20 20 20 20 69 6e 74 20 72 65 73 75 6c ;.- int resul
0d30: 74 3b 0a 2d 20 20 20 20 63 68 61 72 20 2a 70 61 t;.- char *pa
0d40: 72 74 31 3b 0a 2d 0a 2d 20 20 20 20 70 61 72 74 rt1;.-.- part
0d50: 31 20 3d 20 54 63 6c 47 65 74 53 74 72 69 6e 67 1 = TclGetString
0d60: 28 70 61 72 74 31 50 74 72 29 3b 0a 2d 20 20 20 (part1Ptr);.-
0d70: 20 76 61 72 50 74 72 20 3d 20 54 63 6c 4f 62 6a varPtr = TclObj
0d80: 4c 6f 6f 6b 75 70 56 61 72 28 69 6e 74 65 72 70 LookupVar(interp
0d90: 2c 20 70 61 72 74 31 50 74 72 2c 20 70 61 72 74 , part1Ptr, part
0da0: 32 2c 20 66 6c 61 67 73 2c 20 22 75 6e 73 65 74 2, flags, "unset
0db0: 22 2c 0a 2d 09 20 20 20 20 2f 2a 63 72 65 61 74 ",.-. /*creat
0dc0: 65 50 61 72 74 31 2a 2f 20 30 2c 20 2f 2a 63 72 ePart1*/ 0, /*cr
0dd0: 65 61 74 65 50 61 72 74 32 2a 2f 20 30 2c 20 26 eatePart2*/ 0, &
0de0: 61 72 72 61 79 50 74 72 29 3b 0a 2d 20 20 20 20 arrayPtr);.-
0df0: 69 66 20 28 76 61 72 50 74 72 20 3d 3d 20 4e 55 if (varPtr == NU
0e00: 4c 4c 29 20 7b 0a 2d 09 72 65 74 75 72 6e 20 54 LL) {.-.return T
0e10: 43 4c 5f 45 52 52 4f 52 3b 0a 2d 20 20 20 20 7d CL_ERROR;.- }
0e20: 0a 2d 20 0a 2d 20 20 20 20 72 65 73 75 6c 74 20 .- .- result
0e30: 3d 20 28 54 63 6c 49 73 56 61 72 55 6e 64 65 66 = (TclIsVarUndef
0e40: 69 6e 65 64 28 76 61 72 50 74 72 29 3f 20 54 43 ined(varPtr)? TC
0e50: 4c 5f 45 52 52 4f 52 20 3a 20 54 43 4c 5f 4f 4b L_ERROR : TCL_OK
0e60: 29 3b 0a 20 0a 20 20 20 20 20 69 66 20 28 28 61 );. . if ((a
0e70: 72 72 61 79 50 74 72 20 21 3d 20 4e 55 4c 4c 29 rrayPtr != NULL)
0e80: 20 26 26 20 28 61 72 72 61 79 50 74 72 2d 3e 73 && (arrayPtr->s
0e90: 65 61 72 63 68 50 74 72 20 21 3d 20 4e 55 4c 4c earchPtr != NULL
0ea0: 29 29 20 7b 0a 20 09 44 65 6c 65 74 65 53 65 61 )) {. .DeleteSea
0eb0: 72 63 68 65 73 28 61 72 72 61 79 50 74 72 29 3b rches(arrayPtr);
0ec0: 0a 20 20 20 20 20 7d 0a 20 0a 20 20 20 20 20 2f . }. . /
0ed0: 2a 0a 2b 20 20 20 20 20 2a 20 46 6f 72 20 67 6c *.+ * For gl
0ee0: 6f 62 61 6c 2f 75 70 76 61 72 20 76 61 72 69 61 obal/upvar varia
0ef0: 62 6c 65 73 20 72 65 66 65 72 65 6e 63 65 64 20 bles referenced
0f00: 69 6e 20 70 72 6f 63 65 64 75 72 65 73 2c 20 64 in procedures, d
0f10: 65 63 72 65 6d 65 6e 74 0a 2b 20 20 20 20 20 2a ecrement.+ *
0f20: 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 63 the reference c
0f30: 6f 75 6e 74 20 6f 6e 20 74 68 65 20 76 61 72 69 ount on the vari
0f40: 61 62 6c 65 20 72 65 66 65 72 72 65 64 20 74 6f able referred to
0f50: 2c 20 61 6e 64 20 66 72 65 65 0a 2b 20 20 20 20 , and free.+
0f60: 20 2a 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 * the reference
0f70: 64 20 76 61 72 69 61 62 6c 65 20 69 66 20 69 74 d variable if it
0f80: 27 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 6e 65 65 's no longer nee
0f90: 64 65 64 2e 20 0a 2b 20 20 20 20 20 2a 2f 0a 2b ded. .+ */.+
0fa0: 0a 2b 20 20 20 20 69 66 20 28 54 63 6c 49 73 56 .+ if (TclIsV
0fb0: 61 72 4c 69 6e 6b 28 76 61 72 50 74 72 29 29 20 arLink(varPtr))
0fc0: 7b 0a 2b 09 56 61 72 20 2a 6c 69 6e 6b 50 74 72 {.+.Var *linkPtr
0fd0: 20 3d 20 76 61 72 50 74 72 2d 3e 76 61 6c 75 65 = varPtr->value
0fe0: 2e 6c 69 6e 6b 50 74 72 3b 0a 2b 09 6c 69 6e 6b .linkPtr;.+.link
0ff0: 50 74 72 2d 3e 72 65 66 43 6f 75 6e 74 2d 2d 3b Ptr->refCount--;
1000: 0a 2b 09 69 66 20 28 28 6c 69 6e 6b 50 74 72 2d .+.if ((linkPtr-
1010: 3e 72 65 66 43 6f 75 6e 74 20 3d 3d 20 30 29 20 >refCount == 0)
1020: 26 26 20 54 63 6c 49 73 56 61 72 55 6e 64 65 66 && TclIsVarUndef
1030: 69 6e 65 64 28 6c 69 6e 6b 50 74 72 29 0a 2b 09 ined(linkPtr).+.
1040: 09 26 26 20 28 6c 69 6e 6b 50 74 72 2d 3e 74 72 .&& (linkPtr->tr
1050: 61 63 65 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 0a acePtr == NULL).
1060: 2b 09 09 26 26 20 28 6c 69 6e 6b 50 74 72 2d 3e +..&& (linkPtr->
1070: 66 6c 61 67 73 20 26 20 56 41 52 5f 49 4e 5f 48 flags & VAR_IN_H
1080: 41 53 48 54 41 42 4c 45 29 29 20 7b 0a 2b 09 20 ASHTABLE)) {.+.
1090: 20 20 20 69 66 20 28 6c 69 6e 6b 50 74 72 2d 3e if (linkPtr->
10a0: 68 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a hPtr != NULL) {.
10b0: 2b 09 09 54 63 6c 5f 44 65 6c 65 74 65 48 61 73 +..Tcl_DeleteHas
10c0: 68 45 6e 74 72 79 28 6c 69 6e 6b 50 74 72 2d 3e hEntry(linkPtr->
10d0: 68 50 74 72 29 3b 0a 2b 09 20 20 20 20 7d 0a 2b hPtr);.+. }.+
10e0: 09 20 20 20 20 63 6b 66 72 65 65 28 28 63 68 61 . ckfree((cha
10f0: 72 20 2a 29 20 6c 69 6e 6b 50 74 72 29 3b 0a 2b r *) linkPtr);.+
1100: 09 7d 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 .}.+ }.+.+
1110: 20 2f 2a 0a 20 20 20 20 20 20 2a 20 54 68 65 20 /*. * The
1120: 63 6f 64 65 20 62 65 6c 6f 77 20 69 73 20 74 72 code below is tr
1130: 69 63 6b 79 2c 20 62 65 63 61 75 73 65 20 6f 66 icky, because of
1140: 20 74 68 65 20 70 6f 73 73 69 62 69 6c 69 74 79 the possibility
1150: 20 74 68 61 74 0a 20 20 20 20 20 20 2a 20 61 20 that. * a
1160: 74 72 61 63 65 20 70 72 6f 63 65 64 75 72 65 20 trace procedure
1170: 6d 69 67 68 74 20 74 72 79 20 74 6f 20 61 63 63 might try to acc
1180: 65 73 73 20 61 20 76 61 72 69 61 62 6c 65 20 62 ess a variable b
1190: 65 69 6e 67 0a 20 20 20 20 20 20 2a 20 64 65 6c eing. * del
11a0: 65 74 65 64 2e 20 54 6f 20 68 61 6e 64 6c 65 20 eted. To handle
11b0: 74 68 69 73 20 73 69 74 75 61 74 69 6f 6e 20 67 this situation g
11c0: 72 61 63 65 66 75 6c 6c 79 2c 20 64 6f 20 74 68 racefully, do th
11d0: 69 6e 67 73 0a 40 40 20 2d 32 30 33 39 2c 31 35 ings.@@ -2039,15
11e0: 20 2b 32 30 34 35 2c 36 20 40 40 0a 20 20 20 20 +2045,6 @@.
11f0: 20 76 61 72 50 74 72 2d 3e 73 65 61 72 63 68 50 varPtr->searchP
1200: 74 72 20 3d 20 4e 55 4c 4c 3b 0a 20 0a 20 20 20 tr = NULL;. .
1210: 20 20 2f 2a 0a 2d 20 20 20 20 20 2a 20 4b 65 65 /*.- * Kee
1220: 70 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 61 p the variable a
1230: 6c 69 76 65 20 75 6e 74 69 6c 20 77 65 27 72 65 live until we're
1240: 20 64 6f 6e 65 20 77 69 74 68 20 69 74 2e 20 57 done with it. W
1250: 65 20 75 73 65 64 20 74 6f 0a 2d 20 20 20 20 20 e used to.-
1260: 2a 20 69 6e 63 72 65 61 73 65 2f 64 65 63 72 65 * increase/decre
1270: 61 73 65 20 74 68 65 20 72 65 66 43 6f 75 6e 74 ase the refCount
1280: 20 66 6f 72 20 65 61 63 68 20 6f 70 65 72 61 74 for each operat
1290: 69 6f 6e 2c 20 6d 61 6b 69 6e 67 20 69 74 0a 2d ion, making it.-
12a0: 20 20 20 20 20 2a 20 68 61 72 64 20 74 6f 20 66 * hard to f
12b0: 69 6e 64 20 5b 42 75 67 20 37 33 35 33 33 35 5d ind [Bug 735335]
12c0: 20 2d 20 63 61 75 73 65 64 20 62 79 20 75 6e 73 - caused by uns
12d0: 65 74 74 69 6e 67 20 74 68 65 20 76 61 72 69 61 etting the varia
12e0: 62 6c 65 0a 2d 20 20 20 20 20 2a 20 77 68 6f 73 ble.- * whos
12f0: 65 20 76 61 6c 75 65 20 77 61 73 20 74 68 65 20 e value was the
1300: 76 61 72 69 61 62 6c 65 27 73 20 6e 61 6d 65 2e variable's name.
1310: 0a 2d 20 20 20 20 20 2a 2f 0a 2d 20 20 20 20 0a .- */.- .
1320: 2d 20 20 20 20 76 61 72 50 74 72 2d 3e 72 65 66 - varPtr->ref
1330: 43 6f 75 6e 74 2b 2b 3b 0a 2d 0a 2d 20 20 20 20 Count++;.-.-
1340: 2f 2a 0a 20 20 20 20 20 20 2a 20 43 61 6c 6c 20 /*. * Call
1350: 74 72 61 63 65 20 70 72 6f 63 65 64 75 72 65 73 trace procedures
1360: 20 66 6f 72 20 74 68 65 20 76 61 72 69 61 62 6c for the variabl
1370: 65 20 62 65 69 6e 67 20 64 65 6c 65 74 65 64 2e e being deleted.
1380: 20 54 68 65 6e 20 64 65 6c 65 74 65 0a 20 20 20 Then delete.
1390: 20 20 20 2a 20 69 74 73 20 74 72 61 63 65 73 2e * its traces.
13a0: 20 42 65 20 73 75 72 65 20 74 6f 20 61 62 6f 72 Be sure to abor
13b0: 74 20 61 6e 79 20 6f 74 68 65 72 20 74 72 61 63 t any other trac
13c0: 65 73 20 66 6f 72 20 74 68 65 20 76 61 72 69 61 es for the varia
13d0: 62 6c 65 0a 20 20 20 20 20 20 2a 20 74 68 61 74 ble. * that
13e0: 20 61 72 65 20 73 74 69 6c 6c 20 70 65 6e 64 69 are still pendi
13f0: 6e 67 2e 20 53 70 65 63 69 61 6c 20 74 72 69 63 ng. Special tric
1400: 6b 73 3a 0a 40 40 20 2d 32 31 30 34 2c 37 20 2b ks:.@@ -2104,7 +
1410: 32 31 30 31 2c 37 20 40 40 0a 20 20 20 20 20 7d 2101,7 @@. }
1420: 0a 20 20 20 20 20 69 66 20 28 54 63 6c 49 73 56 . if (TclIsV
1430: 61 72 53 63 61 6c 61 72 28 64 75 6d 6d 79 56 61 arScalar(dummyVa
1440: 72 50 74 72 29 0a 20 09 20 20 20 20 26 26 20 28 rPtr). . && (
1450: 64 75 6d 6d 79 56 61 72 50 74 72 2d 3e 76 61 6c dummyVarPtr->val
1460: 75 65 2e 6f 62 6a 50 74 72 20 21 3d 20 4e 55 4c ue.objPtr != NUL
1470: 4c 29 29 20 7b 0a 2d 09 6f 62 6a 50 74 72 20 3d L)) {.-.objPtr =
1480: 20 64 75 6d 6d 79 56 61 72 50 74 72 2d 3e 76 61 dummyVarPtr->va
1490: 6c 75 65 2e 6f 62 6a 50 74 72 3b 0a 2b 09 54 63 lue.objPtr;.+.Tc
14a0: 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d 20 l_Obj *objPtr =
14b0: 64 75 6d 6d 79 56 61 72 50 74 72 2d 3e 76 61 6c dummyVarPtr->val
14c0: 75 65 2e 6f 62 6a 50 74 72 3b 0a 20 09 54 63 6c ue.objPtr;. .Tcl
14d0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 6f 62 6a DecrRefCount(obj
14e0: 50 74 72 29 3b 0a 20 09 64 75 6d 6d 79 56 61 72 Ptr);. .dummyVar
14f0: 50 74 72 2d 3e 76 61 6c 75 65 2e 6f 62 6a 50 74 Ptr->value.objPt
1500: 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d r = NULL;. }
1510: 0a 40 40 20 2d 32 31 31 38 2c 36 20 2b 32 31 31 .@@ -2118,6 +211
1520: 35 2c 34 34 20 40 40 0a 20 09 76 61 72 50 74 72 5,44 @@. .varPtr
1530: 2d 3e 72 65 66 43 6f 75 6e 74 2d 2d 3b 0a 20 20 ->refCount--;.
1540: 20 20 20 7d 0a 20 0a 2b 7d 0a 2b 0a 2b 69 6e 74 }. .+}.+.+int
1550: 0a 2b 54 63 6c 4f 62 6a 55 6e 73 65 74 56 61 72 .+TclObjUnsetVar
1560: 32 28 69 6e 74 65 72 70 2c 20 70 61 72 74 31 50 2(interp, part1P
1570: 74 72 2c 20 70 61 72 74 32 2c 20 66 6c 61 67 73 tr, part2, flags
1580: 29 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 ).+ Tcl_Inter
1590: 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a 20 43 p *interp;../* C
15a0: 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 ommand interpret
15b0: 65 72 20 69 6e 20 77 68 69 63 68 20 76 61 72 4e er in which varN
15c0: 61 6d 65 20 69 73 0a 2b 09 09 09 09 20 2a 20 74 ame is.+.... * t
15d0: 6f 20 62 65 20 6c 6f 6f 6b 65 64 20 75 70 2e 20 o be looked up.
15e0: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 */.+ Tcl_Obj
15f0: 2a 70 61 72 74 31 50 74 72 3b 09 09 2f 2a 20 4e *part1Ptr;../* N
1600: 61 6d 65 20 6f 66 20 76 61 72 69 61 62 6c 65 20 ame of variable
1610: 6f 72 20 61 72 72 61 79 2e 20 2a 2f 0a 2b 20 20 or array. */.+
1620: 20 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 70 61 CONST char *pa
1630: 72 74 32 3b 09 09 2f 2a 20 4e 61 6d 65 20 6f 66 rt2;../* Name of
1640: 20 65 6c 65 6d 65 6e 74 20 77 69 74 68 69 6e 20 element within
1650: 61 72 72 61 79 20 6f 72 20 4e 55 4c 4c 2e 20 2a array or NULL. *
1660: 2f 0a 2b 20 20 20 20 69 6e 74 20 66 6c 61 67 73 /.+ int flags
1670: 3b 09 09 09 2f 2a 20 4f 52 2d 65 64 20 63 6f 6d ;.../* OR-ed com
1680: 62 69 6e 61 74 69 6f 6e 20 6f 66 20 61 6e 79 20 bination of any
1690: 6f 66 0a 2b 09 09 09 09 20 2a 20 54 43 4c 5f 47 of.+.... * TCL_G
16a0: 4c 4f 42 41 4c 5f 4f 4e 4c 59 2c 20 54 43 4c 5f LOBAL_ONLY, TCL_
16b0: 4e 41 4d 45 53 50 41 43 45 5f 4f 4e 4c 59 2c 0a NAMESPACE_ONLY,.
16c0: 2b 09 09 09 09 20 2a 20 54 43 4c 5f 4c 45 41 56 +.... * TCL_LEAV
16d0: 45 5f 45 52 52 5f 4d 53 47 2e 20 2a 2f 0a 2b 7b E_ERR_MSG. */.+{
16e0: 0a 2b 20 20 20 20 56 61 72 20 2a 76 61 72 50 74 .+ Var *varPt
16f0: 72 3b 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a r;.+ Interp *
1700: 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a iPtr = (Interp *
1710: 29 20 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 56 ) interp;.+ V
1720: 61 72 20 2a 61 72 72 61 79 50 74 72 3b 0a 2b 20 ar *arrayPtr;.+
1730: 20 20 20 69 6e 74 20 72 65 73 75 6c 74 3b 0a 2b int result;.+
1740: 20 20 20 20 63 68 61 72 20 2a 70 61 72 74 31 3b char *part1;
1750: 0a 2b 0a 2b 20 20 20 20 70 61 72 74 31 20 3d 20 .+.+ part1 =
1760: 54 63 6c 47 65 74 53 74 72 69 6e 67 28 70 61 72 TclGetString(par
1770: 74 31 50 74 72 29 3b 0a 2b 20 20 20 20 76 61 72 t1Ptr);.+ var
1780: 50 74 72 20 3d 20 54 63 6c 4f 62 6a 4c 6f 6f 6b Ptr = TclObjLook
1790: 75 70 56 61 72 28 69 6e 74 65 72 70 2c 20 70 61 upVar(interp, pa
17a0: 72 74 31 50 74 72 2c 20 70 61 72 74 32 2c 20 66 rt1Ptr, part2, f
17b0: 6c 61 67 73 2c 20 22 75 6e 73 65 74 22 2c 0a 2b lags, "unset",.+
17c0: 09 20 20 20 20 2f 2a 63 72 65 61 74 65 50 61 72 . /*createPar
17d0: 74 31 2a 2f 20 30 2c 20 2f 2a 63 72 65 61 74 65 t1*/ 0, /*create
17e0: 50 61 72 74 32 2a 2f 20 30 2c 20 26 61 72 72 61 Part2*/ 0, &arra
17f0: 79 50 74 72 29 3b 0a 2b 20 20 20 20 69 66 20 28 yPtr);.+ if (
1800: 76 61 72 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 varPtr == NULL)
1810: 7b 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {.+.return TCL_E
1820: 52 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 20 0a RROR;.+ }.+ .
1830: 2b 20 20 20 20 72 65 73 75 6c 74 20 3d 20 28 54 + result = (T
1840: 63 6c 49 73 56 61 72 55 6e 64 65 66 69 6e 65 64 clIsVarUndefined
1850: 28 76 61 72 50 74 72 29 3f 20 54 43 4c 5f 45 52 (varPtr)? TCL_ER
1860: 52 4f 52 20 3a 20 54 43 4c 5f 4f 4b 29 3b 0a 2b ROR : TCL_OK);.+
1870: 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a .+ /*.+ *
1880: 20 4b 65 65 70 20 74 68 65 20 76 61 72 69 61 62 Keep the variab
1890: 6c 65 20 61 6c 69 76 65 20 75 6e 74 69 6c 20 77 le alive until w
18a0: 65 27 72 65 20 64 6f 6e 65 20 77 69 74 68 20 69 e're done with i
18b0: 74 2e 20 57 65 20 75 73 65 64 20 74 6f 0a 2b 20 t. We used to.+
18c0: 20 20 20 20 2a 20 69 6e 63 72 65 61 73 65 2f 64 * increase/d
18d0: 65 63 72 65 61 73 65 20 74 68 65 20 72 65 66 43 ecrease the refC
18e0: 6f 75 6e 74 20 66 6f 72 20 65 61 63 68 20 6f 70 ount for each op
18f0: 65 72 61 74 69 6f 6e 2c 20 6d 61 6b 69 6e 67 20 eration, making
1900: 69 74 0a 2b 20 20 20 20 20 2a 20 68 61 72 64 20 it.+ * hard
1910: 74 6f 20 66 69 6e 64 20 5b 42 75 67 20 37 33 35 to find [Bug 735
1920: 33 33 35 5d 20 2d 20 63 61 75 73 65 64 20 62 79 335] - caused by
1930: 20 75 6e 73 65 74 74 69 6e 67 20 74 68 65 20 76 unsetting the v
1940: 61 72 69 61 62 6c 65 0a 2b 20 20 20 20 20 2a 20 ariable.+ *
1950: 77 68 6f 73 65 20 76 61 6c 75 65 20 77 61 73 20 whose value was
1960: 74 68 65 20 76 61 72 69 61 62 6c 65 27 73 20 6e the variable's n
1970: 61 6d 65 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 20 ame..+ */.+
1980: 20 20 20 0a 2b 20 20 20 20 76 61 72 50 74 72 2d .+ varPtr-
1990: 3e 72 65 66 43 6f 75 6e 74 2b 2b 3b 0a 2b 0a 2b >refCount++;.+.+
19a0: 20 20 20 20 55 6e 73 65 74 56 61 72 53 74 72 75 UnsetVarStru
19b0: 63 74 28 76 61 72 50 74 72 2c 20 61 72 72 61 79 ct(varPtr, array
19c0: 50 74 72 2c 20 69 50 74 72 2c 20 70 61 72 74 31 Ptr, iPtr, part1
19d0: 2c 20 70 61 72 74 32 2c 20 66 6c 61 67 73 29 3b , part2, flags);
19e0: 0a 2b 0a 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 .+. /*.
19f0: 20 2a 20 49 74 27 73 20 61 6e 20 65 72 72 6f 72 * It's an error
1a00: 20 74 6f 20 75 6e 73 65 74 20 61 6e 20 75 6e 64 to unset an und
1a10: 65 66 69 6e 65 64 20 76 61 72 69 61 62 6c 65 2e efined variable.
1a20: 0a 20 20 20 20 20 20 2a 2f 0a 40 40 20 2d 34 35 . */.@@ -45
1a30: 33 32 2c 36 20 2b 34 35 36 37 2c 35 38 20 40 40 32,6 +4567,58 @@
1a40: 0a 20 20 2a 2f 0a 20 0a 20 76 6f 69 64 0a 2b 54 . */. . void.+T
1a50: 63 6c 44 65 6c 65 74 65 4e 61 6d 65 73 70 61 63 clDeleteNamespac
1a60: 65 56 61 72 73 28 6e 73 50 74 72 29 0a 2b 20 20 eVars(nsPtr).+
1a70: 20 20 4e 61 6d 65 73 70 61 63 65 20 2a 6e 73 50 Namespace *nsP
1a80: 74 72 3b 0a 2b 7b 0a 2b 20 20 20 20 54 63 6c 5f tr;.+{.+ Tcl_
1a90: 48 61 73 68 54 61 62 6c 65 20 2a 74 61 62 6c 65 HashTable *table
1aa0: 50 74 72 20 3d 20 26 6e 73 50 74 72 2d 3e 76 61 Ptr = &nsPtr->va
1ab0: 72 54 61 62 6c 65 3b 0a 2b 20 20 20 20 54 63 6c rTable;.+ Tcl
1ac0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 20 _Interp *interp
1ad0: 3d 20 6e 73 50 74 72 2d 3e 69 6e 74 65 72 70 3b = nsPtr->interp;
1ae0: 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a 69 50 .+ Interp *iP
1af0: 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a 29 69 tr = (Interp *)i
1b00: 6e 74 65 72 70 3b 0a 2b 20 20 20 20 54 63 6c 5f nterp;.+ Tcl_
1b10: 48 61 73 68 53 65 61 72 63 68 20 73 65 61 72 63 HashSearch searc
1b20: 68 3b 0a 2b 20 20 20 20 54 63 6c 5f 48 61 73 68 h;.+ Tcl_Hash
1b30: 45 6e 74 72 79 20 2a 68 50 74 72 3b 0a 2b 20 20 Entry *hPtr;.+
1b40: 20 20 69 6e 74 20 66 6c 61 67 73 20 3d 20 30 3b int flags = 0;
1b50: 0a 2b 20 20 20 20 4e 61 6d 65 73 70 61 63 65 20 .+ Namespace
1b60: 2a 63 75 72 72 4e 73 50 74 72 20 3d 20 28 4e 61 *currNsPtr = (Na
1b70: 6d 65 73 70 61 63 65 20 2a 29 20 54 63 6c 5f 47 mespace *) Tcl_G
1b80: 65 74 43 75 72 72 65 6e 74 4e 61 6d 65 73 70 61 etCurrentNamespa
1b90: 63 65 28 69 6e 74 65 72 70 29 3b 0a 2b 0a 2b 20 ce(interp);.+.+
1ba0: 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 44 65 /*.+ * De
1bb0: 74 65 72 6d 69 6e 65 20 77 68 61 74 20 66 6c 61 termine what fla
1bc0: 67 73 20 74 6f 20 70 61 73 73 20 74 6f 20 74 68 gs to pass to th
1bd0: 65 20 74 72 61 63 65 20 63 61 6c 6c 62 61 63 6b e trace callback
1be0: 20 70 72 6f 63 65 64 75 72 65 73 2e 0a 2b 20 20 procedures..+
1bf0: 20 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 69 66 20 */.+.+ if
1c00: 28 6e 73 50 74 72 20 3d 3d 20 69 50 74 72 2d 3e (nsPtr == iPtr->
1c10: 67 6c 6f 62 61 6c 4e 73 50 74 72 29 20 7b 0a 2b globalNsPtr) {.+
1c20: 09 66 6c 61 67 73 20 3d 20 54 43 4c 5f 47 4c 4f .flags = TCL_GLO
1c30: 42 41 4c 5f 4f 4e 4c 59 3b 0a 2b 20 20 20 20 7d BAL_ONLY;.+ }
1c40: 20 65 6c 73 65 20 69 66 20 28 6e 73 50 74 72 20 else if (nsPtr
1c50: 3d 3d 20 63 75 72 72 4e 73 50 74 72 29 20 7b 0a == currNsPtr) {.
1c60: 2b 09 66 6c 61 67 73 20 3d 20 54 43 4c 5f 4e 41 +.flags = TCL_NA
1c70: 4d 45 53 50 41 43 45 5f 4f 4e 4c 59 3b 0a 2b 20 MESPACE_ONLY;.+
1c80: 20 20 20 7d 0a 2b 20 20 20 20 69 66 20 28 54 63 }.+ if (Tc
1c90: 6c 5f 49 6e 74 65 72 70 44 65 6c 65 74 65 64 28 l_InterpDeleted(
1ca0: 69 6e 74 65 72 70 29 29 20 7b 0a 2b 09 66 6c 61 interp)) {.+.fla
1cb0: 67 73 20 7c 3d 20 54 43 4c 5f 49 4e 54 45 52 50 gs |= TCL_INTERP
1cc0: 5f 44 45 53 54 52 4f 59 45 44 3b 0a 2b 20 20 20 _DESTROYED;.+
1cd0: 20 7d 0a 2b 0a 2b 20 20 20 20 66 6f 72 20 28 68 }.+.+ for (h
1ce0: 50 74 72 20 3d 20 54 63 6c 5f 46 69 72 73 74 48 Ptr = Tcl_FirstH
1cf0: 61 73 68 45 6e 74 72 79 28 74 61 62 6c 65 50 74 ashEntry(tablePt
1d00: 72 2c 20 26 73 65 61 72 63 68 29 3b 20 20 68 50 r, &search); hP
1d10: 74 72 20 21 3d 20 4e 55 4c 4c 3b 0a 2b 09 20 68 tr != NULL;.+. h
1d20: 50 74 72 20 3d 20 54 63 6c 5f 46 69 72 73 74 48 Ptr = Tcl_FirstH
1d30: 61 73 68 45 6e 74 72 79 28 74 61 62 6c 65 50 74 ashEntry(tablePt
1d40: 72 2c 20 26 73 65 61 72 63 68 29 29 20 7b 0a 2b r, &search)) {.+
1d50: 09 72 65 67 69 73 74 65 72 20 56 61 72 20 2a 76 .register Var *v
1d60: 61 72 50 74 72 20 3d 20 28 56 61 72 20 2a 29 20 arPtr = (Var *)
1d70: 54 63 6c 5f 47 65 74 48 61 73 68 56 61 6c 75 65 Tcl_GetHashValue
1d80: 28 68 50 74 72 29 3b 0a 2b 09 54 63 6c 5f 4f 62 (hPtr);.+.Tcl_Ob
1d90: 6a 20 2a 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f j *objPtr = Tcl_
1da0: 4e 65 77 4f 62 6a 28 29 3b 0a 2b 09 76 61 72 50 NewObj();.+.varP
1db0: 74 72 2d 3e 72 65 66 43 6f 75 6e 74 2b 2b 3b 09 tr->refCount++;.
1dc0: 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 77 65 20 /* Make sure we
1dd0: 67 65 74 20 74 6f 20 72 65 6d 6f 76 65 20 66 72 get to remove fr
1de0: 6f 6d 20 68 61 73 68 20 2a 2f 0a 2b 09 54 63 6c om hash */.+.Tcl
1df0: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6f 62 _IncrRefCount(ob
1e00: 6a 50 74 72 29 3b 20 0a 2b 09 54 63 6c 5f 47 65 jPtr); .+.Tcl_Ge
1e10: 74 56 61 72 69 61 62 6c 65 46 75 6c 6c 4e 61 6d tVariableFullNam
1e20: 65 28 69 6e 74 65 72 70 2c 20 28 54 63 6c 5f 56 e(interp, (Tcl_V
1e30: 61 72 29 20 76 61 72 50 74 72 2c 20 6f 62 6a 50 ar) varPtr, objP
1e40: 74 72 29 3b 0a 2b 09 55 6e 73 65 74 56 61 72 53 tr);.+.UnsetVarS
1e50: 74 72 75 63 74 28 76 61 72 50 74 72 2c 20 4e 55 truct(varPtr, NU
1e60: 4c 4c 2c 20 69 50 74 72 2c 20 54 63 6c 5f 47 65 LL, iPtr, Tcl_Ge
1e70: 74 53 74 72 69 6e 67 28 6f 62 6a 50 74 72 29 2c tString(objPtr),
1e80: 20 4e 55 4c 4c 2c 20 66 6c 61 67 73 29 3b 0a 2b NULL, flags);.+
1e90: 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e .Tcl_DecrRefCoun
1ea0: 74 28 6f 62 6a 50 74 72 29 3b 20 2f 2a 20 66 72 t(objPtr); /* fr
1eb0: 65 65 20 6e 6f 20 6c 6f 6e 67 65 72 20 6e 65 65 ee no longer nee
1ec0: 64 65 64 20 6f 62 6a 20 2a 2f 0a 2b 09 76 61 72 ded obj */.+.var
1ed0: 50 74 72 2d 3e 72 65 66 43 6f 75 6e 74 2d 2d 3b Ptr->refCount--;
1ee0: 0a 2b 0a 2b 09 2f 2a 20 52 65 6d 6f 76 65 20 74 .+.+./* Remove t
1ef0: 68 65 20 76 61 72 69 61 62 6c 65 20 66 72 6f 6d he variable from
1f00: 20 74 68 65 20 74 61 62 6c 65 20 61 6e 64 20 66 the table and f
1f10: 6f 72 63 65 20 69 74 20 75 6e 64 65 66 69 6e 65 orce it undefine
1f20: 64 0a 2b 09 20 2a 20 69 6e 20 63 61 73 65 20 61 d.+. * in case a
1f30: 6e 20 75 6e 73 65 74 20 74 72 61 63 65 20 62 72 n unset trace br
1f40: 6f 75 67 68 74 20 69 74 20 62 61 63 6b 20 66 72 ought it back fr
1f50: 6f 6d 20 74 68 65 20 64 65 61 64 20 2a 2f 0a 2b om the dead */.+
1f60: 09 54 63 6c 5f 44 65 6c 65 74 65 48 61 73 68 45 .Tcl_DeleteHashE
1f70: 6e 74 72 79 28 68 50 74 72 29 3b 0a 2b 09 76 61 ntry(hPtr);.+.va
1f80: 72 50 74 72 2d 3e 68 50 74 72 20 3d 20 4e 55 4c rPtr->hPtr = NUL
1f90: 4c 3b 0a 2b 09 54 63 6c 53 65 74 56 61 72 55 6e L;.+.TclSetVarUn
1fa0: 64 65 66 69 6e 65 64 28 76 61 72 50 74 72 29 3b defined(varPtr);
1fb0: 0a 2b 09 54 63 6c 53 65 74 56 61 72 53 63 61 6c .+.TclSetVarScal
1fc0: 61 72 28 76 61 72 50 74 72 29 3b 0a 2b 09 77 68 ar(varPtr);.+.wh
1fd0: 69 6c 65 20 28 76 61 72 50 74 72 2d 3e 74 72 61 ile (varPtr->tra
1fe0: 63 65 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b cePtr != NULL) {
1ff0: 0a 2b 09 20 20 20 20 56 61 72 54 72 61 63 65 20 .+. VarTrace
2000: 2a 74 72 61 63 65 50 74 72 20 3d 20 76 61 72 50 *tracePtr = varP
2010: 74 72 2d 3e 74 72 61 63 65 50 74 72 3b 0a 2b 09 tr->tracePtr;.+.
2020: 20 20 20 20 76 61 72 50 74 72 2d 3e 74 72 61 63 varPtr->trac
2030: 65 50 74 72 20 3d 20 74 72 61 63 65 50 74 72 2d ePtr = tracePtr-
2040: 3e 6e 65 78 74 50 74 72 3b 0a 2b 09 20 20 20 20 >nextPtr;.+.
2050: 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 Tcl_EventuallyFr
2060: 65 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 ee((ClientData)
2070: 74 72 61 63 65 50 74 72 2c 20 54 43 4c 5f 44 59 tracePtr, TCL_DY
2080: 4e 41 4d 49 43 29 3b 0a 2b 09 7d 0a 2b 09 43 6c NAMIC);.+.}.+.Cl
2090: 65 61 6e 75 70 56 61 72 28 76 61 72 50 74 72 2c eanupVar(varPtr,
20a0: 20 4e 55 4c 4c 29 3b 0a 2b 20 20 20 20 7d 0a 2b NULL);.+ }.+
20b0: 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 48 61 Tcl_DeleteHa
20c0: 73 68 54 61 62 6c 65 28 74 61 62 6c 65 50 74 72 shTable(tablePtr
20d0: 29 3b 0a 2b 7d 0a 2b 0a 2b 76 6f 69 64 0a 20 54 );.+}.+.+void. T
20e0: 63 6c 44 65 6c 65 74 65 56 61 72 73 28 69 50 74 clDeleteVars(iPt
20f0: 72 2c 20 74 61 62 6c 65 50 74 72 29 0a 20 20 20 r, tablePtr).
2100: 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72 3b 09 Interp *iPtr;.
2110: 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20 ./* Interpreter
2120: 74 6f 20 77 68 69 63 68 20 76 61 72 69 61 62 6c to which variabl
2130: 65 73 20 62 65 6c 6f 6e 67 2e 20 2a 2f 0a 20 20 es belong. */.
2140: 20 20 20 54 63 6c 5f 48 61 73 68 54 61 62 6c 65 Tcl_HashTable
2150: 20 2a 74 61 62 6c 65 50 74 72 3b 09 2f 2a 20 48 *tablePtr;./* H
2160: 61 73 68 20 74 61 62 6c 65 20 63 6f 6e 74 61 69 ash table contai
2170: 6e 69 6e 67 20 76 61 72 69 61 62 6c 65 73 20 74 ning variables t
2180: 6f 0a o.
