Artifact
c0353fafe39fdb8c09d7e866f2573c62f4b23580:
Attachment "lsort-indices-diff.txt" to
ticket [1017532fff]
added by
nobody
2004-08-27 18:55:53.
0000: 2a 2a 2a 20 74 63 6c 38 2e 34 2e 36 2f 67 65 6e *** tcl8.4.6/gen
0010: 65 72 69 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 09 eric/tclCmdIL.c.
0020: 54 68 75 20 4a 75 6c 20 31 37 20 31 33 3a 32 39 Thu Jul 17 13:29
0030: 3a 31 39 20 32 30 30 33 0d 0a 2d 2d 2d 20 74 63 :19 2003..--- tc
0040: 6c 43 6d 64 49 4c 2e 63 09 46 72 69 20 41 75 67 lCmdIL.c.Fri Aug
0050: 20 32 37 20 30 34 3a 34 38 3a 33 36 20 32 30 30 27 04:48:36 200
0060: 34 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 4..*************
0070: 2a 2a 0d 0a 2a 2a 2a 20 33 32 35 35 2c 33 32 36 **..*** 3255,326
0080: 31 20 2a 2a 2a 2a 0d 0a 20 20 20 20 20 20 69 6e 1 ****.. in
0090: 74 20 6f 62 6a 63 3b 09 09 09 2f 2a 20 4e 75 6d t objc;.../* Num
00a0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
00b0: 2e 20 2a 2f 0d 0a 20 20 20 20 20 20 54 63 6c 5f . */.. Tcl_
00c0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
00d0: 5d 3b 09 2f 2a 20 41 72 67 75 6d 65 6e 74 20 76 ];./* Argument v
00e0: 61 6c 75 65 73 2e 20 2a 2f 0d 0a 20 20 7b 0d 0a alues. */.. {..
00f0: 21 20 20 20 20 20 69 6e 74 20 69 2c 20 69 6e 64 ! int i, ind
0100: 65 78 2c 20 75 6e 69 71 75 65 3b 0d 0a 20 20 20 ex, unique;..
0110: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 Tcl_Obj *resu
0120: 6c 74 50 74 72 3b 0d 0a 20 20 20 20 20 20 69 6e ltPtr;.. in
0130: 74 20 6c 65 6e 67 74 68 3b 0d 0a 20 20 20 20 20 t length;..
0140: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 Tcl_Obj *cmdPtr
0150: 2c 20 2a 2a 6c 69 73 74 4f 62 6a 50 74 72 73 3b , **listObjPtrs;
0160: 0d 0a 2d 2d 2d 20 33 32 35 35 2c 33 32 36 31 20 ..--- 3255,3261
0170: 2d 2d 2d 2d 0d 0a 20 20 20 20 20 20 69 6e 74 20 ----.. int
0180: 6f 62 6a 63 3b 09 09 09 2f 2a 20 4e 75 6d 62 65 objc;.../* Numbe
0190: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e 20 r of arguments.
01a0: 2a 2f 0d 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 */.. Tcl_Ob
01b0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b j *CONST objv[];
01c0: 09 2f 2a 20 41 72 67 75 6d 65 6e 74 20 76 61 6c ./* Argument val
01d0: 75 65 73 2e 20 2a 2f 0d 0a 20 20 7b 0d 0a 21 20 ues. */.. {..!
01e0: 20 20 20 20 69 6e 74 20 69 2c 20 69 6e 64 65 78 int i, index
01f0: 2c 20 75 6e 69 71 75 65 2c 20 69 6e 64 69 63 65 , unique, indice
0200: 73 3b 0d 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 s;.. Tcl_Ob
0210: 6a 20 2a 72 65 73 75 6c 74 50 74 72 3b 0d 0a 20 j *resultPtr;..
0220: 20 20 20 20 20 69 6e 74 20 6c 65 6e 67 74 68 3b int length;
0230: 0d 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 .. Tcl_Obj
0240: 2a 63 6d 64 50 74 72 2c 20 2a 2a 6c 69 73 74 4f *cmdPtr, **listO
0250: 62 6a 50 74 72 73 3b 0d 0a 2a 2a 2a 2a 2a 2a 2a bjPtrs;..*******
0260: 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 33 32 ********..*** 32
0270: 36 36 2c 33 32 37 32 20 2a 2a 2a 2a 0d 0a 20 20 66,3272 ****..
0280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02a0: 20 20 20 20 20 20 20 20 20 2a 20 63 6f 6d 70 61 * compa
02b0: 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 2a rison function *
02c0: 2f 0d 0a 20 20 20 20 20 20 73 74 61 74 69 63 20 /.. static
02d0: 43 4f 4e 53 54 20 63 68 61 72 20 2a 73 77 69 74 CONST char *swit
02e0: 63 68 65 73 5b 5d 20 3d 20 7b 0d 0a 20 20 09 22 ches[] = {.. ."
02f0: 2d 61 73 63 69 69 22 2c 20 22 2d 63 6f 6d 6d 61 -ascii", "-comma
0300: 6e 64 22 2c 20 22 2d 64 65 63 72 65 61 73 69 6e nd", "-decreasin
0310: 67 22 2c 20 22 2d 64 69 63 74 69 6f 6e 61 72 79 g", "-dictionary
0320: 22 2c 20 22 2d 69 6e 63 72 65 61 73 69 6e 67 22 ", "-increasing"
0330: 2c 0d 0a 21 20 09 22 2d 69 6e 64 65 78 22 2c 20 ,..! ."-index",
0340: 22 2d 69 6e 74 65 67 65 72 22 2c 20 22 2d 72 65 "-integer", "-re
0350: 61 6c 22 2c 20 22 2d 75 6e 69 71 75 65 22 2c 20 al", "-unique",
0360: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 0d 0a 20 (char *) NULL..
0370: 20 20 20 20 20 7d 3b 0d 0a 20 20 0d 0a 20 20 20 };.. ..
0380: 20 20 20 72 65 73 75 6c 74 50 74 72 20 3d 20 54 resultPtr = T
0390: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_GetObjResult(
03a0: 69 6e 74 65 72 70 29 3b 0d 0a 2d 2d 2d 20 33 32 interp);..--- 32
03b0: 36 36 2c 33 32 37 32 20 2d 2d 2d 2d 0d 0a 20 20 66,3272 ----..
03c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03e0: 20 20 20 20 20 20 20 20 20 2a 20 63 6f 6d 70 61 * compa
03f0: 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 2a rison function *
0400: 2f 0d 0a 20 20 20 20 20 20 73 74 61 74 69 63 20 /.. static
0410: 43 4f 4e 53 54 20 63 68 61 72 20 2a 73 77 69 74 CONST char *swit
0420: 63 68 65 73 5b 5d 20 3d 20 7b 0d 0a 20 20 09 22 ches[] = {.. ."
0430: 2d 61 73 63 69 69 22 2c 20 22 2d 63 6f 6d 6d 61 -ascii", "-comma
0440: 6e 64 22 2c 20 22 2d 64 65 63 72 65 61 73 69 6e nd", "-decreasin
0450: 67 22 2c 20 22 2d 64 69 63 74 69 6f 6e 61 72 79 g", "-dictionary
0460: 22 2c 20 22 2d 69 6e 63 72 65 61 73 69 6e 67 22 ", "-increasing"
0470: 2c 0d 0a 21 20 09 22 2d 69 6e 64 65 78 22 2c 20 ,..! ."-index",
0480: 22 2d 69 6e 74 65 67 65 72 22 2c 20 22 2d 72 65 "-integer", "-re
0490: 61 6c 22 2c 20 22 2d 75 6e 69 71 75 65 22 2c 20 al", "-unique",
04a0: 22 2d 69 6e 64 69 63 65 73 22 2c 20 28 63 68 61 "-indices", (cha
04b0: 72 20 2a 29 20 4e 55 4c 4c 0d 0a 20 20 20 20 20 r *) NULL..
04c0: 20 7d 3b 0d 0a 20 20 0d 0a 20 20 20 20 20 20 72 };.. .. r
04d0: 65 73 75 6c 74 50 74 72 20 3d 20 54 63 6c 5f 47 esultPtr = Tcl_G
04e0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
04f0: 72 70 29 3b 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a rp);..**********
0500: 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 33 32 38 36 2c *****..*** 3286,
0510: 33 32 39 31 20 2a 2a 2a 2a 0d 0a 2d 2d 2d 20 33 3291 ****..--- 3
0520: 32 38 36 2c 33 32 39 32 20 2d 2d 2d 2d 0d 0a 20 286,3292 ----..
0530: 20 20 20 20 20 73 6f 72 74 49 6e 66 6f 2e 72 65 sortInfo.re
0540: 73 75 6c 74 43 6f 64 65 20 3d 20 54 43 4c 5f 4f sultCode = TCL_O
0550: 4b 3b 0d 0a 20 20 20 20 20 20 63 6d 64 50 74 72 K;.. cmdPtr
0560: 20 3d 20 4e 55 4c 4c 3b 0d 0a 20 20 20 20 20 20 = NULL;..
0570: 75 6e 69 71 75 65 20 3d 20 30 3b 0d 0a 2b 20 20 unique = 0;..+
0580: 20 20 20 69 6e 64 69 63 65 73 20 3d 20 30 3b 0d indices = 0;.
0590: 0a 20 20 20 20 20 20 66 6f 72 20 28 69 20 3d 20 . for (i =
05a0: 31 3b 20 69 20 3c 20 6f 62 6a 63 2d 31 3b 20 69 1; i < objc-1; i
05b0: 2b 2b 29 20 7b 0d 0a 20 20 09 69 66 20 28 54 63 ++) {.. .if (Tc
05c0: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 l_GetIndexFromOb
05d0: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 j(interp, objv[i
05e0: 5d 2c 20 73 77 69 74 63 68 65 73 2c 20 22 6f 70 ], switches, "op
05f0: 74 69 6f 6e 22 2c 20 30 2c 20 26 69 6e 64 65 78 tion", 0, &index
0600: 29 0d 0a 20 20 09 09 21 3d 20 54 43 4c 5f 4f 4b ).. ..!= TCL_OK
0610: 29 20 7b 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ) {..***********
0620: 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 33 33 33 37 2c 33 ****..*** 3337,3
0630: 33 34 32 20 2a 2a 2a 2a 0d 0a 2d 2d 2d 20 33 33 342 ****..--- 33
0640: 33 38 2c 33 33 34 36 20 2d 2d 2d 2d 0d 0a 20 20 38,3346 ----..
0650: 09 20 20 20 20 63 61 73 65 20 38 3a 09 09 09 2f . case 8:.../
0660: 2a 20 2d 75 6e 69 71 75 65 20 2a 2f 0d 0a 20 20 * -unique */..
0670: 09 09 75 6e 69 71 75 65 20 3d 20 31 3b 0d 0a 20 ..unique = 1;..
0680: 20 09 09 62 72 65 61 6b 3b 0d 0a 2b 20 09 20 20 ..break;..+ .
0690: 20 20 63 61 73 65 20 39 3a 20 20 20 20 20 20 20 case 9:
06a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
06b0: 20 2d 69 6e 64 69 63 65 73 20 2a 2f 0d 0a 2b 20 -indices */..+
06c0: 09 09 69 6e 64 69 63 65 73 20 3d 20 31 3b 0d 0a ..indices = 1;..
06d0: 2b 20 09 09 62 72 65 61 6b 3b 0d 0a 20 20 09 7d + ..break;.. .}
06e0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 .. }..
06f0: 20 69 66 20 28 73 6f 72 74 49 6e 66 6f 2e 73 6f if (sortInfo.so
0700: 72 74 4d 6f 64 65 20 3d 3d 20 53 4f 52 54 4d 4f rtMode == SORTMO
0710: 44 45 5f 43 4f 4d 4d 41 4e 44 29 20 7b 0d 0a 2a DE_COMMAND) {..*
0720: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a **************..
0730: 2a 2a 2a 20 33 33 38 33 2c 33 33 39 38 20 2a 2a *** 3383,3398 **
0740: 2a 2a 0d 0a 20 20 09 54 63 6c 5f 52 65 73 65 74 **.. .Tcl_Reset
0750: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0d Result(interp);.
0760: 0a 20 20 09 72 65 73 75 6c 74 50 74 72 20 3d 20 . .resultPtr =
0770: 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_GetObjResult
0780: 28 69 6e 74 65 72 70 29 3b 0d 0a 20 20 09 69 66 (interp);.. .if
0790: 20 28 75 6e 69 71 75 65 29 20 7b 0d 0a 21 20 09 (unique) {..! .
07a0: 20 20 20 20 66 6f 72 20 28 3b 20 65 6c 65 6d 65 for (; eleme
07b0: 6e 74 50 74 72 20 21 3d 20 4e 55 4c 4c 3b 20 65 ntPtr != NULL; e
07c0: 6c 65 6d 65 6e 74 50 74 72 20 3d 20 65 6c 65 6d lementPtr = elem
07d0: 65 6e 74 50 74 72 2d 3e 6e 65 78 74 50 74 72 29 entPtr->nextPtr)
07e0: 7b 0d 0a 21 20 09 09 69 66 20 28 65 6c 65 6d 65 {..! ..if (eleme
07f0: 6e 74 50 74 72 2d 3e 63 6f 75 6e 74 20 3d 3d 20 ntPtr->count ==
0800: 30 29 20 7b 0d 0a 21 20 09 09 20 20 20 20 54 63 0) {..! .. Tc
0810: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
0820: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 lement(interp, r
0830: 65 73 75 6c 74 50 74 72 2c 0d 0a 20 20 09 09 09 esultPtr,.. ...
0840: 20 20 20 20 65 6c 65 6d 65 6e 74 50 74 72 2d 3e elementPtr->
0850: 6f 62 6a 50 74 72 29 3b 0d 0a 20 20 09 09 7d 0d objPtr);.. ..}.
0860: 0a 20 20 09 20 20 20 20 7d 0d 0a 20 20 09 7d 20 . . }.. .}
0870: 65 6c 73 65 20 7b 0d 0a 21 20 09 20 20 20 20 66 else {..! . f
0880: 6f 72 20 28 3b 20 65 6c 65 6d 65 6e 74 50 74 72 or (; elementPtr
0890: 20 21 3d 20 4e 55 4c 4c 3b 20 65 6c 65 6d 65 6e != NULL; elemen
08a0: 74 50 74 72 20 3d 20 65 6c 65 6d 65 6e 74 50 74 tPtr = elementPt
08b0: 72 2d 3e 6e 65 78 74 50 74 72 29 7b 0d 0a 21 20 r->nextPtr){..!
08c0: 09 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 ..Tcl_ListObjApp
08d0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
08e0: 70 2c 20 72 65 73 75 6c 74 50 74 72 2c 0d 0a 20 p, resultPtr,..
08f0: 20 09 09 09 65 6c 65 6d 65 6e 74 50 74 72 2d 3e ...elementPtr->
0900: 6f 62 6a 50 74 72 29 3b 0d 0a 20 20 09 20 20 20 objPtr);.. .
0910: 20 7d 0d 0a 20 20 09 7d 0d 0a 20 20 20 20 20 20 }.. .}..
0920: 7d 0d 0a 2d 2d 2d 20 33 33 38 37 2c 33 34 31 38 }..--- 3387,3418
0930: 20 2d 2d 2d 2d 0d 0a 20 20 09 54 63 6c 5f 52 65 ----.. .Tcl_Re
0940: 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 setResult(interp
0950: 29 3b 0d 0a 20 20 09 72 65 73 75 6c 74 50 74 72 );.. .resultPtr
0960: 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 = Tcl_GetObjRes
0970: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0d 0a 20 20 ult(interp);..
0980: 09 69 66 20 28 75 6e 69 71 75 65 29 20 7b 0d 0a .if (unique) {..
0990: 21 20 09 20 20 20 20 69 66 20 28 69 6e 64 69 63 ! . if (indic
09a0: 65 73 29 20 7b 0d 0a 21 20 09 09 66 6f 72 20 28 es) {..! ..for (
09b0: 3b 20 65 6c 65 6d 65 6e 74 50 74 72 20 21 3d 20 ; elementPtr !=
09c0: 4e 55 4c 4c 3b 20 65 6c 65 6d 65 6e 74 50 74 72 NULL; elementPtr
09d0: 20 3d 20 65 6c 65 6d 65 6e 74 50 74 72 2d 3e 6e = elementPtr->n
09e0: 65 78 74 50 74 72 29 7b 0d 0a 21 20 09 09 20 20 extPtr){..! ..
09f0: 20 20 69 66 20 28 65 6c 65 6d 65 6e 74 50 74 72 if (elementPtr
0a00: 2d 3e 63 6f 75 6e 74 20 3d 3d 20 30 29 20 7b 0d ->count == 0) {.
0a10: 0a 21 20 09 09 09 54 63 6c 5f 4c 69 73 74 4f 62 .! ...Tcl_ListOb
0a20: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
0a30: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 50 74 72 nterp, resultPtr
0a40: 2c 0d 0a 21 20 09 09 09 20 20 20 20 54 63 6c 5f ,..! ... Tcl_
0a50: 4e 65 77 49 6e 74 4f 62 6a 28 65 6c 65 6d 65 6e NewIntObj(elemen
0a60: 74 50 74 72 20 2d 20 26 65 6c 65 6d 65 6e 74 41 tPtr - &elementA
0a70: 72 72 61 79 5b 30 5d 29 29 3b 0d 0a 21 20 09 09 rray[0]));..! ..
0a80: 20 20 20 20 7d 0d 0a 21 20 09 09 7d 0d 0a 21 20 }..! ..}..!
0a90: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 21 . } else {..!
0aa0: 20 09 09 66 6f 72 20 28 3b 20 65 6c 65 6d 65 6e ..for (; elemen
0ab0: 74 50 74 72 20 21 3d 20 4e 55 4c 4c 3b 20 65 6c tPtr != NULL; el
0ac0: 65 6d 65 6e 74 50 74 72 20 3d 20 65 6c 65 6d 65 ementPtr = eleme
0ad0: 6e 74 50 74 72 2d 3e 6e 65 78 74 50 74 72 29 7b ntPtr->nextPtr){
0ae0: 0d 0a 21 20 09 09 20 20 20 20 69 66 20 28 65 6c ..! .. if (el
0af0: 65 6d 65 6e 74 50 74 72 2d 3e 63 6f 75 6e 74 20 ementPtr->count
0b00: 3d 3d 20 30 29 20 7b 0d 0a 21 20 09 20 09 09 54 == 0) {..! . ..T
0b10: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
0b20: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
0b30: 72 65 73 75 6c 74 50 74 72 2c 0d 0a 20 20 09 09 resultPtr,.. ..
0b40: 09 20 20 20 20 65 6c 65 6d 65 6e 74 50 74 72 2d . elementPtr-
0b50: 3e 6f 62 6a 50 74 72 29 3b 0d 0a 2b 20 09 09 20 >objPtr);..+ ..
0b60: 20 20 20 7d 0d 0a 20 20 09 09 7d 0d 0a 20 20 09 }.. ..}.. .
0b70: 20 20 20 20 7d 0d 0a 20 20 09 7d 20 65 6c 73 65 }.. .} else
0b80: 20 7b 0d 0a 21 20 09 20 20 20 20 69 66 20 28 69 {..! . if (i
0b90: 6e 64 69 63 65 73 29 20 7b 0d 0a 21 20 09 09 66 ndices) {..! ..f
0ba0: 6f 72 20 28 3b 20 65 6c 65 6d 65 6e 74 50 74 72 or (; elementPtr
0bb0: 20 21 3d 20 4e 55 4c 4c 3b 20 65 6c 65 6d 65 6e != NULL; elemen
0bc0: 74 50 74 72 20 3d 20 65 6c 65 6d 65 6e 74 50 74 tPtr = elementPt
0bd0: 72 2d 3e 6e 65 78 74 50 74 72 29 7b 0d 0a 21 20 r->nextPtr){..!
0be0: 09 09 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
0bf0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
0c00: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 50 74 72 nterp, resultPtr
0c10: 2c 0d 0a 21 20 09 09 09 54 63 6c 5f 4e 65 77 49 ,..! ...Tcl_NewI
0c20: 6e 74 4f 62 6a 28 65 6c 65 6d 65 6e 74 50 74 72 ntObj(elementPtr
0c30: 20 2d 20 26 65 6c 65 6d 65 6e 74 41 72 72 61 79 - &elementArray
0c40: 5b 30 5d 29 29 3b 0d 0a 21 20 09 09 7d 0d 0a 21 [0]));..! ..}..!
0c50: 20 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a . } else {..
0c60: 21 20 09 09 66 6f 72 20 28 3b 20 65 6c 65 6d 65 ! ..for (; eleme
0c70: 6e 74 50 74 72 20 21 3d 20 4e 55 4c 4c 3b 20 65 ntPtr != NULL; e
0c80: 6c 65 6d 65 6e 74 50 74 72 20 3d 20 65 6c 65 6d lementPtr = elem
0c90: 65 6e 74 50 74 72 2d 3e 6e 65 78 74 50 74 72 29 entPtr->nextPtr)
0ca0: 7b 0d 0a 21 20 09 09 20 20 20 20 54 63 6c 5f 4c {..! .. Tcl_L
0cb0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
0cc0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ent(interp, resu
0cd0: 6c 74 50 74 72 2c 0d 0a 20 20 09 09 09 65 6c 65 ltPtr,.. ...ele
0ce0: 6d 65 6e 74 50 74 72 2d 3e 6f 62 6a 50 74 72 29 mentPtr->objPtr)
0cf0: 3b 0d 0a 2b 20 09 09 7d 0d 0a 20 20 09 20 20 20 ;..+ ..}.. .
0d00: 20 7d 0d 0a 20 20 09 7d 0d 0a 20 20 20 20 20 20 }.. .}..
0d10: 7d 0d 0a }..
