Attachment "mapeach.patch" to
ticket [3163961fff]
added by
twylite
2011-01-22 22:48:09.
0000: 49 6e 64 65 78 3a 20 74 63 6c 2f 67 65 6e 65 72 Index: tcl/gener
0010: 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 0a 3d 3d ic/tclBasic.c.==
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 3d 3d 3d 3d 3d ================
0060: 3d 0a 2d 2d 2d 20 74 63 6c 2f 67 65 6e 65 72 69 =.--- tcl/generi
0070: 63 2f 74 63 6c 42 61 73 69 63 2e 63 0a 2b 2b 2b c/tclBasic.c.+++
0080: 20 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c tcl/generic/tcl
0090: 42 61 73 69 63 2e 63 0a 40 40 20 2d 32 33 37 2c Basic.c.@@ -237,
00a0: 31 30 20 2b 32 33 37 2c 31 31 20 40 40 0a 20 20 10 +237,11 @@.
00b0: 20 20 20 7b 22 6c 72 65 70 6c 61 63 65 22 2c 09 {"lreplace",.
00c0: 54 63 6c 5f 4c 72 65 70 6c 61 63 65 4f 62 6a 43 Tcl_LreplaceObjC
00d0: 6d 64 2c 09 4e 55 4c 4c 2c 09 09 09 4e 55 4c 4c md,.NULL,...NULL
00e0: 2c 09 31 7d 2c 0a 20 20 20 20 20 7b 22 6c 72 65 ,.1},. {"lre
00f0: 76 65 72 73 65 22 2c 09 54 63 6c 5f 4c 72 65 76 verse",.Tcl_Lrev
0100: 65 72 73 65 4f 62 6a 43 6d 64 2c 09 4e 55 4c 4c erseObjCmd,.NULL
0110: 2c 09 09 09 4e 55 4c 4c 2c 09 31 7d 2c 0a 20 20 ,...NULL,.1},.
0120: 20 20 20 7b 22 6c 73 65 61 72 63 68 22 2c 09 09 {"lsearch",..
0130: 54 63 6c 5f 4c 73 65 61 72 63 68 4f 62 6a 43 6d Tcl_LsearchObjCm
0140: 64 2c 09 4e 55 4c 4c 2c 09 09 09 4e 55 4c 4c 2c d,.NULL,...NULL,
0150: 09 31 7d 2c 0a 20 20 20 20 20 7b 22 6c 73 65 74 .1},. {"lset
0160: 22 2c 09 09 54 63 6c 5f 4c 73 65 74 4f 62 6a 43 ",..Tcl_LsetObjC
0170: 6d 64 2c 09 09 54 63 6c 43 6f 6d 70 69 6c 65 4c md,..TclCompileL
0180: 73 65 74 43 6d 64 2c 09 4e 55 4c 4c 2c 09 31 7d setCmd,.NULL,.1}
0190: 2c 0a 20 20 20 20 20 7b 22 6c 73 6f 72 74 22 2c ,. {"lsort",
01a0: 09 09 54 63 6c 5f 4c 73 6f 72 74 4f 62 6a 43 6d ..Tcl_LsortObjCm
01b0: 64 2c 09 4e 55 4c 4c 2c 09 09 09 4e 55 4c 4c 2c d,.NULL,...NULL,
01c0: 09 31 7d 2c 0a 2b 20 20 20 20 7b 22 6d 61 70 65 .1},.+ {"mape
01d0: 61 63 68 22 2c 09 09 54 63 6c 5f 4d 61 70 65 61 ach",..Tcl_Mapea
01e0: 63 68 4f 62 6a 43 6d 64 2c 09 54 63 6c 43 6f 6d chObjCmd,.TclCom
01f0: 70 69 6c 65 4d 61 70 65 61 63 68 43 6d 64 2c 09 pileMapeachCmd,.
0200: 54 63 6c 4e 52 4d 61 70 65 61 63 68 43 6d 64 2c TclNRMapeachCmd,
0210: 09 31 7d 2c 0a 20 20 20 20 20 7b 22 6e 61 6d 65 .1},. {"name
0220: 73 70 61 63 65 22 2c 09 54 63 6c 5f 4e 61 6d 65 space",.Tcl_Name
0230: 73 70 61 63 65 4f 62 6a 43 6d 64 2c 09 54 63 6c spaceObjCmd,.Tcl
0240: 43 6f 6d 70 69 6c 65 4e 61 6d 65 73 70 61 63 65 CompileNamespace
0250: 43 6d 64 2c 09 54 63 6c 4e 52 4e 61 6d 65 73 70 Cmd,.TclNRNamesp
0260: 61 63 65 4f 62 6a 43 6d 64 2c 09 31 7d 2c 0a 20 aceObjCmd,.1},.
0270: 20 20 20 20 7b 22 70 61 63 6b 61 67 65 22 2c 09 {"package",.
0280: 09 54 63 6c 5f 50 61 63 6b 61 67 65 4f 62 6a 43 .Tcl_PackageObjC
0290: 6d 64 2c 09 4e 55 4c 4c 2c 09 09 09 4e 55 4c 4c md,.NULL,...NULL
02a0: 2c 09 31 7d 2c 0a 20 20 20 20 20 7b 22 70 72 6f ,.1},. {"pro
02b0: 63 22 2c 09 09 54 63 6c 5f 50 72 6f 63 4f 62 6a c",..Tcl_ProcObj
02c0: 43 6d 64 2c 09 09 4e 55 4c 4c 2c 09 09 09 4e 55 Cmd,..NULL,...NU
02d0: 4c 4c 2c 09 31 7d 2c 0a 20 20 20 20 20 7b 22 72 LL,.1},. {"r
02e0: 65 67 65 78 70 22 2c 09 09 54 63 6c 5f 52 65 67 egexp",..Tcl_Reg
02f0: 65 78 70 4f 62 6a 43 6d 64 2c 09 54 63 6c 43 6f expObjCmd,.TclCo
0300: 6d 70 69 6c 65 52 65 67 65 78 70 43 6d 64 2c 09 mpileRegexpCmd,.
0310: 4e 55 4c 4c 2c 09 31 7d 2c 0a 20 20 20 20 20 7b NULL,.1},. {
0320: 22 72 65 67 73 75 62 22 2c 09 09 54 63 6c 5f 52 "regsub",..Tcl_R
0330: 65 67 73 75 62 4f 62 6a 43 6d 64 2c 09 4e 55 4c egsubObjCmd,.NUL
0340: 4c 2c 09 09 09 4e 55 4c 4c 2c 09 31 7d 2c 0a 40 L,...NULL,.1},.@
0350: 40 20 2d 38 33 30 2c 31 31 20 2b 38 33 31 2c 31 @ -830,11 +831,1
0360: 31 20 40 40 0a 20 09 20 20 20 20 54 63 6c 4e 52 1 @@. . TclNR
0370: 59 69 65 6c 64 54 6f 4f 62 6a 43 6d 64 2c 20 4e YieldToObjCmd, N
0380: 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 ULL, NULL);.
0390: 20 54 63 6c 5f 4e 52 43 72 65 61 74 65 43 6f 6d Tcl_NRCreateCom
03a0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a mand(interp, "::
03b0: 74 63 6c 3a 3a 75 6e 73 75 70 70 6f 72 74 65 64 tcl::unsupported
03c0: 3a 3a 79 69 65 6c 64 6d 22 2c 20 4e 55 4c 4c 2c ::yieldm", NULL,
03d0: 0a 20 09 20 20 20 20 54 63 6c 4e 52 59 69 65 6c . . TclNRYiel
03e0: 64 4f 62 6a 43 6d 64 2c 20 49 4e 54 32 50 54 52 dObjCmd, INT2PTR
03f0: 28 43 4f 52 4f 5f 41 43 54 49 56 41 54 45 5f 59 (CORO_ACTIVATE_Y
0400: 49 45 4c 44 4d 29 2c 20 4e 55 4c 4c 29 3b 0a 20 IELDM), NULL);.
0410: 20 20 20 20 54 63 6c 5f 4e 52 43 72 65 61 74 65 Tcl_NRCreate
0420: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
0430: 22 3a 3a 74 63 6c 3a 3a 75 6e 73 75 70 70 6f 72 "::tcl::unsuppor
0440: 74 65 64 3a 3a 69 6e 6a 65 63 74 22 2c 20 4e 55 ted::inject", NU
0450: 4c 4c 2c 0a 20 09 20 20 20 20 4e 52 43 6f 72 6f LL,. . NRCoro
0460: 49 6e 6a 65 63 74 4f 62 6a 43 6d 64 2c 20 4e 55 InjectObjCmd, NU
0470: 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 2d 20 20 20 20 LL, NULL);.-
0480: 0a 2b 0a 20 23 69 66 64 65 66 20 55 53 45 5f 44 .+. #ifdef USE_D
0490: 54 52 41 43 45 0a 20 20 20 20 20 2f 2a 0a 20 20 TRACE. /*.
04a0: 20 20 20 20 2a 20 52 65 67 69 73 74 65 72 20 74 * Register t
04b0: 68 65 20 74 63 6c 3a 3a 64 74 72 61 63 65 20 63 he tcl::dtrace c
04c0: 6f 6d 6d 61 6e 64 2e 0a 20 20 20 20 20 20 2a 2f ommand.. */
04d0: 0a 20 0a 40 40 20 2d 38 38 30 34 2c 31 31 20 2b . .@@ -8804,11 +
04e0: 38 38 30 35 2c 31 31 20 40 40 0a 20 20 20 20 20 8805,11 @@.
04f0: 54 63 6c 5f 4e 52 45 76 61 6c 4f 62 6a 28 69 6e Tcl_NREvalObj(in
0500: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 4c 69 73 terp, Tcl_NewLis
0510: 74 4f 62 6a 28 6f 62 6a 63 2d 32 2c 20 6f 62 6a tObj(objc-2, obj
0520: 76 2b 32 29 2c 20 30 29 3b 20 20 20 20 0a 20 20 v+2), 0); .
0530: 20 20 20 69 50 74 72 2d 3e 65 78 65 63 45 6e 76 iPtr->execEnv
0540: 50 74 72 20 3d 20 73 61 76 65 64 45 45 50 74 72 Ptr = savedEEPtr
0550: 3b 0a 20 20 20 20 20 0a 20 20 20 20 20 72 65 74 ;. . ret
0560: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 7d 0a 2d urn TCL_OK;. }.-
0570: 0a 2b 0c 0a 20 69 6e 74 0a 20 4e 52 49 6e 74 65 .+.. int. NRInte
0580: 72 70 43 6f 72 6f 75 74 69 6e 65 28 0a 20 20 20 rpCoroutine(.
0590: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
05a0: 65 6e 74 44 61 74 61 2c 0a 20 20 20 20 20 54 63 entData,. Tc
05b0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
05c0: 2c 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e ,../* Current in
05d0: 74 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 20 20 terpreter. */.
05e0: 20 20 20 69 6e 74 20 6f 62 6a 63 2c 09 09 09 2f int objc,.../
05f0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
0600: 6d 65 6e 74 73 2e 20 2a 2f 0a 0a 49 6e 64 65 78 ments. */..Index
0610: 3a 20 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 : tcl/generic/tc
0620: 6c 43 6d 64 41 48 2e 63 0a 3d 3d 3d 3d 3d 3d 3d lCmdAH.c.=======
0630: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0640: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0650: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0660: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d ============.---
0670: 20 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c tcl/generic/tcl
0680: 43 6d 64 41 48 2e 63 0a 2b 2b 2b 20 74 63 6c 2f CmdAH.c.+++ tcl/
0690: 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64 41 48 generic/tclCmdAH
06a0: 2e 63 0a 40 40 20 2d 33 32 2c 31 30 20 2b 33 32 .c.@@ -32,10 +32
06b0: 2c 31 31 20 40 40 0a 20 20 20 20 20 54 63 6c 5f ,11 @@. Tcl_
06c0: 4f 62 6a 20 2a 2a 2a 76 61 72 76 4c 69 73 74 3b Obj ***varvList;
06d0: 09 2f 2a 20 41 72 72 61 79 20 6f 66 20 76 61 72 ./* Array of var
06e0: 20 6e 61 6d 65 20 6c 69 73 74 73 2e 20 2a 2f 0a name lists. */.
06f0: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 76 Tcl_Obj **v
0700: 43 6f 70 79 4c 69 73 74 3b 09 2f 2a 20 43 6f 70 CopyList;./* Cop
0710: 69 65 73 20 6f 66 20 76 61 72 20 6e 61 6d 65 20 ies of var name
0720: 6c 69 73 74 20 61 72 67 75 6d 65 6e 74 73 2e 20 list arguments.
0730: 2a 2f 0a 20 20 20 20 20 69 6e 74 20 2a 61 72 67 */. int *arg
0740: 63 4c 69 73 74 3b 09 09 2f 2a 20 41 72 72 61 79 cList;../* Array
0750: 20 6f 66 20 76 61 6c 75 65 20 6c 69 73 74 20 73 of value list s
0760: 69 7a 65 73 2e 20 2a 2f 0a 20 20 20 20 20 54 63 izes. */. Tc
0770: 6c 5f 4f 62 6a 20 2a 2a 2a 61 72 67 76 4c 69 73 l_Obj ***argvLis
0780: 74 3b 09 2f 2a 20 41 72 72 61 79 20 6f 66 20 76 t;./* Array of v
0790: 61 6c 75 65 20 6c 69 73 74 73 2e 20 2a 2f 0a 20 alue lists. */.
07a0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61 43 Tcl_Obj **aC
07b0: 6f 70 79 4c 69 73 74 3b 09 2f 2a 20 43 6f 70 69 opyList;./* Copi
07c0: 65 73 20 6f 66 20 76 61 6c 75 65 20 6c 69 73 74 es of value list
07d0: 20 61 72 67 75 6d 65 6e 74 73 2e 20 2a 2f 0a 2b arguments. */.+
07e0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 Tcl_Obj *res
07f0: 75 6c 74 4c 69 73 74 3b 09 2f 2a 20 4c 69 73 74 ultList;./* List
0800: 20 6f 66 20 72 65 73 75 6c 74 20 76 61 6c 75 65 of result value
0810: 73 20 66 72 6f 6d 20 74 68 65 20 6c 6f 6f 70 20 s from the loop
0820: 62 6f 64 79 2e 20 2a 2f 0a 20 7d 3b 0a 20 0a 20 body. */. };. .
0830: 2f 2a 0a 20 20 2a 20 50 72 6f 74 6f 74 79 70 65 /*. * Prototype
0840: 73 20 66 6f 72 20 6c 6f 63 61 6c 20 70 72 6f 63 s for local proc
0850: 65 64 75 72 65 73 20 64 65 66 69 6e 65 64 20 69 edures defined i
0860: 6e 20 74 68 69 73 20 66 69 6c 65 3a 0a 20 20 2a n this file:. *
0870: 2f 0a 40 40 20 2d 35 32 2c 31 30 20 2b 35 33 2c /.@@ -52,10 +53,
0880: 31 32 20 40 40 0a 20 73 74 61 74 69 63 20 69 6e 12 @@. static in
0890: 74 09 09 47 65 74 53 74 61 74 42 75 66 28 54 63 t..GetStatBuf(Tc
08a0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
08b0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 70 61 74 68 50 , Tcl_Obj *pathP
08c0: 74 72 2c 0a 20 09 09 09 20 20 20 20 54 63 6c 5f tr,. ... Tcl_
08d0: 46 53 53 74 61 74 50 72 6f 63 20 2a 73 74 61 74 FSStatProc *stat
08e0: 50 72 6f 63 2c 20 54 63 6c 5f 53 74 61 74 42 75 Proc, Tcl_StatBu
08f0: 66 20 2a 73 74 61 74 50 74 72 29 3b 0a 20 73 74 f *statPtr);. st
0900: 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 atic const char
0910: 2a 09 47 65 74 54 79 70 65 46 72 6f 6d 4d 6f 64 *.GetTypeFromMod
0920: 65 28 69 6e 74 20 6d 6f 64 65 29 3b 0a 20 73 74 e(int mode);. st
0930: 61 74 69 63 20 69 6e 74 09 09 53 74 6f 72 65 53 atic int..StoreS
0940: 74 61 74 44 61 74 61 28 54 63 6c 5f 49 6e 74 65 tatData(Tcl_Inte
0950: 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f rp *interp, Tcl_
0960: 4f 62 6a 20 2a 76 61 72 4e 61 6d 65 2c 0a 20 09 Obj *varName,. .
0970: 09 09 20 20 20 20 54 63 6c 5f 53 74 61 74 42 75 .. Tcl_StatBu
0980: 66 20 2a 73 74 61 74 50 74 72 29 3b 0a 2b 73 74 f *statPtr);.+st
0990: 61 74 69 63 20 69 6e 74 09 09 54 63 6c 4e 52 45 atic int..TclNRE
09a0: 61 63 68 6c 6f 6f 70 43 6d 64 28 43 6c 69 65 6e achloopCmd(Clien
09b0: 74 44 61 74 61 20 64 75 6d 6d 79 2c 20 54 63 6c tData dummy, Tcl
09c0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
09d0: 0a 2b 09 09 09 20 20 20 20 69 6e 74 20 6f 62 6a .+... int obj
09e0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
09f0: 74 20 6f 62 6a 76 5b 5d 2c 20 69 6e 74 20 63 6f t objv[], int co
0a00: 6c 6c 65 63 74 29 3b 0a 20 73 74 61 74 69 63 20 llect);. static
0a10: 54 63 6c 5f 4e 52 50 6f 73 74 50 72 6f 63 09 43 Tcl_NRPostProc.C
0a20: 61 74 63 68 4f 62 6a 43 6d 64 43 61 6c 6c 62 61 atchObjCmdCallba
0a30: 63 6b 3b 0a 20 73 74 61 74 69 63 20 54 63 6c 5f ck;. static Tcl_
0a40: 4e 52 50 6f 73 74 50 72 6f 63 09 45 78 70 72 43 NRPostProc.ExprC
0a50: 61 6c 6c 62 61 63 6b 3b 0a 20 73 74 61 74 69 63 allback;. static
0a60: 20 54 63 6c 5f 4e 52 50 6f 73 74 50 72 6f 63 09 Tcl_NRPostProc.
0a70: 46 6f 72 53 65 74 75 70 43 61 6c 6c 62 61 63 6b ForSetupCallback
0a80: 3b 0a 20 73 74 61 74 69 63 20 54 63 6c 5f 4e 52 ;. static Tcl_NR
0a90: 50 6f 73 74 50 72 6f 63 09 46 6f 72 43 6f 6e 64 PostProc.ForCond
0aa0: 43 61 6c 6c 62 61 63 6b 3b 0a 20 73 74 61 74 69 Callback;. stati
0ab0: 63 20 54 63 6c 5f 4e 52 50 6f 73 74 50 72 6f 63 c Tcl_NRPostProc
0ac0: 09 46 6f 72 4e 65 78 74 43 61 6c 6c 62 61 63 6b .ForNextCallback
0ad0: 3b 0a 40 40 20 2d 32 35 30 33 2c 31 31 20 2b 32 ;.@@ -2503,11 +2
0ae0: 35 30 36 2c 31 31 20 40 40 0a 20 7d 0a 20 0c 0a 506,11 @@. }. ..
0af0: 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *---------
0b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 -------------.
0b40: 2a 0a 2d 20 2a 20 54 63 6c 5f 46 6f 72 65 61 63 *.- * Tcl_Foreac
0b50: 68 4f 62 6a 43 6d 64 2c 20 54 63 6c 4e 52 46 6f hObjCmd, TclNRFo
0b60: 72 65 61 63 68 43 6d 64 20 2d 2d 0a 2b 20 2a 20 reachCmd --.+ *
0b70: 54 63 6c 5f 46 6f 72 65 61 63 68 4f 62 6a 43 6d Tcl_ForeachObjCm
0b80: 64 2c 20 54 63 6c 4e 52 46 6f 72 65 61 63 68 43 d, TclNRForeachC
0b90: 6d 64 2c 20 54 63 6c 4e 52 45 61 63 68 6c 6f 6f md, TclNREachloo
0ba0: 70 43 6d 64 20 2d 2d 0a 20 20 2a 0a 20 20 2a 09 pCmd --. *. *.
0bb0: 54 68 69 73 20 6f 62 6a 65 63 74 2d 62 61 73 65 This object-base
0bc0: 64 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 d procedure is i
0bd0: 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 nvoked to proces
0be0: 73 20 74 68 65 20 22 66 6f 72 65 61 63 68 22 20 s the "foreach"
0bf0: 54 63 6c 0a 20 20 2a 09 63 6f 6d 6d 61 6e 64 2e Tcl. *.command.
0c00: 20 53 65 65 20 74 68 65 20 75 73 65 72 20 64 6f See the user do
0c10: 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 cumentation for
0c20: 64 65 74 61 69 6c 73 20 6f 6e 20 77 68 61 74 20 details on what
0c30: 69 74 20 64 6f 65 73 2e 0a 20 20 2a 0a 20 20 2a it does.. *. *
0c40: 20 52 65 73 75 6c 74 73 3a 0a 40 40 20 2d 32 35 Results:.@@ -25
0c50: 33 35 2c 31 30 20 2b 32 35 33 38 2c 34 32 20 40 35,10 +2538,42 @
0c60: 40 0a 20 20 20 20 20 43 6c 69 65 6e 74 44 61 74 @. ClientDat
0c70: 61 20 64 75 6d 6d 79 2c 0a 20 20 20 20 20 54 63 a dummy,. Tc
0c80: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0c90: 2c 0a 20 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c ,. int objc,
0ca0: 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 . Tcl_Obj *c
0cb0: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 0a 20 7b 0a onst objv[]). {.
0cc0: 2b 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 4e + return TclN
0cd0: 52 45 61 63 68 6c 6f 6f 70 43 6d 64 28 64 75 6d REachloopCmd(dum
0ce0: 6d 79 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 my, interp, objc
0cf0: 2c 20 6f 62 6a 76 2c 20 30 29 3b 0a 2b 7d 0a 2b , objv, 0);.+}.+
0d00: 0a 2b 69 6e 74 0a 2b 54 63 6c 5f 4d 61 70 65 61 .+int.+Tcl_Mapea
0d10: 63 68 4f 62 6a 43 6d 64 28 0a 2b 20 20 20 20 43 chObjCmd(.+ C
0d20: 6c 69 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c lientData dummy,
0d30: 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a ../* Not used. *
0d40: 2f 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 /.+ Tcl_Inter
0d50: 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 43 p *interp,../* C
0d60: 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 65 74 urrent interpret
0d70: 65 72 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 er. */.+ int
0d80: 6f 62 6a 63 2c 09 09 09 2f 2a 20 4e 75 6d 62 65 objc,.../* Numbe
0d90: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e 20 r of arguments.
0da0: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 */.+ Tcl_Obj
0db0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 09 2f *const objv[])./
0dc0: 2a 20 41 72 67 75 6d 65 6e 74 20 6f 62 6a 65 63 * Argument objec
0dd0: 74 73 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 72 ts. */.+{.+ r
0de0: 65 74 75 72 6e 20 54 63 6c 5f 4e 52 43 61 6c 6c eturn Tcl_NRCall
0df0: 4f 62 6a 50 72 6f 63 28 69 6e 74 65 72 70 2c 20 ObjProc(interp,
0e00: 54 63 6c 4e 52 4d 61 70 65 61 63 68 43 6d 64 2c TclNRMapeachCmd,
0e10: 20 64 75 6d 6d 79 2c 20 6f 62 6a 63 2c 20 6f 62 dummy, objc, ob
0e20: 6a 76 29 3b 0a 2b 7d 0a 2b 0a 2b 69 6e 74 0a 2b jv);.+}.+.+int.+
0e30: 54 63 6c 4e 52 4d 61 70 65 61 63 68 43 6d 64 28 TclNRMapeachCmd(
0e40: 0a 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 .+ ClientData
0e50: 20 64 75 6d 6d 79 2c 0a 2b 20 20 20 20 54 63 6c dummy,.+ Tcl
0e60: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
0e70: 0a 2b 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 0a .+ int objc,.
0e80: 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f + Tcl_Obj *co
0e90: 6e 73 74 20 6f 62 6a 76 5b 5d 29 0a 2b 7b 0a 2b nst objv[]).+{.+
0ea0: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 4e 52 return TclNR
0eb0: 45 61 63 68 6c 6f 6f 70 43 6d 64 28 64 75 6d 6d EachloopCmd(dumm
0ec0: 79 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c y, interp, objc,
0ed0: 20 6f 62 6a 76 2c 20 31 29 3b 0a 2b 7d 0a 2b 0a objv, 1);.+}.+.
0ee0: 2b 69 6e 74 0a 2b 54 63 6c 4e 52 45 61 63 68 6c +int.+TclNREachl
0ef0: 6f 6f 70 43 6d 64 28 0a 2b 20 20 20 20 43 6c 69 oopCmd(.+ Cli
0f00: 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c 0a 2b entData dummy,.+
0f10: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a Tcl_Interp *
0f20: 69 6e 74 65 72 70 2c 0a 2b 20 20 20 20 69 6e 74 interp,.+ int
0f30: 20 6f 62 6a 63 2c 0a 2b 20 20 20 20 54 63 6c 5f objc,.+ Tcl_
0f40: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
0f50: 5d 2c 0a 2b 20 20 20 20 69 6e 74 20 63 6f 6c 6c ],.+ int coll
0f60: 65 63 74 29 09 09 2f 2a 20 46 6c 61 67 20 3d 3d ect)../* Flag ==
0f70: 20 31 20 74 6f 20 63 6f 6c 6c 65 63 74 20 61 6e 1 to collect an
0f80: 64 20 72 65 74 75 72 6e 20 6c 6f 6f 70 20 62 6f d return loop bo
0f90: 64 79 20 72 65 73 75 6c 74 2e 20 2a 2f 0a 2b 7b dy result. */.+{
0fa0: 0a 2b 0a 20 20 20 20 20 69 6e 74 20 6e 75 6d 4c .+. int numL
0fb0: 69 73 74 73 20 3d 20 28 6f 62 6a 63 2d 32 29 20 ists = (objc-2)
0fc0: 2f 20 32 3b 0a 20 20 20 20 20 72 65 67 69 73 74 / 2;. regist
0fd0: 65 72 20 73 74 72 75 63 74 20 46 6f 72 65 61 63 er struct Foreac
0fe0: 68 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 hState *statePtr
0ff0: 3b 0a 20 20 20 20 20 69 6e 74 20 69 2c 20 6a 2c ;. int i, j,
1000: 20 72 65 73 75 6c 74 3b 0a 20 0a 20 20 20 20 20 result;. .
1010: 69 66 20 28 6f 62 6a 63 20 3c 20 34 20 7c 7c 20 if (objc < 4 ||
1020: 28 6f 62 6a 63 25 32 20 21 3d 20 30 29 29 20 7b (objc%2 != 0)) {
1030: 0a 40 40 20 2d 32 35 37 37 2c 31 30 20 2b 32 36 .@@ -2577,10 +26
1040: 31 32 2c 31 32 20 40 40 0a 20 20 20 20 20 73 74 12,12 @@. st
1050: 61 74 65 50 74 72 2d 3e 61 72 67 63 4c 69 73 74 atePtr->argcList
1060: 20 3d 20 73 74 61 74 65 50 74 72 2d 3e 76 61 72 = statePtr->var
1070: 63 4c 69 73 74 20 2b 20 6e 75 6d 4c 69 73 74 73 cList + numLists
1080: 3b 0a 20 0a 20 20 20 20 20 73 74 61 74 65 50 74 ;. . statePt
1090: 72 2d 3e 6e 75 6d 4c 69 73 74 73 20 3d 20 6e 75 r->numLists = nu
10a0: 6d 4c 69 73 74 73 3b 0a 20 20 20 20 20 73 74 61 mLists;. sta
10b0: 74 65 50 74 72 2d 3e 62 6f 64 79 50 74 72 20 3d tePtr->bodyPtr =
10c0: 20 6f 62 6a 76 5b 6f 62 6a 63 20 2d 20 31 5d 3b objv[objc - 1];
10d0: 0a 20 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e . statePtr->
10e0: 62 6f 64 79 49 64 78 20 3d 20 6f 62 6a 63 20 2d bodyIdx = objc -
10f0: 20 31 3b 0a 2b 0a 2b 20 20 20 20 73 74 61 74 65 1;.+.+ state
1100: 50 74 72 2d 3e 72 65 73 75 6c 74 4c 69 73 74 20 Ptr->resultList
1110: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
1120: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 0a 20 20 20 (0, NULL);. .
1130: 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 42 72 65 /*. * Bre
1140: 61 6b 20 75 70 20 74 68 65 20 76 61 6c 75 65 20 ak up the value
1150: 6c 69 73 74 73 20 61 6e 64 20 76 61 72 69 61 62 lists and variab
1160: 6c 65 20 6c 69 73 74 73 20 69 6e 74 6f 20 65 6c le lists into el
1170: 65 6d 65 6e 74 73 2e 0a 20 20 20 20 20 20 2a 2f ements.. */
1180: 0a 20 0a 40 40 20 2d 32 36 32 34 2c 31 31 20 2b . .@@ -2624,11 +
1190: 32 36 36 31 2c 31 31 20 40 40 0a 20 09 72 65 73 2661,11 @@. .res
11a0: 75 6c 74 20 3d 20 46 6f 72 65 61 63 68 41 73 73 ult = ForeachAss
11b0: 69 67 6e 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c ignments(interp,
11c0: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 09 69 66 statePtr);. .if
11d0: 20 28 72 65 73 75 6c 74 20 3d 3d 20 54 43 4c 5f (result == TCL_
11e0: 45 52 52 4f 52 29 20 7b 0a 20 09 20 20 20 20 67 ERROR) {. . g
11f0: 6f 74 6f 20 64 6f 6e 65 3b 0a 20 09 7d 0a 20 0a oto done;. .}. .
1200: 2d 09 54 63 6c 4e 52 41 64 64 43 61 6c 6c 62 61 -.TclNRAddCallba
1210: 63 6b 28 69 6e 74 65 72 70 2c 20 46 6f 72 65 61 ck(interp, Forea
1220: 63 68 4c 6f 6f 70 53 74 65 70 2c 20 73 74 61 74 chLoopStep, stat
1230: 65 50 74 72 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c ePtr, NULL, NULL
1240: 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 54 63 6c 4e 52 , NULL);.+.TclNR
1250: 41 64 64 43 61 6c 6c 62 61 63 6b 28 69 6e 74 65 AddCallback(inte
1260: 72 70 2c 20 46 6f 72 65 61 63 68 4c 6f 6f 70 53 rp, ForeachLoopS
1270: 74 65 70 2c 20 73 74 61 74 65 50 74 72 2c 20 63 tep, statePtr, c
1280: 6f 6c 6c 65 63 74 2c 20 4e 55 4c 4c 2c 20 4e 55 ollect, NULL, NU
1290: 4c 4c 29 3b 0a 20 09 72 65 74 75 72 6e 20 54 63 LL);. .return Tc
12a0: 6c 4e 52 45 76 61 6c 4f 62 6a 45 78 28 69 6e 74 lNREvalObjEx(int
12b0: 65 72 70 2c 20 6f 62 6a 76 5b 6f 62 6a 63 2d 31 erp, objv[objc-1
12c0: 5d 2c 20 30 2c 0a 20 09 09 28 28 49 6e 74 65 72 ], 0,. ..((Inter
12d0: 70 20 2a 29 20 69 6e 74 65 72 70 29 2d 3e 63 6d p *) interp)->cm
12e0: 64 46 72 61 6d 65 50 74 72 2c 20 6f 62 6a 63 2d dFramePtr, objc-
12f0: 31 29 3b 0a 20 20 20 20 20 7d 0a 20 0a 20 20 20 1);. }. .
1300: 20 20 2f 2a 0a 40 40 20 2d 32 36 35 31 2c 32 34 /*.@@ -2651,24
1310: 20 2b 32 36 38 38 2c 32 39 20 40 40 0a 20 20 20 +2688,29 @@.
1320: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 64 61 74 ClientData dat
1330: 61 5b 5d 2c 0a 20 20 20 20 20 54 63 6c 5f 49 6e a[],. Tcl_In
1340: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
1350: 20 20 20 69 6e 74 20 72 65 73 75 6c 74 29 0a 20 int result).
1360: 7b 0a 20 20 20 20 20 72 65 67 69 73 74 65 72 20 {. register
1370: 73 74 72 75 63 74 20 46 6f 72 65 61 63 68 53 74 struct ForeachSt
1380: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
1390: 64 61 74 61 5b 30 5d 3b 0a 2b 20 20 20 20 69 6e data[0];.+ in
13a0: 74 20 63 6f 6c 6c 65 63 74 20 3d 20 28 69 6e 74 t collect = (int
13b0: 29 64 61 74 61 5b 31 5d 3b 0a 20 0a 20 20 20 20 )data[1];. .
13c0: 20 2f 2a 0a 20 20 20 20 20 20 2a 20 50 72 6f 63 /*. * Proc
13d0: 65 73 73 20 74 68 65 20 72 65 73 75 6c 74 20 63 ess the result c
13e0: 6f 64 65 20 66 72 6f 6d 20 74 68 69 73 20 72 75 ode from this ru
13f0: 6e 20 6f 66 20 74 68 65 20 5b 66 6f 72 65 61 63 n of the [foreac
1400: 68 5d 20 62 6f 64 79 2e 20 4e 6f 74 65 20 74 68 h] body. Note th
1410: 61 74 0a 20 20 20 20 20 20 2a 20 74 68 69 73 20 at. * this
1420: 73 77 69 74 63 68 20 75 73 65 73 20 66 61 6c 6c switch uses fall
1430: 74 68 72 6f 75 67 68 73 20 69 6e 20 73 65 76 65 throughs in seve
1440: 72 61 6c 20 70 6c 61 63 65 73 2e 20 4d 61 69 6e ral places. Main
1450: 74 61 69 6e 65 72 20 61 77 61 72 65 21 0a 20 20 tainer aware!.
1460: 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 73 77 */. . sw
1470: 69 74 63 68 20 28 72 65 73 75 6c 74 29 20 7b 0a itch (result) {.
1480: 20 20 20 20 20 63 61 73 65 20 54 43 4c 5f 43 4f case TCL_CO
1490: 4e 54 49 4e 55 45 3a 0a 20 09 72 65 73 75 6c 74 NTINUE:. .result
14a0: 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 2b 09 62 72 65 = TCL_OK;.+.bre
14b0: 61 6b 3b 0a 20 20 20 20 20 63 61 73 65 20 54 43 ak;. case TC
14c0: 4c 5f 4f 4b 3a 0a 2b 09 69 66 20 28 63 6f 6c 6c L_OK:.+.if (coll
14d0: 65 63 74 20 3d 3d 20 31 29 20 7b 0a 2b 09 20 20 ect == 1) {.+.
14e0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
14f0: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
1500: 20 73 74 61 74 65 50 74 72 2d 3e 72 65 73 75 6c statePtr->resul
1510: 74 4c 69 73 74 2c 20 54 63 6c 5f 47 65 74 4f 62 tList, Tcl_GetOb
1520: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 jResult(interp))
1530: 3b 0a 2b 09 7d 0a 20 09 62 72 65 61 6b 3b 0a 20 ;.+.}. .break;.
1540: 20 20 20 20 63 61 73 65 20 54 43 4c 5f 42 52 45 case TCL_BRE
1550: 41 4b 3a 0a 20 09 72 65 73 75 6c 74 20 3d 20 54 AK:. .result = T
1560: 43 4c 5f 4f 4b 3b 0a 2d 09 67 6f 74 6f 20 64 6f CL_OK;.-.goto do
1570: 6e 65 3b 0a 2b 09 67 6f 74 6f 20 66 69 6e 69 73 ne;.+.goto finis
1580: 68 3b 0a 20 20 20 20 20 63 61 73 65 20 54 43 4c h;. case TCL
1590: 5f 45 52 52 4f 52 3a 0a 20 09 54 63 6c 5f 41 70 _ERROR:. .Tcl_Ap
15a0: 70 65 6e 64 4f 62 6a 54 6f 45 72 72 6f 72 49 6e pendObjToErrorIn
15b0: 66 6f 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f fo(interp, Tcl_O
15c0: 62 6a 50 72 69 6e 74 66 28 0a 20 09 09 22 5c 6e bjPrintf(. .."\n
15d0: 20 20 20 20 28 5c 22 66 6f 72 65 61 63 68 5c 22 (\"foreach\"
15e0: 20 62 6f 64 79 20 6c 69 6e 65 20 25 64 29 22 2c body line %d)",
15f0: 20 54 63 6c 5f 47 65 74 45 72 72 6f 72 4c 69 6e Tcl_GetErrorLin
1600: 65 28 69 6e 74 65 72 70 29 29 29 3b 0a 20 20 20 e(interp)));.
1610: 20 20 64 65 66 61 75 6c 74 3a 0a 20 09 67 6f 74 default:. .got
1620: 6f 20 64 6f 6e 65 3b 0a 40 40 20 2d 32 36 38 33 o done;.@@ -2683
1630: 2c 32 30 20 2b 32 37 32 35 2c 32 31 20 40 40 0a ,20 +2725,21 @@.
1640: 20 09 72 65 73 75 6c 74 20 3d 20 46 6f 72 65 61 .result = Forea
1650: 63 68 41 73 73 69 67 6e 6d 65 6e 74 73 28 69 6e chAssignments(in
1660: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 29 3b terp, statePtr);
1670: 0a 20 09 69 66 20 28 72 65 73 75 6c 74 20 3d 3d . .if (result ==
1680: 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 20 09 TCL_ERROR) {. .
1690: 20 20 20 20 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 goto done;.
16a0: 09 7d 0a 20 0a 2d 09 54 63 6c 4e 52 41 64 64 43 .}. .-.TclNRAddC
16b0: 61 6c 6c 62 61 63 6b 28 69 6e 74 65 72 70 2c 20 allback(interp,
16c0: 46 6f 72 65 61 63 68 4c 6f 6f 70 53 74 65 70 2c ForeachLoopStep,
16d0: 20 73 74 61 74 65 50 74 72 2c 20 4e 55 4c 4c 2c statePtr, NULL,
16e0: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 NULL, NULL);.+.
16f0: 54 63 6c 4e 52 41 64 64 43 61 6c 6c 62 61 63 6b TclNRAddCallback
1700: 28 69 6e 74 65 72 70 2c 20 46 6f 72 65 61 63 68 (interp, Foreach
1710: 4c 6f 6f 70 53 74 65 70 2c 20 73 74 61 74 65 50 LoopStep, stateP
1720: 74 72 2c 20 63 6f 6c 6c 65 63 74 2c 20 4e 55 4c tr, collect, NUL
1730: 4c 2c 20 4e 55 4c 4c 29 3b 0a 20 09 72 65 74 75 L, NULL);. .retu
1740: 72 6e 20 54 63 6c 4e 52 45 76 61 6c 4f 62 6a 45 rn TclNREvalObjE
1750: 78 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 x(interp, stateP
1760: 74 72 2d 3e 62 6f 64 79 50 74 72 2c 20 30 2c 0a tr->bodyPtr, 0,.
1770: 20 09 09 28 28 49 6e 74 65 72 70 20 2a 29 20 69 ..((Interp *) i
1780: 6e 74 65 72 70 29 2d 3e 63 6d 64 46 72 61 6d 65 nterp)->cmdFrame
1790: 50 74 72 2c 20 73 74 61 74 65 50 74 72 2d 3e 62 Ptr, statePtr->b
17a0: 6f 64 79 49 64 78 29 3b 0a 20 20 20 20 20 7d 0a odyIdx);. }.
17b0: 20 0a 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 . /*.
17c0: 2a 20 57 65 27 72 65 20 64 6f 6e 65 2e 20 54 69 * We're done. Ti
17d0: 64 79 20 75 70 20 6f 75 72 20 77 6f 72 6b 20 73 dy up our work s
17e0: 70 61 63 65 20 61 6e 64 20 66 69 6e 69 73 68 20 pace and finish
17f0: 6f 66 66 2e 0a 20 20 20 20 20 20 2a 2f 0a 2d 0a off.. */.-.
1800: 2d 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 - Tcl_ResetRe
1810: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 2b 20 sult(interp);.+
1820: 20 66 69 6e 69 73 68 3a 0a 2b 20 20 20 20 54 63 finish:.+ Tc
1830: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
1840: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d nterp, statePtr-
1850: 3e 72 65 73 75 6c 74 4c 69 73 74 29 3b 0a 2b 20 >resultList);.+
1860: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 72 65 73 statePtr->res
1870: 75 6c 74 4c 69 73 74 20 3d 20 4e 55 4c 4c 3b 20 ultList = NULL;
1880: 2f 2a 20 44 6f 6e 27 74 20 63 6c 65 61 6e 20 69 /* Don't clean i
1890: 74 20 75 70 20 2a 2f 0a 20 20 20 64 6f 6e 65 3a t up */. done:
18a0: 0a 20 20 20 20 20 46 6f 72 65 61 63 68 43 6c 65 . ForeachCle
18b0: 61 6e 75 70 28 69 6e 74 65 72 70 2c 20 73 74 61 anup(interp, sta
18c0: 74 65 50 74 72 29 3b 0a 20 20 20 20 20 72 65 74 tePtr);. ret
18d0: 75 72 6e 20 72 65 73 75 6c 74 3b 0a 20 7d 0a 20 urn result;. }.
18e0: 0a 40 40 20 2d 32 37 35 32 2c 31 30 20 2b 32 37 .@@ -2752,10 +27
18f0: 39 35 2c 31 33 20 40 40 0a 20 09 69 66 20 28 73 95,13 @@. .if (s
1900: 74 61 74 65 50 74 72 2d 3e 76 43 6f 70 79 4c 69 tatePtr->vCopyLi
1910: 73 74 5b 69 5d 29 20 7b 0a 20 09 20 20 20 20 54 st[i]) {. . T
1920: 63 6c 44 65 63 72 52 65 66 43 6f 75 6e 74 28 73 clDecrRefCount(s
1930: 74 61 74 65 50 74 72 2d 3e 76 43 6f 70 79 4c 69 tatePtr->vCopyLi
1940: 73 74 5b 69 5d 29 3b 0a 20 09 7d 0a 20 09 69 66 st[i]);. .}. .if
1950: 20 28 73 74 61 74 65 50 74 72 2d 3e 61 43 6f 70 (statePtr->aCop
1960: 79 4c 69 73 74 5b 69 5d 29 20 7b 0a 20 09 20 20 yList[i]) {. .
1970: 20 20 54 63 6c 44 65 63 72 52 65 66 43 6f 75 6e TclDecrRefCoun
1980: 74 28 73 74 61 74 65 50 74 72 2d 3e 61 43 6f 70 t(statePtr->aCop
1990: 79 4c 69 73 74 5b 69 5d 29 3b 0a 2b 09 7d 0a 2b yList[i]);.+.}.+
19a0: 09 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 72 .if (statePtr->r
19b0: 65 73 75 6c 74 4c 69 73 74 29 20 7b 0a 2b 09 20 esultList) {.+.
19c0: 20 20 20 54 63 6c 44 65 63 72 52 65 66 43 6f 75 TclDecrRefCou
19d0: 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 72 65 73 nt(statePtr->res
19e0: 75 6c 74 4c 69 73 74 29 3b 0a 20 09 7d 0a 20 20 ultList);. .}.
19f0: 20 20 20 7d 0a 20 20 20 20 20 54 63 6c 53 74 61 }. TclSta
1a00: 63 6b 46 72 65 65 28 69 6e 74 65 72 70 2c 20 73 ckFree(interp, s
1a10: 74 61 74 65 50 74 72 29 3b 0a 20 7d 0a 20 0c 0a tatePtr);. }. ..
1a20: 0a 49 6e 64 65 78 3a 20 74 63 6c 2f 67 65 6e 65 .Index: tcl/gene
1a30: 72 69 63 2f 74 63 6c 43 6f 6d 70 43 6d 64 73 2e ric/tclCompCmds.
1a40: 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.==============
1a50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1a60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1a70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1a80: 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 74 63 6c 2f 67 65 =====.--- tcl/ge
1a90: 6e 65 72 69 63 2f 74 63 6c 43 6f 6d 70 43 6d 64 neric/tclCompCmd
1aa0: 73 2e 63 0a 2b 2b 2b 20 74 63 6c 2f 67 65 6e 65 s.c.+++ tcl/gene
1ab0: 72 69 63 2f 74 63 6c 43 6f 6d 70 43 6d 64 73 2e ric/tclCompCmds.
1ac0: 63 0a 40 40 20 2d 34 30 2c 31 30 20 2b 34 30 2c c.@@ -40,10 +40,
1ad0: 31 34 20 40 40 0a 20 73 74 61 74 69 63 20 69 6e 14 @@. static in
1ae0: 74 09 09 50 75 73 68 56 61 72 4e 61 6d 65 28 54 t..PushVarName(T
1af0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1b00: 70 2c 0a 20 09 09 09 20 20 20 20 54 63 6c 5f 54 p,. ... Tcl_T
1b10: 6f 6b 65 6e 20 2a 76 61 72 54 6f 6b 65 6e 50 74 oken *varTokenPt
1b20: 72 2c 20 43 6f 6d 70 69 6c 65 45 6e 76 20 2a 65 r, CompileEnv *e
1b30: 6e 76 50 74 72 2c 0a 20 09 09 09 20 20 20 20 69 nvPtr,. ... i
1b40: 6e 74 20 66 6c 61 67 73 2c 20 69 6e 74 20 2a 6c nt flags, int *l
1b50: 6f 63 61 6c 49 6e 64 65 78 50 74 72 2c 0a 20 09 ocalIndexPtr,. .
1b60: 09 09 20 20 20 20 69 6e 74 20 2a 73 69 6d 70 6c .. int *simpl
1b70: 65 56 61 72 4e 61 6d 65 50 74 72 2c 20 69 6e 74 eVarNamePtr, int
1b80: 20 2a 69 73 53 63 61 6c 61 72 50 74 72 2c 0a 20 *isScalarPtr,.
1b90: 09 09 09 20 20 20 20 69 6e 74 20 6c 69 6e 65 2c ... int line,
1ba0: 20 69 6e 74 20 2a 63 6c 4e 65 78 74 29 3b 0a 2b int *clNext);.+
1bb0: 73 74 61 74 69 63 20 69 6e 74 09 09 54 63 6c 43 static int..TclC
1bc0: 6f 6d 70 69 6c 65 45 61 63 68 6c 6f 6f 70 43 6d ompileEachloopCm
1bd0: 64 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e d(Tcl_Interp *in
1be0: 74 65 72 70 2c 0a 2b 09 09 09 20 20 20 20 54 63 terp,.+... Tc
1bf0: 6c 5f 50 61 72 73 65 20 2a 70 61 72 73 65 50 74 l_Parse *parsePt
1c00: 72 2c 20 43 6f 6d 6d 61 6e 64 20 2a 63 6d 64 50 r, Command *cmdP
1c10: 74 72 2c 09 20 43 6f 6d 70 69 6c 65 45 6e 76 20 tr,. CompileEnv
1c20: 2a 65 6e 76 50 74 72 2c 0a 2b 09 09 09 20 20 20 *envPtr,.+...
1c30: 20 69 6e 74 20 63 6f 6c 6c 65 63 74 29 3b 0a 2b int collect);.+
1c40: 0a 20 0a 20 2f 2a 0a 20 20 2a 20 4d 61 63 72 6f . . /*. * Macro
1c50: 20 74 68 61 74 20 65 6e 63 61 70 73 75 6c 61 74 that encapsulat
1c60: 65 73 20 61 6e 20 65 66 66 69 63 69 65 6e 63 79 es an efficiency
1c70: 20 74 72 69 63 6b 20 74 68 61 74 20 61 76 6f 69 trick that avoi
1c80: 64 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 63 61 ds a function ca
1c90: 6c 6c 20 66 6f 72 0a 20 20 2a 20 74 68 65 20 73 ll for. * the s
1ca0: 69 6d 70 6c 65 73 74 20 6f 66 20 63 6f 6d 70 69 implest of compi
1cb0: 6c 65 73 2e 20 54 68 65 20 41 4e 53 49 20 43 20 les. The ANSI C
1cc0: 22 70 72 6f 74 6f 74 79 70 65 22 20 66 6f 72 20 "prototype" for
1cd0: 74 68 69 73 20 6d 61 63 72 6f 20 69 73 3a 0a 20 this macro is:.
1ce0: 20 2a 0a 40 40 20 2d 31 35 37 39 2c 31 38 20 2b *.@@ -1579,18 +
1cf0: 31 35 38 33 2c 35 31 20 40 40 0a 20 09 09 09 09 1583,51 @@. ....
1d00: 20 2a 20 63 72 65 61 74 65 64 20 62 79 20 54 63 * created by Tc
1d10: 6c 5f 50 61 72 73 65 43 6f 6d 6d 61 6e 64 2e 20 l_ParseCommand.
1d20: 2a 2f 0a 20 20 20 20 20 43 6f 6d 6d 61 6e 64 20 */. Command
1d30: 2a 63 6d 64 50 74 72 2c 09 09 2f 2a 20 50 6f 69 *cmdPtr,../* Poi
1d40: 6e 74 73 20 74 6f 20 64 65 66 69 6e 74 69 6f 6e nts to defintion
1d50: 20 6f 66 20 63 6f 6d 6d 61 6e 64 20 62 65 69 6e of command bein
1d60: 67 0a 20 09 09 09 09 20 2a 20 63 6f 6d 70 69 6c g. .... * compil
1d70: 65 64 2e 20 2a 2f 0a 20 20 20 20 20 43 6f 6d 70 ed. */. Comp
1d80: 69 6c 65 45 6e 76 20 2a 65 6e 76 50 74 72 29 09 ileEnv *envPtr).
1d90: 09 2f 2a 20 48 6f 6c 64 73 20 72 65 73 75 6c 74 ./* Holds result
1da0: 69 6e 67 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 ing instructions
1db0: 2e 20 2a 2f 0a 20 7b 0a 2b 20 20 72 65 74 75 72 . */. {.+ retur
1dc0: 6e 20 54 63 6c 43 6f 6d 70 69 6c 65 45 61 63 68 n TclCompileEach
1dd0: 6c 6f 6f 70 43 6d 64 28 69 6e 74 65 72 70 2c 20 loopCmd(interp,
1de0: 70 61 72 73 65 50 74 72 2c 20 63 6d 64 50 74 72 parsePtr, cmdPtr
1df0: 2c 20 65 6e 76 50 74 72 2c 20 30 29 3b 0a 2b 7d , envPtr, 0);.+}
1e00: 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d 2d 2d 2d .+..+/*.+ *-----
1e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e50: 2d 0a 2b 20 2a 0a 2b 20 2a 20 54 63 6c 43 6f 6d -.+ *.+ * TclCom
1e60: 70 69 6c 65 45 61 63 68 6c 6f 6f 70 43 6d 64 20 pileEachloopCmd
1e70: 2d 2d 0a 2b 20 2a 0a 2b 20 2a 09 50 72 6f 63 65 --.+ *.+ *.Proce
1e80: 64 75 72 65 20 63 61 6c 6c 65 64 20 74 6f 20 63 dure called to c
1e90: 6f 6d 70 69 6c 65 20 74 68 65 20 22 66 6f 72 65 ompile the "fore
1ea0: 61 63 68 22 20 61 6e 64 20 22 6d 61 70 65 61 63 ach" and "mapeac
1eb0: 68 22 20 63 6f 6d 6d 61 6e 64 73 2e 0a 2b 20 2a h" commands..+ *
1ec0: 0a 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b 20 .+ * Results:.+
1ed0: 2a 09 52 65 74 75 72 6e 73 20 54 43 4c 5f 4f 4b *.Returns TCL_OK
1ee0: 20 66 6f 72 20 61 20 73 75 63 63 65 73 73 66 75 for a successfu
1ef0: 6c 20 63 6f 6d 70 69 6c 65 2e 20 52 65 74 75 72 l compile. Retur
1f00: 6e 73 20 54 43 4c 5f 45 52 52 4f 52 20 74 6f 20 ns TCL_ERROR to
1f10: 64 65 66 65 72 0a 2b 20 2a 09 65 76 61 6c 75 61 defer.+ *.evalua
1f20: 74 69 6f 6e 20 74 6f 20 72 75 6e 74 69 6d 65 2e tion to runtime.
1f30: 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 20 65 66 .+ *.+ * Side ef
1f40: 66 65 63 74 73 3a 0a 2b 20 2a 09 49 6e 73 74 72 fects:.+ *.Instr
1f50: 75 63 74 69 6f 6e 73 20 61 72 65 20 61 64 64 65 uctions are adde
1f60: 64 20 74 6f 20 65 6e 76 50 74 72 20 74 6f 20 65 d to envPtr to e
1f70: 78 65 63 75 74 65 20 74 68 65 20 22 66 6f 72 65 xecute the "fore
1f80: 61 63 68 22 20 63 6f 6d 6d 61 6e 64 20 61 74 0a ach" command at.
1f90: 2b 20 2a 09 72 75 6e 74 69 6d 65 2e 0a 2b 20 2a + *.runtime..+ *
1fa0: 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .+ *------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a ----------.+ */.
1ff0: 2b 0a 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 54 +.+static int.+T
2000: 63 6c 43 6f 6d 70 69 6c 65 45 61 63 68 6c 6f 6f clCompileEachloo
2010: 70 43 6d 64 28 0a 2b 20 20 20 20 54 63 6c 5f 49 pCmd(.+ Tcl_I
2020: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 nterp *interp,..
2030: 2f 2a 20 55 73 65 64 20 66 6f 72 20 65 72 72 6f /* Used for erro
2040: 72 20 72 65 70 6f 72 74 69 6e 67 2e 20 2a 2f 0a r reporting. */.
2050: 2b 20 20 20 20 54 63 6c 5f 50 61 72 73 65 20 2a + Tcl_Parse *
2060: 70 61 72 73 65 50 74 72 2c 09 2f 2a 20 50 6f 69 parsePtr,./* Poi
2070: 6e 74 73 20 74 6f 20 61 20 70 61 72 73 65 20 73 nts to a parse s
2080: 74 72 75 63 74 75 72 65 20 66 6f 72 20 74 68 65 tructure for the
2090: 20 63 6f 6d 6d 61 6e 64 0a 2b 09 09 09 09 20 2a command.+.... *
20a0: 20 63 72 65 61 74 65 64 20 62 79 20 54 63 6c 5f created by Tcl_
20b0: 50 61 72 73 65 43 6f 6d 6d 61 6e 64 2e 20 2a 2f ParseCommand. */
20c0: 0a 2b 20 20 20 20 43 6f 6d 6d 61 6e 64 20 2a 63 .+ Command *c
20d0: 6d 64 50 74 72 2c 09 09 2f 2a 20 50 6f 69 6e 74 mdPtr,../* Point
20e0: 73 20 74 6f 20 64 65 66 69 6e 74 69 6f 6e 20 6f s to defintion o
20f0: 66 20 63 6f 6d 6d 61 6e 64 20 62 65 69 6e 67 0a f command being.
2100: 2b 09 09 09 09 20 2a 20 63 6f 6d 70 69 6c 65 64 +.... * compiled
2110: 2e 20 2a 2f 0a 2b 20 20 20 20 43 6f 6d 70 69 6c . */.+ Compil
2120: 65 45 6e 76 20 2a 65 6e 76 50 74 72 2c 09 09 2f eEnv *envPtr,../
2130: 2a 20 48 6f 6c 64 73 20 72 65 73 75 6c 74 69 6e * Holds resultin
2140: 67 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 2e 20 g instructions.
2150: 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 63 6f 6c 6c */.+ int coll
2160: 65 63 74 29 09 09 2f 2a 20 46 6c 61 67 20 3d 3d ect)../* Flag ==
2170: 20 31 20 74 6f 20 63 6f 6c 6c 65 63 74 20 61 6e 1 to collect an
2180: 64 20 72 65 74 75 72 6e 20 6c 6f 6f 70 20 62 6f d return loop bo
2190: 64 79 20 72 65 73 75 6c 74 2e 20 2a 2f 0a 2b 7b dy result. */.+{
21a0: 0a 20 20 20 20 20 50 72 6f 63 20 2a 70 72 6f 63 . Proc *proc
21b0: 50 74 72 20 3d 20 65 6e 76 50 74 72 2d 3e 70 72 Ptr = envPtr->pr
21c0: 6f 63 50 74 72 3b 0a 20 20 20 20 20 46 6f 72 65 ocPtr;. Fore
21d0: 61 63 68 49 6e 66 6f 20 2a 69 6e 66 6f 50 74 72 achInfo *infoPtr
21e0: 3b 09 2f 2a 20 50 6f 69 6e 74 73 20 74 6f 20 74 ;./* Points to t
21f0: 68 65 20 73 74 72 75 63 74 75 72 65 20 64 65 73 he structure des
2200: 63 72 69 62 69 6e 67 20 74 68 69 73 0a 20 09 09 cribing this. ..
2210: 09 09 20 2a 20 66 6f 72 65 61 63 68 20 63 6f 6d .. * foreach com
2220: 6d 61 6e 64 2e 20 53 74 6f 72 65 64 20 69 6e 20 mand. Stored in
2230: 61 20 41 75 78 44 61 74 61 0a 20 09 09 09 09 20 a AuxData. ....
2240: 2a 20 72 65 63 6f 72 64 20 69 6e 20 74 68 65 20 * record in the
2250: 42 79 74 65 43 6f 64 65 2e 20 2a 2f 0a 20 20 20 ByteCode. */.
2260: 20 20 69 6e 74 20 66 69 72 73 74 56 61 6c 75 65 int firstValue
2270: 54 65 6d 70 3b 09 09 2f 2a 20 49 6e 64 65 78 20 Temp;../* Index
2280: 6f 66 20 74 68 65 20 66 69 72 73 74 20 74 65 6d of the first tem
2290: 70 20 76 61 72 20 69 6e 20 74 68 65 20 66 72 61 p var in the fra
22a0: 6d 65 0a 20 09 09 09 09 20 2a 20 75 73 65 64 20 me. .... * used
22b0: 74 6f 20 70 6f 69 6e 74 20 74 6f 20 61 20 76 61 to point to a va
22c0: 6c 75 65 20 6c 69 73 74 2e 20 2a 2f 0a 20 20 20 lue list. */.
22d0: 20 20 69 6e 74 20 6c 6f 6f 70 43 74 54 65 6d 70 int loopCtTemp
22e0: 3b 09 09 2f 2a 20 49 6e 64 65 78 20 6f 66 20 74 ;../* Index of t
22f0: 65 6d 70 20 76 61 72 20 68 6f 6c 64 69 6e 67 20 emp var holding
2300: 74 68 65 20 6c 6f 6f 70 27 73 0a 20 09 09 09 09 the loop's. ....
2310: 20 2a 20 69 74 65 72 61 74 69 6f 6e 20 63 6f 75 * iteration cou
2320: 6e 74 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 nt. */.+ int
2330: 63 6f 6c 6c 65 63 74 54 65 6d 70 3b 20 2f 2a 20 collectTemp; /*
2340: 49 6e 64 65 78 20 6f 66 20 74 65 6d 70 20 76 61 Index of temp va
2350: 72 20 68 6f 6c 64 69 6e 67 20 74 68 65 20 72 65 r holding the re
2360: 73 75 6c 74 20 6c 69 73 74 2e 20 2a 2f 0a 2b 0a sult list. */.+.
2370: 20 20 20 20 20 54 63 6c 5f 54 6f 6b 65 6e 20 2a Tcl_Token *
2380: 74 6f 6b 65 6e 50 74 72 2c 20 2a 62 6f 64 79 54 tokenPtr, *bodyT
2390: 6f 6b 65 6e 50 74 72 3b 0a 20 20 20 20 20 75 6e okenPtr;. un
23a0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6a 75 6d signed char *jum
23b0: 70 50 63 3b 0a 20 20 20 20 20 4a 75 6d 70 46 69 pPc;. JumpFi
23c0: 78 75 70 20 6a 75 6d 70 46 61 6c 73 65 46 69 78 xup jumpFalseFix
23d0: 75 70 3b 0a 20 20 20 20 20 69 6e 74 20 6a 75 6d up;. int jum
23e0: 70 42 61 63 6b 44 69 73 74 2c 20 6a 75 6d 70 42 pBackDist, jumpB
23f0: 61 63 6b 4f 66 66 73 65 74 2c 20 69 6e 66 6f 49 ackOffset, infoI
2400: 6e 64 65 78 2c 20 72 61 6e 67 65 2c 20 62 6f 64 ndex, range, bod
2410: 79 49 6e 64 65 78 3b 0a 20 20 20 20 20 69 6e 74 yIndex;. int
2420: 20 6e 75 6d 57 6f 72 64 73 2c 20 6e 75 6d 4c 69 numWords, numLi
2430: 73 74 73 2c 20 6e 75 6d 56 61 72 73 2c 20 6c 6f sts, numVars, lo
2440: 6f 70 49 6e 64 65 78 2c 20 74 65 6d 70 56 61 72 opIndex, tempVar
2450: 2c 20 69 2c 20 6a 2c 20 63 6f 64 65 3b 0a 40 40 , i, j, code;.@@
2460: 20 2d 31 37 38 32 2c 31 30 20 2b 31 38 31 39 2c -1782,10 +1819,
2470: 32 36 20 40 40 0a 20 09 20 20 20 20 6c 6f 6f 70 26 @@. . loop
2480: 49 6e 64 65 78 2b 2b 3b 0a 20 09 7d 0a 20 20 20 Index++;. .}.
2490: 20 20 7d 0a 20 0a 20 20 20 20 20 2f 2a 0a 2b 20 }. . /*.+
24a0: 20 20 20 20 2a 20 43 72 65 61 74 65 20 74 65 6d * Create tem
24b0: 70 6f 72 61 72 79 20 76 61 72 69 61 62 6c 65 20 porary variable
24c0: 74 6f 20 63 61 70 74 75 72 65 20 72 65 74 75 72 to capture retur
24d0: 6e 20 76 61 6c 75 65 73 20 66 72 6f 6d 20 6c 6f n values from lo
24e0: 6f 70 20 62 6f 64 79 2e 0a 2b 20 20 20 20 20 2a op body..+ *
24f0: 2f 0a 2b 20 20 20 20 20 0a 2b 20 20 20 20 69 66 /.+ .+ if
2500: 20 28 63 6f 6c 6c 65 63 74 20 3d 3d 20 31 29 20 (collect == 1)
2510: 7b 0a 2b 09 20 20 20 20 63 6f 6c 6c 65 63 74 54 {.+. collectT
2520: 65 6d 70 20 3d 20 54 63 6c 46 69 6e 64 43 6f 6d emp = TclFindCom
2530: 70 69 6c 65 64 4c 6f 63 61 6c 28 4e 55 4c 4c 2c piledLocal(NULL,
2540: 20 2f 2a 6e 61 6d 65 43 68 61 72 73 2a 2f 20 30 /*nameChars*/ 0
2550: 2c 20 2f 2a 63 72 65 61 74 65 2a 2f 20 31 2c 20 , /*create*/ 1,
2560: 65 6e 76 50 74 72 29 3b 0a 2b 09 20 20 20 20 0a envPtr);.+. .
2570: 2b 09 20 20 20 20 50 75 73 68 4c 69 74 65 72 61 +. PushLitera
2580: 6c 28 65 6e 76 50 74 72 2c 20 22 22 2c 20 30 29 l(envPtr, "", 0)
2590: 3b 0a 2b 09 20 20 20 20 69 66 20 28 63 6f 6c 6c ;.+. if (coll
25a0: 65 63 74 54 65 6d 70 20 3c 3d 20 32 35 35 29 20 ectTemp <= 255)
25b0: 7b 0a 2b 09 20 20 20 20 20 20 54 63 6c 45 6d 69 {.+. TclEmi
25c0: 74 49 6e 73 74 49 6e 74 31 28 49 4e 53 54 5f 53 tInstInt1(INST_S
25d0: 54 4f 52 45 5f 53 43 41 4c 41 52 31 2c 20 63 6f TORE_SCALAR1, co
25e0: 6c 6c 65 63 74 54 65 6d 70 2c 20 65 6e 76 50 74 llectTemp, envPt
25f0: 72 29 3b 0a 2b 09 20 20 20 20 7d 20 65 6c 73 65 r);.+. } else
2600: 20 7b 0a 2b 09 20 20 20 20 20 20 54 63 6c 45 6d {.+. TclEm
2610: 69 74 49 6e 73 74 49 6e 74 34 28 49 4e 53 54 5f itInstInt4(INST_
2620: 53 54 4f 52 45 5f 53 43 41 4c 41 52 34 2c 20 63 STORE_SCALAR4, c
2630: 6f 6c 6c 65 63 74 54 65 6d 70 2c 20 65 6e 76 50 ollectTemp, envP
2640: 74 72 29 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 20 tr);.+. }.+.
2650: 20 20 20 54 63 6c 45 6d 69 74 4f 70 63 6f 64 65 TclEmitOpcode
2660: 28 49 4e 53 54 5f 50 4f 50 2c 20 65 6e 76 50 74 (INST_POP, envPt
2670: 72 29 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 r);.+ }.+.+
2680: 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 49 6e 69 /*. * Ini
2690: 74 69 61 6c 69 7a 65 20 74 68 65 20 74 65 6d 70 tialize the temp
26a0: 6f 72 61 72 79 20 76 61 72 20 74 68 61 74 20 68 orary var that h
26b0: 6f 6c 64 73 20 74 68 65 20 63 6f 75 6e 74 20 6f olds the count o
26c0: 66 20 6c 6f 6f 70 20 69 74 65 72 61 74 69 6f 6e f loop iteration
26d0: 73 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 s.. */. .
26e0: 20 20 20 54 63 6c 45 6d 69 74 49 6e 73 74 49 6e TclEmitInstIn
26f0: 74 34 28 49 4e 53 54 5f 46 4f 52 45 41 43 48 5f t4(INST_FOREACH_
2700: 53 54 41 52 54 34 2c 20 69 6e 66 6f 49 6e 64 65 START4, infoInde
2710: 78 2c 20 65 6e 76 50 74 72 29 3b 0a 20 0a 40 40 x, envPtr);. .@@
2720: 20 2d 31 38 30 35 2c 31 31 20 2b 31 38 35 38 2c -1805,11 +1858,
2730: 32 30 20 40 40 0a 20 20 20 20 20 53 65 74 4c 69 20 @@. SetLi
2740: 6e 65 49 6e 66 6f 72 6d 61 74 69 6f 6e 28 62 6f neInformation(bo
2750: 64 79 49 6e 64 65 78 29 3b 0a 20 20 20 20 20 45 dyIndex);. E
2760: 78 63 65 70 74 69 6f 6e 52 61 6e 67 65 53 74 61 xceptionRangeSta
2770: 72 74 73 28 65 6e 76 50 74 72 2c 20 72 61 6e 67 rts(envPtr, rang
2780: 65 29 3b 0a 20 20 20 20 20 43 6f 6d 70 69 6c 65 e);. Compile
2790: 42 6f 64 79 28 65 6e 76 50 74 72 2c 20 62 6f 64 Body(envPtr, bod
27a0: 79 54 6f 6b 65 6e 50 74 72 2c 20 69 6e 74 65 72 yTokenPtr, inter
27b0: 70 29 3b 0a 20 20 20 20 20 45 78 63 65 70 74 69 p);. Excepti
27c0: 6f 6e 52 61 6e 67 65 45 6e 64 73 28 65 6e 76 50 onRangeEnds(envP
27d0: 74 72 2c 20 72 61 6e 67 65 29 3b 0a 20 20 20 20 tr, range);.
27e0: 20 65 6e 76 50 74 72 2d 3e 63 75 72 72 53 74 61 envPtr->currSta
27f0: 63 6b 44 65 70 74 68 20 3d 20 73 61 76 65 64 53 ckDepth = savedS
2800: 74 61 63 6b 44 65 70 74 68 20 2b 20 31 3b 0a 2d tackDepth + 1;.-
2810: 20 20 20 20 54 63 6c 45 6d 69 74 4f 70 63 6f 64 TclEmitOpcod
2820: 65 28 49 4e 53 54 5f 50 4f 50 2c 20 65 6e 76 50 e(INST_POP, envP
2830: 74 72 29 3b 0a 2b 0a 2b 20 20 20 20 69 66 20 28 tr);.+.+ if (
2840: 63 6f 6c 6c 65 63 74 20 3d 3d 20 31 29 20 7b 0a collect == 1) {.
2850: 2b 09 20 20 20 20 69 66 20 28 63 6f 6c 6c 65 63 +. if (collec
2860: 74 54 65 6d 70 20 3c 3d 20 32 35 35 29 20 7b 0a tTemp <= 255) {.
2870: 2b 09 20 20 20 20 20 20 54 63 6c 45 6d 69 74 49 +. TclEmitI
2880: 6e 73 74 49 6e 74 31 28 49 4e 53 54 5f 4c 41 50 nstInt1(INST_LAP
2890: 50 45 4e 44 5f 53 43 41 4c 41 52 31 2c 20 63 6f PEND_SCALAR1, co
28a0: 6c 6c 65 63 74 54 65 6d 70 2c 20 65 6e 76 50 74 llectTemp, envPt
28b0: 72 29 3b 0a 2b 09 20 20 20 20 7d 20 65 6c 73 65 r);.+. } else
28c0: 20 7b 0a 2b 09 20 20 20 20 20 20 54 63 6c 45 6d {.+. TclEm
28d0: 69 74 49 6e 73 74 49 6e 74 34 28 49 4e 53 54 5f itInstInt4(INST_
28e0: 4c 41 50 50 45 4e 44 5f 53 43 41 4c 41 52 34 2c LAPPEND_SCALAR4,
28f0: 20 63 6f 6c 6c 65 63 74 54 65 6d 70 2c 20 65 6e collectTemp, en
2900: 76 50 74 72 29 3b 0a 2b 09 20 20 20 20 7d 0a 2b vPtr);.+. }.+
2910: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 09 20 } else {.+.
2920: 20 20 20 54 63 6c 45 6d 69 74 4f 70 63 6f 64 65 TclEmitOpcode
2930: 28 49 4e 53 54 5f 50 4f 50 2c 20 65 6e 76 50 74 (INST_POP, envPt
2940: 72 29 3b 0a 2b 20 20 20 20 7d 0a 20 0a 20 20 20 r);.+ }. .
2950: 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 4a 75 6d /*. * Jum
2960: 70 20 62 61 63 6b 20 74 6f 20 74 68 65 20 74 65 p back to the te
2970: 73 74 20 61 74 20 74 68 65 20 74 6f 70 20 6f 66 st at the top of
2980: 20 74 68 65 20 6c 6f 6f 70 2e 20 47 65 6e 65 72 the loop. Gener
2990: 61 74 65 20 61 20 34 20 62 79 74 65 20 6a 75 6d ate a 4 byte jum
29a0: 70 20 69 66 0a 20 20 20 20 20 20 2a 20 74 68 65 p if. * the
29b0: 20 64 69 73 74 61 6e 63 65 20 74 6f 20 74 68 65 distance to the
29c0: 20 74 65 73 74 20 69 73 20 3e 20 31 32 30 20 62 test is > 120 b
29d0: 79 74 65 73 2e 20 54 68 69 73 20 69 73 20 63 6f ytes. This is co
29e0: 6e 73 65 72 76 61 74 69 76 65 20 61 6e 64 0a 20 nservative and.
29f0: 20 20 20 20 20 2a 20 65 6e 73 75 72 65 73 20 74 * ensures t
2a00: 68 61 74 20 77 65 20 77 6f 6e 27 74 20 68 61 76 hat we won't hav
2a10: 65 20 74 6f 20 72 65 70 6c 61 63 65 20 74 68 69 e to replace thi
2a20: 73 20 6a 75 6d 70 20 69 66 20 77 65 20 6c 61 74 s jump if we lat
2a30: 65 72 20 6e 65 65 64 20 74 6f 0a 40 40 20 2d 31 er need to.@@ -1
2a40: 38 35 35 2c 31 35 20 2b 31 39 31 37 2c 32 34 20 855,15 +1917,24
2a50: 40 40 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 @@. */. .
2a60: 20 20 20 45 78 63 65 70 74 69 6f 6e 52 61 6e 67 ExceptionRang
2a70: 65 54 61 72 67 65 74 28 65 6e 76 50 74 72 2c 20 eTarget(envPtr,
2a80: 72 61 6e 67 65 2c 20 62 72 65 61 6b 4f 66 66 73 range, breakOffs
2a90: 65 74 29 3b 0a 20 0a 20 20 20 20 20 2f 2a 0a 2d et);. . /*.-
2aa0: 20 20 20 20 20 2a 20 54 68 65 20 66 6f 72 65 61 * The forea
2ab0: 63 68 20 63 6f 6d 6d 61 6e 64 27 73 20 72 65 73 ch command's res
2ac0: 75 6c 74 20 69 73 20 61 6e 20 65 6d 70 74 79 20 ult is an empty
2ad0: 73 74 72 69 6e 67 2e 0a 2b 20 20 20 20 20 2a 20 string..+ *
2ae0: 54 68 65 20 63 6f 6d 6d 61 6e 64 27 73 20 72 65 The command's re
2af0: 73 75 6c 74 20 69 73 20 61 6e 20 65 6d 70 74 79 sult is an empty
2b00: 20 73 74 72 69 6e 67 20 69 66 20 6e 6f 74 20 63 string if not c
2b10: 6f 6c 6c 65 63 74 69 6e 67 2c 20 6f 72 20 74 68 ollecting, or th
2b20: 65 0a 2b 20 20 20 20 20 2a 20 6c 69 73 74 20 6f e.+ * list o
2b30: 66 20 72 65 73 75 6c 74 73 20 66 72 6f 6d 20 65 f results from e
2b40: 76 61 6c 75 61 74 69 6e 67 20 74 68 65 20 6c 6f valuating the lo
2b50: 6f 70 20 62 6f 64 79 2e 0a 20 20 20 20 20 20 2a op body.. *
2b60: 2f 0a 20 0a 20 20 20 20 20 65 6e 76 50 74 72 2d /. . envPtr-
2b70: 3e 63 75 72 72 53 74 61 63 6b 44 65 70 74 68 20 >currStackDepth
2b80: 3d 20 73 61 76 65 64 53 74 61 63 6b 44 65 70 74 = savedStackDept
2b90: 68 3b 0a 2d 20 20 20 20 50 75 73 68 4c 69 74 65 h;.- PushLite
2ba0: 72 61 6c 28 65 6e 76 50 74 72 2c 20 22 22 2c 20 ral(envPtr, "",
2bb0: 30 29 3b 0a 2b 20 20 20 20 69 66 20 28 63 6f 6c 0);.+ if (col
2bc0: 6c 65 63 74 20 3d 3d 20 31 29 20 7b 0a 2b 09 20 lect == 1) {.+.
2bd0: 20 20 20 69 66 20 28 63 6f 6c 6c 65 63 74 54 65 if (collectTe
2be0: 6d 70 20 3c 3d 20 32 35 35 29 20 7b 0a 2b 09 20 mp <= 255) {.+.
2bf0: 20 20 20 20 20 54 63 6c 45 6d 69 74 49 6e 73 74 TclEmitInst
2c00: 49 6e 74 31 28 49 4e 53 54 5f 4c 4f 41 44 5f 53 Int1(INST_LOAD_S
2c10: 43 41 4c 41 52 31 2c 20 63 6f 6c 6c 65 63 74 54 CALAR1, collectT
2c20: 65 6d 70 2c 20 65 6e 76 50 74 72 29 3b 0a 2b 09 emp, envPtr);.+.
2c30: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 09 20 } else {.+.
2c40: 20 20 20 20 20 54 63 6c 45 6d 69 74 49 6e 73 74 TclEmitInst
2c50: 49 6e 74 34 28 49 4e 53 54 5f 4c 4f 41 44 5f 53 Int4(INST_LOAD_S
2c60: 43 41 4c 41 52 34 2c 20 63 6f 6c 6c 65 63 74 54 CALAR4, collectT
2c70: 65 6d 70 2c 20 65 6e 76 50 74 72 29 3b 0a 2b 09 emp, envPtr);.+.
2c80: 20 20 20 20 7d 0a 2b 20 20 20 20 7d 20 65 6c 73 }.+ } els
2c90: 65 20 7b 0a 2b 09 20 20 20 20 50 75 73 68 4c 69 e {.+. PushLi
2ca0: 74 65 72 61 6c 28 65 6e 76 50 74 72 2c 20 22 22 teral(envPtr, ""
2cb0: 2c 20 30 29 3b 0a 2b 20 20 20 20 7d 0a 20 20 20 , 0);.+ }.
2cc0: 20 20 65 6e 76 50 74 72 2d 3e 63 75 72 72 53 74 envPtr->currSt
2cd0: 61 63 6b 44 65 70 74 68 20 3d 20 73 61 76 65 64 ackDepth = saved
2ce0: 53 74 61 63 6b 44 65 70 74 68 20 2b 20 31 3b 0a StackDepth + 1;.
2cf0: 20 0a 20 20 20 64 6f 6e 65 3a 0a 20 20 20 20 20 . done:.
2d00: 66 6f 72 20 28 6c 6f 6f 70 49 6e 64 65 78 20 3d for (loopIndex =
2d10: 20 30 3b 20 20 6c 6f 6f 70 49 6e 64 65 78 20 3c 0; loopIndex <
2d20: 20 6e 75 6d 4c 69 73 74 73 3b 20 20 6c 6f 6f 70 numLists; loop
2d30: 49 6e 64 65 78 2b 2b 29 20 7b 0a 20 09 69 66 20 Index++) {. .if
2d40: 28 76 61 72 76 4c 69 73 74 5b 6c 6f 6f 70 49 6e (varvList[loopIn
2d50: 64 65 78 5d 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a dex] != NULL) {.
2d60: 40 40 20 2d 33 32 30 33 2c 31 30 20 2b 33 32 37 @@ -3203,10 +327
2d70: 34 2c 34 30 20 40 40 0a 20 09 20 20 20 20 54 63 4,40 @@. . Tc
2d80: 6c 45 6d 69 74 49 6e 73 74 49 6e 74 34 28 49 4e lEmitInstInt4(IN
2d90: 53 54 5f 53 54 4f 52 45 5f 41 52 52 41 59 34 2c ST_STORE_ARRAY4,
2da0: 20 6c 6f 63 61 6c 49 6e 64 65 78 2c 20 65 6e 76 localIndex, env
2db0: 50 74 72 29 3b 0a 20 09 7d 0a 20 20 20 20 20 7d Ptr);. .}. }
2dc0: 0a 20 0a 20 20 20 20 20 72 65 74 75 72 6e 20 54 . . return T
2dd0: 43 4c 5f 4f 4b 3b 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a CL_OK;.+}.+..+/*
2de0: 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .+ *------------
2df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 2b ----------.+ *.+
2e30: 20 2a 20 54 63 6c 43 6f 6d 70 69 6c 65 4d 61 70 * TclCompileMap
2e40: 65 61 63 68 43 6d 64 20 2d 2d 0a 2b 20 2a 0a 2b eachCmd --.+ *.+
2e50: 20 2a 09 50 72 6f 63 65 64 75 72 65 20 63 61 6c *.Procedure cal
2e60: 6c 65 64 20 74 6f 20 63 6f 6d 70 69 6c 65 20 74 led to compile t
2e70: 68 65 20 22 6d 61 70 65 61 63 68 22 20 63 6f 6d he "mapeach" com
2e80: 6d 61 6e 64 2e 0a 2b 20 2a 0a 2b 20 2a 20 52 65 mand..+ *.+ * Re
2e90: 73 75 6c 74 73 3a 0a 2b 20 2a 09 52 65 74 75 72 sults:.+ *.Retur
2ea0: 6e 73 20 54 43 4c 5f 4f 4b 20 66 6f 72 20 61 20 ns TCL_OK for a
2eb0: 73 75 63 63 65 73 73 66 75 6c 20 63 6f 6d 70 69 successful compi
2ec0: 6c 65 2e 20 52 65 74 75 72 6e 73 20 54 43 4c 5f le. Returns TCL_
2ed0: 45 52 52 4f 52 20 74 6f 20 64 65 66 65 72 0a 2b ERROR to defer.+
2ee0: 20 2a 09 65 76 61 6c 75 61 74 69 6f 6e 20 74 6f *.evaluation to
2ef0: 20 72 75 6e 74 69 6d 65 2e 0a 2b 20 2a 0a 2b 20 runtime..+ *.+
2f00: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
2f10: 2b 20 2a 09 49 6e 73 74 72 75 63 74 69 6f 6e 73 + *.Instructions
2f20: 20 61 72 65 20 61 64 64 65 64 20 74 6f 20 65 6e are added to en
2f30: 76 50 74 72 20 74 6f 20 65 78 65 63 75 74 65 20 vPtr to execute
2f40: 74 68 65 20 22 6d 61 70 65 61 63 68 22 20 63 6f the "mapeach" co
2f50: 6d 6d 61 6e 64 20 61 74 0a 2b 20 2a 09 72 75 6e mmand at.+ *.run
2f60: 74 69 6d 65 2e 0a 2b 20 2a 0a 2b 20 2a 2d 2d 2d time..+ *.+ *---
2f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fb0: 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b 69 6e 74 0a ---.+ */.+.+int.
2fc0: 2b 54 63 6c 43 6f 6d 70 69 6c 65 4d 61 70 65 61 +TclCompileMapea
2fd0: 63 68 43 6d 64 28 0a 2b 20 20 20 20 54 63 6c 5f chCmd(.+ Tcl_
2fe0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 Interp *interp,.
2ff0: 09 2f 2a 20 55 73 65 64 20 66 6f 72 20 65 72 72 ./* Used for err
3000: 6f 72 20 72 65 70 6f 72 74 69 6e 67 2e 20 2a 2f or reporting. */
3010: 0a 2b 20 20 20 20 54 63 6c 5f 50 61 72 73 65 20 .+ Tcl_Parse
3020: 2a 70 61 72 73 65 50 74 72 2c 09 2f 2a 20 50 6f *parsePtr,./* Po
3030: 69 6e 74 73 20 74 6f 20 61 20 70 61 72 73 65 20 ints to a parse
3040: 73 74 72 75 63 74 75 72 65 20 66 6f 72 20 74 68 structure for th
3050: 65 20 63 6f 6d 6d 61 6e 64 0a 2b 09 09 09 09 20 e command.+....
3060: 2a 20 63 72 65 61 74 65 64 20 62 79 20 54 63 6c * created by Tcl
3070: 5f 50 61 72 73 65 43 6f 6d 6d 61 6e 64 2e 20 2a _ParseCommand. *
3080: 2f 0a 2b 20 20 20 20 43 6f 6d 6d 61 6e 64 20 2a /.+ Command *
3090: 63 6d 64 50 74 72 2c 09 09 2f 2a 20 50 6f 69 6e cmdPtr,../* Poin
30a0: 74 73 20 74 6f 20 64 65 66 69 6e 74 69 6f 6e 20 ts to defintion
30b0: 6f 66 20 63 6f 6d 6d 61 6e 64 20 62 65 69 6e 67 of command being
30c0: 0a 2b 09 09 09 09 20 2a 20 63 6f 6d 70 69 6c 65 .+.... * compile
30d0: 64 2e 20 2a 2f 0a 2b 20 20 20 20 43 6f 6d 70 69 d. */.+ Compi
30e0: 6c 65 45 6e 76 20 2a 65 6e 76 50 74 72 29 09 09 leEnv *envPtr)..
30f0: 2f 2a 20 48 6f 6c 64 73 20 72 65 73 75 6c 74 69 /* Holds resulti
3100: 6e 67 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 2e ng instructions.
3110: 20 2a 2f 0a 2b 7b 0a 2b 20 20 72 65 74 75 72 6e */.+{.+ return
3120: 20 54 63 6c 43 6f 6d 70 69 6c 65 45 61 63 68 6c TclCompileEachl
3130: 6f 6f 70 43 6d 64 28 69 6e 74 65 72 70 2c 20 70 oopCmd(interp, p
3140: 61 72 73 65 50 74 72 2c 20 63 6d 64 50 74 72 2c arsePtr, cmdPtr,
3150: 20 65 6e 76 50 74 72 2c 20 31 29 3b 0a 20 7d 0a envPtr, 1);. }.
3160: 20 0c 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d .. /*. *------
3170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31b0: 0a 20 20 2a 0a 0a 49 6e 64 65 78 3a 20 74 63 6c . *..Index: tcl
31c0: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e /generic/tclInt.
31d0: 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d h.==============
31e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
31f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3200: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3210: 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 74 63 6c 2f 67 65 =====.--- tcl/ge
3220: 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 0a 2b neric/tclInt.h.+
3230: 2b 2b 20 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 ++ tcl/generic/t
3240: 63 6c 49 6e 74 2e 68 0a 40 40 20 2d 32 37 34 32 clInt.h.@@ -2742
3250: 2c 31 30 20 2b 32 37 34 32 2c 31 31 20 40 40 0a ,10 +2742,11 @@.
3260: 20 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 54 63 MODULE_SCOPE Tc
3270: 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 54 63 6c l_ObjCmdProc Tcl
3280: 4e 52 43 61 74 63 68 4f 62 6a 43 6d 64 3b 0a 20 NRCatchObjCmd;.
3290: 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 54 63 6c MODULE_SCOPE Tcl
32a0: 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 54 63 6c 4e _ObjCmdProc TclN
32b0: 52 45 78 70 72 4f 62 6a 43 6d 64 3b 0a 20 4d 4f RExprObjCmd;. MO
32c0: 44 55 4c 45 5f 53 43 4f 50 45 20 54 63 6c 5f 4f DULE_SCOPE Tcl_O
32d0: 62 6a 43 6d 64 50 72 6f 63 20 54 63 6c 4e 52 46 bjCmdProc TclNRF
32e0: 6f 72 4f 62 6a 43 6d 64 3b 0a 20 4d 4f 44 55 4c orObjCmd;. MODUL
32f0: 45 5f 53 43 4f 50 45 20 54 63 6c 5f 4f 62 6a 43 E_SCOPE Tcl_ObjC
3300: 6d 64 50 72 6f 63 20 54 63 6c 4e 52 46 6f 72 65 mdProc TclNRFore
3310: 61 63 68 43 6d 64 3b 0a 20 4d 4f 44 55 4c 45 5f achCmd;. MODULE_
3320: 53 43 4f 50 45 20 54 63 6c 5f 4f 62 6a 43 6d 64 SCOPE Tcl_ObjCmd
3330: 50 72 6f 63 20 54 63 6c 4e 52 49 66 4f 62 6a 43 Proc TclNRIfObjC
3340: 6d 64 3b 0a 2b 4d 4f 44 55 4c 45 5f 53 43 4f 50 md;.+MODULE_SCOP
3350: 45 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 E Tcl_ObjCmdProc
3360: 20 54 63 6c 4e 52 4d 61 70 65 61 63 68 43 6d 64 TclNRMapeachCmd
3370: 3b 0a 20 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 ;. MODULE_SCOPE
3380: 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 54 Tcl_ObjCmdProc T
3390: 63 6c 4e 52 53 6f 75 72 63 65 4f 62 6a 43 6d 64 clNRSourceObjCmd
33a0: 3b 0a 20 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 ;. MODULE_SCOPE
33b0: 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 54 Tcl_ObjCmdProc T
33c0: 63 6c 4e 52 53 75 62 73 74 4f 62 6a 43 6d 64 3b clNRSubstObjCmd;
33d0: 0a 20 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 54 . MODULE_SCOPE T
33e0: 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 54 63 cl_ObjCmdProc Tc
33f0: 6c 4e 52 53 77 69 74 63 68 4f 62 6a 43 6d 64 3b lNRSwitchObjCmd;
3400: 0a 20 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 54 . MODULE_SCOPE T
3410: 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 54 63 cl_ObjCmdProc Tc
3420: 6c 4e 52 54 72 79 4f 62 6a 43 6d 64 3b 0a 20 4d lNRTryObjCmd;. M
3430: 4f 44 55 4c 45 5f 53 43 4f 50 45 20 54 63 6c 5f ODULE_SCOPE Tcl_
3440: 4f 62 6a 43 6d 64 50 72 6f 63 20 54 63 6c 4e 52 ObjCmdProc TclNR
3450: 57 68 69 6c 65 4f 62 6a 43 6d 64 3b 0a 40 40 20 WhileObjCmd;.@@
3460: 2d 33 33 30 35 2c 31 30 20 2b 33 33 30 36 2c 31 -3305,10 +3306,1
3470: 33 20 40 40 0a 20 09 09 09 20 20 20 20 54 63 6c 3 @@. ... Tcl
3480: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3490: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 09 09 09 20 int objc,. ...
34a0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 Tcl_Obj *cons
34b0: 74 20 6f 62 6a 76 5b 5d 29 3b 0a 20 4d 4f 44 55 t objv[]);. MODU
34c0: 4c 45 5f 53 43 4f 50 45 20 69 6e 74 09 54 63 6c LE_SCOPE int.Tcl
34d0: 5f 4c 73 6f 72 74 4f 62 6a 43 6d 64 28 43 6c 69 _LsortObjCmd(Cli
34e0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
34f0: 74 61 2c 0a 20 09 09 09 20 20 20 20 54 63 6c 5f ta,. ... Tcl_
3500: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
3510: 69 6e 74 20 6f 62 6a 63 2c 0a 20 09 09 09 20 20 int objc,. ...
3520: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 Tcl_Obj *const
3530: 20 6f 62 6a 76 5b 5d 29 3b 0a 2b 4d 4f 44 55 4c objv[]);.+MODUL
3540: 45 5f 53 43 4f 50 45 20 69 6e 74 09 54 63 6c 5f E_SCOPE int.Tcl_
3550: 4d 61 70 65 61 63 68 4f 62 6a 43 6d 64 28 43 6c MapeachObjCmd(Cl
3560: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
3570: 61 74 61 2c 0a 2b 09 09 09 20 20 20 20 54 63 6c ata,.+... Tcl
3580: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3590: 20 69 6e 74 20 6f 62 6a 63 2c 0a 2b 09 09 09 20 int objc,.+...
35a0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 Tcl_Obj *cons
35b0: 74 20 6f 62 6a 76 5b 5d 29 3b 0a 20 4d 4f 44 55 t objv[]);. MODU
35c0: 4c 45 5f 53 43 4f 50 45 20 69 6e 74 09 54 63 6c LE_SCOPE int.Tcl
35d0: 5f 4e 61 6d 65 73 70 61 63 65 4f 62 6a 43 6d 64 _NamespaceObjCmd
35e0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
35f0: 6e 74 44 61 74 61 2c 0a 20 09 09 09 20 20 20 20 ntData,. ...
3600: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
3610: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 09 rp, int objc,. .
3620: 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 .. Tcl_Obj *c
3630: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 20 4d onst objv[]);. M
3640: 4f 44 55 4c 45 5f 53 43 4f 50 45 20 69 6e 74 09 ODULE_SCOPE int.
3650: 54 63 6c 4e 61 6d 65 73 70 61 63 65 45 6e 73 65 TclNamespaceEnse
3660: 6d 62 6c 65 43 6d 64 28 43 6c 69 65 6e 74 44 61 mbleCmd(ClientDa
3670: 74 61 20 64 75 6d 6d 79 2c 0a 20 09 09 09 20 20 ta dummy,. ...
3680: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
3690: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 0a terp, int objc,.
36a0: 40 40 20 2d 33 34 39 31 2c 31 30 20 2b 33 34 39 @@ -3491,10 +349
36b0: 35 2c 31 33 20 40 40 0a 20 09 09 09 20 20 20 20 5,13 @@. ...
36c0: 73 74 72 75 63 74 20 43 6f 6d 70 69 6c 65 45 6e struct CompileEn
36d0: 76 20 2a 65 6e 76 50 74 72 29 3b 0a 20 4d 4f 44 v *envPtr);. MOD
36e0: 55 4c 45 5f 53 43 4f 50 45 20 69 6e 74 09 54 63 ULE_SCOPE int.Tc
36f0: 6c 43 6f 6d 70 69 6c 65 4c 6c 65 6e 67 74 68 43 lCompileLlengthC
3700: 6d 64 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 md(Tcl_Interp *i
3710: 6e 74 65 72 70 2c 0a 20 09 09 09 20 20 20 20 54 nterp,. ... T
3720: 63 6c 5f 50 61 72 73 65 20 2a 70 61 72 73 65 50 cl_Parse *parseP
3730: 74 72 2c 20 43 6f 6d 6d 61 6e 64 20 2a 63 6d 64 tr, Command *cmd
3740: 50 74 72 2c 0a 20 09 09 09 20 20 20 20 73 74 72 Ptr,. ... str
3750: 75 63 74 20 43 6f 6d 70 69 6c 65 45 6e 76 20 2a uct CompileEnv *
3760: 65 6e 76 50 74 72 29 3b 0a 20 4d 4f 44 55 4c 45 envPtr);. MODULE
3770: 5f 53 43 4f 50 45 20 69 6e 74 09 54 63 6c 43 6f _SCOPE int.TclCo
3780: 6d 70 69 6c 65 4c 73 65 74 43 6d 64 28 54 63 6c mpileLsetCmd(Tcl
3790: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
37a0: 0a 2b 09 09 09 20 20 20 20 54 63 6c 5f 50 61 72 .+... Tcl_Par
37b0: 73 65 20 2a 70 61 72 73 65 50 74 72 2c 20 43 6f se *parsePtr, Co
37c0: 6d 6d 61 6e 64 20 2a 63 6d 64 50 74 72 2c 0a 2b mmand *cmdPtr,.+
37d0: 09 09 09 20 20 20 20 73 74 72 75 63 74 20 43 6f ... struct Co
37e0: 6d 70 69 6c 65 45 6e 76 20 2a 65 6e 76 50 74 72 mpileEnv *envPtr
37f0: 29 3b 0a 2b 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 );.+MODULE_SCOPE
3800: 20 69 6e 74 09 54 63 6c 43 6f 6d 70 69 6c 65 4d int.TclCompileM
3810: 61 70 65 61 63 68 43 6d 64 28 54 63 6c 5f 49 6e apeachCmd(Tcl_In
3820: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 09 terp *interp,. .
3830: 09 09 20 20 20 20 54 63 6c 5f 50 61 72 73 65 20 .. Tcl_Parse
3840: 2a 70 61 72 73 65 50 74 72 2c 20 43 6f 6d 6d 61 *parsePtr, Comma
3850: 6e 64 20 2a 63 6d 64 50 74 72 2c 0a 20 09 09 09 nd *cmdPtr,. ...
3860: 20 20 20 20 73 74 72 75 63 74 20 43 6f 6d 70 69 struct Compi
3870: 6c 65 45 6e 76 20 2a 65 6e 76 50 74 72 29 3b 0a leEnv *envPtr);.
3880: 20 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 69 6e MODULE_SCOPE in
3890: 74 09 54 63 6c 43 6f 6d 70 69 6c 65 4e 61 6d 65 t.TclCompileName
38a0: 73 70 61 63 65 43 6d 64 28 54 63 6c 5f 49 6e 74 spaceCmd(Tcl_Int
38b0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 09 09 erp *interp,. ..
38c0: 09 20 20 20 20 54 63 6c 5f 50 61 72 73 65 20 2a . Tcl_Parse *
38d0: 70 61 72 73 65 50 74 72 2c 20 43 6f 6d 6d 61 6e parsePtr, Comman
38e0: 64 20 2a 63 6d 64 50 74 72 2c 0a 20 09 09 09 20 d *cmdPtr,. ...
38f0: 20 20 20 73 74 72 75 63 74 20 43 6f 6d 70 69 6c struct Compil
3900: 65 45 6e 76 20 2a 65 6e 76 50 74 72 29 3b 0a eEnv *envPtr);.
