Attachment "684982.patch" to
ticket [684982ffff]
added by
dgp
2003-03-09 04:40:55.
0000: 3f 20 75 6e 69 78 2f 64 6c 74 65 73 74 2e 6d 61 ? unix/dltest.ma
0010: 72 6b 65 72 0a 49 6e 64 65 78 3a 20 67 65 6e 65 rker.Index: gene
0020: 72 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 0a 3d ric/tclBasic.c.=
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 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0070: 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 ==.RCS file: /cv
0080: 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 sroot/tcl/tcl/ge
0090: 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 neric/tclBasic.c
00a0: 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 ,v.retrieving re
00b0: 76 69 73 69 6f 6e 20 31 2e 37 36 0a 64 69 66 66 vision 1.76.diff
00c0: 20 2d 75 20 2d 72 31 2e 37 36 20 74 63 6c 42 61 -u -r1.76 tclBa
00d0: 73 69 63 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 sic.c.--- generi
00e0: 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 35 20 4d c/tclBasic.c.5 M
00f0: 61 72 20 32 30 30 33 20 32 32 3a 33 31 3a 32 32 ar 2003 22:31:22
0100: 20 2d 30 30 30 30 09 31 2e 37 36 0a 2b 2b 2b 20 -0000.1.76.+++
0110: 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 generic/tclBasic
0120: 2e 63 09 38 20 4d 61 72 20 32 30 30 33 20 32 31 .c.8 Mar 2003 21
0130: 3a 32 31 3a 32 30 20 2d 30 30 30 30 0a 40 40 20 :21:20 -0000.@@
0140: 2d 33 34 36 2c 37 20 2b 33 34 36 2c 36 20 40 40 -346,7 +346,6 @@
0150: 0a 20 20 20 20 20 54 63 6c 5f 49 6e 69 74 48 61 . Tcl_InitHa
0160: 73 68 54 61 62 6c 65 28 26 69 50 74 72 2d 3e 70 shTable(&iPtr->p
0170: 61 63 6b 61 67 65 54 61 62 6c 65 2c 20 54 43 4c ackageTable, TCL
0180: 5f 53 54 52 49 4e 47 5f 4b 45 59 53 29 3b 0a 20 _STRING_KEYS);.
0190: 20 20 20 20 69 50 74 72 2d 3e 70 61 63 6b 61 67 iPtr->packag
01a0: 65 55 6e 6b 6e 6f 77 6e 20 3d 20 4e 55 4c 4c 3b eUnknown = NULL;
01b0: 0a 20 20 20 20 20 69 50 74 72 2d 3e 63 6d 64 43 . iPtr->cmdC
01c0: 6f 75 6e 74 20 3d 20 30 3b 0a 2d 20 20 20 20 69 ount = 0;.- i
01d0: 50 74 72 2d 3e 74 65 72 6d 4f 66 66 73 65 74 20 Ptr->termOffset
01e0: 3d 20 30 3b 0a 20 20 20 20 20 54 63 6c 49 6e 69 = 0;. TclIni
01f0: 74 4c 69 74 65 72 61 6c 54 61 62 6c 65 28 26 28 tLiteralTable(&(
0200: 69 50 74 72 2d 3e 6c 69 74 65 72 61 6c 54 61 62 iPtr->literalTab
0210: 6c 65 29 29 3b 0a 20 20 20 20 20 69 50 74 72 2d le));. iPtr-
0220: 3e 63 6f 6d 70 69 6c 65 45 70 6f 63 68 20 3d 20 >compileEpoch =
0230: 30 3b 0a 20 20 20 20 20 69 50 74 72 2d 3e 63 6f 0;. iPtr->co
0240: 6d 70 69 6c 65 64 50 72 6f 63 50 74 72 20 3d 20 mpiledProcPtr =
0250: 4e 55 4c 4c 3b 0a 40 40 20 2d 33 33 34 37 2c 31 NULL;.@@ -3347,1
0260: 34 33 20 2b 33 33 34 36 2c 37 20 40 40 0a 20 20 43 +3346,7 @@.
0270: 20 20 20 69 6e 74 20 63 6f 75 6e 74 3b 09 09 09 int count;...
0280: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 74 6f 6b /* Number of tok
0290: 65 6e 73 20 74 6f 20 63 6f 6e 73 69 64 65 72 20 ens to consider
02a0: 61 74 20 74 6f 6b 65 6e 50 74 72 2e 0a 20 09 09 at tokenPtr.. ..
02b0: 09 09 20 2a 20 4d 75 73 74 20 62 65 20 61 74 20 .. * Must be at
02c0: 6c 65 61 73 74 20 31 2e 20 2a 2f 0a 20 7b 0a 2d least 1. */. {.-
02d0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 Tcl_Obj *res
02e0: 75 6c 74 50 74 72 2c 20 2a 69 6e 64 65 78 50 74 ultPtr, *indexPt
02f0: 72 2c 20 2a 76 61 6c 75 65 50 74 72 3b 0a 2d 20 r, *valuePtr;.-
0300: 20 20 20 63 68 61 72 20 62 75 66 66 65 72 5b 54 char buffer[T
0310: 43 4c 5f 55 54 46 5f 4d 41 58 5d 3b 0a 2d 23 69 CL_UTF_MAX];.-#i
0320: 66 64 65 66 20 54 43 4c 5f 4d 45 4d 5f 44 45 42 fdef TCL_MEM_DEB
0330: 55 47 0a 2d 23 20 20 20 64 65 66 69 6e 65 20 20 UG.-# define
0340: 4d 41 58 5f 56 41 52 5f 43 48 41 52 53 20 35 0a MAX_VAR_CHARS 5.
0350: 2d 23 65 6c 73 65 0a 2d 23 20 20 20 64 65 66 69 -#else.-# defi
0360: 6e 65 20 20 4d 41 58 5f 56 41 52 5f 43 48 41 52 ne MAX_VAR_CHAR
0370: 53 20 33 30 0a 2d 23 65 6e 64 69 66 0a 2d 20 20 S 30.-#endif.-
0380: 20 20 63 68 61 72 20 6e 61 6d 65 42 75 66 66 65 char nameBuffe
0390: 72 5b 4d 41 58 5f 56 41 52 5f 43 48 41 52 53 2b r[MAX_VAR_CHARS+
03a0: 31 5d 3b 0a 2d 20 20 20 20 63 68 61 72 20 2a 76 1];.- char *v
03b0: 61 72 4e 61 6d 65 2c 20 2a 69 6e 64 65 78 3b 0a arName, *index;.
03c0: 2d 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 20 - CONST char
03d0: 2a 70 20 3d 20 4e 55 4c 4c 3b 09 2f 2a 20 49 6e *p = NULL;./* In
03e0: 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 61 76 6f itialized to avo
03f0: 69 64 20 63 6f 6d 70 69 6c 65 72 20 77 61 72 6e id compiler warn
0400: 69 6e 67 2e 20 2a 2f 0a 2d 20 20 20 20 69 6e 74 ing. */.- int
0410: 20 6c 65 6e 67 74 68 2c 20 63 6f 64 65 3b 0a 2d length, code;.-
0420: 0a 2d 20 20 20 20 2f 2a 0a 2d 20 20 20 20 20 2a .- /*.- *
0430: 20 54 68 65 20 6f 6e 6c 79 20 74 72 69 63 6b 79 The only tricky
0440: 20 74 68 69 6e 67 20 61 62 6f 75 74 20 74 68 69 thing about thi
0450: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 74 s procedure is t
0460: 68 61 74 20 69 74 20 61 74 74 65 6d 70 74 73 20 hat it attempts
0470: 74 6f 0a 2d 20 20 20 20 20 2a 20 61 76 6f 69 64 to.- * avoid
0480: 20 6f 62 6a 65 63 74 20 63 72 65 61 74 69 6f 6e object creation
0490: 20 61 6e 64 20 73 74 72 69 6e 67 20 63 6f 70 79 and string copy
04a0: 69 6e 67 20 77 68 65 6e 65 76 65 72 20 70 6f 73 ing whenever pos
04b0: 73 69 62 6c 65 2e 20 20 46 6f 72 0a 2d 20 20 20 sible. For.-
04c0: 20 20 2a 20 65 78 61 6d 70 6c 65 2c 20 69 66 20 * example, if
04d0: 74 68 65 20 76 61 6c 75 65 20 69 73 20 6a 75 73 the value is jus
04e0: 74 20 61 20 6e 65 73 74 65 64 20 63 6f 6d 6d 61 t a nested comma
04f0: 6e 64 2c 20 74 68 65 6e 20 75 73 65 20 74 68 65 nd, then use the
0500: 0a 2d 20 20 20 20 20 2a 20 63 6f 6d 6d 61 6e 64 .- * command
0510: 27 73 20 72 65 73 75 6c 74 20 6f 62 6a 65 63 74 's result object
0520: 20 64 69 72 65 63 74 6c 79 2e 0a 2d 20 20 20 20 directly..-
0530: 20 2a 2f 0a 2d 0a 2d 20 20 20 20 63 6f 64 65 20 */.-.- code
0540: 3d 20 54 43 4c 5f 4f 4b 3b 0a 2d 20 20 20 20 72 = TCL_OK;.- r
0550: 65 73 75 6c 74 50 74 72 20 3d 20 4e 55 4c 4c 3b esultPtr = NULL;
0560: 0a 2d 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 .- Tcl_ResetR
0570: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 2d esult(interp);.-
0580: 20 20 20 20 66 6f 72 20 28 20 3b 20 63 6f 75 6e for ( ; coun
0590: 74 20 3e 20 30 3b 20 63 6f 75 6e 74 2d 2d 2c 20 t > 0; count--,
05a0: 74 6f 6b 65 6e 50 74 72 2b 2b 29 20 7b 0a 2d 09 tokenPtr++) {.-.
05b0: 76 61 6c 75 65 50 74 72 20 3d 20 4e 55 4c 4c 3b valuePtr = NULL;
05c0: 0a 2d 0a 2d 09 2f 2a 0a 2d 09 20 2a 20 54 68 65 .-.-./*.-. * The
05d0: 20 73 77 69 74 63 68 20 73 74 61 74 65 6d 65 6e switch statemen
05e0: 74 20 62 65 6c 6f 77 20 63 6f 6d 70 75 74 65 73 t below computes
05f0: 20 74 68 65 20 6e 65 78 74 20 76 61 6c 75 65 20 the next value
0600: 74 6f 20 62 65 0a 2d 09 20 2a 20 63 6f 6e 63 61 to be.-. * conca
0610: 74 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 2c t to the result,
0620: 20 61 73 20 65 69 74 68 65 72 20 61 20 72 61 6e as either a ran
0630: 67 65 20 6f 66 20 74 65 78 74 20 6f 72 20 61 6e ge of text or an
0640: 0a 2d 09 20 2a 20 6f 62 6a 65 63 74 2e 0a 2d 09 .-. * object..-.
0650: 20 2a 2f 0a 2d 0a 2d 09 73 77 69 74 63 68 20 28 */.-.-.switch (
0660: 74 6f 6b 65 6e 50 74 72 2d 3e 74 79 70 65 29 20 tokenPtr->type)
0670: 7b 0a 2d 09 20 20 20 20 63 61 73 65 20 54 43 4c {.-. case TCL
0680: 5f 54 4f 4b 45 4e 5f 54 45 58 54 3a 0a 2d 09 09 _TOKEN_TEXT:.-..
0690: 70 20 3d 20 74 6f 6b 65 6e 50 74 72 2d 3e 73 74 p = tokenPtr->st
06a0: 61 72 74 3b 0a 2d 09 09 6c 65 6e 67 74 68 20 3d art;.-..length =
06b0: 20 74 6f 6b 65 6e 50 74 72 2d 3e 73 69 7a 65 3b tokenPtr->size;
06c0: 0a 2d 09 09 62 72 65 61 6b 3b 0a 2d 0a 2d 09 20 .-..break;.-.-.
06d0: 20 20 20 63 61 73 65 20 54 43 4c 5f 54 4f 4b 45 case TCL_TOKE
06e0: 4e 5f 42 53 3a 0a 2d 09 09 6c 65 6e 67 74 68 20 N_BS:.-..length
06f0: 3d 20 54 63 6c 5f 55 74 66 42 61 63 6b 73 6c 61 = Tcl_UtfBacksla
0700: 73 68 28 74 6f 6b 65 6e 50 74 72 2d 3e 73 74 61 sh(tokenPtr->sta
0710: 72 74 2c 20 28 69 6e 74 20 2a 29 20 4e 55 4c 4c rt, (int *) NULL
0720: 2c 0a 2d 09 09 09 62 75 66 66 65 72 29 3b 0a 2d ,.-...buffer);.-
0730: 09 09 70 20 3d 20 62 75 66 66 65 72 3b 0a 2d 09 ..p = buffer;.-.
0740: 09 62 72 65 61 6b 3b 0a 2d 0a 2d 09 20 20 20 20 .break;.-.-.
0750: 63 61 73 65 20 54 43 4c 5f 54 4f 4b 45 4e 5f 43 case TCL_TOKEN_C
0760: 4f 4d 4d 41 4e 44 3a 0a 2d 09 09 63 6f 64 65 20 OMMAND:.-..code
0770: 3d 20 54 63 6c 5f 45 76 61 6c 45 78 28 69 6e 74 = Tcl_EvalEx(int
0780: 65 72 70 2c 20 74 6f 6b 65 6e 50 74 72 2d 3e 73 erp, tokenPtr->s
0790: 74 61 72 74 2b 31 2c 20 74 6f 6b 65 6e 50 74 72 tart+1, tokenPtr
07a0: 2d 3e 73 69 7a 65 2d 32 2c 0a 2d 09 09 09 30 29 ->size-2,.-...0)
07b0: 3b 0a 2d 09 09 69 66 20 28 63 6f 64 65 20 21 3d ;.-..if (code !=
07c0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2d 09 09 20 20 TCL_OK) {.-..
07d0: 20 20 67 6f 74 6f 20 64 6f 6e 65 3b 0a 2d 09 09 goto done;.-..
07e0: 7d 0a 2d 09 09 76 61 6c 75 65 50 74 72 20 3d 20 }.-..valuePtr =
07f0: 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_GetObjResult
0800: 28 69 6e 74 65 72 70 29 3b 0a 2d 09 09 62 72 65 (interp);.-..bre
0810: 61 6b 3b 0a 2d 0a 2d 09 20 20 20 20 63 61 73 65 ak;.-.-. case
0820: 20 54 43 4c 5f 54 4f 4b 45 4e 5f 56 41 52 49 41 TCL_TOKEN_VARIA
0830: 42 4c 45 3a 0a 2d 09 09 69 66 20 28 74 6f 6b 65 BLE:.-..if (toke
0840: 6e 50 74 72 2d 3e 6e 75 6d 43 6f 6d 70 6f 6e 65 nPtr->numCompone
0850: 6e 74 73 20 3d 3d 20 31 29 20 7b 0a 2d 09 09 20 nts == 1) {.-..
0860: 20 20 20 69 6e 64 65 78 50 74 72 20 3d 20 4e 55 indexPtr = NU
0870: 4c 4c 3b 0a 2d 09 09 20 20 20 20 69 6e 64 65 78 LL;.-.. index
0880: 20 3d 20 4e 55 4c 4c 3b 0a 2d 09 09 7d 20 65 6c = NULL;.-..} el
0890: 73 65 20 7b 0a 2d 09 09 20 20 20 20 63 6f 64 65 se {.-.. code
08a0: 20 3d 20 54 63 6c 5f 45 76 61 6c 54 6f 6b 65 6e = Tcl_EvalToken
08b0: 73 53 74 61 6e 64 61 72 64 28 69 6e 74 65 72 70 sStandard(interp
08c0: 2c 20 74 6f 6b 65 6e 50 74 72 2b 32 2c 0a 2d 09 , tokenPtr+2,.-.
08d0: 09 09 20 20 20 20 74 6f 6b 65 6e 50 74 72 2d 3e .. tokenPtr->
08e0: 6e 75 6d 43 6f 6d 70 6f 6e 65 6e 74 73 20 2d 20 numComponents -
08f0: 31 29 3b 0a 2d 09 09 20 20 20 20 69 66 20 28 63 1);.-.. if (c
0900: 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b ode != TCL_OK) {
0910: 0a 2d 09 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a .-...goto done;.
0920: 2d 09 09 20 20 20 20 7d 0a 2d 09 09 20 20 20 20 -.. }.-..
0930: 69 6e 64 65 78 50 74 72 20 3d 20 54 63 6c 5f 47 indexPtr = Tcl_G
0940: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
0950: 72 70 29 3b 0a 2d 09 09 20 20 20 20 54 63 6c 5f rp);.-.. Tcl_
0960: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 6e 64 IncrRefCount(ind
0970: 65 78 50 74 72 29 3b 0a 2d 09 09 20 20 20 20 69 exPtr);.-.. i
0980: 6e 64 65 78 20 3d 20 54 63 6c 5f 47 65 74 53 74 ndex = Tcl_GetSt
0990: 72 69 6e 67 28 69 6e 64 65 78 50 74 72 29 3b 0a ring(indexPtr);.
09a0: 2d 09 09 7d 0a 2d 0a 2d 09 09 2f 2a 0a 2d 09 09 -..}.-.-../*.-..
09b0: 20 2a 20 57 65 20 68 61 76 65 20 74 6f 20 6d 61 * We have to ma
09c0: 6b 65 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 ke a copy of the
09d0: 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 20 69 variable name i
09e0: 6e 20 6f 72 64 65 72 0a 2d 09 09 20 2a 20 74 6f n order.-.. * to
09f0: 20 68 61 76 65 20 61 20 6e 75 6c 6c 2d 74 65 72 have a null-ter
0a00: 6d 69 6e 61 74 65 64 20 73 74 72 69 6e 67 2e 20 minated string.
0a10: 20 57 65 20 63 61 6e 27 74 20 6d 61 6b 65 20 61 We can't make a
0a20: 0a 2d 09 09 20 2a 20 74 65 6d 70 6f 72 61 72 79 .-.. * temporary
0a30: 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 6f modification to
0a40: 20 74 68 65 20 73 63 72 69 70 74 20 74 6f 20 6e the script to n
0a50: 75 6c 6c 2d 74 65 72 6d 69 6e 61 74 65 0a 2d 09 ull-terminate.-.
0a60: 09 20 2a 20 74 68 65 20 6e 61 6d 65 2c 20 62 65 . * the name, be
0a70: 63 61 75 73 65 20 61 20 74 72 61 63 65 20 63 61 cause a trace ca
0a80: 6c 6c 62 61 63 6b 20 6d 69 67 68 74 20 70 6f 74 llback might pot
0a90: 65 6e 74 69 61 6c 6c 79 0a 2d 09 09 20 2a 20 72 entially.-.. * r
0aa0: 65 75 73 65 20 74 68 65 20 73 63 72 69 70 74 20 euse the script
0ab0: 61 6e 64 20 62 65 20 61 66 66 65 63 74 65 64 20 and be affected
0ac0: 62 79 20 74 68 65 20 6e 75 6c 6c 20 63 68 61 72 by the null char
0ad0: 61 63 74 65 72 2e 0a 2d 09 09 20 2a 2f 0a 2d 0a acter..-.. */.-.
0ae0: 2d 09 09 69 66 20 28 74 6f 6b 65 6e 50 74 72 5b -..if (tokenPtr[
0af0: 31 5d 2e 73 69 7a 65 20 3c 3d 20 4d 41 58 5f 56 1].size <= MAX_V
0b00: 41 52 5f 43 48 41 52 53 29 20 7b 0a 2d 09 09 20 AR_CHARS) {.-..
0b10: 20 20 20 76 61 72 4e 61 6d 65 20 3d 20 6e 61 6d varName = nam
0b20: 65 42 75 66 66 65 72 3b 0a 2d 09 09 7d 20 65 6c eBuffer;.-..} el
0b30: 73 65 20 7b 0a 2d 09 09 20 20 20 20 76 61 72 4e se {.-.. varN
0b40: 61 6d 65 20 3d 20 63 6b 61 6c 6c 6f 63 28 28 75 ame = ckalloc((u
0b50: 6e 73 69 67 6e 65 64 29 20 28 74 6f 6b 65 6e 50 nsigned) (tokenP
0b60: 74 72 5b 31 5d 2e 73 69 7a 65 20 2b 20 31 29 29 tr[1].size + 1))
0b70: 3b 0a 2d 09 09 7d 0a 2d 09 09 73 74 72 6e 63 70 ;.-..}.-..strncp
0b80: 79 28 76 61 72 4e 61 6d 65 2c 20 74 6f 6b 65 6e y(varName, token
0b90: 50 74 72 5b 31 5d 2e 73 74 61 72 74 2c 20 28 73 Ptr[1].start, (s
0ba0: 69 7a 65 5f 74 29 20 74 6f 6b 65 6e 50 74 72 5b ize_t) tokenPtr[
0bb0: 31 5d 2e 73 69 7a 65 29 3b 0a 2d 09 09 76 61 72 1].size);.-..var
0bc0: 4e 61 6d 65 5b 74 6f 6b 65 6e 50 74 72 5b 31 5d Name[tokenPtr[1]
0bd0: 2e 73 69 7a 65 5d 20 3d 20 30 3b 0a 2d 09 09 76 .size] = 0;.-..v
0be0: 61 6c 75 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 aluePtr = Tcl_Ge
0bf0: 74 56 61 72 32 45 78 28 69 6e 74 65 72 70 2c 20 tVar2Ex(interp,
0c00: 76 61 72 4e 61 6d 65 2c 20 69 6e 64 65 78 2c 0a varName, index,.
0c10: 2d 09 09 09 54 43 4c 5f 4c 45 41 56 45 5f 45 52 -...TCL_LEAVE_ER
0c20: 52 5f 4d 53 47 29 3b 0a 2d 09 09 69 66 20 28 76 R_MSG);.-..if (v
0c30: 61 72 4e 61 6d 65 20 21 3d 20 6e 61 6d 65 42 75 arName != nameBu
0c40: 66 66 65 72 29 20 7b 0a 2d 09 09 20 20 20 20 63 ffer) {.-.. c
0c50: 6b 66 72 65 65 28 76 61 72 4e 61 6d 65 29 3b 0a kfree(varName);.
0c60: 2d 09 09 7d 0a 2d 09 09 69 66 20 28 69 6e 64 65 -..}.-..if (inde
0c70: 78 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a xPtr != NULL) {.
0c80: 2d 09 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 -.. Tcl_DecrR
0c90: 65 66 43 6f 75 6e 74 28 69 6e 64 65 78 50 74 72 efCount(indexPtr
0ca0: 29 3b 0a 2d 09 09 7d 0a 2d 09 09 69 66 20 28 76 );.-..}.-..if (v
0cb0: 61 6c 75 65 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 aluePtr == NULL)
0cc0: 20 7b 0a 2d 09 09 20 20 20 20 63 6f 64 65 20 3d {.-.. code =
0cd0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2d 09 09 20 TCL_ERROR;.-..
0ce0: 20 20 20 67 6f 74 6f 20 64 6f 6e 65 3b 0a 2d 09 goto done;.-.
0cf0: 09 7d 0a 2d 09 09 63 6f 75 6e 74 20 2d 3d 20 74 .}.-..count -= t
0d00: 6f 6b 65 6e 50 74 72 2d 3e 6e 75 6d 43 6f 6d 70 okenPtr->numComp
0d10: 6f 6e 65 6e 74 73 3b 0a 2d 09 09 74 6f 6b 65 6e onents;.-..token
0d20: 50 74 72 20 2b 3d 20 74 6f 6b 65 6e 50 74 72 2d Ptr += tokenPtr-
0d30: 3e 6e 75 6d 43 6f 6d 70 6f 6e 65 6e 74 73 3b 0a >numComponents;.
0d40: 2d 09 09 62 72 65 61 6b 3b 0a 2d 0a 2d 09 20 20 -..break;.-.-.
0d50: 20 20 64 65 66 61 75 6c 74 3a 0a 2d 09 09 70 61 default:.-..pa
0d60: 6e 69 63 28 22 75 6e 65 78 70 65 63 74 65 64 20 nic("unexpected
0d70: 74 6f 6b 65 6e 20 74 79 70 65 20 69 6e 20 54 63 token type in Tc
0d80: 6c 5f 45 76 61 6c 54 6f 6b 65 6e 73 53 74 61 6e l_EvalTokensStan
0d90: 64 61 72 64 22 29 3b 0a 2d 09 7d 0a 2d 0a 2d 09 dard");.-.}.-.-.
0da0: 2f 2a 0a 2d 09 20 2a 20 49 66 20 76 61 6c 75 65 /*.-. * If value
0db0: 50 74 72 20 69 73 6e 27 74 20 4e 55 4c 4c 2c 20 Ptr isn't NULL,
0dc0: 74 68 65 20 6e 65 78 74 20 70 69 65 63 65 20 6f the next piece o
0dd0: 66 20 74 65 78 74 20 63 6f 6d 65 73 20 66 72 6f f text comes fro
0de0: 6d 20 74 68 61 74 0a 2d 09 20 2a 20 6f 62 6a 65 m that.-. * obje
0df0: 63 74 3b 20 6f 74 68 65 72 77 69 73 65 2c 20 74 ct; otherwise, t
0e00: 61 6b 65 20 6c 65 6e 67 74 68 20 62 79 74 65 73 ake length bytes
0e10: 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 2e 0a starting at p..
0e20: 2d 09 20 2a 2f 0a 2d 0a 2d 09 69 66 20 28 72 65 -. */.-.-.if (re
0e30: 73 75 6c 74 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 sultPtr == NULL)
0e40: 20 7b 0a 2d 09 20 20 20 20 69 66 20 28 76 61 6c {.-. if (val
0e50: 75 65 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b uePtr != NULL) {
0e60: 0a 2d 09 09 72 65 73 75 6c 74 50 74 72 20 3d 20 .-..resultPtr =
0e70: 76 61 6c 75 65 50 74 72 3b 0a 2d 09 20 20 20 20 valuePtr;.-.
0e80: 7d 20 65 6c 73 65 20 7b 0a 2d 09 09 72 65 73 75 } else {.-..resu
0e90: 6c 74 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 ltPtr = Tcl_NewS
0ea0: 74 72 69 6e 67 4f 62 6a 28 70 2c 20 6c 65 6e 67 tringObj(p, leng
0eb0: 74 68 29 3b 0a 2d 09 20 20 20 20 7d 0a 2d 09 20 th);.-. }.-.
0ec0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
0ed0: 75 6e 74 28 72 65 73 75 6c 74 50 74 72 29 3b 0a unt(resultPtr);.
0ee0: 2d 09 7d 20 65 6c 73 65 20 7b 0a 2d 09 20 20 20 -.} else {.-.
0ef0: 20 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 if (Tcl_IsShare
0f00: 64 28 72 65 73 75 6c 74 50 74 72 29 29 20 7b 0a d(resultPtr)) {.
0f10: 2d 09 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f -..Tcl_DecrRefCo
0f20: 75 6e 74 28 72 65 73 75 6c 74 50 74 72 29 3b 0a unt(resultPtr);.
0f30: 2d 09 09 72 65 73 75 6c 74 50 74 72 20 3d 20 54 -..resultPtr = T
0f40: 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 cl_DuplicateObj(
0f50: 72 65 73 75 6c 74 50 74 72 29 3b 0a 2d 09 09 54 resultPtr);.-..T
0f60: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
0f70: 72 65 73 75 6c 74 50 74 72 29 3b 0a 2d 09 20 20 resultPtr);.-.
0f80: 20 20 7d 0a 2d 09 20 20 20 20 69 66 20 28 76 61 }.-. if (va
0f90: 6c 75 65 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 luePtr != NULL)
0fa0: 7b 0a 2d 09 09 70 20 3d 20 54 63 6c 5f 47 65 74 {.-..p = Tcl_Get
0fb0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 76 61 StringFromObj(va
0fc0: 6c 75 65 50 74 72 2c 20 26 6c 65 6e 67 74 68 29 luePtr, &length)
0fd0: 3b 0a 2d 09 20 20 20 20 7d 0a 2d 09 20 20 20 20 ;.-. }.-.
0fe0: 54 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 Tcl_AppendToObj(
0ff0: 72 65 73 75 6c 74 50 74 72 2c 20 70 2c 20 6c 65 resultPtr, p, le
1000: 6e 67 74 68 29 3b 0a 2d 09 7d 0a 2d 20 20 20 20 ngth);.-.}.-
1010: 7d 0a 2d 20 20 20 20 69 66 20 28 72 65 73 75 6c }.- if (resul
1020: 74 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a tPtr != NULL) {.
1030: 2d 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 -.Tcl_SetObjResu
1040: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
1050: 74 50 74 72 29 3b 0a 2d 20 20 20 20 7d 20 65 6c tPtr);.- } el
1060: 73 65 20 7b 0a 2d 09 63 6f 64 65 20 3d 20 54 43 se {.-.code = TC
1070: 4c 5f 45 52 52 4f 52 3b 0a 2d 20 20 20 20 7d 0a L_ERROR;.- }.
1080: 2d 0a 2d 20 20 20 20 64 6f 6e 65 3a 0a 2d 20 20 -.- done:.-
1090: 20 20 69 66 20 28 72 65 73 75 6c 74 50 74 72 20 if (resultPtr
10a0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2d 09 54 63 6c != NULL) {.-.Tcl
10b0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 _DecrRefCount(re
10c0: 73 75 6c 74 50 74 72 29 3b 0a 2d 20 20 20 20 7d sultPtr);.- }
10d0: 0a 2d 20 20 20 20 72 65 74 75 72 6e 20 63 6f 64 .- return cod
10e0: 65 3b 0a 2b 20 20 20 20 72 65 74 75 72 6e 20 54 e;.+ return T
10f0: 63 6c 53 75 62 73 74 54 6f 6b 65 6e 73 28 69 6e clSubstTokens(in
1100: 74 65 72 70 2c 20 74 6f 6b 65 6e 50 74 72 2c 20 terp, tokenPtr,
1110: 63 6f 75 6e 74 2c 20 2f 2a 20 6e 75 6d 4c 65 66 count, /* numLef
1120: 74 50 74 72 20 2a 2f 20 4e 55 4c 4c 29 3b 0a 20 tPtr */ NULL);.
1130: 7d 0a 20 0a 20 0a 40 40 20 2d 33 35 37 39 2c 37 }. . .@@ -3579,7
1140: 20 2b 33 34 34 32 2c 37 20 40 40 0a 20 23 64 65 +3442,7 @@. #de
1150: 66 69 6e 65 20 4e 55 4d 5f 53 54 41 54 49 43 5f fine NUM_STATIC_
1160: 4f 42 4a 53 20 32 30 0a 20 20 20 20 20 54 63 6c OBJS 20. Tcl
1170: 5f 4f 62 6a 20 2a 73 74 61 74 69 63 4f 62 6a 41 _Obj *staticObjA
1180: 72 72 61 79 5b 4e 55 4d 5f 53 54 41 54 49 43 5f rray[NUM_STATIC_
1190: 4f 42 4a 53 5d 2c 20 2a 2a 6f 62 6a 76 3b 0a 20 OBJS], **objv;.
11a0: 20 20 20 20 54 63 6c 5f 54 6f 6b 65 6e 20 2a 74 Tcl_Token *t
11b0: 6f 6b 65 6e 50 74 72 3b 0a 2d 20 20 20 20 69 6e okenPtr;.- in
11c0: 74 20 69 2c 20 63 6f 64 65 2c 20 63 6f 6d 6d 61 t i, code, comma
11d0: 6e 64 4c 65 6e 67 74 68 2c 20 62 79 74 65 73 4c ndLength, bytesL
11e0: 65 66 74 2c 20 6e 65 73 74 65 64 3b 0a 2b 20 20 eft, nested;.+
11f0: 20 20 69 6e 74 20 69 2c 20 63 6f 64 65 2c 20 63 int i, code, c
1200: 6f 6d 6d 61 6e 64 4c 65 6e 67 74 68 2c 20 62 79 ommandLength, by
1210: 74 65 73 4c 65 66 74 3b 0a 20 20 20 20 20 43 61 tesLeft;. Ca
1220: 6c 6c 46 72 61 6d 65 20 2a 73 61 76 65 64 56 61 llFrame *savedVa
1230: 72 46 72 61 6d 65 50 74 72 3b 20 20 20 2f 2a 20 rFramePtr; /*
1240: 53 61 76 65 73 20 6f 6c 64 20 63 6f 70 79 20 6f Saves old copy o
1250: 66 20 69 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 f iPtr->varFrame
1260: 50 74 72 0a 20 09 09 09 09 20 20 20 20 2a 20 69 Ptr. .... * i
1270: 6e 20 63 61 73 65 20 54 43 4c 5f 45 56 41 4c 5f n case TCL_EVAL_
1280: 47 4c 4f 42 41 4c 20 77 61 73 20 73 65 74 2e 20 GLOBAL was set.
1290: 2a 2f 0a 20 20 20 20 20 69 6e 74 20 61 6c 6c 6f */. int allo
12a0: 77 45 78 63 65 70 74 69 6f 6e 73 20 3d 20 28 69 wExceptions = (i
12b0: 50 74 72 2d 3e 65 76 61 6c 46 6c 61 67 73 20 26 Ptr->evalFlags &
12c0: 20 54 43 4c 5f 41 4c 4c 4f 57 5f 45 58 43 45 50 TCL_ALLOW_EXCEP
12d0: 54 49 4f 4e 53 29 3b 0a 40 40 20 2d 33 36 31 30 TIONS);.@@ -3610
12e0: 2c 33 31 20 2b 33 34 37 33 2c 31 34 20 40 40 0a ,31 +3473,14 @@.
12f0: 20 20 20 20 20 6f 62 6a 76 20 3d 20 73 74 61 74 objv = stat
1300: 69 63 4f 62 6a 41 72 72 61 79 3b 0a 20 20 20 20 icObjArray;.
1310: 20 70 20 3d 20 73 63 72 69 70 74 3b 0a 20 20 20 p = script;.
1320: 20 20 62 79 74 65 73 4c 65 66 74 20 3d 20 6e 75 bytesLeft = nu
1330: 6d 42 79 74 65 73 3b 0a 2d 20 20 20 20 69 66 20 mBytes;.- if
1340: 28 69 50 74 72 2d 3e 65 76 61 6c 46 6c 61 67 73 (iPtr->evalFlags
1350: 20 26 20 54 43 4c 5f 42 52 41 43 4b 45 54 5f 54 & TCL_BRACKET_T
1360: 45 52 4d 29 20 7b 0a 2d 09 6e 65 73 74 65 64 20 ERM) {.-.nested
1370: 3d 20 31 3b 0a 2d 20 20 20 20 7d 20 65 6c 73 65 = 1;.- } else
1380: 20 7b 0a 2d 09 6e 65 73 74 65 64 20 3d 20 30 3b {.-.nested = 0;
1390: 0a 2d 20 20 20 20 7d 0a 20 20 20 20 20 69 50 74 .- }. iPt
13a0: 72 2d 3e 65 76 61 6c 46 6c 61 67 73 20 3d 20 30 r->evalFlags = 0
13b0: 3b 0a 20 20 20 20 20 64 6f 20 7b 0a 2d 09 69 66 ;. do {.-.if
13c0: 20 28 54 63 6c 5f 50 61 72 73 65 43 6f 6d 6d 61 (Tcl_ParseComma
13d0: 6e 64 28 69 6e 74 65 72 70 2c 20 70 2c 20 62 79 nd(interp, p, by
13e0: 74 65 73 4c 65 66 74 2c 20 6e 65 73 74 65 64 2c tesLeft, nested,
13f0: 20 26 70 61 72 73 65 29 0a 2b 09 69 66 20 28 54 &parse).+.if (T
1400: 63 6c 5f 50 61 72 73 65 43 6f 6d 6d 61 6e 64 28 cl_ParseCommand(
1410: 69 6e 74 65 72 70 2c 20 70 2c 20 62 79 74 65 73 interp, p, bytes
1420: 4c 65 66 74 2c 20 30 2c 20 26 70 61 72 73 65 29 Left, 0, &parse)
1430: 0a 20 09 20 20 20 20 20 20 20 20 21 3d 20 54 43 . . != TC
1440: 4c 5f 4f 4b 29 20 7b 0a 20 09 20 20 20 20 63 6f L_OK) {. . co
1450: 64 65 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a de = TCL_ERROR;.
1460: 20 09 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 . goto error
1470: 3b 0a 20 09 7d 0a 20 09 67 6f 74 50 61 72 73 65 ;. .}. .gotParse
1480: 20 3d 20 31 3b 20 0a 2d 0a 2d 09 69 66 20 28 6e = 1; .-.-.if (n
1490: 65 73 74 65 64 20 26 26 20 70 61 72 73 65 2e 74 ested && parse.t
14a0: 65 72 6d 20 3d 3d 20 28 73 63 72 69 70 74 20 2b erm == (script +
14b0: 20 6e 75 6d 42 79 74 65 73 29 29 20 7b 0a 2d 09 numBytes)) {.-.
14c0: 20 20 20 20 2f 2a 0a 2d 09 20 20 20 20 20 2a 20 /*.-. *
14d0: 41 20 6e 65 73 74 65 64 20 73 63 72 69 70 74 20 A nested script
14e0: 63 61 6e 20 6f 6e 6c 79 20 74 65 72 6d 69 6e 61 can only termina
14f0: 74 65 20 69 6e 20 27 5d 27 2e 20 49 66 0a 2d 09 te in ']'. If.-.
1500: 20 20 20 20 20 2a 20 74 68 65 20 70 61 72 73 69 * the parsi
1510: 6e 67 20 67 6f 74 20 74 65 72 6d 69 6e 61 74 65 ng got terminate
1520: 64 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 d at the end of
1530: 74 68 65 20 73 63 72 69 70 74 2c 0a 2d 09 20 20 the script,.-.
1540: 20 20 20 2a 20 74 68 65 72 65 20 77 61 73 20 6e * there was n
1550: 6f 20 63 6c 6f 73 69 6e 67 20 27 5d 27 2e 20 20 o closing ']'.
1560: 52 65 70 6f 72 74 20 74 68 65 20 73 79 6e 74 61 Report the synta
1570: 78 20 65 72 72 6f 72 2e 0a 2d 09 20 20 20 20 20 x error..-.
1580: 2a 2f 0a 2d 0a 2d 09 20 20 20 20 63 6f 64 65 20 */.-.-. code
1590: 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2d 09 20 = TCL_ERROR;.-.
15a0: 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 2d goto error;.-
15b0: 09 7d 0a 2d 0a 20 09 69 66 20 28 70 61 72 73 65 .}.-. .if (parse
15c0: 2e 6e 75 6d 57 6f 72 64 73 20 3e 20 30 29 20 7b .numWords > 0) {
15d0: 0a 20 09 20 20 20 20 2f 2a 0a 20 09 20 20 20 20 . . /*. .
15e0: 20 2a 20 47 65 6e 65 72 61 74 65 20 61 6e 20 61 * Generate an a
15f0: 72 72 61 79 20 6f 66 20 6f 62 6a 65 63 74 73 20 rray of objects
1600: 66 6f 72 20 74 68 65 20 77 6f 72 64 73 20 6f 66 for the words of
1610: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2e 0a 40 40 the command..@@
1620: 20 2d 33 36 34 39 2c 38 20 2b 33 34 39 35 2c 38 -3649,8 +3495,8
1630: 20 40 40 0a 20 09 20 20 20 20 66 6f 72 20 28 6f @@. . for (o
1640: 62 6a 65 63 74 73 55 73 65 64 20 3d 20 30 2c 20 bjectsUsed = 0,
1650: 74 6f 6b 65 6e 50 74 72 20 3d 20 70 61 72 73 65 tokenPtr = parse
1660: 2e 74 6f 6b 65 6e 50 74 72 3b 0a 20 09 09 20 20 .tokenPtr;. ..
1670: 20 20 6f 62 6a 65 63 74 73 55 73 65 64 20 3c 20 objectsUsed <
1680: 70 61 72 73 65 2e 6e 75 6d 57 6f 72 64 73 3b 0a parse.numWords;.
1690: 20 09 09 20 20 20 20 6f 62 6a 65 63 74 73 55 73 .. objectsUs
16a0: 65 64 2b 2b 2c 20 74 6f 6b 65 6e 50 74 72 20 2b ed++, tokenPtr +
16b0: 3d 20 28 74 6f 6b 65 6e 50 74 72 2d 3e 6e 75 6d = (tokenPtr->num
16c0: 43 6f 6d 70 6f 6e 65 6e 74 73 20 2b 20 31 29 29 Components + 1))
16d0: 20 7b 0a 2d 09 09 63 6f 64 65 20 3d 20 54 63 6c {.-..code = Tcl
16e0: 5f 45 76 61 6c 54 6f 6b 65 6e 73 53 74 61 6e 64 _EvalTokensStand
16f0: 61 72 64 28 69 6e 74 65 72 70 2c 20 74 6f 6b 65 ard(interp, toke
1700: 6e 50 74 72 2b 31 2c 20 0a 2d 09 09 20 20 20 20 nPtr+1, .-..
1710: 20 20 20 20 20 20 20 20 74 6f 6b 65 6e 50 74 72 tokenPtr
1720: 2d 3e 6e 75 6d 43 6f 6d 70 6f 6e 65 6e 74 73 29 ->numComponents)
1730: 3b 0a 2b 09 09 63 6f 64 65 20 3d 20 54 63 6c 53 ;.+..code = TclS
1740: 75 62 73 74 54 6f 6b 65 6e 73 28 69 6e 74 65 72 ubstTokens(inter
1750: 70 2c 20 74 6f 6b 65 6e 50 74 72 2b 31 2c 20 0a p, tokenPtr+1, .
1760: 2b 09 09 20 20 20 20 20 20 20 20 20 20 20 20 74 +.. t
1770: 6f 6b 65 6e 50 74 72 2d 3e 6e 75 6d 43 6f 6d 70 okenPtr->numComp
1780: 6f 6e 65 6e 74 73 2c 20 4e 55 4c 4c 29 3b 0a 20 onents, NULL);.
1790: 09 09 69 66 20 28 63 6f 64 65 20 3d 3d 20 54 43 ..if (code == TC
17a0: 4c 5f 4f 4b 29 20 7b 0a 20 09 09 20 20 20 20 6f L_OK) {. .. o
17b0: 62 6a 76 5b 6f 62 6a 65 63 74 73 55 73 65 64 5d bjv[objectsUsed]
17c0: 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 = Tcl_GetObjRes
17d0: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 09 09 ult(interp);. ..
17e0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
17f0: 6f 75 6e 74 28 6f 62 6a 76 5b 6f 62 6a 65 63 74 ount(objv[object
1800: 73 55 73 65 64 5d 29 3b 0a 40 40 20 2d 33 37 30 sUsed]);.@@ -370
1810: 33 2c 32 30 20 2b 33 35 34 39 2c 37 20 40 40 0a 3,20 +3549,7 @@.
1820: 20 09 70 20 3d 20 6e 65 78 74 3b 0a 20 09 54 63 .p = next;. .Tc
1830: 6c 5f 46 72 65 65 50 61 72 73 65 28 26 70 61 72 l_FreeParse(&par
1840: 73 65 29 3b 0a 20 09 67 6f 74 50 61 72 73 65 20 se);. .gotParse
1850: 3d 20 30 3b 0a 2d 09 69 66 20 28 6e 65 73 74 65 = 0;.-.if (neste
1860: 64 20 26 26 20 28 2a 70 61 72 73 65 2e 74 65 72 d && (*parse.ter
1870: 6d 20 3d 3d 20 27 5d 27 29 29 20 7b 0a 2d 09 20 m == ']')) {.-.
1880: 20 20 20 2f 2a 0a 2d 09 20 20 20 20 20 2a 20 57 /*.-. * W
1890: 65 20 67 65 74 20 68 65 72 65 20 69 6e 20 74 68 e get here in th
18a0: 65 20 73 70 65 63 69 61 6c 20 63 61 73 65 20 77 e special case w
18b0: 68 65 72 65 20 74 68 65 20 54 43 4c 5f 42 52 41 here the TCL_BRA
18c0: 43 4b 45 54 5f 54 45 52 4d 0a 2d 09 20 20 20 20 CKET_TERM.-.
18d0: 20 2a 20 66 6c 61 67 20 77 61 73 20 73 65 74 20 * flag was set
18e0: 69 6e 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 in the interpret
18f0: 65 72 20 61 6e 64 20 74 68 65 20 6c 61 74 65 73 er and the lates
1900: 74 20 70 61 72 73 65 64 20 63 6f 6d 6d 61 6e 64 t parsed command
1910: 0a 2d 09 20 20 20 20 20 2a 20 77 61 73 20 74 65 .-. * was te
1920: 72 6d 69 6e 61 74 65 64 20 62 79 20 74 68 65 20 rminated by the
1930: 6d 61 74 63 68 69 6e 67 20 63 6c 6f 73 65 2d 62 matching close-b
1940: 72 61 63 6b 65 74 20 77 65 20 73 65 65 6b 2e 0a racket we seek..
1950: 2d 09 20 20 20 20 20 2a 20 52 65 74 75 72 6e 20 -. * Return
1960: 69 6d 6d 65 64 69 61 74 65 6c 79 2e 0a 2d 09 20 immediately..-.
1970: 20 20 20 20 2a 2f 0a 2d 0a 2d 09 20 20 20 20 69 */.-.-. i
1980: 50 74 72 2d 3e 74 65 72 6d 4f 66 66 73 65 74 20 Ptr->termOffset
1990: 3d 20 28 70 20 2d 20 31 29 20 2d 20 73 63 72 69 = (p - 1) - scri
19a0: 70 74 3b 0a 2d 09 20 20 20 20 69 50 74 72 2d 3e pt;.-. iPtr->
19b0: 76 61 72 46 72 61 6d 65 50 74 72 20 3d 20 73 61 varFramePtr = sa
19c0: 76 65 64 56 61 72 46 72 61 6d 65 50 74 72 3b 0a vedVarFramePtr;.
19d0: 2d 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c -. return TCL
19e0: 5f 4f 4b 3b 0a 2d 09 7d 0a 20 20 20 20 20 7d 20 _OK;.-.}. }
19f0: 77 68 69 6c 65 20 28 62 79 74 65 73 4c 65 66 74 while (bytesLeft
1a00: 20 3e 20 30 29 3b 0a 2d 20 20 20 20 69 50 74 72 > 0);.- iPtr
1a10: 2d 3e 74 65 72 6d 4f 66 66 73 65 74 20 3d 20 70 ->termOffset = p
1a20: 20 2d 20 73 63 72 69 70 74 3b 0a 20 20 20 20 20 - script;.
1a30: 69 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 74 iPtr->varFramePt
1a40: 72 20 3d 20 73 61 76 65 64 56 61 72 46 72 61 6d r = savedVarFram
1a50: 65 50 74 72 3b 0a 20 20 20 20 20 72 65 74 75 72 ePtr;. retur
1a60: 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 0a 40 40 20 2d n TCL_OK;. .@@ -
1a70: 33 37 35 33 2c 38 35 20 2b 33 35 38 36 2c 36 20 3753,85 +3586,6
1a80: 40 40 0a 20 09 63 6b 66 72 65 65 28 28 63 68 61 @@. .ckfree((cha
1a90: 72 20 2a 29 20 6f 62 6a 76 29 3b 0a 20 20 20 20 r *) objv);.
1aa0: 20 7d 0a 20 20 20 20 20 69 50 74 72 2d 3e 76 61 }. iPtr->va
1ab0: 72 46 72 61 6d 65 50 74 72 20 3d 20 73 61 76 65 rFramePtr = save
1ac0: 64 56 61 72 46 72 61 6d 65 50 74 72 3b 0a 2d 0a dVarFramePtr;.-.
1ad0: 2d 20 20 20 20 2f 2a 0a 2d 20 20 20 20 20 2a 20 - /*.- *
1ae0: 41 6c 6c 20 74 68 61 74 27 73 20 6c 65 66 74 20 All that's left
1af0: 74 6f 20 64 6f 20 62 65 66 6f 72 65 20 72 65 74 to do before ret
1b00: 75 72 6e 69 6e 67 20 69 73 20 74 6f 20 73 65 74 urning is to set
1b10: 20 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 73 65 iPtr->termOffse
1b20: 74 0a 2d 20 20 20 20 20 2a 20 74 6f 20 70 6f 69 t.- * to poi
1b30: 6e 74 20 70 61 73 74 20 74 68 65 20 65 6e 64 20 nt past the end
1b40: 6f 66 20 74 68 65 20 73 63 72 69 70 74 20 77 65 of the script we
1b50: 20 6a 75 73 74 20 65 76 61 6c 75 61 74 65 64 2e just evaluated.
1b60: 0a 2d 20 20 20 20 20 2a 2f 0a 2d 0a 2d 20 20 20 .- */.-.-
1b70: 20 6e 65 78 74 20 3d 20 70 61 72 73 65 2e 63 6f next = parse.co
1b80: 6d 6d 61 6e 64 53 74 61 72 74 20 2b 20 70 61 72 mmandStart + par
1b90: 73 65 2e 63 6f 6d 6d 61 6e 64 53 69 7a 65 3b 0a se.commandSize;.
1ba0: 2d 20 20 20 20 62 79 74 65 73 4c 65 66 74 20 2d - bytesLeft -
1bb0: 3d 20 6e 65 78 74 20 2d 20 70 3b 0a 2d 20 20 20 = next - p;.-
1bc0: 20 70 20 3d 20 6e 65 78 74 3b 0a 2d 0a 2d 20 20 p = next;.-.-
1bd0: 20 20 69 66 20 28 21 6e 65 73 74 65 64 29 20 7b if (!nested) {
1be0: 0a 2d 09 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 .-.iPtr->termOff
1bf0: 73 65 74 20 3d 20 70 20 2d 20 73 63 72 69 70 74 set = p - script
1c00: 3b 0a 2d 09 72 65 74 75 72 6e 20 63 6f 64 65 3b ;.-.return code;
1c10: 0a 2d 20 20 20 20 7d 0a 2d 0a 2d 20 20 20 20 2f .- }.-.- /
1c20: 2a 0a 2d 20 20 20 20 20 2a 20 57 68 65 6e 20 77 *.- * When w
1c30: 65 20 61 72 65 20 6e 65 73 74 65 64 20 28 74 68 e are nested (th
1c40: 65 20 54 43 4c 5f 42 52 41 43 4b 45 54 5f 54 45 e TCL_BRACKET_TE
1c50: 52 4d 20 66 6c 61 67 20 77 61 73 20 73 65 74 20 RM flag was set
1c60: 69 6e 20 74 68 65 0a 2d 20 20 20 20 20 2a 20 69 in the.- * i
1c70: 6e 74 65 72 70 72 65 74 65 72 29 2c 20 77 65 20 nterpreter), we
1c80: 6d 75 73 74 20 66 69 6e 64 20 74 68 65 20 6d 61 must find the ma
1c90: 74 63 68 69 6e 67 20 63 6c 6f 73 65 2d 62 72 61 tching close-bra
1ca0: 63 6b 65 74 20 74 6f 0a 2d 20 20 20 20 20 2a 20 cket to.- *
1cb0: 65 6e 64 20 74 68 65 20 73 63 72 69 70 74 20 77 end the script w
1cc0: 65 20 61 72 65 20 65 76 61 6c 75 61 74 69 6e 67 e are evaluating
1cd0: 2e 0a 2d 20 20 20 20 20 2a 0a 2d 20 20 20 20 20 ..- *.-
1ce0: 2a 20 57 68 65 6e 20 6f 75 72 20 72 65 74 75 72 * When our retur
1cf0: 6e 20 63 6f 64 65 20 69 73 20 54 43 4c 5f 43 4f n code is TCL_CO
1d00: 4e 54 49 4e 55 45 20 6f 72 20 54 43 4c 5f 52 45 NTINUE or TCL_RE
1d10: 54 55 52 4e 2c 20 77 65 20 77 61 6e 74 0a 2d 20 TURN, we want.-
1d20: 20 20 20 20 2a 20 74 6f 20 63 6f 72 72 65 63 74 * to correct
1d30: 6c 79 20 73 65 74 20 69 50 74 72 2d 3e 74 65 72 ly set iPtr->ter
1d40: 6d 4f 66 66 73 65 74 20 74 6f 20 70 6f 69 6e 74 mOffset to point
1d50: 20 74 6f 20 74 68 61 74 20 6d 61 74 63 68 69 6e to that matchin
1d60: 67 0a 2d 20 20 20 20 20 2a 20 63 6c 6f 73 65 2d g.- * close-
1d70: 62 72 61 63 6b 65 74 20 73 6f 20 6f 75 72 20 63 bracket so our c
1d80: 61 6c 6c 65 72 20 63 61 6e 20 6d 6f 76 65 20 74 aller can move t
1d90: 6f 20 74 68 65 20 70 61 72 74 20 6f 66 20 74 68 o the part of th
1da0: 65 0a 2d 20 20 20 20 20 2a 20 73 74 72 69 6e 67 e.- * string
1db0: 20 62 65 79 6f 6e 64 20 74 68 65 20 73 63 72 69 beyond the scri
1dc0: 70 74 20 77 65 20 77 65 72 65 20 61 73 6b 65 64 pt we were asked
1dd0: 20 74 6f 20 65 76 61 6c 75 61 74 65 2e 0a 2d 20 to evaluate..-
1de0: 20 20 20 20 2a 20 53 6f 20 77 65 20 74 72 79 20 * So we try
1df0: 74 6f 20 70 61 72 73 65 20 70 61 73 74 20 74 68 to parse past th
1e00: 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 63 6f e rest of the co
1e10: 6d 6d 61 6e 64 73 2e 0a 2d 20 20 20 20 20 2a 2f mmands..- */
1e20: 0a 2d 0a 2d 20 20 20 20 6e 65 78 74 20 3d 20 4e .-.- next = N
1e30: 55 4c 4c 3b 0a 2d 20 20 20 20 77 68 69 6c 65 20 ULL;.- while
1e40: 28 62 79 74 65 73 4c 65 66 74 20 26 26 20 28 2a (bytesLeft && (*
1e50: 70 61 72 73 65 2e 74 65 72 6d 20 21 3d 20 27 5d parse.term != ']
1e60: 27 29 29 20 7b 0a 2d 09 69 66 20 28 54 43 4c 5f ')) {.-.if (TCL_
1e70: 4f 4b 20 21 3d 20 54 63 6c 5f 50 61 72 73 65 43 OK != Tcl_ParseC
1e80: 6f 6d 6d 61 6e 64 28 4e 55 4c 4c 2c 20 70 2c 20 ommand(NULL, p,
1e90: 62 79 74 65 73 4c 65 66 74 2c 20 31 2c 20 26 70 bytesLeft, 1, &p
1ea0: 61 72 73 65 29 29 20 7b 0a 2d 09 20 20 20 20 2f arse)) {.-. /
1eb0: 2a 0a 2d 09 20 20 20 20 20 2a 20 53 79 6e 74 61 *.-. * Synta
1ec0: 78 20 65 72 72 6f 72 2e 20 20 53 65 74 20 74 68 x error. Set th
1ed0: 65 20 74 65 72 6d 4f 66 66 73 65 74 20 74 6f 20 e termOffset to
1ee0: 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 the beginning of
1ef0: 0a 2d 09 20 20 20 20 20 2a 20 74 68 65 20 6c 61 .-. * the la
1f00: 73 74 20 63 6f 6d 6d 61 6e 64 20 70 61 72 73 65 st command parse
1f10: 64 2e 0a 2d 09 20 20 20 20 20 2a 2f 0a 2d 0a 2d d..-. */.-.-
1f20: 09 20 20 20 20 69 66 20 28 6e 65 78 74 20 3d 3d . if (next ==
1f30: 20 4e 55 4c 4c 29 20 7b 0a 2d 09 20 20 20 20 20 NULL) {.-.
1f40: 20 20 20 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 iPtr->termOff
1f50: 73 65 74 20 3d 20 28 70 61 72 73 65 2e 63 6f 6d set = (parse.com
1f60: 6d 61 6e 64 53 74 61 72 74 20 2d 20 31 29 20 2d mandStart - 1) -
1f70: 20 73 63 72 69 70 74 3b 0a 2d 09 20 20 20 20 7d script;.-. }
1f80: 20 65 6c 73 65 20 7b 0a 2d 09 20 20 20 20 20 20 else {.-.
1f90: 20 20 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 73 iPtr->termOffs
1fa0: 65 74 20 3d 20 28 6e 65 78 74 20 2d 20 31 29 20 et = (next - 1)
1fb0: 2d 20 73 63 72 69 70 74 3b 0a 2d 09 20 20 20 20 - script;.-.
1fc0: 7d 0a 2d 09 20 20 20 20 72 65 74 75 72 6e 20 63 }.-. return c
1fd0: 6f 64 65 3b 0a 2d 09 7d 0a 2d 09 6e 65 78 74 20 ode;.-.}.-.next
1fe0: 3d 20 70 61 72 73 65 2e 63 6f 6d 6d 61 6e 64 53 = parse.commandS
1ff0: 74 61 72 74 20 2b 20 70 61 72 73 65 2e 63 6f 6d tart + parse.com
2000: 6d 61 6e 64 53 69 7a 65 3b 0a 2d 09 62 79 74 65 mandSize;.-.byte
2010: 73 4c 65 66 74 20 2d 3d 20 6e 65 78 74 20 2d 20 sLeft -= next -
2020: 70 3b 0a 2d 09 70 20 3d 20 6e 65 78 74 3b 0a 2d p;.-.p = next;.-
2030: 09 6e 65 78 74 20 3d 20 70 61 72 73 65 2e 63 6f .next = parse.co
2040: 6d 6d 61 6e 64 53 74 61 72 74 3b 0a 2d 09 54 63 mmandStart;.-.Tc
2050: 6c 5f 46 72 65 65 50 61 72 73 65 28 26 70 61 72 l_FreeParse(&par
2060: 73 65 29 3b 0a 2d 20 20 20 20 7d 0a 2d 0a 2d 20 se);.- }.-.-
2070: 20 20 20 69 66 20 28 62 79 74 65 73 4c 65 66 74 if (bytesLeft
2080: 29 20 7b 0a 2d 09 2f 2a 20 0a 2d 09 20 2a 20 70 ) {.-./* .-. * p
2090: 61 72 73 65 2e 74 65 72 6d 20 70 6f 69 6e 74 73 arse.term points
20a0: 20 74 6f 20 74 68 65 20 63 6c 6f 73 65 2d 62 72 to the close-br
20b0: 61 63 6b 65 74 2e 0a 2d 09 20 2a 2f 0a 2d 0a 2d acket..-. */.-.-
20c0: 09 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 73 65 .iPtr->termOffse
20d0: 74 20 3d 20 70 61 72 73 65 2e 74 65 72 6d 20 2d t = parse.term -
20e0: 20 73 63 72 69 70 74 3b 0a 2d 20 20 20 20 7d 20 script;.- }
20f0: 65 6c 73 65 20 69 66 20 28 70 61 72 73 65 2e 74 else if (parse.t
2100: 65 72 6d 20 3d 3d 20 73 63 72 69 70 74 20 2b 20 erm == script +
2110: 6e 75 6d 42 79 74 65 73 29 20 7b 0a 2d 09 2f 2a numBytes) {.-./*
2120: 0a 2d 09 20 2a 20 54 68 65 72 65 20 77 61 73 20 .-. * There was
2130: 6e 6f 20 63 6c 6f 73 65 2d 62 72 61 63 6b 65 74 no close-bracket
2140: 2e 20 20 53 79 6e 74 61 78 20 65 72 72 6f 72 2e . Syntax error.
2150: 0a 2d 09 20 2a 2f 0a 2d 0a 2d 09 69 50 74 72 2d .-. */.-.-.iPtr-
2160: 3e 74 65 72 6d 4f 66 66 73 65 74 20 3d 20 70 61 >termOffset = pa
2170: 72 73 65 2e 74 65 72 6d 20 2d 20 73 63 72 69 70 rse.term - scrip
2180: 74 3b 0a 2d 09 54 63 6c 5f 53 65 74 4f 62 6a 52 t;.-.Tcl_SetObjR
2190: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 2d 09 esult(interp,.-.
21a0: 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 .Tcl_NewStringOb
21b0: 6a 28 22 6d 69 73 73 69 6e 67 20 63 6c 6f 73 65 j("missing close
21c0: 2d 62 72 61 63 6b 65 74 22 2c 20 2d 31 29 29 3b -bracket", -1));
21d0: 0a 2d 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 .-.return TCL_ER
21e0: 52 4f 52 3b 0a 2d 20 20 20 20 7d 20 65 6c 73 65 ROR;.- } else
21f0: 20 69 66 20 28 2a 70 61 72 73 65 2e 74 65 72 6d if (*parse.term
2200: 20 21 3d 20 27 5d 27 29 20 7b 0a 2d 09 2f 2a 0a != ']') {.-./*.
2210: 2d 09 20 2a 20 54 68 65 72 65 20 77 61 73 20 6e -. * There was n
2220: 6f 20 63 6c 6f 73 65 2d 62 72 61 63 6b 65 74 2e o close-bracket.
2230: 20 20 53 79 6e 74 61 78 20 65 72 72 6f 72 2e 0a Syntax error..
2240: 2d 09 20 2a 2f 0a 2d 0a 2d 09 69 50 74 72 2d 3e -. */.-.-.iPtr->
2250: 74 65 72 6d 4f 66 66 73 65 74 20 3d 20 28 70 61 termOffset = (pa
2260: 72 73 65 2e 74 65 72 6d 20 2b 20 31 29 20 2d 20 rse.term + 1) -
2270: 73 63 72 69 70 74 3b 0a 2d 09 54 63 6c 5f 53 65 script;.-.Tcl_Se
2280: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
2290: 70 2c 0a 2d 09 09 54 63 6c 5f 4e 65 77 53 74 72 p,.-..Tcl_NewStr
22a0: 69 6e 67 4f 62 6a 28 22 6d 69 73 73 69 6e 67 20 ingObj("missing
22b0: 63 6c 6f 73 65 2d 62 72 61 63 6b 65 74 22 2c 20 close-bracket",
22c0: 2d 31 29 29 3b 0a 2d 09 72 65 74 75 72 6e 20 54 -1));.-.return T
22d0: 43 4c 5f 45 52 52 4f 52 3b 0a 2d 20 20 20 20 7d CL_ERROR;.- }
22e0: 20 65 6c 73 65 20 7b 0a 2d 09 2f 2a 20 0a 2d 09 else {.-./* .-.
22f0: 20 2a 20 70 61 72 73 65 2e 74 65 72 6d 20 70 6f * parse.term po
2300: 69 6e 74 73 20 74 6f 20 74 68 65 20 63 6c 6f 73 ints to the clos
2310: 65 2d 62 72 61 63 6b 65 74 2e 0a 2d 09 20 2a 2f e-bracket..-. */
2320: 0a 2d 09 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 .-.iPtr->termOff
2330: 73 65 74 20 3d 20 70 61 72 73 65 2e 74 65 72 6d set = parse.term
2340: 20 2d 20 73 63 72 69 70 74 3b 0a 2d 20 20 20 20 - script;.-
2350: 7d 0a 20 20 20 20 20 72 65 74 75 72 6e 20 63 6f }. return co
2360: 64 65 3b 0a 20 7d 0a 20 0c 0a 40 40 20 2d 33 39 de;. }. ..@@ -39
2370: 33 32 2c 39 20 2b 33 36 38 36 2c 36 20 40 40 0a 32,9 +3686,6 @@.
2380: 20 20 2a 09 68 6f 6c 64 73 20 74 68 65 20 62 79 *.holds the by
2390: 74 65 63 6f 64 65 20 69 6e 73 74 72 75 63 74 69 tecode instructi
23a0: 6f 6e 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 6d ons for the comm
23b0: 61 6e 64 73 2e 20 45 78 65 63 75 74 69 6e 67 20 ands. Executing
23c0: 74 68 65 0a 20 20 2a 09 63 6f 6d 6d 61 6e 64 73 the. *.commands
23d0: 20 77 69 6c 6c 20 61 6c 6d 6f 73 74 20 63 65 72 will almost cer
23e0: 74 61 69 6e 6c 79 20 68 61 76 65 20 73 69 64 65 tainly have side
23f0: 20 65 66 66 65 63 74 73 20 74 68 61 74 20 64 65 effects that de
2400: 70 65 6e 64 0a 20 20 2a 09 6f 6e 20 74 68 6f 73 pend. *.on thos
2410: 65 20 63 6f 6d 6d 61 6e 64 73 2e 0a 2d 20 2a 0a e commands..- *.
2420: 2d 20 2a 09 4a 75 73 74 20 61 73 20 69 6e 20 54 - *.Just as in T
2430: 63 6c 5f 45 76 61 6c 2c 20 69 6e 74 65 72 70 2d cl_Eval, interp-
2440: 3e 74 65 72 6d 4f 66 66 73 65 74 20 69 73 20 73 >termOffset is s
2450: 65 74 20 74 6f 20 74 68 65 20 6f 66 66 73 65 74 et to the offset
2460: 20 6f 66 20 74 68 65 0a 2d 20 2a 09 6c 61 73 74 of the.- *.last
2470: 20 63 68 61 72 61 63 74 65 72 20 65 78 65 63 75 character execu
2480: 74 65 64 20 69 6e 20 74 68 65 20 6f 62 6a 50 74 ted in the objPt
2490: 72 27 73 20 73 74 72 69 6e 67 2e 0a 20 20 2a 0a r's string.. *.
24a0: 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *-------------
24b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 2f 0a 49 ---------. */.I
24f0: 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 ndex: generic/tc
2500: 6c 43 6d 64 4d 5a 2e 63 0a 3d 3d 3d 3d 3d 3d 3d lCmdMZ.c.=======
2510: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2520: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 ============.RCS
2550: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
2560: 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f tcl/tcl/generic/
2570: 74 63 6c 43 6d 64 4d 5a 2e 63 2c 76 0a 72 65 74 tclCmdMZ.c,v.ret
2580: 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e rieving revision
2590: 20 31 2e 38 32 0a 64 69 66 66 20 2d 75 20 2d 72 1.82.diff -u -r
25a0: 31 2e 38 32 20 74 63 6c 43 6d 64 4d 5a 2e 63 0a 1.82 tclCmdMZ.c.
25b0: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 --- generic/tclC
25c0: 6d 64 4d 5a 2e 63 09 32 37 20 46 65 62 20 32 30 mdMZ.c.27 Feb 20
25d0: 30 33 20 30 30 3a 35 34 3a 33 36 20 2d 30 30 30 03 00:54:36 -000
25e0: 30 09 31 2e 38 32 0a 2b 2b 2b 20 67 65 6e 65 72 0.1.82.+++ gener
25f0: 69 63 2f 74 63 6c 43 6d 64 4d 5a 2e 63 09 38 20 ic/tclCmdMZ.c.8
2600: 4d 61 72 20 32 30 30 33 20 32 31 3a 32 32 3a 30 Mar 2003 21:22:0
2610: 31 20 2d 30 30 30 30 0a 40 40 20 2d 32 34 39 30 1 -0000.@@ -2490
2620: 2c 31 35 39 20 2b 32 34 39 30 2c 36 20 40 40 0a ,159 +2490,6 @@.
2630: 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *---------
2640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 -------------.
2680: 2a 0a 2d 20 2a 20 54 63 6c 5f 53 75 62 73 74 4f *.- * Tcl_SubstO
2690: 62 6a 20 2d 2d 0a 2d 20 2a 0a 2d 20 2a 09 54 68 bj --.- *.- *.Th
26a0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 70 65 72 66 is function perf
26b0: 6f 72 6d 73 20 74 68 65 20 73 75 62 73 74 69 74 orms the substit
26c0: 75 74 69 6f 6e 73 20 73 70 65 63 69 66 69 65 64 utions specified
26d0: 20 6f 6e 20 74 68 65 0a 2d 20 2a 09 67 69 76 65 on the.- *.give
26e0: 6e 20 73 74 72 69 6e 67 20 61 73 20 64 65 73 63 n string as desc
26f0: 72 69 62 65 64 20 69 6e 20 74 68 65 20 75 73 65 ribed in the use
2700: 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 r documentation
2710: 66 6f 72 20 74 68 65 0a 2d 20 2a 09 22 73 75 62 for the.- *."sub
2720: 73 74 22 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 2e st" Tcl command.
2730: 20 20 54 68 69 73 20 63 6f 64 65 20 69 73 20 68 This code is h
2740: 65 61 76 69 6c 79 20 62 61 73 65 64 20 6f 6e 20 eavily based on
2750: 61 6e 0a 2d 20 2a 09 69 6d 70 6c 65 6d 65 6e 74 an.- *.implement
2760: 61 74 69 6f 6e 20 62 79 20 41 6e 64 72 65 77 20 ation by Andrew
2770: 50 61 79 6e 65 2e 20 20 4e 6f 74 65 20 74 68 61 Payne. Note tha
2780: 74 20 69 66 20 61 20 63 6f 6d 6d 61 6e 64 0a 2d t if a command.-
2790: 20 2a 09 73 75 62 73 74 69 74 75 74 69 6f 6e 20 *.substitution
27a0: 72 65 74 75 72 6e 73 20 54 43 4c 5f 43 4f 4e 54 returns TCL_CONT
27b0: 49 4e 55 45 20 6f 72 20 54 43 4c 5f 52 45 54 55 INUE or TCL_RETU
27c0: 52 4e 20 66 72 6f 6d 20 69 74 73 0a 2d 20 2a 09 RN from its.- *.
27d0: 65 76 61 6c 75 61 74 69 6f 6e 20 61 6e 64 20 69 evaluation and i
27e0: 73 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 6c 79 s not completely
27f0: 20 77 65 6c 6c 2d 66 6f 72 6d 65 64 2c 20 74 68 well-formed, th
2800: 65 20 72 65 73 75 6c 74 73 20 61 72 65 0a 2d 20 e results are.-
2810: 2a 09 6e 6f 74 20 64 65 66 69 6e 65 64 20 28 6f *.not defined (o
2820: 72 20 61 74 20 6c 65 61 73 74 20 68 61 72 64 20 r at least hard
2830: 74 6f 20 63 68 61 72 61 63 74 65 72 69 73 65 2e to characterise.
2840: 29 20 20 54 68 69 73 20 66 61 75 6c 74 0a 2d 20 ) This fault.-
2850: 2a 09 77 69 6c 6c 20 62 65 20 66 69 78 65 64 20 *.will be fixed
2860: 61 74 20 73 6f 6d 65 20 70 6f 69 6e 74 2c 20 62 at some point, b
2870: 75 74 20 74 68 65 20 63 6f 73 74 20 6f 66 20 74 ut the cost of t
2880: 68 65 20 6f 6e 6c 79 20 73 61 6e 65 0a 2d 20 2a he only sane.- *
2890: 09 66 69 78 20 28 77 65 6c 6c 2d 66 6f 72 6d 65 .fix (well-forme
28a0: 64 6e 65 73 73 20 63 68 65 63 6b 20 66 69 72 73 dness check firs
28b0: 74 29 20 69 73 20 73 75 63 68 20 74 68 61 74 20 t) is such that
28c0: 79 6f 75 20 6e 65 65 64 20 74 6f 0a 2d 20 2a 09 you need to.- *.
28d0: 22 70 72 65 63 6f 6d 70 69 6c 65 20 61 6e 64 20 "precompile and
28e0: 63 61 63 68 65 22 20 74 6f 20 73 74 6f 70 20 65 cache" to stop e
28f0: 76 65 72 79 6f 6e 65 20 66 72 6f 6d 20 62 65 69 veryone from bei
2900: 6e 67 20 68 69 74 20 77 69 74 68 0a 2d 20 2a 09 ng hit with.- *.
2910: 74 68 65 20 63 6f 6e 73 65 71 75 65 6e 63 65 73 the consequences
2920: 20 65 76 65 72 79 20 74 69 6d 65 20 74 68 72 6f every time thro
2930: 75 67 68 2e 20 20 4e 6f 74 65 20 74 68 61 74 20 ugh. Note that
2940: 74 68 65 20 63 75 72 72 65 6e 74 0a 2d 20 2a 09 the current.- *.
2950: 62 65 68 61 76 69 6f 75 72 20 69 73 20 6e 6f 74 behaviour is not
2960: 20 61 20 73 65 63 75 72 69 74 79 20 68 6f 6c 65 a security hole
2970: 3b 20 69 74 20 6a 75 73 74 20 72 65 73 74 61 72 ; it just restar
2980: 74 73 20 70 61 72 73 69 6e 67 0a 2d 20 2a 09 74 ts parsing.- *.t
2990: 68 65 20 73 74 72 69 6e 67 20 66 6f 6c 6c 6f 77 he string follow
29a0: 69 6e 67 20 74 68 65 20 73 75 62 73 74 69 74 75 ing the substitu
29b0: 74 69 6f 6e 20 69 6e 20 61 20 6d 69 6c 64 6c 79 tion in a mildly
29c0: 20 73 75 72 70 72 69 73 69 6e 67 0a 2d 20 2a 09 surprising.- *.
29d0: 70 6c 61 63 65 2c 20 61 6e 64 20 69 74 20 69 73 place, and it is
29e0: 20 61 20 76 65 72 79 20 62 61 64 20 69 64 65 61 a very bad idea
29f0: 20 74 6f 20 63 6f 75 6e 74 20 6f 6e 20 74 68 69 to count on thi
2a00: 73 20 72 65 6d 61 69 6e 69 6e 67 0a 2d 20 2a 09 s remaining.- *.
2a10: 74 68 65 20 73 61 6d 65 20 69 6e 20 66 75 74 75 the same in futu
2a20: 72 65 2e 2e 2e 0a 2d 20 2a 0a 2d 20 2a 20 52 65 re....- *.- * Re
2a30: 73 75 6c 74 73 3a 0a 2d 20 2a 09 41 20 54 63 6c sults:.- *.A Tcl
2a40: 5f 4f 62 6a 2a 20 63 6f 6e 74 61 69 6e 69 6e 67 _Obj* containing
2a50: 20 74 68 65 20 73 75 62 73 74 69 74 75 74 65 64 the substituted
2a60: 20 73 74 72 69 6e 67 2c 20 6f 72 20 4e 55 4c 4c string, or NULL
2a70: 20 74 6f 0a 2d 20 2a 09 69 6e 64 69 63 61 74 65 to.- *.indicate
2a80: 20 74 68 61 74 20 61 6e 20 65 72 72 6f 72 20 6f that an error o
2a90: 63 63 75 72 72 65 64 2e 0a 2d 20 2a 0a 2d 20 2a ccurred..- *.- *
2aa0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 2d Side effects:.-
2ab0: 20 2a 09 53 65 65 20 74 68 65 20 75 73 65 72 20 *.See the user
2ac0: 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 0a 2d documentation..-
2ad0: 20 2a 0a 2d 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *.- *----------
2ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2d 20 2a ------------.- *
2b20: 2f 0a 2d 0a 2d 54 63 6c 5f 4f 62 6a 20 2a 0a 2d /.-.-Tcl_Obj *.-
2b30: 54 63 6c 5f 53 75 62 73 74 4f 62 6a 28 69 6e 74 Tcl_SubstObj(int
2b40: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 66 6c 61 erp, objPtr, fla
2b50: 67 73 29 0a 2d 20 20 20 20 54 63 6c 5f 49 6e 74 gs).- Tcl_Int
2b60: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 2d 20 20 erp *interp;.-
2b70: 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 Tcl_Obj *objPt
2b80: 72 3b 0a 2d 20 20 20 20 69 6e 74 20 66 6c 61 67 r;.- int flag
2b90: 73 3b 0a 2d 7b 0a 2d 20 20 20 20 54 63 6c 5f 4f s;.-{.- Tcl_O
2ba0: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 2d bj *resultObj;.-
2bb0: 20 20 20 20 63 68 61 72 20 2a 70 2c 20 2a 6f 6c char *p, *ol
2bc0: 64 3b 0a 2d 0a 2d 20 20 20 20 6f 6c 64 20 3d 20 d;.-.- old =
2bd0: 70 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e p = Tcl_GetStrin
2be0: 67 28 6f 62 6a 50 74 72 29 3b 0a 2d 20 20 20 20 g(objPtr);.-
2bf0: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
2c00: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 22 2c NewStringObj("",
2c10: 20 30 29 3b 0a 2d 20 20 20 20 77 68 69 6c 65 20 0);.- while
2c20: 28 31 29 20 7b 0a 2d 09 73 77 69 74 63 68 20 28 (1) {.-.switch (
2c30: 2a 70 29 20 7b 0a 2d 09 63 61 73 65 20 30 3a 0a *p) {.-.case 0:.
2c40: 2d 09 20 20 20 20 69 66 20 28 70 20 21 3d 20 6f -. if (p != o
2c50: 6c 64 29 20 7b 0a 2d 09 09 54 63 6c 5f 41 70 70 ld) {.-..Tcl_App
2c60: 65 6e 64 54 6f 4f 62 6a 28 72 65 73 75 6c 74 4f endToObj(resultO
2c70: 62 6a 2c 20 6f 6c 64 2c 20 70 2d 6f 6c 64 29 3b bj, old, p-old);
2c80: 0a 2d 09 20 20 20 20 7d 0a 2d 09 20 20 20 20 72 .-. }.-. r
2c90: 65 74 75 72 6e 20 72 65 73 75 6c 74 4f 62 6a 3b eturn resultObj;
2ca0: 0a 2d 0a 2d 09 63 61 73 65 20 27 5c 5c 27 3a 0a .-.-.case '\\':.
2cb0: 2d 09 20 20 20 20 69 66 20 28 66 6c 61 67 73 20 -. if (flags
2cc0: 26 20 54 43 4c 5f 53 55 42 53 54 5f 42 41 43 4b & TCL_SUBST_BACK
2cd0: 53 4c 41 53 48 45 53 29 20 7b 0a 2d 09 09 63 68 SLASHES) {.-..ch
2ce0: 61 72 20 62 75 66 5b 54 43 4c 5f 55 54 46 5f 4d ar buf[TCL_UTF_M
2cf0: 41 58 5d 3b 0a 2d 09 09 69 6e 74 20 63 6f 75 6e AX];.-..int coun
2d00: 74 3b 0a 2d 0a 2d 09 09 69 66 20 28 70 20 21 3d t;.-.-..if (p !=
2d10: 20 6f 6c 64 29 20 7b 0a 2d 09 09 20 20 20 20 54 old) {.-.. T
2d20: 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 72 cl_AppendToObj(r
2d30: 65 73 75 6c 74 4f 62 6a 2c 20 6f 6c 64 2c 20 70 esultObj, old, p
2d40: 2d 6f 6c 64 29 3b 0a 2d 09 09 7d 0a 2d 09 09 54 -old);.-..}.-..T
2d50: 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 72 cl_AppendToObj(r
2d60: 65 73 75 6c 74 4f 62 6a 2c 20 62 75 66 2c 0a 2d esultObj, buf,.-
2d70: 09 09 09 09 54 63 6c 5f 55 74 66 42 61 63 6b 73 ....Tcl_UtfBacks
2d80: 6c 61 73 68 28 70 2c 20 26 63 6f 75 6e 74 2c 20 lash(p, &count,
2d90: 62 75 66 29 29 3b 0a 2d 09 09 70 20 2b 3d 20 63 buf));.-..p += c
2da0: 6f 75 6e 74 3b 0a 2d 09 09 6f 6c 64 20 3d 20 70 ount;.-..old = p
2db0: 3b 0a 2d 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;.-. } else {
2dc0: 0a 2d 09 09 70 2b 2b 3b 0a 2d 09 20 20 20 20 7d .-..p++;.-. }
2dd0: 0a 2d 09 20 20 20 20 62 72 65 61 6b 3b 0a 2d 0a .-. break;.-.
2de0: 2d 09 63 61 73 65 20 27 24 27 3a 0a 2d 09 20 20 -.case '$':.-.
2df0: 20 20 69 66 20 28 66 6c 61 67 73 20 26 20 54 43 if (flags & TC
2e00: 4c 5f 53 55 42 53 54 5f 56 41 52 49 41 42 4c 45 L_SUBST_VARIABLE
2e10: 53 29 20 7b 0a 2d 09 09 54 63 6c 5f 50 61 72 73 S) {.-..Tcl_Pars
2e20: 65 20 70 61 72 73 65 3b 0a 2d 09 09 69 6e 74 20 e parse;.-..int
2e30: 63 6f 64 65 3b 0a 2d 0a 2d 09 09 2f 2a 0a 2d 09 code;.-.-../*.-.
2e40: 09 20 2a 20 43 6f 64 65 20 69 73 20 73 69 6d 70 . * Code is simp
2e50: 6c 65 72 20 6f 76 65 72 61 6c 6c 20 69 66 20 77 ler overall if w
2e60: 65 20 28 65 66 66 65 63 74 69 76 65 6c 79 29 20 e (effectively)
2e70: 69 6e 6c 69 6e 65 0a 2d 09 09 20 2a 20 54 63 6c inline.-.. * Tcl
2e80: 5f 50 61 72 73 65 56 61 72 2c 20 70 61 72 74 69 _ParseVar, parti
2e90: 63 75 6c 61 72 6c 79 20 61 73 20 74 68 61 74 20 cularly as that
2ea0: 61 6c 6c 6f 77 73 20 75 73 20 74 6f 20 75 73 65 allows us to use
2eb0: 0a 2d 09 09 20 2a 20 61 20 6e 6f 6e 2d 73 74 72 .-.. * a non-str
2ec0: 69 6e 67 20 69 6e 74 65 72 66 61 63 65 20 77 68 ing interface wh
2ed0: 65 6e 20 77 65 20 63 6f 6d 65 20 74 6f 20 61 70 en we come to ap
2ee0: 70 65 6e 64 69 6e 67 0a 2d 09 09 20 2a 20 74 68 pending.-.. * th
2ef0: 65 20 76 61 72 69 61 62 6c 65 20 63 6f 6e 74 65 e variable conte
2f00: 6e 74 73 20 74 6f 20 74 68 65 20 72 65 73 75 6c nts to the resul
2f10: 74 20 6f 62 6a 65 63 74 2e 20 20 54 68 65 72 65 t object. There
2f20: 0a 2d 09 09 20 2a 20 61 72 65 20 61 20 66 65 77 .-.. * are a few
2f30: 20 6f 74 68 65 72 20 6f 70 74 69 6d 69 73 61 74 other optimisat
2f40: 69 6f 6e 73 20 74 68 61 74 20 64 6f 69 6e 67 20 ions that doing
2f50: 74 68 69 73 0a 2d 09 09 20 2a 20 65 6e 61 62 6c this.-.. * enabl
2f60: 65 73 20 28 6c 69 6b 65 20 62 65 69 6e 67 20 61 es (like being a
2f70: 62 6c 65 20 74 6f 20 63 6f 6e 74 69 6e 75 65 20 ble to continue
2f80: 74 68 65 20 72 75 6e 20 6f 66 0a 2d 09 09 20 2a the run of.-.. *
2f90: 20 75 6e 73 75 62 73 74 69 74 75 74 65 64 20 63 unsubstituted c
2fa0: 68 61 72 61 63 74 65 72 73 20 73 74 72 61 69 67 haracters straig
2fb0: 68 74 20 74 68 72 6f 75 67 68 20 69 66 20 61 20 ht through if a
2fc0: 27 24 27 0a 2d 09 09 20 2a 20 64 6f 65 73 20 6e '$'.-.. * does n
2fd0: 6f 74 20 70 72 65 63 65 64 65 20 61 20 76 61 72 ot precede a var
2fe0: 69 61 62 6c 65 20 6e 61 6d 65 2e 29 0a 2d 09 09 iable name.).-..
2ff0: 20 2a 2f 0a 2d 09 09 69 66 20 28 54 63 6c 5f 50 */.-..if (Tcl_P
3000: 61 72 73 65 56 61 72 4e 61 6d 65 28 69 6e 74 65 arseVarName(inte
3010: 72 70 2c 20 70 2c 20 2d 31 2c 20 26 70 61 72 73 rp, p, -1, &pars
3020: 65 2c 20 30 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 e, 0) != TCL_OK)
3030: 20 7b 0a 2d 09 09 20 20 20 20 67 6f 74 6f 20 65 {.-.. goto e
3040: 72 72 6f 72 52 65 73 75 6c 74 3b 0a 2d 09 09 7d rrorResult;.-..}
3050: 0a 2d 09 09 69 66 20 28 70 61 72 73 65 2e 6e 75 .-..if (parse.nu
3060: 6d 54 6f 6b 65 6e 73 20 3d 3d 20 31 29 20 7b 0a mTokens == 1) {.
3070: 2d 09 09 20 20 20 20 2f 2a 0a 2d 09 09 20 20 20 -.. /*.-..
3080: 20 20 2a 20 54 68 65 72 65 20 69 73 6e 27 74 20 * There isn't
3090: 61 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 20 a variable name
30a0: 61 66 74 65 72 20 61 6c 6c 3a 20 74 68 65 20 24 after all: the $
30b0: 20 69 73 0a 2d 09 09 20 20 20 20 20 2a 20 6a 75 is.-.. * ju
30c0: 73 74 20 61 20 24 2e 0a 2d 09 09 20 20 20 20 20 st a $..-..
30d0: 2a 2f 0a 2d 09 09 20 20 20 20 70 2b 2b 3b 0a 2d */.-.. p++;.-
30e0: 09 09 20 20 20 20 62 72 65 61 6b 3b 0a 2d 09 09 .. break;.-..
30f0: 7d 0a 2d 09 09 69 66 20 28 70 20 21 3d 20 6f 6c }.-..if (p != ol
3100: 64 29 20 7b 0a 2d 09 09 20 20 20 20 54 63 6c 5f d) {.-.. Tcl_
3110: 41 70 70 65 6e 64 54 6f 4f 62 6a 28 72 65 73 75 AppendToObj(resu
3120: 6c 74 4f 62 6a 2c 20 6f 6c 64 2c 20 70 2d 6f 6c ltObj, old, p-ol
3130: 64 29 3b 0a 2d 09 09 7d 0a 2d 09 09 70 20 2b 3d d);.-..}.-..p +=
3140: 20 70 61 72 73 65 2e 74 6f 6b 65 6e 50 74 72 2d parse.tokenPtr-
3150: 3e 73 69 7a 65 3b 0a 2d 09 09 63 6f 64 65 20 3d >size;.-..code =
3160: 20 54 63 6c 5f 45 76 61 6c 54 6f 6b 65 6e 73 53 Tcl_EvalTokensS
3170: 74 61 6e 64 61 72 64 28 69 6e 74 65 72 70 2c 20 tandard(interp,
3180: 70 61 72 73 65 2e 74 6f 6b 65 6e 50 74 72 2c 0a parse.tokenPtr,.
3190: 2d 09 09 20 20 20 20 20 20 20 20 70 61 72 73 65 -.. parse
31a0: 2e 6e 75 6d 54 6f 6b 65 6e 73 29 3b 0a 2d 09 09 .numTokens);.-..
31b0: 69 66 20 28 63 6f 64 65 20 3d 3d 20 54 43 4c 5f if (code == TCL_
31c0: 45 52 52 4f 52 29 20 7b 0a 2d 09 09 20 20 20 20 ERROR) {.-..
31d0: 67 6f 74 6f 20 65 72 72 6f 72 52 65 73 75 6c 74 goto errorResult
31e0: 3b 0a 2d 09 09 7d 0a 2d 09 09 69 66 20 28 63 6f ;.-..}.-..if (co
31f0: 64 65 20 3d 3d 20 54 43 4c 5f 42 52 45 41 4b 29 de == TCL_BREAK)
3200: 20 7b 0a 2d 09 09 20 20 20 20 54 63 6c 5f 52 65 {.-.. Tcl_Re
3210: 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 setResult(interp
3220: 29 3b 0a 2d 09 09 20 20 20 20 72 65 74 75 72 6e );.-.. return
3230: 20 72 65 73 75 6c 74 4f 62 6a 3b 0a 2d 09 09 7d resultObj;.-..}
3240: 0a 2d 09 09 69 66 20 28 63 6f 64 65 20 21 3d 20 .-..if (code !=
3250: 54 43 4c 5f 43 4f 4e 54 49 4e 55 45 29 20 7b 0a TCL_CONTINUE) {.
3260: 2d 09 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e -.. Tcl_Appen
3270: 64 4f 62 6a 54 6f 4f 62 6a 28 72 65 73 75 6c 74 dObjToObj(result
3280: 4f 62 6a 2c 20 54 63 6c 5f 47 65 74 4f 62 6a 52 Obj, Tcl_GetObjR
3290: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a esult(interp));.
32a0: 2d 09 09 7d 0a 2d 09 09 54 63 6c 5f 52 65 73 65 -..}.-..Tcl_Rese
32b0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b tResult(interp);
32c0: 0a 2d 09 09 6f 6c 64 20 3d 20 70 3b 0a 2d 09 20 .-..old = p;.-.
32d0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 09 70 } else {.-..p
32e0: 2b 2b 3b 0a 2d 09 20 20 20 20 7d 0a 2d 09 20 20 ++;.-. }.-.
32f0: 20 20 62 72 65 61 6b 3b 0a 2d 0a 2d 09 63 61 73 break;.-.-.cas
3300: 65 20 27 5b 27 3a 0a 2d 09 20 20 20 20 69 66 20 e '[':.-. if
3310: 28 66 6c 61 67 73 20 26 20 54 43 4c 5f 53 55 42 (flags & TCL_SUB
3320: 53 54 5f 43 4f 4d 4d 41 4e 44 53 29 20 7b 0a 2d ST_COMMANDS) {.-
3330: 09 09 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d ..Interp *iPtr =
3340: 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 (Interp *) inte
3350: 72 70 3b 0a 2d 09 09 69 6e 74 20 63 6f 64 65 3b rp;.-..int code;
3360: 0a 2d 0a 2d 09 09 69 66 20 28 70 20 21 3d 20 6f .-.-..if (p != o
3370: 6c 64 29 20 7b 0a 2d 09 09 20 20 20 20 54 63 6c ld) {.-.. Tcl
3380: 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 72 65 73 _AppendToObj(res
3390: 75 6c 74 4f 62 6a 2c 20 6f 6c 64 2c 20 70 2d 6f ultObj, old, p-o
33a0: 6c 64 29 3b 0a 2d 09 09 7d 0a 2d 09 09 69 50 74 ld);.-..}.-..iPt
33b0: 72 2d 3e 65 76 61 6c 46 6c 61 67 73 20 3d 20 54 r->evalFlags = T
33c0: 43 4c 5f 42 52 41 43 4b 45 54 5f 54 45 52 4d 3b CL_BRACKET_TERM;
33d0: 0a 2d 09 09 63 6f 64 65 20 3d 20 54 63 6c 5f 45 .-..code = Tcl_E
33e0: 76 61 6c 45 78 28 69 6e 74 65 72 70 2c 20 70 2b valEx(interp, p+
33f0: 31 2c 20 2d 31 2c 20 30 29 3b 0a 2d 09 09 73 77 1, -1, 0);.-..sw
3400: 69 74 63 68 20 28 63 6f 64 65 29 20 7b 0a 2d 09 itch (code) {.-.
3410: 09 63 61 73 65 20 54 43 4c 5f 45 52 52 4f 52 3a .case TCL_ERROR:
3420: 0a 2d 09 09 20 20 20 20 67 6f 74 6f 20 65 72 72 .-.. goto err
3430: 6f 72 52 65 73 75 6c 74 3b 0a 2d 09 09 63 61 73 orResult;.-..cas
3440: 65 20 54 43 4c 5f 42 52 45 41 4b 3a 0a 2d 09 09 e TCL_BREAK:.-..
3450: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 Tcl_ResetRes
3460: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 2d 09 09 ult(interp);.-..
3470: 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 75 6c return resul
3480: 74 4f 62 6a 3b 0a 2d 09 09 64 65 66 61 75 6c 74 tObj;.-..default
3490: 3a 0a 2d 09 09 20 20 20 20 54 63 6c 5f 41 70 70 :.-.. Tcl_App
34a0: 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 72 65 73 75 endObjToObj(resu
34b0: 6c 74 4f 62 6a 2c 20 54 63 6c 5f 47 65 74 4f 62 ltObj, Tcl_GetOb
34c0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 jResult(interp))
34d0: 3b 0a 2d 09 09 63 61 73 65 20 54 43 4c 5f 43 4f ;.-..case TCL_CO
34e0: 4e 54 49 4e 55 45 3a 0a 2d 09 09 20 20 20 20 54 NTINUE:.-.. T
34f0: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 cl_ResetResult(i
3500: 6e 74 65 72 70 29 3b 0a 2d 09 09 20 20 20 20 6f nterp);.-.. o
3510: 6c 64 20 3d 20 70 20 3d 20 28 70 2b 31 20 2b 20 ld = p = (p+1 +
3520: 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 73 65 74 iPtr->termOffset
3530: 20 2b 20 31 29 3b 0a 2d 09 09 7d 0a 2d 09 20 20 + 1);.-..}.-.
3540: 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 09 70 2b } else {.-..p+
3550: 2b 3b 0a 2d 09 20 20 20 20 7d 0a 2d 09 20 20 20 +;.-. }.-.
3560: 20 62 72 65 61 6b 3b 0a 2d 09 64 65 66 61 75 6c break;.-.defaul
3570: 74 3a 0a 2d 09 20 20 20 20 70 2b 2b 3b 0a 2d 09 t:.-. p++;.-.
3580: 20 20 20 20 62 72 65 61 6b 3b 0a 2d 09 7d 0a 2d break;.-.}.-
3590: 20 20 20 20 7d 0a 2d 0a 2d 20 65 72 72 6f 72 52 }.-.- errorR
35a0: 65 73 75 6c 74 3a 0a 2d 20 20 20 20 54 63 6c 5f esult:.- Tcl_
35b0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 DecrRefCount(res
35c0: 75 6c 74 4f 62 6a 29 3b 0a 2d 20 20 20 20 72 65 ultObj);.- re
35d0: 74 75 72 6e 20 4e 55 4c 4c 3b 0a 2d 7d 0a 2d 0c turn NULL;.-}.-.
35e0: 0a 2d 2f 2a 0a 2d 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .-/*.- *--------
35f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2d --------------.-
3630: 20 2a 0a 20 20 2a 20 54 63 6c 5f 53 77 69 74 63 *. * Tcl_Switc
3640: 68 4f 62 6a 43 6d 64 20 2d 2d 0a 20 20 2a 0a 20 hObjCmd --. *.
3650: 20 2a 09 54 68 69 73 20 6f 62 6a 65 63 74 2d 62 *.This object-b
3660: 61 73 65 64 20 70 72 6f 63 65 64 75 72 65 20 69 ased procedure i
3670: 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f s invoked to pro
3680: 63 65 73 73 20 74 68 65 20 22 73 77 69 74 63 68 cess the "switch
3690: 22 20 54 63 6c 0a 49 6e 64 65 78 3a 20 67 65 6e " Tcl.Index: gen
36a0: 65 72 69 63 2f 74 63 6c 43 6f 6d 70 43 6d 64 73 eric/tclCompCmds
36b0: 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .c.=============
36c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
36d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
36e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
36f0: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
3700: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
3710: 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 43 6f 6d l/generic/tclCom
3720: 70 43 6d 64 73 2e 63 2c 76 0a 72 65 74 72 69 65 pCmds.c,v.retrie
3730: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
3740: 34 31 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 34 41.diff -u -r1.4
3750: 31 20 74 63 6c 43 6f 6d 70 43 6d 64 73 2e 63 0a 1 tclCompCmds.c.
3760: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 --- generic/tclC
3770: 6f 6d 70 43 6d 64 73 2e 63 09 36 20 4d 61 72 20 ompCmds.c.6 Mar
3780: 32 30 30 33 20 32 33 3a 31 37 3a 30 39 20 2d 30 2003 23:17:09 -0
3790: 30 30 30 09 31 2e 34 31 0a 2b 2b 2b 20 67 65 6e 000.1.41.+++ gen
37a0: 65 72 69 63 2f 74 63 6c 43 6f 6d 70 43 6d 64 73 eric/tclCompCmds
37b0: 2e 63 09 38 20 4d 61 72 20 32 30 30 33 20 32 31 .c.8 Mar 2003 21
37c0: 3a 32 32 3a 33 34 20 2d 30 30 30 30 0a 40 40 20 :22:34 -0000.@@
37d0: 2d 33 31 34 30 2c 37 20 2b 33 31 34 30 2c 37 20 -3140,7 +3140,7
37e0: 40 40 0a 20 09 54 63 6c 45 6d 69 74 4f 70 63 6f @@. .TclEmitOpco
37f0: 64 65 28 49 4e 53 54 5f 50 4f 50 2c 20 65 6e 76 de(INST_POP, env
3800: 50 74 72 29 3b 0a 20 09 65 6e 76 50 74 72 2d 3e Ptr);. .envPtr->
3810: 63 75 72 72 53 74 61 63 6b 44 65 70 74 68 20 3d currStackDepth =
3820: 20 73 61 76 65 64 53 74 61 63 6b 44 65 70 74 68 savedStackDepth
3830: 20 2b 20 31 3b 0a 20 09 63 6f 64 65 20 3d 20 54 + 1;. .code = T
3840: 63 6c 43 6f 6d 70 69 6c 65 53 63 72 69 70 74 28 clCompileScript(
3850: 69 6e 74 65 72 70 2c 20 62 6f 64 79 54 6f 6b 65 interp, bodyToke
3860: 6e 41 72 72 61 79 5b 69 2b 31 5d 2e 73 74 61 72 nArray[i+1].star
3870: 74 2c 0a 2d 09 09 62 6f 64 79 54 6f 6b 65 6e 41 t,.-..bodyTokenA
3880: 72 72 61 79 5b 69 2b 31 5d 2e 73 69 7a 65 2c 20 rray[i+1].size,
3890: 2f 2a 6e 65 73 74 65 64 2a 2f 20 30 2c 20 65 6e /*nested*/ 0, en
38a0: 76 50 74 72 29 3b 0a 2b 09 09 62 6f 64 79 54 6f vPtr);.+..bodyTo
38b0: 6b 65 6e 41 72 72 61 79 5b 69 2b 31 5d 2e 73 69 kenArray[i+1].si
38c0: 7a 65 2c 20 65 6e 76 50 74 72 29 3b 0a 20 09 69 ze, envPtr);. .i
38d0: 66 20 28 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f f (code != TCL_O
38e0: 4b 29 20 7b 0a 20 09 20 20 20 20 63 6b 66 72 65 K) {. . ckfre
38f0: 65 28 28 63 68 61 72 20 2a 29 61 72 67 76 29 3b e((char *)argv);
3900: 0a 20 09 20 20 20 20 63 6b 66 72 65 65 28 28 63 . . ckfree((c
3910: 68 61 72 20 2a 29 62 6f 64 79 54 6f 6b 65 6e 41 har *)bodyTokenA
3920: 72 72 61 79 29 3b 0a 49 6e 64 65 78 3a 20 67 65 rray);.Index: ge
3930: 6e 65 72 69 63 2f 74 63 6c 43 6f 6d 70 45 78 70 neric/tclCompExp
3940: 72 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d r.c.============
3950: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3960: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3970: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3980: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
3990: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
39a0: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 43 6f cl/generic/tclCo
39b0: 6d 70 45 78 70 72 2e 63 2c 76 0a 72 65 74 72 69 mpExpr.c,v.retri
39c0: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
39d0: 2e 31 33 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e .13.diff -u -r1.
39e0: 31 33 20 74 63 6c 43 6f 6d 70 45 78 70 72 2e 63 13 tclCompExpr.c
39f0: 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c .--- generic/tcl
3a00: 43 6f 6d 70 45 78 70 72 2e 63 09 31 36 20 46 65 CompExpr.c.16 Fe
3a10: 62 20 32 30 30 33 20 30 31 3a 33 36 3a 33 32 20 b 2003 01:36:32
3a20: 2d 30 30 30 30 09 31 2e 31 33 0a 2b 2b 2b 20 67 -0000.1.13.+++ g
3a30: 65 6e 65 72 69 63 2f 74 63 6c 43 6f 6d 70 45 78 eneric/tclCompEx
3a40: 70 72 2e 63 09 38 20 4d 61 72 20 32 30 30 33 20 pr.c.8 Mar 2003
3a50: 32 31 3a 32 32 3a 34 33 20 2d 30 30 30 30 0a 40 21:22:43 -0000.@
3a60: 40 20 2d 33 39 38 2c 37 20 2b 33 39 38 2c 37 20 @ -398,7 +398,7
3a70: 40 40 0a 20 09 20 20 20 20 0a 20 20 20 20 20 20 @@. . .
3a80: 20 20 20 63 61 73 65 20 54 43 4c 5f 54 4f 4b 45 case TCL_TOKE
3a90: 4e 5f 43 4f 4d 4d 41 4e 44 3a 0a 20 09 20 20 20 N_COMMAND:. .
3aa0: 20 63 6f 64 65 20 3d 20 54 63 6c 43 6f 6d 70 69 code = TclCompi
3ab0: 6c 65 53 63 72 69 70 74 28 69 6e 74 65 72 70 2c leScript(interp,
3ac0: 20 74 6f 6b 65 6e 50 74 72 2d 3e 73 74 61 72 74 tokenPtr->start
3ad0: 2b 31 2c 0a 2d 09 09 20 20 20 20 74 6f 6b 65 6e +1,.-.. token
3ae0: 50 74 72 2d 3e 73 69 7a 65 2d 32 2c 20 2f 2a 6e Ptr->size-2, /*n
3af0: 65 73 74 65 64 2a 2f 20 30 2c 20 65 6e 76 50 74 ested*/ 0, envPt
3b00: 72 29 3b 0a 2b 09 09 20 20 20 20 74 6f 6b 65 6e r);.+.. token
3b10: 50 74 72 2d 3e 73 69 7a 65 2d 32 2c 20 65 6e 76 Ptr->size-2, env
3b20: 50 74 72 29 3b 0a 20 09 20 20 20 20 69 66 20 28 Ptr);. . if (
3b30: 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 code != TCL_OK)
3b40: 7b 0a 20 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a {. ..goto done;.
3b50: 20 09 20 20 20 20 7d 0a 49 6e 64 65 78 3a 20 67 . }.Index: g
3b60: 65 6e 65 72 69 63 2f 74 63 6c 43 6f 6d 70 69 6c eneric/tclCompil
3b70: 65 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d e.c.============
3b80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3b90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ba0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3bb0: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
3bc0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
3bd0: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 43 6f cl/generic/tclCo
3be0: 6d 70 69 6c 65 2e 63 2c 76 0a 72 65 74 72 69 65 mpile.c,v.retrie
3bf0: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
3c00: 34 33 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 34 43.diff -u -r1.4
3c10: 33 20 74 63 6c 43 6f 6d 70 69 6c 65 2e 63 0a 2d 3 tclCompile.c.-
3c20: 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6f -- generic/tclCo
3c30: 6d 70 69 6c 65 2e 63 09 31 39 20 46 65 62 20 32 mpile.c.19 Feb 2
3c40: 30 30 33 20 31 34 3a 33 33 3a 33 39 20 2d 30 30 003 14:33:39 -00
3c50: 30 30 09 31 2e 34 33 0a 2b 2b 2b 20 67 65 6e 65 00.1.43.+++ gene
3c60: 72 69 63 2f 74 63 6c 43 6f 6d 70 69 6c 65 2e 63 ric/tclCompile.c
3c70: 09 38 20 4d 61 72 20 32 30 30 33 20 32 31 3a 32 .8 Mar 2003 21:2
3c80: 33 3a 31 37 20 2d 30 30 30 30 0a 40 40 20 2d 33 3:17 -0000.@@ -3
3c90: 34 38 2c 31 34 20 2b 33 34 38 2c 31 36 20 40 40 48,14 +348,16 @@
3ca0: 0a 20 20 20 20 20 43 6f 6d 70 69 6c 65 48 6f 6f . CompileHoo
3cb0: 6b 50 72 6f 63 20 2a 68 6f 6f 6b 50 72 6f 63 3b kProc *hookProc;
3cc0: 09 2f 2a 20 50 72 6f 63 65 64 75 72 65 20 74 6f ./* Procedure to
3cd0: 20 69 6e 76 6f 6b 65 20 61 66 74 65 72 20 63 6f invoke after co
3ce0: 6d 70 69 6c 61 74 69 6f 6e 2e 20 2a 2f 0a 20 20 mpilation. */.
3cf0: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ClientData cl
3d00: 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 48 6f 6f ientData;./* Hoo
3d10: 6b 20 70 72 6f 63 65 64 75 72 65 20 70 72 69 76 k procedure priv
3d20: 61 74 65 20 64 61 74 61 2e 20 2a 2f 0a 20 7b 0a ate data. */. {.
3d30: 2b 23 69 66 64 65 66 20 54 43 4c 5f 43 4f 4d 50 +#ifdef TCL_COMP
3d40: 49 4c 45 5f 44 45 42 55 47 0a 20 20 20 20 20 49 ILE_DEBUG. I
3d50: 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20 28 49 nterp *iPtr = (I
3d60: 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72 70 3b nterp *) interp;
3d70: 0a 2b 23 65 6e 64 69 66 20 2f 2a 54 43 4c 5f 43 .+#endif /*TCL_C
3d80: 4f 4d 50 49 4c 45 5f 44 45 42 55 47 2a 2f 0a 20 OMPILE_DEBUG*/.
3d90: 20 20 20 20 43 6f 6d 70 69 6c 65 45 6e 76 20 63 CompileEnv c
3da0: 6f 6d 70 45 6e 76 3b 09 09 2f 2a 20 43 6f 6d 70 ompEnv;../* Comp
3db0: 69 6c 61 74 69 6f 6e 20 65 6e 76 69 72 6f 6e 6d ilation environm
3dc0: 65 6e 74 20 73 74 72 75 63 74 75 72 65 0a 20 09 ent structure. .
3dd0: 09 09 09 20 2a 20 61 6c 6c 6f 63 61 74 65 64 20 ... * allocated
3de0: 69 6e 20 66 72 61 6d 65 2e 20 2a 2f 0a 20 20 20 in frame. */.
3df0: 20 20 4c 69 74 65 72 61 6c 54 61 62 6c 65 20 2a LiteralTable *
3e00: 6c 6f 63 61 6c 54 61 62 6c 65 50 74 72 20 3d 20 localTablePtr =
3e10: 26 28 63 6f 6d 70 45 6e 76 2e 6c 6f 63 61 6c 4c &(compEnv.localL
3e20: 69 74 54 61 62 6c 65 29 3b 0a 20 20 20 20 20 72 itTable);. r
3e30: 65 67 69 73 74 65 72 20 41 75 78 44 61 74 61 20 egister AuxData
3e40: 2a 61 75 78 44 61 74 61 50 74 72 3b 0a 20 20 20 *auxDataPtr;.
3e50: 20 20 4c 69 74 65 72 61 6c 45 6e 74 72 79 20 2a LiteralEntry *
3e60: 65 6e 74 72 79 50 74 72 3b 0a 20 20 20 20 20 72 entryPtr;. r
3e70: 65 67 69 73 74 65 72 20 69 6e 74 20 69 3b 0a 2d egister int i;.-
3e80: 20 20 20 20 69 6e 74 20 6c 65 6e 67 74 68 2c 20 int length,
3e90: 6e 65 73 74 65 64 2c 20 72 65 73 75 6c 74 3b 0a nested, result;.
3ea0: 2b 20 20 20 20 69 6e 74 20 6c 65 6e 67 74 68 2c + int length,
3eb0: 20 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 63 68 result;. ch
3ec0: 61 72 20 2a 73 74 72 69 6e 67 3b 0a 20 0a 20 23 ar *string;. . #
3ed0: 69 66 64 65 66 20 54 43 4c 5f 43 4f 4d 50 49 4c ifdef TCL_COMPIL
3ee0: 45 5f 44 45 42 55 47 0a 40 40 20 2d 33 36 38 2c E_DEBUG.@@ -368,
3ef0: 32 31 20 2b 33 37 30 2c 31 35 20 40 40 0a 20 20 21 +370,15 @@.
3f00: 20 20 20 7d 0a 20 23 65 6e 64 69 66 0a 20 0a 2d }. #endif. .-
3f10: 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 65 76 if (iPtr->ev
3f20: 61 6c 46 6c 61 67 73 20 26 20 54 43 4c 5f 42 52 alFlags & TCL_BR
3f30: 41 43 4b 45 54 5f 54 45 52 4d 29 20 7b 0a 2d 09 ACKET_TERM) {.-.
3f40: 6e 65 73 74 65 64 20 3d 20 31 3b 0a 2d 20 20 20 nested = 1;.-
3f50: 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 6e 65 73 74 } else {.-.nest
3f60: 65 64 20 3d 20 30 3b 0a 2d 20 20 20 20 7d 0a 20 ed = 0;.- }.
3f70: 20 20 20 20 73 74 72 69 6e 67 20 3d 20 54 63 6c string = Tcl
3f80: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
3f90: 6a 28 6f 62 6a 50 74 72 2c 20 26 6c 65 6e 67 74 j(objPtr, &lengt
3fa0: 68 29 3b 0a 20 20 20 20 20 54 63 6c 49 6e 69 74 h);. TclInit
3fb0: 43 6f 6d 70 69 6c 65 45 6e 76 28 69 6e 74 65 72 CompileEnv(inter
3fc0: 70 2c 20 26 63 6f 6d 70 45 6e 76 2c 20 73 74 72 p, &compEnv, str
3fd0: 69 6e 67 2c 20 6c 65 6e 67 74 68 29 3b 0a 2d 20 ing, length);.-
3fe0: 20 20 20 72 65 73 75 6c 74 20 3d 20 54 63 6c 43 result = TclC
3ff0: 6f 6d 70 69 6c 65 53 63 72 69 70 74 28 69 6e 74 ompileScript(int
4000: 65 72 70 2c 20 73 74 72 69 6e 67 2c 20 6c 65 6e erp, string, len
4010: 67 74 68 2c 20 6e 65 73 74 65 64 2c 20 26 63 6f gth, nested, &co
4020: 6d 70 45 6e 76 29 3b 0a 2b 20 20 20 20 72 65 73 mpEnv);.+ res
4030: 75 6c 74 20 3d 20 54 63 6c 43 6f 6d 70 69 6c 65 ult = TclCompile
4040: 53 63 72 69 70 74 28 69 6e 74 65 72 70 2c 20 73 Script(interp, s
4050: 74 72 69 6e 67 2c 20 6c 65 6e 67 74 68 2c 20 26 tring, length, &
4060: 63 6f 6d 70 45 6e 76 29 3b 0a 20 0a 20 20 20 20 compEnv);. .
4070: 20 69 66 20 28 72 65 73 75 6c 74 20 3d 3d 20 54 if (result == T
4080: 43 4c 5f 4f 4b 29 20 7b 0a 20 09 2f 2a 0a 20 09 CL_OK) {. ./*. .
4090: 20 2a 20 53 75 63 63 65 73 73 66 75 6c 20 63 6f * Successful co
40a0: 6d 70 69 6c 61 74 69 6f 6e 2e 20 41 64 64 20 61 mpilation. Add a
40b0: 20 22 64 6f 6e 65 22 20 69 6e 73 74 72 75 63 74 "done" instruct
40c0: 69 6f 6e 20 61 74 20 74 68 65 20 65 6e 64 2e 0a ion at the end..
40d0: 20 09 20 2a 2f 0a 20 0a 2d 09 63 6f 6d 70 45 6e . */. .-.compEn
40e0: 76 2e 6e 75 6d 53 72 63 42 79 74 65 73 20 3d 20 v.numSrcBytes =
40f0: 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 73 65 74 iPtr->termOffset
4100: 3b 0a 20 09 54 63 6c 45 6d 69 74 4f 70 63 6f 64 ;. .TclEmitOpcod
4110: 65 28 49 4e 53 54 5f 44 4f 4e 45 2c 20 26 63 6f e(INST_DONE, &co
4120: 6d 70 45 6e 76 29 3b 0a 20 0a 20 09 2f 2a 0a 40 mpEnv);. . ./*.@
4130: 40 20 2d 37 38 36 2c 31 30 20 2b 37 38 32 2c 36 @ -786,10 +782,6
4140: 20 40 40 0a 20 20 2a 09 6f 6e 20 66 61 69 6c 75 @@. *.on failu
4150: 72 65 2e 20 49 66 20 54 43 4c 5f 45 52 52 4f 52 re. If TCL_ERROR
4160: 20 69 73 20 72 65 74 75 72 6e 65 64 2c 20 74 68 is returned, th
4170: 65 6e 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 en the interpret
4180: 65 72 27 73 20 72 65 73 75 6c 74 0a 20 20 2a 09 er's result. *.
4190: 63 6f 6e 74 61 69 6e 73 20 61 6e 20 65 72 72 6f contains an erro
41a0: 72 20 6d 65 73 73 61 67 65 2e 0a 20 20 2a 0a 2d r message.. *.-
41b0: 20 2a 09 69 6e 74 65 72 70 2d 3e 74 65 72 6d 4f *.interp->termO
41c0: 66 66 73 65 74 20 69 73 20 73 65 74 20 74 6f 20 ffset is set to
41d0: 74 68 65 20 6f 66 66 73 65 74 20 6f 66 20 74 68 the offset of th
41e0: 65 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 e character in t
41f0: 68 65 0a 2d 20 2a 09 73 63 72 69 70 74 20 6a 75 he.- *.script ju
4200: 73 74 20 61 66 74 65 72 20 74 68 65 20 6c 61 73 st after the las
4210: 74 20 6f 6e 65 20 73 75 63 63 65 73 73 66 75 6c t one successful
4220: 6c 79 20 70 72 6f 63 65 73 73 65 64 3b 20 74 68 ly processed; th
4230: 69 73 20 77 69 6c 6c 20 62 65 0a 2d 20 2a 09 74 is will be.- *.t
4240: 68 65 20 6f 66 66 73 65 74 20 6f 66 20 74 68 65 he offset of the
4250: 20 27 5d 27 20 69 66 20 28 66 6c 61 67 73 20 26 ']' if (flags &
4260: 20 54 43 4c 5f 42 52 41 43 4b 45 54 5f 54 45 52 TCL_BRACKET_TER
4270: 4d 29 2e 0a 2d 20 2a 0a 20 20 2a 20 53 69 64 65 M)..- *. * Side
4280: 20 65 66 66 65 63 74 73 3a 0a 20 20 2a 09 41 64 effects:. *.Ad
4290: 64 73 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 ds instructions
42a0: 74 6f 20 65 6e 76 50 74 72 20 74 6f 20 65 76 61 to envPtr to eva
42b0: 6c 75 61 74 65 20 74 68 65 20 73 63 72 69 70 74 luate the script
42c0: 20 61 74 20 72 75 6e 74 69 6d 65 2e 0a 20 20 2a at runtime.. *
42d0: 0a 40 40 20 2d 37 39 37 2c 37 20 2b 37 38 39 2c .@@ -797,7 +789,
42e0: 37 20 40 40 0a 20 20 2a 2f 0a 20 0a 20 69 6e 74 7 @@. */. . int
42f0: 0a 2d 54 63 6c 43 6f 6d 70 69 6c 65 53 63 72 69 .-TclCompileScri
4300: 70 74 28 69 6e 74 65 72 70 2c 20 73 63 72 69 70 pt(interp, scrip
4310: 74 2c 20 6e 75 6d 42 79 74 65 73 2c 20 6e 65 73 t, numBytes, nes
4320: 74 65 64 2c 20 65 6e 76 50 74 72 29 0a 2b 54 63 ted, envPtr).+Tc
4330: 6c 43 6f 6d 70 69 6c 65 53 63 72 69 70 74 28 69 lCompileScript(i
4340: 6e 74 65 72 70 2c 20 73 63 72 69 70 74 2c 20 6e nterp, script, n
4350: 75 6d 42 79 74 65 73 2c 20 65 6e 76 50 74 72 29 umBytes, envPtr)
4360: 0a 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 . Tcl_Interp
4370: 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a 20 55 73 *interp;../* Us
4380: 65 64 20 66 6f 72 20 65 72 72 6f 72 20 61 6e 64 ed for error and
4390: 20 73 74 61 74 75 73 20 72 65 70 6f 72 74 69 6e status reportin
43a0: 67 2e 0a 20 09 09 09 09 20 2a 20 41 6c 73 6f 20 g.. .... * Also
43b0: 73 65 72 76 65 73 20 61 73 20 63 6f 6e 74 65 78 serves as contex
43c0: 74 20 66 6f 72 20 66 69 6e 64 69 6e 67 20 61 6e t for finding an
43d0: 64 0a 20 09 09 09 09 20 2a 20 63 6f 6d 70 69 6c d. .... * compil
43e0: 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 4d ing commands. M
43f0: 61 79 20 6e 6f 74 20 62 65 20 4e 55 4c 4c 2e 20 ay not be NULL.
4400: 2a 2f 0a 40 40 20 2d 38 30 35 2c 31 30 20 2b 37 */.@@ -805,10 +7
4410: 39 37 2c 36 20 40 40 0a 20 20 20 20 20 69 6e 74 97,6 @@. int
4420: 20 6e 75 6d 42 79 74 65 73 3b 09 09 2f 2a 20 4e numBytes;../* N
4430: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 umber of bytes i
4440: 6e 20 73 63 72 69 70 74 2e 20 49 66 20 3c 20 30 n script. If < 0
4450: 2c 20 74 68 65 0a 20 09 09 09 09 20 2a 20 73 63 , the. .... * sc
4460: 72 69 70 74 20 63 6f 6e 73 69 73 74 73 20 6f 66 ript consists of
4470: 20 61 6c 6c 20 62 79 74 65 73 20 75 70 20 74 6f all bytes up to
4480: 20 74 68 65 0a 20 09 09 09 09 20 2a 20 66 69 72 the. .... * fir
4490: 73 74 20 6e 75 6c 6c 20 63 68 61 72 61 63 74 65 st null characte
44a0: 72 2e 20 2a 2f 0a 2d 20 20 20 20 69 6e 74 20 6e r. */.- int n
44b0: 65 73 74 65 64 3b 09 09 09 2f 2a 20 4e 6f 6e 2d ested;.../* Non-
44c0: 7a 65 72 6f 20 6d 65 61 6e 73 20 74 68 69 73 20 zero means this
44d0: 69 73 20 61 20 6e 65 73 74 65 64 20 63 6f 6d 6d is a nested comm
44e0: 61 6e 64 3a 0a 2d 09 09 09 09 20 2a 20 63 6c 6f and:.-.... * clo
44f0: 73 65 20 62 72 61 63 6b 65 74 20 27 5d 27 20 73 se bracket ']' s
4500: 68 6f 75 6c 64 20 62 65 20 63 6f 6e 73 69 64 65 hould be conside
4510: 72 65 64 20 61 0a 2d 09 09 09 09 20 2a 20 63 6f red a.-.... * co
4520: 6d 6d 61 6e 64 20 74 65 72 6d 69 6e 61 74 6f 72 mmand terminator
4530: 2e 20 49 66 20 7a 65 72 6f 2c 20 63 6c 6f 73 65 . If zero, close
4540: 0a 2d 09 09 09 09 20 2a 20 62 72 61 63 6b 65 74 .-.... * bracket
4550: 20 68 61 73 20 6e 6f 20 73 70 65 63 69 61 6c 20 has no special
4560: 6d 65 61 6e 69 6e 67 2e 20 2a 2f 0a 20 20 20 20 meaning. */.
4570: 20 43 6f 6d 70 69 6c 65 45 6e 76 20 2a 65 6e 76 CompileEnv *env
4580: 50 74 72 3b 09 09 2f 2a 20 48 6f 6c 64 73 20 72 Ptr;../* Holds r
4590: 65 73 75 6c 74 69 6e 67 20 69 6e 73 74 72 75 63 esulting instruc
45a0: 74 69 6f 6e 73 2e 20 2a 2f 0a 20 7b 0a 20 20 20 tions. */. {.
45b0: 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d Interp *iPtr =
45c0: 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 (Interp *) inte
45d0: 72 70 3b 0a 40 40 20 2d 38 34 35 2c 35 35 20 2b rp;.@@ -845,55 +
45e0: 38 33 33 2c 31 31 20 40 40 0a 20 20 20 20 20 62 833,11 @@. b
45f0: 79 74 65 73 4c 65 66 74 20 3d 20 6e 75 6d 42 79 ytesLeft = numBy
4600: 74 65 73 3b 0a 20 20 20 20 20 67 6f 74 50 61 72 tes;. gotPar
4610: 73 65 20 3d 20 30 3b 0a 20 20 20 20 20 64 6f 20 se = 0;. do
4620: 7b 0a 2d 09 69 66 20 28 54 63 6c 5f 50 61 72 73 {.-.if (Tcl_Pars
4630: 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c eCommand(interp,
4640: 20 70 2c 20 62 79 74 65 73 4c 65 66 74 2c 20 6e p, bytesLeft, n
4650: 65 73 74 65 64 2c 20 26 70 61 72 73 65 29 20 21 ested, &parse) !
4660: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 69 66 = TCL_OK) {.+.if
4670: 20 28 54 63 6c 5f 50 61 72 73 65 43 6f 6d 6d 61 (Tcl_ParseComma
4680: 6e 64 28 69 6e 74 65 72 70 2c 20 70 2c 20 62 79 nd(interp, p, by
4690: 74 65 73 4c 65 66 74 2c 20 30 2c 20 26 70 61 72 tesLeft, 0, &par
46a0: 73 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b se) != TCL_OK) {
46b0: 0a 20 09 20 20 20 20 63 6f 64 65 20 3d 20 54 43 . . code = TC
46c0: 4c 5f 45 52 52 4f 52 3b 0a 20 09 20 20 20 20 67 L_ERROR;. . g
46d0: 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 09 7d 0a 20 oto error;. .}.
46e0: 09 67 6f 74 50 61 72 73 65 20 3d 20 31 3b 0a 2d .gotParse = 1;.-
46f0: 09 69 66 20 28 6e 65 73 74 65 64 29 20 7b 0a 2d .if (nested) {.-
4700: 09 20 20 20 20 2f 2a 0a 2d 09 20 20 20 20 20 2a . /*.-. *
4710: 20 54 68 69 73 20 69 73 20 61 6e 20 75 6e 75 73 This is an unus
4720: 75 61 6c 20 73 69 74 75 61 74 69 6f 6e 20 77 68 ual situation wh
4730: 65 72 65 20 74 68 65 20 63 61 6c 6c 65 72 20 68 ere the caller h
4740: 61 73 20 70 61 73 73 65 64 20 75 73 0a 2d 09 20 as passed us.-.
4750: 20 20 20 20 2a 20 61 20 6e 6f 6e 2d 7a 65 72 6f * a non-zero
4760: 20 76 61 6c 75 65 20 66 6f 72 20 22 6e 65 73 74 value for "nest
4770: 65 64 22 2e 20 20 48 6f 77 20 75 6e 75 73 75 61 ed". How unusua
4780: 6c 3f 20 20 57 65 6c 6c 2c 20 74 68 69 73 0a 2d l? Well, this.-
4790: 09 20 20 20 20 20 2a 20 70 72 6f 63 65 64 75 72 . * procedur
47a0: 65 2c 20 54 63 6c 43 6f 6d 70 69 6c 65 53 63 72 e, TclCompileScr
47b0: 69 70 74 2c 20 69 73 20 69 6e 74 65 72 6e 61 6c ipt, is internal
47c0: 20 74 6f 20 54 63 6c 2c 20 73 6f 20 61 6c 6c 0a to Tcl, so all.
47d0: 2d 09 20 20 20 20 20 2a 20 63 61 6c 6c 65 72 73 -. * callers
47e0: 20 73 68 6f 75 6c 64 20 62 65 20 77 69 74 68 69 should be withi
47f0: 6e 20 54 63 6c 20 69 74 73 65 6c 66 2e 20 20 41 n Tcl itself. A
4800: 6c 6c 20 62 75 74 20 6f 6e 65 20 6f 66 20 74 68 ll but one of th
4810: 6f 73 65 0a 2d 09 20 20 20 20 20 2a 20 63 61 6c ose.-. * cal
4820: 6c 65 72 73 20 65 78 70 6c 69 63 69 74 6c 79 20 lers explicitly
4830: 70 61 73 73 20 69 6e 20 28 6e 65 73 74 65 64 20 pass in (nested
4840: 3d 20 30 29 2e 20 20 54 68 65 20 65 78 63 65 70 = 0). The excep
4850: 74 69 6f 6e 61 6c 0a 2d 09 20 20 20 20 20 2a 20 tional.-. *
4860: 63 61 6c 6c 65 72 20 69 73 20 54 63 6c 53 65 74 caller is TclSet
4870: 42 79 74 65 43 6f 64 65 46 72 6f 6d 41 6e 79 2c ByteCodeFromAny,
4880: 20 77 68 69 63 68 20 77 69 6c 6c 20 70 61 73 73 which will pass
4890: 20 69 6e 0a 2d 09 20 20 20 20 20 2a 20 28 6e 65 in.-. * (ne
48a0: 73 74 65 64 20 3d 20 31 29 20 69 66 20 61 6e 64 sted = 1) if and
48b0: 20 6f 6e 6c 79 20 69 66 20 74 68 65 20 66 6c 61 only if the fla
48c0: 67 20 54 43 4c 5f 42 52 41 43 4b 45 54 5f 54 45 g TCL_BRACKET_TE
48d0: 52 4d 0a 2d 09 20 20 20 20 20 2a 20 69 73 20 73 RM.-. * is s
48e0: 65 74 20 69 6e 20 74 68 65 20 65 76 61 6c 46 6c et in the evalFl
48f0: 61 67 73 20 66 69 65 6c 64 20 6f 66 20 69 6e 74 ags field of int
4900: 65 72 70 2e 0a 2d 09 20 20 20 20 20 2a 0a 2d 09 erp..-. *.-.
4910: 20 20 20 20 20 2a 20 49 74 20 61 70 70 65 61 72 * It appear
4920: 73 20 74 68 61 74 20 74 68 65 20 54 43 4c 5f 42 s that the TCL_B
4930: 52 41 43 4b 45 54 5f 54 45 52 4d 20 66 6c 61 67 RACKET_TERM flag
4940: 20 69 73 20 6f 6e 6c 79 20 65 76 65 72 20 73 65 is only ever se
4950: 74 0a 2d 09 20 20 20 20 20 2a 20 62 79 20 54 63 t.-. * by Tc
4960: 6c 5f 53 75 62 73 74 4f 62 6a 2c 20 61 6e 64 20 l_SubstObj, and
4970: 69 74 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 63 it immediately c
4980: 61 6c 6c 73 20 54 63 6c 5f 45 76 61 6c 45 78 0a alls Tcl_EvalEx.
4990: 2d 09 20 20 20 20 20 2a 20 77 68 69 63 68 20 63 -. * which c
49a0: 6c 65 61 72 73 20 74 68 65 20 66 6c 61 67 20 62 lears the flag b
49b0: 65 66 6f 72 65 20 70 61 73 73 69 6e 67 20 74 68 efore passing th
49c0: 65 20 69 6e 74 65 72 70 20 61 6c 6f 6e 67 2e 0a e interp along..
49d0: 2d 09 20 20 20 20 20 2a 20 53 6f 2c 20 49 20 64 -. * So, I d
49e0: 6f 6e 27 74 20 74 68 69 6e 6b 20 74 68 69 73 20 on't think this
49f0: 70 72 6f 63 65 64 75 72 65 2c 20 54 63 6c 43 6f procedure, TclCo
4a00: 6d 70 69 6c 65 53 63 72 69 70 74 2c 20 69 73 0a mpileScript, is.
4a10: 2d 09 20 20 20 20 20 2a 20 2a 2a 65 76 65 72 2a -. * **ever*
4a20: 2a 20 63 61 6c 6c 65 64 20 77 69 74 68 20 28 6e * called with (n
4a30: 65 73 74 65 64 20 21 3d 20 30 29 2e 20 0a 2d 09 ested != 0). .-.
4a40: 20 20 20 20 20 2a 20 28 54 68 65 20 74 65 73 74 * (The test
4a50: 73 75 69 74 65 20 69 6e 64 65 65 64 20 64 6f 65 suite indeed doe
4a60: 73 6e 27 74 20 65 78 65 72 63 69 73 65 20 74 68 sn't exercise th
4a70: 69 73 20 63 6f 64 65 2e 20 4d 53 29 0a 2d 09 20 is code. MS).-.
4a80: 20 20 20 20 2a 0a 2d 09 20 20 20 20 20 2a 20 54 *.-. * T
4a90: 68 69 73 20 6d 65 61 6e 73 20 74 68 61 74 20 74 his means that t
4aa0: 68 65 20 62 72 61 6e 63 68 65 73 20 69 6e 20 74 he branches in t
4ab0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 74 68 his procedure th
4ac0: 61 74 20 61 72 65 0a 2d 09 20 20 20 20 20 2a 20 at are.-. *
4ad0: 6f 6e 6c 79 20 61 63 74 69 76 65 20 77 68 65 6e only active when
4ae0: 20 28 6e 65 73 74 65 64 20 21 3d 20 30 29 20 61 (nested != 0) a
4af0: 72 65 20 70 72 6f 62 61 62 6c 79 20 6e 65 76 65 re probably neve
4b00: 72 20 65 78 65 72 63 69 73 65 64 2e 0a 2d 09 20 r exercised..-.
4b10: 20 20 20 20 2a 20 54 68 69 73 20 6d 65 61 6e 73 * This means
4b20: 20 74 68 61 74 20 61 6e 79 20 62 75 67 73 20 69 that any bugs i
4b30: 6e 20 74 68 65 6d 20 67 6f 20 75 6e 6e 6f 74 69 n them go unnoti
4b40: 63 65 64 2c 20 61 6e 64 20 61 6e 79 20 62 75 67 ced, and any bug
4b50: 0a 2d 09 20 20 20 20 20 2a 20 66 69 78 65 73 20 .-. * fixes
4b60: 69 6e 20 74 68 65 6d 20 68 61 76 65 20 61 20 73 in them have a s
4b70: 65 6d 69 2d 74 68 65 6f 72 65 74 69 63 61 6c 20 emi-theoretical
4b80: 6e 61 74 75 72 65 2e 0a 2d 09 20 20 20 20 20 2a nature..-. *
4b90: 0a 2d 09 20 20 20 20 20 2a 20 41 6c 6c 20 74 68 .-. * All th
4ba0: 61 74 20 73 61 69 64 2c 20 74 68 65 20 73 70 65 at said, the spe
4bb0: 63 20 66 6f 72 20 74 68 69 73 20 70 72 6f 63 65 c for this proce
4bc0: 64 75 72 65 20 73 61 79 73 20 69 74 20 73 68 6f dure says it sho
4bd0: 75 6c 64 0a 2d 09 20 20 20 20 20 2a 20 68 61 6e uld.-. * han
4be0: 64 6c 65 20 74 68 65 20 28 6e 65 73 74 65 64 20 dle the (nested
4bf0: 21 3d 20 30 29 20 63 61 73 65 2c 20 73 6f 20 68 != 0) case, so h
4c00: 65 72 65 27 73 20 61 6e 20 61 74 74 65 6d 70 74 ere's an attempt
4c10: 20 74 6f 20 66 69 78 0a 2d 09 20 20 20 20 20 2a to fix.-. *
4c20: 20 62 75 67 73 20 28 54 63 6c 20 42 75 67 20 36 bugs (Tcl Bug 6
4c30: 38 31 38 34 31 29 20 69 6e 20 74 68 61 74 20 63 81841) in that c
4c40: 61 73 65 2e 20 20 4a 75 73 74 20 69 6e 20 63 61 ase. Just in ca
4c50: 73 65 20 73 6f 6d 65 0a 2d 09 20 20 20 20 20 2a se some.-. *
4c60: 20 63 61 6c 6c 65 72 73 20 65 76 65 6e 74 75 61 callers eventua
4c70: 6c 6c 79 20 63 6f 6d 65 20 61 6c 6f 6e 67 20 61 lly come along a
4c80: 6e 64 20 65 78 70 65 63 74 20 69 74 20 74 6f 20 nd expect it to
4c90: 77 6f 72 6b 2e 2e 2e 0a 2d 09 20 20 20 20 20 2a work....-. *
4ca0: 2f 0a 2d 0a 2d 09 20 20 20 20 69 66 20 28 70 61 /.-.-. if (pa
4cb0: 72 73 65 2e 74 65 72 6d 20 3d 3d 20 28 73 63 72 rse.term == (scr
4cc0: 69 70 74 20 2b 20 6e 75 6d 42 79 74 65 73 29 29 ipt + numBytes))
4cd0: 20 7b 0a 2d 09 09 2f 2a 20 0a 2d 09 09 20 2a 20 {.-../* .-.. *
4ce0: 54 68 65 20 28 6e 65 73 74 65 64 20 21 3d 20 30 The (nested != 0
4cf0: 29 20 63 61 73 65 20 69 73 20 6d 65 61 6e 74 20 ) case is meant
4d00: 74 6f 20 69 6e 64 69 63 61 74 65 20 74 68 61 74 to indicate that
4d10: 20 74 68 65 0a 2d 09 09 20 2a 20 63 61 6c 6c 65 the.-.. * calle
4d20: 72 20 66 6f 75 6e 64 20 61 6e 20 6f 70 65 6e 20 r found an open
4d30: 62 72 61 63 6b 65 74 20 28 5b 29 20 61 6e 64 20 bracket ([) and
4d40: 61 73 6b 65 64 20 75 73 20 74 6f 0a 2d 09 09 20 asked us to.-..
4d50: 2a 20 70 61 72 73 65 20 61 6e 64 20 63 6f 6d 70 * parse and comp
4d60: 69 6c 65 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 73 ile Tcl commands
4d70: 20 75 70 20 74 6f 20 74 68 65 20 6d 61 74 63 68 up to the match
4d80: 69 6e 67 0a 2d 09 09 20 2a 20 63 6c 6f 73 65 20 ing.-.. * close
4d90: 62 72 61 63 6b 65 74 20 28 5d 29 2e 20 20 57 65 bracket (]). We
4da0: 20 68 61 76 65 20 74 6f 20 64 65 74 65 63 74 20 have to detect
4db0: 61 6e 64 20 68 61 6e 64 6c 65 0a 2d 09 09 20 2a and handle.-.. *
4dc0: 20 74 68 65 20 63 61 73 65 20 77 68 65 72 65 20 the case where
4dd0: 74 68 65 20 63 6c 6f 73 65 20 62 72 61 63 6b 65 the close bracke
4de0: 74 20 69 73 20 6d 69 73 73 69 6e 67 2e 0a 2d 09 t is missing..-.
4df0: 09 20 2a 2f 0a 2d 0a 2d 09 09 54 63 6c 5f 53 65 . */.-.-..Tcl_Se
4e00: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
4e10: 70 2c 0a 2d 09 09 09 54 63 6c 5f 4e 65 77 53 74 p,.-...Tcl_NewSt
4e20: 72 69 6e 67 4f 62 6a 28 22 6d 69 73 73 69 6e 67 ringObj("missing
4e30: 20 63 6c 6f 73 65 2d 62 72 61 63 6b 65 74 22 2c close-bracket",
4e40: 20 2d 31 29 29 3b 0a 2d 09 09 63 6f 64 65 20 3d -1));.-..code =
4e50: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2d 09 09 67 TCL_ERROR;.-..g
4e60: 6f 74 6f 20 65 72 72 6f 72 3b 0a 2d 09 20 20 20 oto error;.-.
4e70: 20 7d 0a 2d 09 7d 0a 20 09 69 66 20 28 70 61 72 }.-.}. .if (par
4e80: 73 65 2e 6e 75 6d 57 6f 72 64 73 20 3e 20 30 29 se.numWords > 0)
4e90: 20 7b 0a 20 09 20 20 20 20 2f 2a 0a 20 09 20 20 {. . /*. .
4ea0: 20 20 20 2a 20 49 66 20 6e 6f 74 20 74 68 65 20 * If not the
4eb0: 66 69 72 73 74 20 63 6f 6d 6d 61 6e 64 2c 20 70 first command, p
4ec0: 6f 70 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 op the previous
4ed0: 63 6f 6d 6d 61 6e 64 27 73 20 72 65 73 75 6c 74 command's result
4ee0: 0a 40 40 20 2d 39 30 33 2c 31 31 20 2b 38 34 37 .@@ -903,11 +847
4ef0: 2c 38 20 40 40 0a 20 0a 20 09 20 20 20 20 69 66 ,8 @@. . . if
4f00: 20 28 21 69 73 46 69 72 73 74 43 6d 64 29 20 7b (!isFirstCmd) {
4f10: 0a 20 09 09 54 63 6c 45 6d 69 74 4f 70 63 6f 64 . ..TclEmitOpcod
4f20: 65 28 49 4e 53 54 5f 50 4f 50 2c 20 65 6e 76 50 e(INST_POP, envP
4f30: 74 72 29 3b 0a 2d 09 09 69 66 20 28 21 6e 65 73 tr);.-..if (!nes
4f40: 74 65 64 29 20 7b 0a 2d 09 09 20 20 20 20 65 6e ted) {.-.. en
4f50: 76 50 74 72 2d 3e 63 6d 64 4d 61 70 50 74 72 5b vPtr->cmdMapPtr[
4f60: 6c 61 73 74 54 6f 70 4c 65 76 65 6c 43 6d 64 49 lastTopLevelCmdI
4f70: 6e 64 65 78 5d 2e 6e 75 6d 43 6f 64 65 42 79 74 ndex].numCodeByt
4f80: 65 73 20 3d 0a 2d 09 09 09 20 20 20 28 65 6e 76 es =.-... (env
4f90: 50 74 72 2d 3e 63 6f 64 65 4e 65 78 74 20 2d 20 Ptr->codeNext -
4fa0: 65 6e 76 50 74 72 2d 3e 63 6f 64 65 53 74 61 72 envPtr->codeStar
4fb0: 74 29 0a 2d 09 09 09 20 20 20 2d 20 73 74 61 72 t).-... - star
4fc0: 74 43 6f 64 65 4f 66 66 73 65 74 3b 0a 2d 09 09 tCodeOffset;.-..
4fd0: 7d 0a 2b 09 09 65 6e 76 50 74 72 2d 3e 63 6d 64 }.+..envPtr->cmd
4fe0: 4d 61 70 50 74 72 5b 6c 61 73 74 54 6f 70 4c 65 MapPtr[lastTopLe
4ff0: 76 65 6c 43 6d 64 49 6e 64 65 78 5d 2e 6e 75 6d velCmdIndex].num
5000: 43 6f 64 65 42 79 74 65 73 20 3d 0a 2b 09 09 09 CodeBytes =.+...
5010: 28 65 6e 76 50 74 72 2d 3e 63 6f 64 65 4e 65 78 (envPtr->codeNex
5020: 74 20 2d 20 65 6e 76 50 74 72 2d 3e 63 6f 64 65 t - envPtr->code
5030: 53 74 61 72 74 29 20 2d 20 73 74 61 72 74 43 6f Start) - startCo
5040: 64 65 4f 66 66 73 65 74 3b 0a 20 09 20 20 20 20 deOffset;. .
5050: 7d 0a 20 0a 20 09 20 20 20 20 2f 2a 0a 40 40 20 }. . . /*.@@
5060: 2d 39 33 31 2c 38 20 2b 38 37 32 2c 37 20 40 40 -931,8 +872,7 @@
5070: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a . *
5080: 20 49 66 20 74 72 61 63 69 6e 67 2c 20 70 72 69 If tracing, pri
5090: 6e 74 20 61 20 6c 69 6e 65 20 66 6f 72 20 65 61 nt a line for ea
50a0: 63 68 20 74 6f 70 20 6c 65 76 65 6c 20 63 6f 6d ch top level com
50b0: 6d 61 6e 64 20 63 6f 6d 70 69 6c 65 64 2e 0a 20 mand compiled..
50c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
50d0: 20 0a 2d 09 20 20 20 20 69 66 20 28 28 74 63 6c .-. if ((tcl
50e0: 54 72 61 63 65 43 6f 6d 70 69 6c 65 20 3e 3d 20 TraceCompile >=
50f0: 31 29 0a 2d 09 09 20 20 20 20 26 26 20 21 6e 65 1).-.. && !ne
5100: 73 74 65 64 20 26 26 20 28 65 6e 76 50 74 72 2d sted && (envPtr-
5110: 3e 70 72 6f 63 50 74 72 20 3d 3d 20 4e 55 4c 4c >procPtr == NULL
5120: 29 29 20 7b 0a 2b 09 20 20 20 20 69 66 20 28 28 )) {.+. if ((
5130: 74 63 6c 54 72 61 63 65 43 6f 6d 70 69 6c 65 20 tclTraceCompile
5140: 3e 3d 20 31 29 20 26 26 20 28 65 6e 76 50 74 72 >= 1) && (envPtr
5150: 2d 3e 70 72 6f 63 50 74 72 20 3d 3d 20 4e 55 4c ->procPtr == NUL
5160: 4c 29 29 20 7b 0a 20 09 09 66 70 72 69 6e 74 66 L)) {. ..fprintf
5170: 28 73 74 64 6f 75 74 2c 20 22 20 20 43 6f 6d 70 (stdout, " Comp
5180: 69 6c 69 6e 67 3a 20 22 29 3b 0a 20 09 09 54 63 iling: ");. ..Tc
5190: 6c 50 72 69 6e 74 53 6f 75 72 63 65 28 73 74 64 lPrintSource(std
51a0: 6f 75 74 2c 20 70 61 72 73 65 2e 63 6f 6d 6d 61 out, parse.comma
51b0: 6e 64 53 74 61 72 74 2c 0a 20 09 09 09 54 63 6c ndStart,. ...Tcl
51c0: 4d 69 6e 28 63 6f 6d 6d 61 6e 64 4c 65 6e 67 74 Min(commandLengt
51d0: 68 2c 20 35 35 29 29 3b 0a 40 40 20 2d 39 34 36 h, 55));.@@ -946
51e0: 2c 39 20 2b 38 38 36 2c 37 20 40 40 0a 20 09 20 ,9 +886,7 @@. .
51f0: 20 20 20 0a 20 09 20 20 20 20 65 6e 76 50 74 72 . . envPtr
5200: 2d 3e 6e 75 6d 43 6f 6d 6d 61 6e 64 73 2b 2b 3b ->numCommands++;
5210: 0a 20 09 20 20 20 20 63 75 72 72 43 6d 64 49 6e . . currCmdIn
5220: 64 65 78 20 3d 20 28 65 6e 76 50 74 72 2d 3e 6e dex = (envPtr->n
5230: 75 6d 43 6f 6d 6d 61 6e 64 73 20 2d 20 31 29 3b umCommands - 1);
5240: 0a 2d 09 20 20 20 20 69 66 20 28 21 6e 65 73 74 .-. if (!nest
5250: 65 64 29 20 7b 0a 2d 09 09 6c 61 73 74 54 6f 70 ed) {.-..lastTop
5260: 4c 65 76 65 6c 43 6d 64 49 6e 64 65 78 20 3d 20 LevelCmdIndex =
5270: 63 75 72 72 43 6d 64 49 6e 64 65 78 3b 0a 2d 09 currCmdIndex;.-.
5280: 20 20 20 20 7d 0a 2b 09 20 20 20 20 6c 61 73 74 }.+. last
5290: 54 6f 70 4c 65 76 65 6c 43 6d 64 49 6e 64 65 78 TopLevelCmdIndex
52a0: 20 3d 20 63 75 72 72 43 6d 64 49 6e 64 65 78 3b = currCmdIndex;
52b0: 0a 20 09 20 20 20 20 73 74 61 72 74 43 6f 64 65 . . startCode
52c0: 4f 66 66 73 65 74 20 3d 20 28 65 6e 76 50 74 72 Offset = (envPtr
52d0: 2d 3e 63 6f 64 65 4e 65 78 74 20 2d 20 65 6e 76 ->codeNext - env
52e0: 50 74 72 2d 3e 63 6f 64 65 53 74 61 72 74 29 3b Ptr->codeStart);
52f0: 0a 20 09 20 20 20 20 45 6e 74 65 72 43 6d 64 53 . . EnterCmdS
5300: 74 61 72 74 44 61 74 61 28 65 6e 76 50 74 72 2c tartData(envPtr,
5310: 20 63 75 72 72 43 6d 64 49 6e 64 65 78 2c 0a 20 currCmdIndex,.
5320: 09 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 . (pa
5330: 72 73 65 2e 63 6f 6d 6d 61 6e 64 53 74 61 72 74 rse.commandStart
5340: 20 2d 20 65 6e 76 50 74 72 2d 3e 73 6f 75 72 63 - envPtr->sourc
5350: 65 29 2c 20 73 74 61 72 74 43 6f 64 65 4f 66 66 e), startCodeOff
5360: 73 65 74 29 3b 0a 40 40 20 2d 31 30 37 31 2c 31 set);.@@ -1071,1
5370: 36 20 2b 31 30 30 39 2c 36 20 40 40 0a 20 09 70 6 +1009,6 @@. .p
5380: 20 3d 20 6e 65 78 74 3b 0a 20 09 54 63 6c 5f 46 = next;. .Tcl_F
5390: 72 65 65 50 61 72 73 65 28 26 70 61 72 73 65 29 reeParse(&parse)
53a0: 3b 0a 20 09 67 6f 74 50 61 72 73 65 20 3d 20 30 ;. .gotParse = 0
53b0: 3b 0a 2d 09 69 66 20 28 6e 65 73 74 65 64 20 26 ;.-.if (nested &
53c0: 26 20 28 2a 70 61 72 73 65 2e 74 65 72 6d 20 3d & (*parse.term =
53d0: 3d 20 27 5d 27 29 29 20 7b 0a 2d 09 20 20 20 20 = ']')) {.-.
53e0: 2f 2a 0a 2d 09 20 20 20 20 20 2a 20 57 65 20 67 /*.-. * We g
53f0: 65 74 20 68 65 72 65 20 69 6e 20 74 68 65 20 73 et here in the s
5400: 70 65 63 69 61 6c 20 63 61 73 65 20 77 68 65 72 pecial case wher
5410: 65 20 54 43 4c 5f 42 52 41 43 4b 45 54 5f 54 45 e TCL_BRACKET_TE
5420: 52 4d 20 77 61 73 0a 2d 09 20 20 20 20 20 2a 20 RM was.-. *
5430: 73 65 74 20 69 6e 20 74 68 65 20 69 6e 74 65 72 set in the inter
5440: 70 72 65 74 65 72 20 61 6e 64 20 74 68 65 20 6c preter and the l
5450: 61 74 65 73 74 20 70 61 72 73 65 64 20 63 6f 6d atest parsed com
5460: 6d 61 6e 64 20 77 61 73 0a 2d 09 20 20 20 20 20 mand was.-.
5470: 2a 20 74 65 72 6d 69 6e 61 74 65 64 20 62 79 20 * terminated by
5480: 74 68 65 20 6d 61 74 63 68 69 6e 67 20 63 6c 6f the matching clo
5490: 73 65 2d 62 72 61 63 6b 65 74 20 77 65 20 77 65 se-bracket we we
54a0: 72 65 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 2e 0a re looking for..
54b0: 2d 09 20 20 20 20 20 2a 20 53 74 6f 70 20 63 6f -. * Stop co
54c0: 6d 70 69 6c 61 74 69 6f 6e 2e 0a 2d 09 20 20 20 mpilation..-.
54d0: 20 20 2a 2f 0a 2d 09 20 20 20 20 0a 2d 09 20 20 */.-. .-.
54e0: 20 20 62 72 65 61 6b 3b 0a 2d 09 7d 0a 20 20 20 break;.-.}.
54f0: 20 20 7d 20 77 68 69 6c 65 20 28 62 79 74 65 73 } while (bytes
5500: 4c 65 66 74 20 3e 20 30 29 3b 0a 20 0a 20 20 20 Left > 0);. .
5510: 20 20 2f 2a 0a 40 40 20 2d 31 30 39 33 2c 31 37 /*.@@ -1093,17
5520: 20 2b 31 30 32 31 2c 37 20 40 40 0a 20 09 20 20 +1021,7 @@. .
5530: 20 20 20 20 20 20 65 6e 76 50 74 72 29 3b 0a 20 envPtr);.
5540: 20 20 20 20 7d 0a 20 20 20 20 20 0a 2d 20 20 20 }. .-
5550: 20 69 66 20 28 6e 65 73 74 65 64 29 20 7b 0a 2d if (nested) {.-
5560: 09 2f 2a 0a 2d 09 20 2a 20 57 68 65 6e 20 28 6e ./*.-. * When (n
5570: 65 73 74 65 64 20 21 3d 20 30 29 20 62 61 63 6b ested != 0) back
5580: 20 75 70 20 31 20 63 68 61 72 61 63 74 65 72 20 up 1 character
5590: 74 6f 20 68 61 76 65 20 0a 2d 09 20 2a 20 69 50 to have .-. * iP
55a0: 74 72 2d 3e 74 65 72 6d 4f 66 66 73 65 74 20 69 tr->termOffset i
55b0: 6e 64 69 63 61 74 65 20 74 68 65 20 6f 66 66 73 ndicate the offs
55c0: 65 74 20 74 6f 20 74 68 65 20 6d 61 74 63 68 69 et to the matchi
55d0: 6e 67 0a 2d 09 20 2a 20 63 6c 6f 73 65 2d 62 72 ng.-. * close-br
55e0: 61 63 6b 65 74 2e 0a 2d 09 20 2a 2f 0a 2d 0a 2d acket..-. */.-.-
55f0: 09 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 73 65 .iPtr->termOffse
5600: 74 20 3d 20 28 70 20 2d 20 31 29 20 2d 20 73 63 t = (p - 1) - sc
5610: 72 69 70 74 3b 0a 2d 20 20 20 20 7d 20 65 6c 73 ript;.- } els
5620: 65 20 7b 0a 2d 09 69 50 74 72 2d 3e 74 65 72 6d e {.-.iPtr->term
5630: 4f 66 66 73 65 74 20 3d 20 28 70 20 2d 20 73 63 Offset = (p - sc
5640: 72 69 70 74 29 3b 0a 2d 20 20 20 20 7d 0a 2b 20 ript);.- }.+
5650: 20 20 20 65 6e 76 50 74 72 2d 3e 6e 75 6d 53 72 envPtr->numSr
5660: 63 42 79 74 65 73 20 3d 20 28 70 20 2d 20 73 63 cBytes = (p - sc
5670: 72 69 70 74 29 3b 0a 20 20 20 20 20 54 63 6c 5f ript);. Tcl_
5680: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
5690: 3b 0a 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;. return TC
56a0: 4c 5f 4f 4b 3b 0a 20 09 0a 40 40 20 2d 31 31 33 L_OK;. ..@@ -113
56b0: 32 2c 37 20 2b 31 30 35 30 2c 37 20 40 40 0a 20 2,7 +1050,7 @@.
56c0: 20 20 20 20 69 66 20 28 67 6f 74 50 61 72 73 65 if (gotParse
56d0: 29 20 7b 0a 20 09 54 63 6c 5f 46 72 65 65 50 61 ) {. .Tcl_FreePa
56e0: 72 73 65 28 26 70 61 72 73 65 29 3b 0a 20 20 20 rse(&parse);.
56f0: 20 20 7d 0a 2d 20 20 20 20 69 50 74 72 2d 3e 74 }.- iPtr->t
5700: 65 72 6d 4f 66 66 73 65 74 20 3d 20 28 70 20 2d ermOffset = (p -
5710: 20 73 63 72 69 70 74 29 3b 0a 2b 20 20 20 20 65 script);.+ e
5720: 6e 76 50 74 72 2d 3e 6e 75 6d 53 72 63 42 79 74 nvPtr->numSrcByt
5730: 65 73 20 3d 20 28 70 20 2d 20 73 63 72 69 70 74 es = (p - script
5740: 29 3b 0a 20 20 20 20 20 54 63 6c 5f 44 53 74 72 );. Tcl_DStr
5750: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 ingFree(&ds);.
5760: 20 20 20 72 65 74 75 72 6e 20 63 6f 64 65 3b 0a return code;.
5770: 20 7d 0a 40 40 20 2d 31 32 30 37 2c 37 20 2b 31 }.@@ -1207,7 +1
5780: 31 32 35 2c 37 20 40 40 0a 20 09 09 7d 0a 20 09 125,7 @@. ..}. .
5790: 09 0a 20 09 09 63 6f 64 65 20 3d 20 54 63 6c 43 .. ..code = TclC
57a0: 6f 6d 70 69 6c 65 53 63 72 69 70 74 28 69 6e 74 ompileScript(int
57b0: 65 72 70 2c 20 74 6f 6b 65 6e 50 74 72 2d 3e 73 erp, tokenPtr->s
57c0: 74 61 72 74 2b 31 2c 0a 2d 09 09 09 74 6f 6b 65 tart+1,.-...toke
57d0: 6e 50 74 72 2d 3e 73 69 7a 65 2d 32 2c 20 2f 2a nPtr->size-2, /*
57e0: 6e 65 73 74 65 64 2a 2f 20 30 2c 09 65 6e 76 50 nested*/ 0,.envP
57f0: 74 72 29 3b 0a 2b 09 09 09 74 6f 6b 65 6e 50 74 tr);.+...tokenPt
5800: 72 2d 3e 73 69 7a 65 2d 32 2c 20 65 6e 76 50 74 r->size-2, envPt
5810: 72 29 3b 0a 20 09 09 69 66 20 28 63 6f 64 65 20 r);. ..if (code
5820: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 20 09 09 != TCL_OK) {. ..
5830: 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a goto error;.
5840: 20 09 09 7d 0a 40 40 20 2d 31 33 39 36 2c 38 20 ..}.@@ -1396,8
5850: 2b 31 33 31 34 2c 37 20 40 40 0a 20 20 20 20 20 +1314,7 @@.
5860: 20 2a 2f 0a 20 20 20 20 20 0a 20 20 20 20 20 69 */. . i
5870: 66 20 28 28 63 6f 75 6e 74 20 3d 3d 20 31 29 20 f ((count == 1)
5880: 26 26 20 28 74 6f 6b 65 6e 50 74 72 2d 3e 74 79 && (tokenPtr->ty
5890: 70 65 20 3d 3d 20 54 43 4c 5f 54 4f 4b 45 4e 5f pe == TCL_TOKEN_
58a0: 54 45 58 54 29 29 20 7b 0a 2d 09 63 6f 64 65 20 TEXT)) {.-.code
58b0: 3d 20 54 63 6c 43 6f 6d 70 69 6c 65 53 63 72 69 = TclCompileScri
58c0: 70 74 28 69 6e 74 65 72 70 2c 20 74 6f 6b 65 6e pt(interp, token
58d0: 50 74 72 2d 3e 73 74 61 72 74 2c 20 74 6f 6b 65 Ptr->start, toke
58e0: 6e 50 74 72 2d 3e 73 69 7a 65 2c 0a 2d 09 20 20 nPtr->size,.-.
58f0: 20 20 20 20 20 20 2f 2a 6e 65 73 74 65 64 2a 2f /*nested*/
5900: 20 30 2c 20 65 6e 76 50 74 72 29 3b 0a 2b 09 63 0, envPtr);.+.c
5910: 6f 64 65 20 3d 20 54 63 6c 43 6f 6d 70 69 6c 65 ode = TclCompile
5920: 53 63 72 69 70 74 28 69 6e 74 65 72 70 2c 20 74 Script(interp, t
5930: 6f 6b 65 6e 50 74 72 2d 3e 73 74 61 72 74 2c 20 okenPtr->start,
5940: 74 6f 6b 65 6e 50 74 72 2d 3e 73 69 7a 65 2c 20 tokenPtr->size,
5950: 65 6e 76 50 74 72 29 3b 0a 20 09 72 65 74 75 72 envPtr);. .retur
5960: 6e 20 63 6f 64 65 3b 0a 20 20 20 20 20 7d 0a 20 n code;. }.
5970: 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f .Index: generic/
5980: 74 63 6c 43 6f 6d 70 69 6c 65 2e 68 0a 3d 3d 3d tclCompile.h.===
5990: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
59a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
59b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
59c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
59d0: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
59e0: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 oot/tcl/tcl/gene
59f0: 72 69 63 2f 74 63 6c 43 6f 6d 70 69 6c 65 2e 68 ric/tclCompile.h
5a00: 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 ,v.retrieving re
5a10: 76 69 73 69 6f 6e 20 31 2e 33 34 0a 64 69 66 66 vision 1.34.diff
5a20: 20 2d 75 20 2d 72 31 2e 33 34 20 74 63 6c 43 6f -u -r1.34 tclCo
5a30: 6d 70 69 6c 65 2e 68 0a 2d 2d 2d 20 67 65 6e 65 mpile.h.--- gene
5a40: 72 69 63 2f 74 63 6c 43 6f 6d 70 69 6c 65 2e 68 ric/tclCompile.h
5a50: 09 35 20 4d 61 72 20 32 30 30 33 20 32 32 3a 33 .5 Mar 2003 22:3
5a60: 31 3a 32 33 20 2d 30 30 30 30 09 31 2e 33 34 0a 1:23 -0000.1.34.
5a70: 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 +++ generic/tclC
5a80: 6f 6d 70 69 6c 65 2e 68 09 38 20 4d 61 72 20 32 ompile.h.8 Mar 2
5a90: 30 30 33 20 32 31 3a 32 33 3a 32 38 20 2d 30 30 003 21:23:28 -00
5aa0: 30 30 0a 40 40 20 2d 37 34 38 2c 38 20 2b 37 34 00.@@ -748,8 +74
5ab0: 38 2c 37 20 40 40 0a 20 09 09 09 20 20 20 20 54 8,7 @@. ... T
5ac0: 63 6c 5f 54 6f 6b 65 6e 20 2a 74 6f 6b 65 6e 50 cl_Token *tokenP
5ad0: 74 72 2c 20 69 6e 74 20 6e 75 6d 57 6f 72 64 73 tr, int numWords
5ae0: 2c 0a 20 09 09 09 20 20 20 20 43 6f 6d 70 69 6c ,. ... Compil
5af0: 65 45 6e 76 20 2a 65 6e 76 50 74 72 29 29 3b 0a eEnv *envPtr));.
5b00: 20 45 58 54 45 52 4e 20 69 6e 74 09 09 54 63 6c EXTERN int..Tcl
5b10: 43 6f 6d 70 69 6c 65 53 63 72 69 70 74 20 5f 41 CompileScript _A
5b20: 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 NSI_ARGS_((Tcl_I
5b30: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 2d nterp *interp,.-
5b40: 09 09 09 20 20 20 20 43 4f 4e 53 54 20 63 68 61 ... CONST cha
5b50: 72 20 2a 73 63 72 69 70 74 2c 20 69 6e 74 20 6e r *script, int n
5b60: 75 6d 42 79 74 65 73 2c 20 69 6e 74 20 6e 65 73 umBytes, int nes
5b70: 74 65 64 2c 0a 2d 09 09 09 20 20 20 20 43 6f 6d ted,.-... Com
5b80: 70 69 6c 65 45 6e 76 20 2a 65 6e 76 50 74 72 29 pileEnv *envPtr)
5b90: 29 3b 0a 2b 09 09 09 20 20 20 20 43 4f 4e 53 54 );.+... CONST
5ba0: 20 63 68 61 72 20 2a 73 63 72 69 70 74 2c 20 69 char *script, i
5bb0: 6e 74 20 6e 75 6d 42 79 74 65 73 2c 20 43 6f 6d nt numBytes, Com
5bc0: 70 69 6c 65 45 6e 76 20 2a 65 6e 76 50 74 72 29 pileEnv *envPtr)
5bd0: 29 3b 0a 20 45 58 54 45 52 4e 20 69 6e 74 09 09 );. EXTERN int..
5be0: 54 63 6c 43 6f 6d 70 69 6c 65 54 6f 6b 65 6e 73 TclCompileTokens
5bf0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 _ANSI_ARGS_((Tc
5c00: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
5c10: 2c 0a 20 09 09 09 20 20 20 20 54 63 6c 5f 54 6f ,. ... Tcl_To
5c20: 6b 65 6e 20 2a 74 6f 6b 65 6e 50 74 72 2c 20 69 ken *tokenPtr, i
5c30: 6e 74 20 63 6f 75 6e 74 2c 0a 20 09 09 09 20 20 nt count,. ...
5c40: 20 20 43 6f 6d 70 69 6c 65 45 6e 76 20 2a 65 6e CompileEnv *en
5c50: 76 50 74 72 29 29 3b 0a 49 6e 64 65 78 3a 20 67 vPtr));.Index: g
5c60: 65 6e 65 72 69 63 2f 74 63 6c 45 78 65 63 75 74 eneric/tclExecut
5c70: 65 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d e.c.============
5c80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5c90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5cb0: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
5cc0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
5cd0: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 45 78 cl/generic/tclEx
5ce0: 65 63 75 74 65 2e 63 2c 76 0a 72 65 74 72 69 65 ecute.c,v.retrie
5cf0: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
5d00: 39 34 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 39 94.diff -u -r1.9
5d10: 34 20 74 63 6c 45 78 65 63 75 74 65 2e 63 0a 2d 4 tclExecute.c.-
5d20: 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 45 78 -- generic/tclEx
5d30: 65 63 75 74 65 2e 63 09 31 39 20 46 65 62 20 32 ecute.c.19 Feb 2
5d40: 30 30 33 20 31 34 3a 33 33 3a 33 39 20 2d 30 30 003 14:33:39 -00
5d50: 30 30 09 31 2e 39 34 0a 2b 2b 2b 20 67 65 6e 65 00.1.94.+++ gene
5d60: 72 69 63 2f 74 63 6c 45 78 65 63 75 74 65 2e 63 ric/tclExecute.c
5d70: 09 38 20 4d 61 72 20 32 30 30 33 20 32 31 3a 32 .8 Mar 2003 21:2
5d80: 34 3a 32 31 20 2d 30 30 30 30 0a 40 40 20 2d 38 4:21 -0000.@@ -8
5d90: 33 31 2c 37 20 2b 38 33 31 2c 36 20 40 40 0a 20 31,7 +831,6 @@.
5da0: 09 20 2a 20 61 6e 64 20 61 75 78 20 64 61 74 61 . * and aux data
5db0: 20 69 74 65 6d 73 20 69 73 20 67 69 76 65 6e 20 items is given
5dc0: 74 6f 20 74 68 65 20 42 79 74 65 43 6f 64 65 20 to the ByteCode
5dd0: 6f 62 6a 65 63 74 2e 0a 20 09 20 2a 2f 0a 20 0a object.. . */. .
5de0: 2d 09 63 6f 6d 70 45 6e 76 2e 6e 75 6d 53 72 63 -.compEnv.numSrc
5df0: 42 79 74 65 73 20 3d 20 69 50 74 72 2d 3e 74 65 Bytes = iPtr->te
5e00: 72 6d 4f 66 66 73 65 74 3b 0a 20 09 54 63 6c 45 rmOffset;. .TclE
5e10: 6d 69 74 4f 70 63 6f 64 65 28 49 4e 53 54 5f 44 mitOpcode(INST_D
5e20: 4f 4e 45 2c 20 26 63 6f 6d 70 45 6e 76 29 3b 0a ONE, &compEnv);.
5e30: 20 09 54 63 6c 49 6e 69 74 42 79 74 65 43 6f 64 .TclInitByteCod
5e40: 65 4f 62 6a 28 6f 62 6a 50 74 72 2c 20 26 63 6f eObj(objPtr, &co
5e50: 6d 70 45 6e 76 29 3b 0a 20 09 54 63 6c 46 72 65 mpEnv);. .TclFre
5e60: 65 43 6f 6d 70 69 6c 65 45 6e 76 28 26 63 6f 6d eCompileEnv(&com
5e70: 70 45 6e 76 29 3b 0a 40 40 20 2d 31 30 33 37 2c pEnv);.@@ -1037,
5e80: 31 36 20 2b 31 30 33 36 2c 37 20 40 40 0a 20 09 16 +1036,7 @@. .
5e90: 7d 0a 20 20 20 20 20 7d 0a 20 0a 2d 20 20 20 20 }. }. .-
5ea0: 2f 2a 0a 2d 20 20 20 20 20 2a 20 53 65 74 20 74 /*.- * Set t
5eb0: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 27 73 he interpreter's
5ec0: 20 74 65 72 6d 4f 66 66 73 65 74 20 6d 65 6d 62 termOffset memb
5ed0: 65 72 20 74 6f 20 74 68 65 20 6f 66 66 73 65 74 er to the offset
5ee0: 20 6f 66 20 74 68 65 0a 2d 20 20 20 20 20 2a 20 of the.- *
5ef0: 63 68 61 72 61 63 74 65 72 20 6a 75 73 74 20 61 character just a
5f00: 66 74 65 72 20 74 68 65 20 6c 61 73 74 20 6f 6e fter the last on
5f10: 65 20 65 78 65 63 75 74 65 64 2e 20 57 65 20 61 e executed. We a
5f20: 70 70 72 6f 78 69 6d 61 74 65 20 74 68 65 20 6f pproximate the o
5f30: 66 66 73 65 74 0a 2d 20 20 20 20 20 2a 20 6f 66 ffset.- * of
5f40: 20 74 68 65 20 6c 61 73 74 20 63 68 61 72 61 63 the last charac
5f50: 74 65 72 20 65 78 65 63 75 74 65 64 20 62 79 20 ter executed by
5f60: 75 73 69 6e 67 20 74 68 65 20 6e 75 6d 62 65 72 using the number
5f70: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 0a 2d of characters.-
5f80: 20 20 20 20 20 2a 20 63 6f 6d 70 69 6c 65 64 2e * compiled.
5f90: 20 0a 2d 20 20 20 20 20 2a 2f 0a 2d 0a 2d 20 20 .- */.-.-
5fa0: 20 20 69 50 74 72 2d 3e 74 65 72 6d 4f 66 66 73 iPtr->termOffs
5fb0: 65 74 20 3d 20 6e 75 6d 53 72 63 42 79 74 65 73 et = numSrcBytes
5fc0: 3b 0a 20 20 20 20 20 69 50 74 72 2d 3e 66 6c 61 ;. iPtr->fla
5fd0: 67 73 20 26 3d 20 7e 45 52 52 5f 41 4c 52 45 41 gs &= ~ERR_ALREA
5fe0: 44 59 5f 4c 4f 47 47 45 44 3b 0a 2d 0a 20 20 20 DY_LOGGED;.-.
5ff0: 20 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 3b return result;
6000: 0a 20 7d 0a 20 0c 0a 49 6e 64 65 78 3a 20 67 65 . }. ..Index: ge
6010: 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 0a 3d neric/tclInt.h.=
6020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6060: 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 ==.RCS file: /cv
6070: 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 sroot/tcl/tcl/ge
6080: 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 2c 76 neric/tclInt.h,v
6090: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 .retrieving revi
60a0: 73 69 6f 6e 20 31 2e 31 31 39 0a 64 69 66 66 20 sion 1.119.diff
60b0: 2d 75 20 2d 72 31 2e 31 31 39 20 74 63 6c 49 6e -u -r1.119 tclIn
60c0: 74 2e 68 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f t.h.--- generic/
60d0: 74 63 6c 49 6e 74 2e 68 09 35 20 4d 61 72 20 32 tclInt.h.5 Mar 2
60e0: 30 30 33 20 32 32 3a 33 31 3a 32 34 20 2d 30 30 003 22:31:24 -00
60f0: 30 30 09 31 2e 31 31 39 0a 2b 2b 2b 20 67 65 6e 00.1.119.+++ gen
6100: 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 38 20 eric/tclInt.h.8
6110: 4d 61 72 20 32 30 30 33 20 32 31 3a 32 34 3a 34 Mar 2003 21:24:4
6120: 37 20 2d 30 30 30 30 0a 40 40 20 2d 31 32 34 39 7 -0000.@@ -1249
6130: 2c 38 20 2b 31 32 34 39 2c 37 20 40 40 0a 20 09 ,8 +1249,7 @@. .
6140: 09 09 09 20 2a 20 4e 6f 72 6d 61 6c 6c 79 20 7a ... * Normally z
6150: 65 72 6f 2c 20 62 75 74 20 6d 61 79 20 62 65 20 ero, but may be
6160: 73 65 74 20 62 65 66 6f 72 65 0a 20 09 09 09 09 set before. ....
6170: 20 2a 20 63 61 6c 6c 69 6e 67 20 54 63 6c 5f 45 * calling Tcl_E
6180: 76 61 6c 2e 20 20 53 65 65 20 62 65 6c 6f 77 20 val. See below
6190: 66 6f 72 20 76 61 6c 69 64 0a 20 09 09 09 09 20 for valid. ....
61a0: 2a 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 2d 20 20 * values. */.-
61b0: 20 20 69 6e 74 20 74 65 72 6d 4f 66 66 73 65 74 int termOffset
61c0: 3b 09 09 2f 2a 20 4f 66 66 73 65 74 20 6f 66 20 ;../* Offset of
61d0: 63 68 61 72 61 63 74 65 72 20 6a 75 73 74 20 61 character just a
61e0: 66 74 65 72 20 6c 61 73 74 20 6f 6e 65 0a 2d 09 fter last one.-.
61f0: 09 09 09 20 2a 20 63 6f 6d 70 69 6c 65 64 20 6f ... * compiled o
6200: 72 20 65 78 65 63 75 74 65 64 20 62 79 20 54 63 r executed by Tc
6210: 6c 5f 45 76 61 6c 4f 62 6a 2e 20 2a 2f 0a 2b 20 l_EvalObj. */.+
6220: 20 20 20 69 6e 74 20 75 6e 75 73 65 64 31 3b 09 int unused1;.
6230: 09 2f 2a 20 4e 6f 20 6c 6f 6e 67 65 72 20 75 73 ./* No longer us
6240: 65 64 20 28 77 61 73 20 74 65 72 6d 4f 66 66 73 ed (was termOffs
6250: 65 74 29 20 2a 2f 0a 20 20 20 20 20 4c 69 74 65 et) */. Lite
6260: 72 61 6c 54 61 62 6c 65 20 6c 69 74 65 72 61 6c ralTable literal
6270: 54 61 62 6c 65 3b 09 2f 2a 20 43 6f 6e 74 61 69 Table;./* Contai
6280: 6e 73 20 4c 69 74 65 72 61 6c 45 6e 74 72 79 27 ns LiteralEntry'
6290: 73 20 64 65 73 63 72 69 62 69 6e 67 20 61 6c 6c s describing all
62a0: 0a 20 09 09 09 09 20 2a 20 54 63 6c 20 6f 62 6a . .... * Tcl obj
62b0: 65 63 74 73 20 68 6f 6c 64 69 6e 67 20 6c 69 74 ects holding lit
62c0: 65 72 61 6c 73 20 6f 66 20 73 63 72 69 70 74 73 erals of scripts
62d0: 0a 20 09 09 09 09 20 2a 20 63 6f 6d 70 69 6c 65 . .... * compile
62e0: 64 20 62 79 20 74 68 65 20 69 6e 74 65 72 70 72 d by the interpr
62f0: 65 74 65 72 2e 20 49 6e 64 65 78 65 64 20 62 79 eter. Indexed by
6300: 0a 40 40 20 2d 31 33 32 30 2c 31 34 20 2b 31 33 .@@ -1320,14 +13
6310: 31 39 2c 31 31 20 40 40 0a 20 2f 2a 0a 20 20 2a 19,11 @@. /*. *
6320: 20 45 76 61 6c 46 6c 61 67 20 62 69 74 73 20 66 EvalFlag bits f
6330: 6f 72 20 49 6e 74 65 72 70 20 73 74 72 75 63 74 or Interp struct
6340: 75 72 65 73 3a 0a 20 20 2a 0a 2d 20 2a 20 54 43 ures:. *.- * TC
6350: 4c 5f 42 52 41 43 4b 45 54 5f 54 45 52 4d 09 31 L_BRACKET_TERM.1
6360: 20 6d 65 61 6e 73 20 74 68 61 74 20 74 68 65 20 means that the
6370: 63 75 72 72 65 6e 74 20 73 63 72 69 70 74 20 69 current script i
6380: 73 20 74 65 72 6d 69 6e 61 74 65 64 20 62 79 0a s terminated by.
6390: 2d 20 2a 09 09 09 61 20 63 6c 6f 73 65 20 62 72 - *...a close br
63a0: 61 63 6b 65 74 20 72 61 74 68 65 72 20 74 68 61 acket rather tha
63b0: 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 n the end of the
63c0: 20 73 74 72 69 6e 67 2e 0a 20 20 2a 20 54 43 4c string.. * TCL
63d0: 5f 41 4c 4c 4f 57 5f 45 58 43 45 50 54 49 4f 4e _ALLOW_EXCEPTION
63e0: 53 09 31 20 6d 65 61 6e 73 20 69 74 27 73 20 4f S.1 means it's O
63f0: 4b 20 66 6f 72 20 74 68 65 20 73 63 72 69 70 74 K for the script
6400: 20 74 6f 20 74 65 72 6d 69 6e 61 74 65 20 77 69 to terminate wi
6410: 74 68 0a 20 20 2a 09 09 09 61 20 63 6f 64 65 20 th. *...a code
6420: 6f 74 68 65 72 20 74 68 61 6e 20 54 43 4c 5f 4f other than TCL_O
6430: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 3b 09 K or TCL_ERROR;.
6440: 30 20 6d 65 61 6e 73 0a 20 20 2a 09 09 09 63 6f 0 means. *...co
6450: 64 65 73 20 6f 74 68 65 72 20 74 68 61 6e 20 74 des other than t
6460: 68 65 73 65 20 73 68 6f 75 6c 64 20 62 65 20 74 hese should be t
6470: 75 72 6e 65 64 20 69 6e 74 6f 20 65 72 72 6f 72 urned into error
6480: 73 2e 0a 20 20 2a 2f 0a 20 0a 2d 23 64 65 66 69 s.. */. .-#defi
6490: 6e 65 20 54 43 4c 5f 42 52 41 43 4b 45 54 5f 54 ne TCL_BRACKET_T
64a0: 45 52 4d 09 20 20 31 0a 20 23 64 65 66 69 6e 65 ERM. 1. #define
64b0: 20 54 43 4c 5f 41 4c 4c 4f 57 5f 45 58 43 45 50 TCL_ALLOW_EXCEP
64c0: 54 49 4f 4e 53 09 20 20 34 0a 20 0a 20 2f 2a 0a TIONS. 4. . /*.
64d0: 40 40 20 2d 31 38 30 32 2c 37 20 2b 31 37 39 38 @@ -1802,7 +1798
64e0: 2c 31 30 20 40 40 0a 20 45 58 54 45 52 4e 20 56 ,10 @@. EXTERN V
64f0: 4f 49 44 20 20 20 20 20 20 20 20 20 20 20 20 20 OID
6500: 54 63 6c 52 65 6d 65 6d 62 65 72 4a 6f 69 6e 61 TclRememberJoina
6510: 62 6c 65 54 68 72 65 61 64 20 5f 41 4e 53 49 5f bleThread _ANSI_
6520: 41 52 47 53 5f 28 28 54 63 6c 5f 54 68 72 65 61 ARGS_((Tcl_Threa
6530: 64 49 64 20 69 64 29 29 3b 0a 20 45 58 54 45 52 dId id));. EXTER
6540: 4e 20 76 6f 69 64 09 09 54 63 6c 52 65 6d 65 6d N void..TclRemem
6550: 62 65 72 4d 75 74 65 78 20 5f 41 4e 53 49 5f 41 berMutex _ANSI_A
6560: 52 47 53 5f 28 28 54 63 6c 5f 4d 75 74 65 78 20 RGS_((Tcl_Mutex
6570: 2a 6d 75 74 65 78 29 29 3b 0a 20 45 58 54 45 52 *mutex));. EXTER
6580: 4e 20 56 4f 49 44 20 20 20 20 20 20 20 20 20 20 N VOID
6590: 20 20 20 54 63 6c 53 69 67 6e 61 6c 45 78 69 74 TclSignalExit
65a0: 54 68 72 65 61 64 20 5f 41 4e 53 49 5f 41 52 47 Thread _ANSI_ARG
65b0: 53 5f 28 28 54 63 6c 5f 54 68 72 65 61 64 49 64 S_((Tcl_ThreadId
65c0: 20 69 64 2c 0a 2d 09 09 09 20 20 20 20 20 69 6e id,.-... in
65d0: 74 20 72 65 73 75 6c 74 29 29 3b 0a 2b 09 09 09 t result));.+...
65e0: 20 20 20 20 69 6e 74 20 72 65 73 75 6c 74 29 29 int result))
65f0: 3b 0a 2b 45 58 54 45 52 4e 20 69 6e 74 09 09 54 ;.+EXTERN int..T
6600: 63 6c 53 75 62 73 74 54 6f 6b 65 6e 73 20 5f 41 clSubstTokens _A
6610: 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 NSI_ARGS_((Tcl_I
6620: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 2b nterp *interp,.+
6630: 09 09 09 20 20 20 20 54 63 6c 5f 54 6f 6b 65 6e ... Tcl_Token
6640: 20 2a 74 6f 6b 65 6e 50 74 72 2c 20 69 6e 74 20 *tokenPtr, int
6650: 63 6f 75 6e 74 2c 0a 2b 09 09 09 20 20 20 20 69 count,.+... i
6660: 6e 74 20 2a 74 6f 6b 65 6e 73 4c 65 66 74 50 74 nt *tokensLeftPt
6670: 72 29 29 3b 0a 20 45 58 54 45 52 4e 20 76 6f 69 r));. EXTERN voi
6680: 64 09 09 54 63 6c 54 72 61 6e 73 66 65 72 52 65 d..TclTransferRe
6690: 73 75 6c 74 20 5f 41 4e 53 49 5f 41 52 47 53 5f sult _ANSI_ARGS_
66a0: 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 73 6f ((Tcl_Interp *so
66b0: 75 72 63 65 49 6e 74 65 72 70 2c 0a 20 09 09 09 urceInterp,. ...
66c0: 20 20 20 20 69 6e 74 20 72 65 73 75 6c 74 2c 20 int result,
66d0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 74 61 72 67 Tcl_Interp *targ
66e0: 65 74 49 6e 74 65 72 70 29 29 3b 0a 20 45 58 54 etInterp));. EXT
66f0: 45 52 4e 20 54 63 6c 5f 4f 62 6a 2a 20 20 20 20 ERN Tcl_Obj*
6700: 20 20 20 20 20 54 63 6c 70 4e 61 74 69 76 65 54 TclpNativeT
6710: 6f 4e 6f 72 6d 61 6c 69 7a 65 64 20 0a 49 6e 64 oNormalized .Ind
6720: 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 50 ex: generic/tclP
6730: 61 72 73 65 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d arse.c.=========
6740: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6750: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6760: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6770: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
6780: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
6790: 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 l/tcl/generic/tc
67a0: 6c 50 61 72 73 65 2e 63 2c 76 0a 72 65 74 72 69 lParse.c,v.retri
67b0: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
67c0: 2e 32 35 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e .25.diff -u -r1.
67d0: 32 35 20 74 63 6c 50 61 72 73 65 2e 63 0a 2d 2d 25 tclParse.c.--
67e0: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 50 61 72 - generic/tclPar
67f0: 73 65 2e 63 09 31 36 20 46 65 62 20 32 30 30 33 se.c.16 Feb 2003
6800: 20 30 31 3a 33 36 3a 33 32 20 2d 30 30 30 30 09 01:36:32 -0000.
6810: 31 2e 32 35 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 1.25.+++ generic
6820: 2f 74 63 6c 50 61 72 73 65 2e 63 09 38 20 4d 61 /tclParse.c.8 Ma
6830: 72 20 32 30 30 33 20 32 31 3a 32 35 3a 30 36 20 r 2003 21:25:06
6840: 2d 30 30 30 30 0a 40 40 20 2d 31 37 39 2c 37 20 -0000.@@ -179,7
6850: 2b 31 37 39 2c 37 20 40 40 0a 20 73 74 61 74 69 +179,7 @@. stati
6860: 63 20 69 6e 74 09 09 50 61 72 73 65 43 6f 6d 6d c int..ParseComm
6870: 65 6e 74 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 ent _ANSI_ARGS_(
6880: 28 43 4f 4e 53 54 20 63 68 61 72 20 2a 73 72 63 (CONST char *src
6890: 2c 20 69 6e 74 20 6e 75 6d 42 79 74 65 73 2c 0a , int numBytes,.
68a0: 20 09 09 09 20 20 20 20 54 63 6c 5f 50 61 72 73 ... Tcl_Pars
68b0: 65 20 2a 70 61 72 73 65 50 74 72 29 29 3b 0a 20 e *parsePtr));.
68c0: 73 74 61 74 69 63 20 69 6e 74 09 09 50 61 72 73 static int..Pars
68d0: 65 54 6f 6b 65 6e 73 20 5f 41 4e 53 49 5f 41 52 eTokens _ANSI_AR
68e0: 47 53 5f 28 28 43 4f 4e 53 54 20 63 68 61 72 20 GS_((CONST char
68f0: 2a 73 72 63 2c 20 69 6e 74 20 6e 75 6d 42 79 74 *src, int numByt
6900: 65 73 2c 0a 2d 09 09 09 20 20 20 20 69 6e 74 20 es,.-... int
6910: 6d 61 73 6b 2c 20 54 63 6c 5f 50 61 72 73 65 20 mask, Tcl_Parse
6920: 2a 70 61 72 73 65 50 74 72 29 29 3b 0a 2b 09 09 *parsePtr));.+..
6930: 09 20 20 20 20 69 6e 74 20 6d 61 73 6b 2c 20 69 . int mask, i
6940: 6e 74 20 66 6c 61 67 73 2c 20 54 63 6c 5f 50 61 nt flags, Tcl_Pa
6950: 72 73 65 20 2a 70 61 72 73 65 50 74 72 29 29 3b rse *parsePtr));
6960: 0a 20 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d . . /*. *------
6970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69b0: 0a 40 40 20 2d 33 34 33 2c 37 20 2b 33 34 33 2c .@@ -343,7 +343,
69c0: 37 20 40 40 0a 20 09 20 20 20 20 20 2a 2f 0a 20 7 @@. . */.
69d0: 0a 20 09 20 20 20 20 69 66 20 28 50 61 72 73 65 . . if (Parse
69e0: 54 6f 6b 65 6e 73 28 73 72 63 2c 20 6e 75 6d 42 Tokens(src, numB
69f0: 79 74 65 73 2c 20 54 59 50 45 5f 53 50 41 43 45 ytes, TYPE_SPACE
6a00: 7c 74 65 72 6d 69 6e 61 74 6f 72 73 2c 0a 2d 09 |terminators,.-.
6a10: 09 20 20 20 20 70 61 72 73 65 50 74 72 29 20 21 . parsePtr) !
6a20: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 09 20 = TCL_OK) {.+..
6a30: 20 20 20 54 43 4c 5f 53 55 42 53 54 5f 41 4c 4c TCL_SUBST_ALL
6a40: 2c 20 70 61 72 73 65 50 74 72 29 20 21 3d 20 54 , parsePtr) != T
6a50: 43 4c 5f 4f 4b 29 20 7b 0a 20 09 09 67 6f 74 6f CL_OK) {. ..goto
6a60: 20 65 72 72 6f 72 3b 0a 20 09 20 20 20 20 7d 0a error;. . }.
6a70: 20 09 20 20 20 20 73 72 63 20 3d 20 70 61 72 73 . src = pars
6a80: 65 50 74 72 2d 3e 74 65 72 6d 3b 20 6e 75 6d 42 ePtr->term; numB
6a90: 79 74 65 73 20 3d 20 70 61 72 73 65 50 74 72 2d ytes = parsePtr-
6aa0: 3e 65 6e 64 20 2d 20 73 72 63 3b 0a 40 40 20 2d >end - src;.@@ -
6ab0: 37 38 35 2c 39 20 2b 37 38 35 2c 31 33 20 40 40 785,9 +785,13 @@
6ac0: 0a 20 20 2a 2f 0a 20 0a 20 73 74 61 74 69 63 20 . */. . static
6ad0: 69 6e 74 0a 2d 50 61 72 73 65 54 6f 6b 65 6e 73 int.-ParseTokens
6ae0: 28 73 72 63 2c 20 6e 75 6d 42 79 74 65 73 2c 20 (src, numBytes,
6af0: 6d 61 73 6b 2c 20 70 61 72 73 65 50 74 72 29 0a mask, parsePtr).
6b00: 2b 50 61 72 73 65 54 6f 6b 65 6e 73 28 73 72 63 +ParseTokens(src
6b10: 2c 20 6e 75 6d 42 79 74 65 73 2c 20 6d 61 73 6b , numBytes, mask
6b20: 2c 20 66 6c 61 67 73 2c 20 70 61 72 73 65 50 74 , flags, parsePt
6b30: 72 29 0a 20 20 20 20 20 72 65 67 69 73 74 65 72 r). register
6b40: 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 73 72 63 CONST char *src
6b50: 3b 09 2f 2a 20 46 69 72 73 74 20 63 68 61 72 61 ;./* First chara
6b60: 63 74 65 72 20 74 6f 20 70 61 72 73 65 2e 20 2a cter to parse. *
6b70: 2f 0a 20 20 20 20 20 72 65 67 69 73 74 65 72 20 /. register
6b80: 69 6e 74 20 6e 75 6d 42 79 74 65 73 3b 09 2f 2a int numBytes;./*
6b90: 20 4d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 62 Max number of b
6ba0: 79 74 65 73 20 74 6f 20 73 63 61 6e 2e 20 2a 2f ytes to scan. */
6bb0: 0a 2b 20 20 20 20 69 6e 74 20 66 6c 61 67 73 3b .+ int flags;
6bc0: 09 09 09 2f 2a 20 4f 52 2d 65 64 20 62 69 74 73 .../* OR-ed bits
6bd0: 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68 61 74 indicating what
6be0: 20 73 75 62 73 74 69 74 75 74 69 6f 6e 73 0a 2b substitutions.+
6bf0: 09 09 09 09 20 20 20 74 6f 20 70 65 72 66 6f 72 .... to perfor
6c00: 6d 3a 20 54 43 4c 5f 53 55 42 53 54 5f 43 4f 4d m: TCL_SUBST_COM
6c10: 4d 41 4e 44 53 2c 0a 2b 09 09 09 09 20 20 20 54 MANDS,.+.... T
6c20: 43 4c 5f 53 55 42 53 54 5f 56 41 52 49 41 42 4c CL_SUBST_VARIABL
6c30: 45 53 2c 20 61 6e 64 20 0a 2b 09 09 09 09 20 20 ES, and .+....
6c40: 20 54 43 4c 5f 53 55 42 53 54 5f 42 41 43 4b 53 TCL_SUBST_BACKS
6c50: 4c 41 53 48 45 53 20 2a 2f 0a 20 20 20 20 20 69 LASHES */. i
6c60: 6e 74 20 6d 61 73 6b 3b 09 09 09 2f 2a 20 53 70 nt mask;.../* Sp
6c70: 65 63 69 66 69 65 73 20 77 68 65 6e 20 74 6f 20 ecifies when to
6c80: 73 74 6f 70 20 70 61 72 73 69 6e 67 2e 20 20 54 stop parsing. T
6c90: 68 65 0a 20 09 09 09 09 20 2a 20 70 61 72 73 65 he. .... * parse
6ca0: 20 73 74 6f 70 73 20 61 74 20 74 68 65 20 66 69 stops at the fi
6cb0: 72 73 74 20 75 6e 71 75 6f 74 65 64 0a 20 09 09 rst unquoted. ..
6cc0: 09 09 20 2a 20 63 68 61 72 61 63 74 65 72 20 77 .. * character w
6cd0: 68 6f 73 65 20 43 48 41 52 5f 54 59 50 45 20 63 hose CHAR_TYPE c
6ce0: 6f 6e 74 61 69 6e 73 0a 40 40 20 2d 37 39 38 2c ontains.@@ -798,
6cf0: 36 20 2b 38 30 32 2c 39 20 40 40 0a 20 7b 0a 20 6 +802,9 @@. {.
6d00: 20 20 20 20 63 68 61 72 20 74 79 70 65 3b 20 0a char type; .
6d10: 20 20 20 20 20 69 6e 74 20 6f 72 69 67 69 6e 61 int origina
6d20: 6c 54 6f 6b 65 6e 73 2c 20 76 61 72 54 6f 6b 65 lTokens, varToke
6d30: 6e 3b 0a 2b 20 20 20 20 69 6e 74 20 6e 6f 53 75 n;.+ int noSu
6d40: 62 73 74 43 6d 64 73 20 3d 20 21 28 66 6c 61 67 bstCmds = !(flag
6d50: 73 20 26 20 54 43 4c 5f 53 55 42 53 54 5f 43 4f s & TCL_SUBST_CO
6d60: 4d 4d 41 4e 44 53 29 3b 0a 2b 20 20 20 20 69 6e MMANDS);.+ in
6d70: 74 20 6e 6f 53 75 62 73 74 56 61 72 73 20 3d 20 t noSubstVars =
6d80: 21 28 66 6c 61 67 73 20 26 20 54 43 4c 5f 53 55 !(flags & TCL_SU
6d90: 42 53 54 5f 56 41 52 49 41 42 4c 45 53 29 3b 0a BST_VARIABLES);.
6da0: 2b 20 20 20 20 69 6e 74 20 6e 6f 53 75 62 73 74 + int noSubst
6db0: 42 53 20 3d 20 21 28 66 6c 61 67 73 20 26 20 54 BS = !(flags & T
6dc0: 43 4c 5f 53 55 42 53 54 5f 42 41 43 4b 53 4c 41 CL_SUBST_BACKSLA
6dd0: 53 48 45 53 29 3b 0a 20 20 20 20 20 54 63 6c 5f SHES);. Tcl_
6de0: 54 6f 6b 65 6e 20 2a 74 6f 6b 65 6e 50 74 72 3b Token *tokenPtr;
6df0: 0a 20 20 20 20 20 54 63 6c 5f 50 61 72 73 65 20 . Tcl_Parse
6e00: 6e 65 73 74 65 64 3b 0a 20 0a 40 40 20 2d 38 33 nested;. .@@ -83
6e10: 31 2c 36 20 2b 38 33 38 2c 31 33 20 40 40 0a 20 1,6 +838,13 @@.
6e20: 09 20 20 20 20 74 6f 6b 65 6e 50 74 72 2d 3e 73 . tokenPtr->s
6e30: 69 7a 65 20 3d 20 73 72 63 20 2d 20 74 6f 6b 65 ize = src - toke
6e40: 6e 50 74 72 2d 3e 73 74 61 72 74 3b 0a 20 09 20 nPtr->start;. .
6e50: 20 20 20 70 61 72 73 65 50 74 72 2d 3e 6e 75 6d parsePtr->num
6e60: 54 6f 6b 65 6e 73 2b 2b 3b 0a 20 09 7d 20 65 6c Tokens++;. .} el
6e70: 73 65 20 69 66 20 28 2a 73 72 63 20 3d 3d 20 27 se if (*src == '
6e80: 24 27 29 20 7b 0a 2b 09 20 20 20 20 69 66 20 28 $') {.+. if (
6e90: 6e 6f 53 75 62 73 74 56 61 72 73 29 20 7b 0a 2b noSubstVars) {.+
6ea0: 09 09 74 6f 6b 65 6e 50 74 72 2d 3e 74 79 70 65 ..tokenPtr->type
6eb0: 20 3d 20 54 43 4c 5f 54 4f 4b 45 4e 5f 54 45 58 = TCL_TOKEN_TEX
6ec0: 54 3b 0a 2b 09 09 74 6f 6b 65 6e 50 74 72 2d 3e T;.+..tokenPtr->
6ed0: 73 69 7a 65 20 3d 20 31 3b 0a 2b 09 09 70 61 72 size = 1;.+..par
6ee0: 73 65 50 74 72 2d 3e 6e 75 6d 54 6f 6b 65 6e 73 sePtr->numTokens
6ef0: 2b 2b 3b 0a 2b 09 09 73 72 63 2b 2b 3b 20 6e 75 ++;.+..src++; nu
6f00: 6d 42 79 74 65 73 2d 2d 3b 0a 2b 09 09 63 6f 6e mBytes--;.+..con
6f10: 74 69 6e 75 65 3b 0a 2b 09 20 20 20 20 7d 0a 20 tinue;.+. }.
6f20: 09 20 20 20 20 2f 2a 0a 20 09 20 20 20 20 20 2a . /*. . *
6f30: 20 54 68 69 73 20 69 73 20 61 20 76 61 72 69 61 This is a varia
6f40: 62 6c 65 20 72 65 66 65 72 65 6e 63 65 2e 20 20 ble reference.
6f50: 43 61 6c 6c 20 54 63 6c 5f 50 61 72 73 65 56 61 Call Tcl_ParseVa
6f60: 72 4e 61 6d 65 20 74 6f 20 64 6f 0a 20 09 20 20 rName to do. .
6f70: 20 20 20 2a 20 61 6c 6c 20 74 68 65 20 64 69 72 * all the dir
6f80: 74 79 20 77 6f 72 6b 20 6f 66 20 70 61 72 73 69 ty work of parsi
6f90: 6e 67 20 74 68 65 20 6e 61 6d 65 2e 0a 40 40 20 ng the name..@@
6fa0: 2d 38 34 34 2c 36 20 2b 38 35 38 2c 31 33 20 40 -844,6 +858,13 @
6fb0: 40 0a 20 09 20 20 20 20 73 72 63 20 2b 3d 20 70 @. . src += p
6fc0: 61 72 73 65 50 74 72 2d 3e 74 6f 6b 65 6e 50 74 arsePtr->tokenPt
6fd0: 72 5b 76 61 72 54 6f 6b 65 6e 5d 2e 73 69 7a 65 r[varToken].size
6fe0: 3b 0a 20 09 20 20 20 20 6e 75 6d 42 79 74 65 73 ;. . numBytes
6ff0: 20 2d 3d 20 70 61 72 73 65 50 74 72 2d 3e 74 6f -= parsePtr->to
7000: 6b 65 6e 50 74 72 5b 76 61 72 54 6f 6b 65 6e 5d kenPtr[varToken]
7010: 2e 73 69 7a 65 3b 0a 20 09 7d 20 65 6c 73 65 20 .size;. .} else
7020: 69 66 20 28 2a 73 72 63 20 3d 3d 20 27 5b 27 29 if (*src == '[')
7030: 20 7b 0a 2b 09 20 20 20 20 69 66 20 28 6e 6f 53 {.+. if (noS
7040: 75 62 73 74 43 6d 64 73 29 20 7b 0a 2b 09 09 74 ubstCmds) {.+..t
7050: 6f 6b 65 6e 50 74 72 2d 3e 74 79 70 65 20 3d 20 okenPtr->type =
7060: 54 43 4c 5f 54 4f 4b 45 4e 5f 54 45 58 54 3b 0a TCL_TOKEN_TEXT;.
7070: 2b 09 09 74 6f 6b 65 6e 50 74 72 2d 3e 73 69 7a +..tokenPtr->siz
7080: 65 20 3d 20 31 3b 0a 2b 09 09 70 61 72 73 65 50 e = 1;.+..parseP
7090: 74 72 2d 3e 6e 75 6d 54 6f 6b 65 6e 73 2b 2b 3b tr->numTokens++;
70a0: 0a 2b 09 09 73 72 63 2b 2b 3b 20 6e 75 6d 42 79 .+..src++; numBy
70b0: 74 65 73 2d 2d 3b 0a 2b 09 09 63 6f 6e 74 69 6e tes--;.+..contin
70c0: 75 65 3b 0a 2b 09 20 20 20 20 7d 0a 20 09 20 20 ue;.+. }. .
70d0: 20 20 2f 2a 0a 20 09 20 20 20 20 20 2a 20 43 6f /*. . * Co
70e0: 6d 6d 61 6e 64 20 73 75 62 73 74 69 74 75 74 69 mmand substituti
70f0: 6f 6e 2e 20 20 43 61 6c 6c 20 54 63 6c 5f 50 61 on. Call Tcl_Pa
7100: 72 73 65 43 6f 6d 6d 61 6e 64 20 72 65 63 75 72 rseCommand recur
7110: 73 69 76 65 6c 79 0a 20 09 20 20 20 20 20 2a 20 sively. . *
7120: 28 61 6e 64 20 72 65 70 65 61 74 65 64 6c 79 29 (and repeatedly)
7130: 20 74 6f 20 70 61 72 73 65 20 74 68 65 20 6e 65 to parse the ne
7140: 73 74 65 64 20 63 6f 6d 6d 61 6e 64 28 73 29 2c sted command(s),
7150: 20 74 68 65 6e 0a 40 40 20 2d 38 39 36 2c 36 20 then.@@ -896,6
7160: 2b 39 31 37 2c 31 33 20 40 40 0a 20 09 20 20 20 +917,13 @@. .
7170: 20 74 6f 6b 65 6e 50 74 72 2d 3e 73 69 7a 65 20 tokenPtr->size
7180: 3d 20 73 72 63 20 2d 20 74 6f 6b 65 6e 50 74 72 = src - tokenPtr
7190: 2d 3e 73 74 61 72 74 3b 0a 20 09 20 20 20 20 70 ->start;. . p
71a0: 61 72 73 65 50 74 72 2d 3e 6e 75 6d 54 6f 6b 65 arsePtr->numToke
71b0: 6e 73 2b 2b 3b 0a 20 09 7d 20 65 6c 73 65 20 69 ns++;. .} else i
71c0: 66 20 28 2a 73 72 63 20 3d 3d 20 27 5c 5c 27 29 f (*src == '\\')
71d0: 20 7b 0a 2b 09 20 20 20 20 69 66 20 28 6e 6f 53 {.+. if (noS
71e0: 75 62 73 74 42 53 29 20 7b 0a 2b 09 09 74 6f 6b ubstBS) {.+..tok
71f0: 65 6e 50 74 72 2d 3e 74 79 70 65 20 3d 20 54 43 enPtr->type = TC
7200: 4c 5f 54 4f 4b 45 4e 5f 54 45 58 54 3b 0a 2b 09 L_TOKEN_TEXT;.+.
7210: 09 74 6f 6b 65 6e 50 74 72 2d 3e 73 69 7a 65 20 .tokenPtr->size
7220: 3d 20 31 3b 0a 2b 09 09 70 61 72 73 65 50 74 72 = 1;.+..parsePtr
7230: 2d 3e 6e 75 6d 54 6f 6b 65 6e 73 2b 2b 3b 0a 2b ->numTokens++;.+
7240: 09 09 73 72 63 2b 2b 3b 20 6e 75 6d 42 79 74 65 ..src++; numByte
7250: 73 2d 2d 3b 0a 2b 09 09 63 6f 6e 74 69 6e 75 65 s--;.+..continue
7260: 3b 0a 2b 09 20 20 20 20 7d 0a 20 09 20 20 20 20 ;.+. }. .
7270: 2f 2a 0a 20 09 20 20 20 20 20 2a 20 42 61 63 6b /*. . * Back
7280: 73 6c 61 73 68 20 73 75 62 73 74 69 74 75 74 69 slash substituti
7290: 6f 6e 2e 0a 20 09 20 20 20 20 20 2a 2f 0a 40 40 on.. . */.@@
72a0: 20 2d 31 32 31 30 2c 38 20 2b 31 32 33 38 2c 38 -1210,8 +1238,8
72b0: 20 40 40 0a 20 09 20 20 20 20 20 2a 20 73 69 6e @@. . * sin
72c0: 63 65 20 69 74 20 63 6f 75 6c 64 20 63 6f 6e 74 ce it could cont
72d0: 61 69 6e 20 61 6e 79 20 6e 75 6d 62 65 72 20 6f ain any number o
72e0: 66 20 73 75 62 73 74 69 74 75 74 69 6f 6e 73 2e f substitutions.
72f0: 0a 20 09 20 20 20 20 20 2a 2f 0a 20 0a 2d 09 20 . . */. .-.
7300: 20 20 20 69 66 20 28 50 61 72 73 65 54 6f 6b 65 if (ParseToke
7310: 6e 73 28 73 72 63 2b 31 2c 20 6e 75 6d 42 79 74 ns(src+1, numByt
7320: 65 73 2d 31 2c 20 54 59 50 45 5f 43 4c 4f 53 45 es-1, TYPE_CLOSE
7330: 5f 50 41 52 45 4e 2c 20 70 61 72 73 65 50 74 72 _PAREN, parsePtr
7340: 29 0a 2d 09 09 20 20 20 20 21 3d 20 54 43 4c 5f ).-.. != TCL_
7350: 4f 4b 29 20 7b 0a 2b 09 20 20 20 20 69 66 20 28 OK) {.+. if (
7360: 54 43 4c 5f 4f 4b 20 21 3d 20 50 61 72 73 65 54 TCL_OK != ParseT
7370: 6f 6b 65 6e 73 28 73 72 63 2b 31 2c 20 6e 75 6d okens(src+1, num
7380: 42 79 74 65 73 2d 31 2c 20 54 59 50 45 5f 43 4c Bytes-1, TYPE_CL
7390: 4f 53 45 5f 50 41 52 45 4e 2c 0a 2b 09 09 20 20 OSE_PAREN,.+..
73a0: 20 20 54 43 4c 5f 53 55 42 53 54 5f 41 4c 4c 2c TCL_SUBST_ALL,
73b0: 20 70 61 72 73 65 50 74 72 29 29 20 7b 0a 20 09 parsePtr)) {. .
73c0: 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 09 20 .goto error;. .
73d0: 20 20 20 7d 0a 20 09 20 20 20 20 69 66 20 28 28 }. . if ((
73e0: 70 61 72 73 65 50 74 72 2d 3e 74 65 72 6d 20 3d parsePtr->term =
73f0: 3d 20 28 73 72 63 20 2b 20 6e 75 6d 42 79 74 65 = (src + numByte
7400: 73 29 29 20 0a 40 40 20 2d 31 33 30 32 2c 37 20 s)) .@@ -1302,7
7410: 2b 31 33 33 30 2c 37 20 40 40 0a 20 09 72 65 74 +1330,7 @@. .ret
7420: 75 72 6e 20 22 24 22 3b 0a 20 20 20 20 20 7d 0a urn "$";. }.
7430: 20 0a 2d 20 20 20 20 63 6f 64 65 20 3d 20 54 63 .- code = Tc
7440: 6c 5f 45 76 61 6c 54 6f 6b 65 6e 73 53 74 61 6e l_EvalTokensStan
7450: 64 61 72 64 28 69 6e 74 65 72 70 2c 20 70 61 72 dard(interp, par
7460: 73 65 2e 74 6f 6b 65 6e 50 74 72 2c 20 70 61 72 se.tokenPtr, par
7470: 73 65 2e 6e 75 6d 54 6f 6b 65 6e 73 29 3b 0a 2b se.numTokens);.+
7480: 20 20 20 20 63 6f 64 65 20 3d 20 54 63 6c 53 75 code = TclSu
7490: 62 73 74 54 6f 6b 65 6e 73 28 69 6e 74 65 72 70 bstTokens(interp
74a0: 2c 20 70 61 72 73 65 2e 74 6f 6b 65 6e 50 74 72 , parse.tokenPtr
74b0: 2c 20 70 61 72 73 65 2e 6e 75 6d 54 6f 6b 65 6e , parse.numToken
74c0: 73 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 69 s, NULL);. i
74d0: 66 20 28 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f f (code != TCL_O
74e0: 4b 29 20 7b 0a 20 09 72 65 74 75 72 6e 20 4e 55 K) {. .return NU
74f0: 4c 4c 3b 0a 20 20 20 20 20 7d 0a 40 40 20 2d 31 LL;. }.@@ -1
7500: 36 30 36 2c 37 20 2b 31 36 33 34 2c 38 20 40 40 606,7 +1634,8 @@
7510: 0a 20 09 70 61 72 73 65 50 74 72 2d 3e 65 72 72 . .parsePtr->err
7520: 6f 72 54 79 70 65 20 3d 20 54 43 4c 5f 50 41 52 orType = TCL_PAR
7530: 53 45 5f 53 55 43 43 45 53 53 3b 0a 20 20 20 20 SE_SUCCESS;.
7540: 20 7d 0a 20 20 20 20 20 0a 2d 20 20 20 20 69 66 }. .- if
7550: 20 28 50 61 72 73 65 54 6f 6b 65 6e 73 28 73 74 (ParseTokens(st
7560: 72 69 6e 67 2b 31 2c 20 6e 75 6d 42 79 74 65 73 ring+1, numBytes
7570: 2d 31 2c 20 54 59 50 45 5f 51 55 4f 54 45 2c 20 -1, TYPE_QUOTE,
7580: 70 61 72 73 65 50 74 72 29 20 21 3d 20 54 43 4c parsePtr) != TCL
7590: 5f 4f 4b 29 20 7b 0a 2b 20 20 20 20 69 66 20 28 _OK) {.+ if (
75a0: 54 43 4c 5f 4f 4b 20 21 3d 20 50 61 72 73 65 54 TCL_OK != ParseT
75b0: 6f 6b 65 6e 73 28 73 74 72 69 6e 67 2b 31 2c 20 okens(string+1,
75c0: 6e 75 6d 42 79 74 65 73 2d 31 2c 20 54 59 50 45 numBytes-1, TYPE
75d0: 5f 51 55 4f 54 45 2c 0a 2b 09 20 20 20 20 54 43 _QUOTE,.+. TC
75e0: 4c 5f 53 55 42 53 54 5f 41 4c 4c 2c 20 70 61 72 L_SUBST_ALL, par
75f0: 73 65 50 74 72 29 29 20 7b 0a 20 09 67 6f 74 6f sePtr)) {. .goto
7600: 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 7d 0a 20 error;. }.
7610: 20 20 20 20 69 66 20 28 2a 70 61 72 73 65 50 74 if (*parsePt
7620: 72 2d 3e 74 65 72 6d 20 21 3d 20 27 22 27 29 20 r->term != '"')
7630: 7b 0a 40 40 20 2d 31 36 32 38 2c 36 20 2b 31 36 {.@@ -1628,6 +16
7640: 35 37 2c 32 36 31 20 40 40 0a 20 20 20 20 20 72 57,261 @@. r
7650: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7660: 0a 20 7d 0a 20 0a 2b 2f 2a 0a 2b 20 2a 2d 2d 2d . }. .+/*.+ *---
7670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76b0: 2d 2d 2d 0a 2b 20 2a 0a 2b 20 2a 20 54 63 6c 5f ---.+ *.+ * Tcl_
76c0: 53 75 62 73 74 4f 62 6a 20 2d 2d 0a 2b 20 2a 0a SubstObj --.+ *.
76d0: 2b 20 2a 20 20 20 20 20 20 54 68 69 73 20 66 75 + * This fu
76e0: 6e 63 74 69 6f 6e 20 70 65 72 66 6f 72 6d 73 20 nction performs
76f0: 74 68 65 20 73 75 62 73 74 69 74 75 74 69 6f 6e the substitution
7700: 73 20 73 70 65 63 69 66 69 65 64 20 6f 6e 20 74 s specified on t
7710: 68 65 0a 2b 20 2a 20 20 20 20 20 20 67 69 76 65 he.+ * give
7720: 6e 20 73 74 72 69 6e 67 20 61 73 20 64 65 73 63 n string as desc
7730: 72 69 62 65 64 20 69 6e 20 74 68 65 20 75 73 65 ribed in the use
7740: 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 r documentation
7750: 66 6f 72 20 74 68 65 0a 2b 20 2a 20 20 20 20 20 for the.+ *
7760: 20 22 73 75 62 73 74 22 20 54 63 6c 20 63 6f 6d "subst" Tcl com
7770: 6d 61 6e 64 2e 20 20 20 20 20 20 20 0a 2b 20 2a mand. .+ *
7780: 0a 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b 20 .+ * Results:.+
7790: 2a 20 20 20 20 20 20 41 20 54 63 6c 5f 4f 62 6a * A Tcl_Obj
77a0: 2a 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 * containing the
77b0: 20 73 75 62 73 74 69 74 75 74 65 64 20 73 74 72 substituted str
77c0: 69 6e 67 2c 20 6f 72 20 4e 55 4c 4c 20 74 6f 0a ing, or NULL to.
77d0: 2b 20 2a 20 20 20 20 20 20 69 6e 64 69 63 61 74 + * indicat
77e0: 65 20 74 68 61 74 20 61 6e 20 65 72 72 6f 72 20 e that an error
77f0: 6f 63 63 75 72 72 65 64 2e 0a 2b 20 2a 0a 2b 20 occurred..+ *.+
7800: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
7810: 2b 20 2a 20 20 20 20 20 20 53 65 65 20 74 68 65 + * See the
7820: 20 75 73 65 72 20 64 6f 63 75 6d 65 6e 74 61 74 user documentat
7830: 69 6f 6e 2e 0a 2b 20 2a 0a 2b 20 2a 2d 2d 2d 2d ion..+ *.+ *----
7840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7880: 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b 54 63 6c 5f 4f --.+ */.+.+Tcl_O
7890: 62 6a 20 2a 0a 2b 54 63 6c 5f 53 75 62 73 74 4f bj *.+Tcl_SubstO
78a0: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 bj(interp, objPt
78b0: 72 2c 20 66 6c 61 67 73 29 0a 2b 20 20 20 20 54 r, flags).+ T
78c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
78d0: 70 3b 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 p;./* Interprete
78e0: 72 20 69 6e 20 77 68 69 63 68 20 73 75 62 73 74 r in which subst
78f0: 69 74 75 74 69 6f 6e 20 6f 63 63 75 72 73 20 2a itution occurs *
7900: 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a /.+ Tcl_Obj *
7910: 6f 62 6a 50 74 72 3b 09 2f 2a 20 54 68 65 20 76 objPtr;./* The v
7920: 61 6c 75 65 20 74 6f 20 62 65 20 73 75 62 73 74 alue to be subst
7930: 69 74 75 74 65 64 20 2a 2f 0a 2b 20 20 20 20 69 ituted */.+ i
7940: 6e 74 20 66 6c 61 67 73 3b 09 09 2f 2a 20 57 68 nt flags;../* Wh
7950: 61 74 20 73 75 62 73 74 69 74 75 74 69 6f 6e 73 at substitutions
7960: 20 74 6f 20 64 6f 20 2a 2f 0a 2b 7b 0a 2b 20 20 to do */.+{.+
7970: 20 20 69 6e 74 20 6c 65 6e 67 74 68 2c 20 74 6f int length, to
7980: 6b 65 6e 73 4c 65 66 74 2c 20 63 6f 64 65 3b 0a kensLeft, code;.
7990: 2b 20 20 20 20 54 63 6c 5f 50 61 72 73 65 20 70 + Tcl_Parse p
79a0: 61 72 73 65 3b 0a 2b 20 20 20 20 54 63 6c 5f 54 arse;.+ Tcl_T
79b0: 6f 6b 65 6e 20 2a 65 6e 64 54 6f 6b 65 6e 50 74 oken *endTokenPt
79c0: 72 3b 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 r;.+ Tcl_Obj
79d0: 2a 72 65 73 75 6c 74 3b 0a 2b 20 20 20 20 43 4f *result;.+ CO
79e0: 4e 53 54 20 63 68 61 72 20 2a 70 20 3d 20 54 63 NST char *p = Tc
79f0: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
7a00: 62 6a 28 6f 62 6a 50 74 72 2c 20 26 6c 65 6e 67 bj(objPtr, &leng
7a10: 74 68 29 3b 0a 2b 0a 2b 20 20 20 20 70 61 72 73 th);.+.+ pars
7a20: 65 2e 74 6f 6b 65 6e 50 74 72 20 3d 20 70 61 72 e.tokenPtr = par
7a30: 73 65 2e 73 74 61 74 69 63 54 6f 6b 65 6e 73 3b se.staticTokens;
7a40: 0a 2b 20 20 20 20 70 61 72 73 65 2e 6e 75 6d 54 .+ parse.numT
7a50: 6f 6b 65 6e 73 20 3d 20 30 3b 0a 2b 20 20 20 20 okens = 0;.+
7a60: 70 61 72 73 65 2e 74 6f 6b 65 6e 73 41 76 61 69 parse.tokensAvai
7a70: 6c 61 62 6c 65 20 3d 20 4e 55 4d 5f 53 54 41 54 lable = NUM_STAT
7a80: 49 43 5f 54 4f 4b 45 4e 53 3b 0a 2b 20 20 20 20 IC_TOKENS;.+
7a90: 70 61 72 73 65 2e 73 74 72 69 6e 67 20 3d 20 70 parse.string = p
7aa0: 3b 0a 2b 20 20 20 20 70 61 72 73 65 2e 65 6e 64 ;.+ parse.end
7ab0: 20 3d 20 70 20 2b 20 6c 65 6e 67 74 68 3b 0a 2b = p + length;.+
7ac0: 20 20 20 20 70 61 72 73 65 2e 74 65 72 6d 20 3d parse.term =
7ad0: 20 70 61 72 73 65 2e 65 6e 64 3b 0a 2b 20 20 20 parse.end;.+
7ae0: 20 70 61 72 73 65 2e 69 6e 74 65 72 70 20 3d 20 parse.interp =
7af0: 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 70 61 72 interp;.+ par
7b00: 73 65 2e 69 6e 63 6f 6d 70 6c 65 74 65 20 3d 20 se.incomplete =
7b10: 30 3b 0a 2b 20 20 20 20 70 61 72 73 65 2e 65 72 0;.+ parse.er
7b20: 72 6f 72 54 79 70 65 20 3d 20 54 43 4c 5f 50 41 rorType = TCL_PA
7b30: 52 53 45 5f 53 55 43 43 45 53 53 3b 0a 2b 0a 2b RSE_SUCCESS;.+.+
7b40: 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 46 /*.+ * F
7b50: 69 72 73 74 20 70 61 72 73 65 20 74 68 65 20 73 irst parse the s
7b60: 74 72 69 6e 67 20 72 65 70 20 6f 66 20 6f 62 6a tring rep of obj
7b70: 50 74 72 2c 20 61 73 20 69 66 20 69 74 20 77 65 Ptr, as if it we
7b80: 72 65 20 65 6e 63 6c 6f 73 65 64 0a 2b 20 20 20 re enclosed.+
7b90: 20 20 2a 20 61 73 20 61 20 22 2d 71 75 6f 74 65 * as a "-quote
7ba0: 64 20 77 6f 72 64 20 69 6e 20 61 20 6e 6f 72 6d d word in a norm
7bb0: 61 6c 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 2e 20 al Tcl command.
7bc0: 20 50 61 72 73 65 20 65 72 72 6f 72 73 0a 2b 20 Parse errors.+
7bd0: 20 20 20 20 2a 20 63 61 75 73 65 20 69 6d 6d 65 * cause imme
7be0: 64 69 61 74 65 20 65 72 72 6f 72 20 72 65 70 6f diate error repo
7bf0: 72 74 69 6e 67 2e 20 20 48 6f 6e 6f 72 20 66 6c rting. Honor fl
7c00: 61 67 73 20 74 68 61 74 20 73 65 6c 65 63 74 69 ags that selecti
7c10: 76 65 6c 79 0a 2b 20 20 20 20 20 2a 20 69 6e 68 vely.+ * inh
7c20: 69 62 69 74 20 74 79 70 65 73 20 6f 66 20 73 75 ibit types of su
7c30: 62 73 74 69 74 75 74 69 6f 6e 2e 0a 2b 20 20 20 bstitution..+
7c40: 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 69 66 20 28 */.+.+ if (
7c50: 54 43 4c 5f 4f 4b 20 21 3d 20 50 61 72 73 65 54 TCL_OK != ParseT
7c60: 6f 6b 65 6e 73 28 70 2c 20 6c 65 6e 67 74 68 2c okens(p, length,
7c70: 20 2f 2a 20 6d 61 73 6b 20 2a 2f 20 30 2c 20 66 /* mask */ 0, f
7c80: 6c 61 67 73 2c 20 26 70 61 72 73 65 29 29 20 7b lags, &parse)) {
7c90: 0a 2b 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a .+.return NULL;.
7ca0: 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 2f 2a + }.+.+ /*
7cb0: 20 4e 65 78 74 2c 20 73 75 62 73 74 69 74 75 74 Next, substitut
7cc0: 65 20 74 68 65 20 70 61 72 73 65 64 20 74 6f 6b e the parsed tok
7cd0: 65 6e 73 20 6a 75 73 74 20 61 73 20 69 6e 20 6e ens just as in n
7ce0: 6f 72 6d 61 6c 20 54 63 6c 20 65 76 61 6c 75 61 ormal Tcl evalua
7cf0: 74 69 6f 6e 20 2a 2f 0a 2b 20 20 20 20 65 6e 64 tion */.+ end
7d00: 54 6f 6b 65 6e 50 74 72 20 3d 20 70 61 72 73 65 TokenPtr = parse
7d10: 2e 74 6f 6b 65 6e 50 74 72 20 2b 20 70 61 72 73 .tokenPtr + pars
7d20: 65 2e 6e 75 6d 54 6f 6b 65 6e 73 3b 0a 2b 20 20 e.numTokens;.+
7d30: 20 20 74 6f 6b 65 6e 73 4c 65 66 74 20 3d 20 70 tokensLeft = p
7d40: 61 72 73 65 2e 6e 75 6d 54 6f 6b 65 6e 73 3b 0a arse.numTokens;.
7d50: 2b 20 20 20 20 63 6f 64 65 20 3d 20 54 63 6c 53 + code = TclS
7d60: 75 62 73 74 54 6f 6b 65 6e 73 28 69 6e 74 65 72 ubstTokens(inter
7d70: 70 2c 20 65 6e 64 54 6f 6b 65 6e 50 74 72 20 2d p, endTokenPtr -
7d80: 20 74 6f 6b 65 6e 73 4c 65 66 74 2c 20 74 6f 6b tokensLeft, tok
7d90: 65 6e 73 4c 65 66 74 2c 0a 2b 09 20 20 20 20 26 ensLeft,.+. &
7da0: 74 6f 6b 65 6e 73 4c 65 66 74 29 3b 0a 2b 20 20 tokensLeft);.+
7db0: 20 20 69 66 20 28 63 6f 64 65 20 3d 3d 20 54 43 if (code == TC
7dc0: 4c 5f 4f 4b 29 20 7b 0a 2b 09 54 63 6c 5f 46 72 L_OK) {.+.Tcl_Fr
7dd0: 65 65 50 61 72 73 65 28 26 70 61 72 73 65 29 3b eeParse(&parse);
7de0: 0a 2b 09 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 .+.return Tcl_Ge
7df0: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
7e00: 70 29 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 p);.+ }.+
7e10: 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 4e 65 77 result = Tcl_New
7e20: 4f 62 6a 28 29 3b 0a 2b 20 20 20 20 77 68 69 6c Obj();.+ whil
7e30: 65 20 28 31 29 20 7b 0a 2b 09 73 77 69 74 63 68 e (1) {.+.switch
7e40: 20 28 63 6f 64 65 29 20 7b 0a 2b 09 20 20 20 20 (code) {.+.
7e50: 63 61 73 65 20 54 43 4c 5f 45 52 52 4f 52 3a 0a case TCL_ERROR:.
7e60: 2b 09 09 54 63 6c 5f 46 72 65 65 50 61 72 73 65 +..Tcl_FreeParse
7e70: 28 26 70 61 72 73 65 29 3b 0a 2b 09 09 54 63 6c (&parse);.+..Tcl
7e80: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 _DecrRefCount(re
7e90: 73 75 6c 74 29 3b 0a 2b 09 09 72 65 74 75 72 6e sult);.+..return
7ea0: 20 4e 55 4c 4c 3b 0a 2b 09 20 20 20 20 63 61 73 NULL;.+. cas
7eb0: 65 20 54 43 4c 5f 42 52 45 41 4b 3a 0a 2b 09 09 e TCL_BREAK:.+..
7ec0: 74 6f 6b 65 6e 73 4c 65 66 74 20 3d 20 30 3b 09 tokensLeft = 0;.
7ed0: 09 2f 2a 20 48 61 6c 74 20 73 75 62 73 74 69 74 ./* Halt substit
7ee0: 75 74 69 6f 6e 20 2a 2f 0a 2b 09 20 20 20 20 64 ution */.+. d
7ef0: 65 66 61 75 6c 74 3a 0a 2b 09 09 54 63 6c 5f 41 efault:.+..Tcl_A
7f00: 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 72 65 ppendObjToObj(re
7f10: 73 75 6c 74 2c 20 54 63 6c 5f 47 65 74 4f 62 6a sult, Tcl_GetObj
7f20: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b Result(interp));
7f30: 0a 2b 09 7d 0a 2b 0a 2b 09 69 66 20 28 74 6f 6b .+.}.+.+.if (tok
7f40: 65 6e 73 4c 65 66 74 20 3d 3d 20 30 29 20 7b 0a ensLeft == 0) {.
7f50: 2b 09 20 20 20 20 54 63 6c 5f 46 72 65 65 50 61 +. Tcl_FreePa
7f60: 72 73 65 28 26 70 61 72 73 65 29 3b 0a 2b 09 20 rse(&parse);.+.
7f70: 20 20 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 return result
7f80: 3b 0a 2b 09 7d 0a 2b 0a 2b 09 63 6f 64 65 20 3d ;.+.}.+.+.code =
7f90: 20 54 63 6c 53 75 62 73 74 54 6f 6b 65 6e 73 28 TclSubstTokens(
7fa0: 69 6e 74 65 72 70 2c 20 65 6e 64 54 6f 6b 65 6e interp, endToken
7fb0: 50 74 72 20 2d 20 74 6f 6b 65 6e 73 4c 65 66 74 Ptr - tokensLeft
7fc0: 2c 20 74 6f 6b 65 6e 73 4c 65 66 74 2c 0a 2b 09 , tokensLeft,.+.
7fd0: 09 26 74 6f 6b 65 6e 73 4c 65 66 74 29 3b 0a 2b .&tokensLeft);.+
7fe0: 20 20 20 20 7d 0a 2b 7d 0a 2b 2f 2a 0a 2b 20 2a }.+}.+/*.+ *
7ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8030: 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 2b 20 2a 20 54 ------.+ *.+ * T
8040: 63 6c 53 75 62 73 74 54 6f 6b 65 6e 73 20 2d 2d clSubstTokens --
8050: 0a 2b 20 2a 0a 2b 20 2a 09 41 63 63 65 70 74 73 .+ *.+ *.Accepts
8060: 20 61 6e 20 61 72 72 61 79 20 6f 66 20 63 6f 75 an array of cou
8070: 6e 74 20 54 63 6c 5f 54 6f 6b 65 6e 27 73 2c 20 nt Tcl_Token's,
8080: 61 6e 64 20 63 72 65 61 74 65 73 20 61 20 72 65 and creates a re
8090: 73 75 6c 74 0a 2b 20 2a 09 76 61 6c 75 65 20 69 sult.+ *.value i
80a0: 6e 20 74 68 65 20 69 6e 74 65 72 70 20 66 72 6f n the interp fro
80b0: 6d 20 63 6f 6e 63 61 74 65 6e 61 74 69 6e 67 20 m concatenating
80c0: 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 0a the results of .
80d0: 2b 20 2a 09 70 65 72 66 6f 72 6d 69 6e 67 20 54 + *.performing T
80e0: 63 6c 20 73 75 62 73 74 69 74 75 74 69 6f 6e 20 cl substitution
80f0: 6f 6e 20 65 61 63 68 20 54 63 6c 5f 54 6f 6b 65 on each Tcl_Toke
8100: 6e 2e 20 20 53 75 62 73 74 69 74 75 74 69 6f 6e n. Substitution
8110: 0a 2b 20 2a 09 69 73 20 69 6e 74 65 72 72 75 70 .+ *.is interrup
8120: 74 65 64 20 69 66 20 61 6e 79 20 6e 6f 6e 2d 54 ted if any non-T
8130: 43 4c 5f 4f 4b 20 63 6f 6d 70 6c 65 74 69 6f 6e CL_OK completion
8140: 20 63 6f 64 65 20 61 72 69 73 65 73 2e 0a 2b 20 code arises..+
8150: 2a 0a 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b *.+ * Results:.+
8160: 20 2a 20 09 54 68 65 20 72 65 74 75 72 6e 20 76 * .The return v
8170: 61 6c 75 65 20 69 73 20 61 20 73 74 61 6e 64 61 alue is a standa
8180: 72 64 20 54 63 6c 20 63 6f 6d 70 6c 65 74 69 6f rd Tcl completio
8190: 6e 20 63 6f 64 65 2e 20 20 54 68 65 0a 2b 20 2a n code. The.+ *
81a0: 20 09 72 65 73 75 6c 74 20 69 6e 20 69 6e 74 65 .result in inte
81b0: 72 70 20 69 73 20 74 68 65 20 73 75 62 73 74 69 rp is the substi
81c0: 74 75 74 65 64 20 76 61 6c 75 65 2c 20 6f 72 20 tuted value, or
81d0: 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 an error message
81e0: 0a 2b 20 2a 20 09 69 66 20 54 43 4c 5f 45 52 52 .+ * .if TCL_ERR
81f0: 4f 52 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 OR is returned.
8200: 20 49 66 20 74 6f 6b 65 6e 73 4c 65 66 74 50 74 If tokensLeftPt
8210: 72 20 69 73 20 6e 6f 74 20 4e 55 4c 4c 2c 20 74 r is not NULL, t
8220: 68 65 6e 0a 2b 20 2a 20 09 69 74 20 70 6f 69 6e hen.+ * .it poin
8230: 74 73 20 74 6f 20 61 6e 20 69 6e 74 20 77 68 65 ts to an int whe
8240: 72 65 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 re the number of
8250: 20 74 6f 6b 65 6e 73 20 72 65 6d 61 69 6e 69 6e tokens remainin
8260: 67 20 74 6f 0a 2b 20 2a 20 09 62 65 20 70 72 6f g to.+ * .be pro
8270: 63 65 73 73 65 64 20 69 73 20 77 72 69 74 74 65 cessed is writte
8280: 6e 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 20 n..+ *.+ * Side
8290: 65 66 66 65 63 74 73 3a 0a 2b 20 2a 20 09 43 61 effects:.+ * .Ca
82a0: 6e 20 62 65 20 61 6e 79 74 68 69 6e 67 2c 20 64 n be anything, d
82b0: 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 epending on the
82c0: 74 79 70 65 73 20 6f 66 20 73 75 62 73 74 69 74 types of substit
82d0: 75 74 69 6f 6e 20 64 6f 6e 65 2e 0a 2b 20 2a 0a ution done..+ *.
82e0: 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d + *-------------
82f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b ---------.+ */.+
8330: 0a 2b 69 6e 74 0a 2b 54 63 6c 53 75 62 73 74 54 .+int.+TclSubstT
8340: 6f 6b 65 6e 73 28 69 6e 74 65 72 70 2c 20 74 6f okens(interp, to
8350: 6b 65 6e 50 74 72 2c 20 63 6f 75 6e 74 2c 20 74 kenPtr, count, t
8360: 6f 6b 65 6e 73 4c 65 66 74 50 74 72 29 0a 2b 20 okensLeftPtr).+
8370: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
8380: 6e 74 65 72 70 3b 20 20 20 20 20 20 20 20 20 2f nterp; /
8390: 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20 69 6e * Interpreter in
83a0: 20 77 68 69 63 68 20 74 6f 20 6c 6f 6f 6b 75 70 which to lookup
83b0: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .+
83c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
83d0: 20 20 20 2a 20 76 61 72 69 61 62 6c 65 73 2c 20 * variables,
83e0: 65 78 65 63 75 74 65 20 6e 65 73 74 65 64 20 63 execute nested c
83f0: 6f 6d 6d 61 6e 64 73 2c 0a 2b 20 20 20 20 20 20 ommands,.+
8400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8410: 20 20 20 20 20 20 20 20 20 20 20 2a 20 61 6e 64 * and
8420: 20 72 65 70 6f 72 74 20 65 72 72 6f 72 73 2e 20 report errors.
8430: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 54 6f 6b 65 */.+ Tcl_Toke
8440: 6e 20 2a 74 6f 6b 65 6e 50 74 72 3b 20 20 20 20 n *tokenPtr;
8450: 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 /* Pointer t
8460: 6f 20 66 69 72 73 74 20 69 6e 20 61 6e 20 61 72 o first in an ar
8470: 72 61 79 20 6f 66 20 74 6f 6b 65 6e 73 0a 2b 20 ray of tokens.+
8480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
84a0: 2a 20 74 6f 20 65 76 61 6c 75 61 74 65 20 61 6e * to evaluate an
84b0: 64 20 63 6f 6e 63 61 74 65 6e 61 74 65 2e 20 2a d concatenate. *
84c0: 2f 0a 2b 20 20 20 20 69 6e 74 20 63 6f 75 6e 74 /.+ int count
84d0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
84e0: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 /* Number of
84f0: 74 6f 6b 65 6e 73 20 74 6f 20 63 6f 6e 73 69 64 tokens to consid
8500: 65 72 20 61 74 20 74 6f 6b 65 6e 50 74 72 2e 0a er at tokenPtr..
8510: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 +
8520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8530: 20 20 2a 20 4d 75 73 74 20 62 65 20 61 74 20 6c * Must be at l
8540: 65 61 73 74 20 31 2e 20 2a 2f 0a 2b 20 20 20 20 east 1. */.+
8550: 69 6e 74 20 2a 74 6f 6b 65 6e 73 4c 65 66 74 50 int *tokensLeftP
8560: 74 72 3b 09 09 2f 2a 20 49 66 20 6e 6f 74 20 4e tr;../* If not N
8570: 55 4c 4c 2c 20 70 6f 69 6e 74 73 20 74 6f 20 6d ULL, points to m
8580: 65 6d 6f 72 79 20 77 68 65 72 65 20 61 6e 0a 2b emory where an.+
8590: 09 09 09 09 20 2a 20 69 6e 74 65 67 65 72 20 72 .... * integer r
85a0: 65 70 72 65 73 65 6e 74 69 6e 67 20 74 68 65 20 epresenting the
85b0: 6e 75 6d 62 65 72 20 6f 66 20 74 6f 6b 65 6e 73 number of tokens
85c0: 0a 2b 09 09 09 09 20 2a 20 6c 65 66 74 20 74 6f .+.... * left to
85d0: 20 62 65 20 73 75 62 73 74 69 74 75 74 65 64 20 be substituted
85e0: 77 69 6c 6c 20 62 65 20 77 72 69 74 74 65 6e 20 will be written
85f0: 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 54 63 6c 5f 4f */.+{.+ Tcl_O
8600: 62 6a 20 2a 72 65 73 75 6c 74 3b 0a 2b 20 20 20 bj *result;.+
8610: 20 69 6e 74 20 63 6f 64 65 20 3d 20 54 43 4c 5f int code = TCL_
8620: 4f 4b 3b 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b 20 OK;.+.+ /*.+
8630: 20 20 20 20 2a 20 45 61 63 68 20 70 61 73 73 20 * Each pass
8640: 74 68 72 6f 75 67 68 20 74 68 69 73 20 6c 6f 6f through this loo
8650: 70 20 77 69 6c 6c 20 73 75 62 73 74 69 74 75 74 p will substitut
8660: 65 20 6f 6e 65 20 74 6f 6b 65 6e 2c 20 61 6e 64 e one token, and
8670: 20 69 74 73 0a 2b 20 20 20 20 20 2a 20 63 6f 6d its.+ * com
8680: 70 6f 6e 65 6e 74 73 2c 20 69 66 20 61 6e 79 2e ponents, if any.
8690: 20 20 54 68 65 20 6f 6e 6c 79 20 74 68 69 6e 67 The only thing
86a0: 20 74 72 69 63 6b 79 20 68 65 72 65 20 69 73 20 tricky here is
86b0: 74 68 61 74 20 77 65 20 67 6f 20 74 6f 0a 2b 20 that we go to.+
86c0: 20 20 20 20 2a 20 73 6f 6d 65 20 65 66 66 6f 72 * some effor
86d0: 74 20 74 6f 20 70 61 73 73 20 54 63 6c 5f 4f 62 t to pass Tcl_Ob
86e0: 6a 27 73 20 74 68 72 6f 75 67 68 20 75 6e 74 6f j's through unto
86f0: 75 63 68 65 64 2c 20 74 6f 20 61 76 6f 69 64 20 uched, to avoid
8700: 73 74 72 69 6e 67 0a 2b 20 20 20 20 20 2a 20 63 string.+ * c
8710: 6f 70 79 69 6e 67 20 61 6e 64 20 54 63 6c 5f 4f opying and Tcl_O
8720: 62 6a 20 63 72 65 61 74 69 6f 6e 20 69 66 20 70 bj creation if p
8730: 6f 73 73 69 62 6c 65 2c 20 74 6f 20 61 69 64 20 ossible, to aid
8740: 70 65 72 66 6f 72 6d 61 6e 63 65 20 61 6e 64 0a performance and.
8750: 2b 20 20 20 20 20 2a 20 6c 69 6d 69 74 20 73 68 + * limit sh
8760: 69 6d 6d 65 72 69 6e 67 2e 0a 2b 20 20 20 20 20 immering..+
8770: 2a 0a 2b 20 20 20 20 20 2a 20 46 75 72 74 68 65 *.+ * Furthe
8780: 72 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 6f r optimization o
8790: 70 70 6f 72 74 75 6e 69 74 69 65 73 20 6d 69 67 pportunities mig
87a0: 68 74 20 62 65 20 74 6f 20 63 68 65 63 6b 20 66 ht be to check f
87b0: 6f 72 20 74 68 65 0a 2b 20 20 20 20 20 2a 20 65 or the.+ * e
87c0: 71 75 69 76 61 6c 65 6e 74 20 6f 66 20 54 63 6c quivalent of Tcl
87d0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
87e0: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 4f 62 6a terp, Tcl_GetObj
87f0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 0a Result(interp)).
8800: 2b 20 20 20 20 20 2a 20 61 6e 64 20 6f 6d 69 74 + * and omit
8810: 20 74 68 65 6d 2e 0a 2b 20 20 20 20 20 2a 2f 0a them..+ */.
8820: 2b 0a 2b 20 20 20 20 72 65 73 75 6c 74 20 3d 20 +.+ result =
8830: 4e 55 4c 4c 3b 0a 2b 20 20 20 20 66 6f 72 20 28 NULL;.+ for (
8840: 20 3b 20 28 63 6f 75 6e 74 20 3e 20 30 29 20 26 ; (count > 0) &
8850: 26 20 28 63 6f 64 65 20 3d 3d 20 54 43 4c 5f 4f & (code == TCL_O
8860: 4b 29 3b 20 63 6f 75 6e 74 2d 2d 2c 20 74 6f 6b K); count--, tok
8870: 65 6e 50 74 72 2b 2b 29 20 7b 0a 2b 09 54 63 6c enPtr++) {.+.Tcl
8880: 5f 4f 62 6a 20 2a 61 70 70 65 6e 64 4f 62 6a 20 _Obj *appendObj
8890: 3d 20 4e 55 4c 4c 3b 0a 2b 09 43 4f 4e 53 54 20 = NULL;.+.CONST
88a0: 63 68 61 72 20 2a 61 70 70 65 6e 64 20 3d 20 4e char *append = N
88b0: 55 4c 4c 3b 0a 2b 09 69 6e 74 20 61 70 70 65 6e ULL;.+.int appen
88c0: 64 42 79 74 65 4c 65 6e 67 74 68 20 3d 20 30 3b dByteLength = 0;
88d0: 0a 2b 0a 2b 09 73 77 69 74 63 68 20 28 74 6f 6b .+.+.switch (tok
88e0: 65 6e 50 74 72 2d 3e 74 79 70 65 29 20 7b 0a 2b enPtr->type) {.+
88f0: 09 20 20 20 20 63 61 73 65 20 54 43 4c 5f 54 4f . case TCL_TO
8900: 4b 45 4e 5f 54 45 58 54 3a 0a 2b 09 09 61 70 70 KEN_TEXT:.+..app
8910: 65 6e 64 20 3d 20 74 6f 6b 65 6e 50 74 72 2d 3e end = tokenPtr->
8920: 73 74 61 72 74 3b 0a 2b 09 09 61 70 70 65 6e 64 start;.+..append
8930: 42 79 74 65 4c 65 6e 67 74 68 20 3d 20 74 6f 6b ByteLength = tok
8940: 65 6e 50 74 72 2d 3e 73 69 7a 65 3b 0a 2b 09 09 enPtr->size;.+..
8950: 62 72 65 61 6b 3b 0a 2b 0a 2b 09 20 20 20 20 63 break;.+.+. c
8960: 61 73 65 20 54 43 4c 5f 54 4f 4b 45 4e 5f 42 53 ase TCL_TOKEN_BS
8970: 3a 20 7b 0a 2b 09 09 63 68 61 72 20 75 74 66 43 : {.+..char utfC
8980: 68 61 72 42 79 74 65 73 5b 54 43 4c 5f 55 54 46 harBytes[TCL_UTF
8990: 5f 4d 41 58 5d 3b 0a 2b 09 09 61 70 70 65 6e 64 _MAX];.+..append
89a0: 42 79 74 65 4c 65 6e 67 74 68 20 3d 20 54 63 6c ByteLength = Tcl
89b0: 5f 55 74 66 42 61 63 6b 73 6c 61 73 68 28 74 6f _UtfBackslash(to
89c0: 6b 65 6e 50 74 72 2d 3e 73 74 61 72 74 2c 0a 2b kenPtr->start,.+
89d0: 09 09 09 28 69 6e 74 20 2a 29 20 4e 55 4c 4c 2c ...(int *) NULL,
89e0: 20 75 74 66 43 68 61 72 42 79 74 65 73 29 3b 0a utfCharBytes);.
89f0: 2b 09 09 61 70 70 65 6e 64 20 3d 20 75 74 66 43 +..append = utfC
8a00: 68 61 72 42 79 74 65 73 3b 0a 2b 09 09 62 72 65 harBytes;.+..bre
8a10: 61 6b 3b 0a 2b 09 20 20 20 20 7d 0a 2b 0a 2b 09 ak;.+. }.+.+.
8a20: 20 20 20 20 63 61 73 65 20 54 43 4c 5f 54 4f 4b case TCL_TOK
8a30: 45 4e 5f 43 4f 4d 4d 41 4e 44 3a 0a 2b 09 09 63 EN_COMMAND:.+..c
8a40: 6f 64 65 20 3d 20 54 63 6c 5f 45 76 61 6c 45 78 ode = Tcl_EvalEx
8a50: 28 69 6e 74 65 72 70 2c 20 74 6f 6b 65 6e 50 74 (interp, tokenPt
8a60: 72 2d 3e 73 74 61 72 74 2b 31 2c 20 74 6f 6b 65 r->start+1, toke
8a70: 6e 50 74 72 2d 3e 73 69 7a 65 2d 32 2c 0a 2b 09 nPtr->size-2,.+.
8a80: 09 09 30 29 3b 0a 2b 09 09 61 70 70 65 6e 64 4f ..0);.+..appendO
8a90: 62 6a 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 bj = Tcl_GetObjR
8aa0: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 2b esult(interp);.+
8ab0: 09 09 62 72 65 61 6b 3b 0a 2b 0a 2b 09 20 20 20 ..break;.+.+.
8ac0: 20 63 61 73 65 20 54 43 4c 5f 54 4f 4b 45 4e 5f case TCL_TOKEN_
8ad0: 56 41 52 49 41 42 4c 45 3a 20 7b 0a 2b 09 09 54 VARIABLE: {.+..T
8ae0: 63 6c 5f 4f 62 6a 20 2a 61 72 72 61 79 49 6e 64 cl_Obj *arrayInd
8af0: 65 78 20 3d 20 4e 55 4c 4c 3b 0a 2b 09 09 54 63 ex = NULL;.+..Tc
8b00: 6c 5f 4f 62 6a 20 2a 76 61 72 4e 61 6d 65 20 3d l_Obj *varName =
8b10: 20 4e 55 4c 4c 3b 0a 2b 09 09 69 66 20 28 74 6f NULL;.+..if (to
8b20: 6b 65 6e 50 74 72 2d 3e 6e 75 6d 43 6f 6d 70 6f kenPtr->numCompo
8b30: 6e 65 6e 74 73 20 3e 20 31 29 20 7b 0a 2b 09 09 nents > 1) {.+..
8b40: 20 20 20 20 2f 2a 20 53 75 62 73 74 20 74 68 65 /* Subst the
8b50: 20 69 6e 64 65 78 20 70 61 72 74 20 6f 66 20 61 index part of a
8b60: 6e 20 61 72 72 61 79 20 76 61 72 69 61 62 6c 65 n array variable
8b70: 20 72 65 66 65 72 65 6e 63 65 20 2a 2f 0a 2b 09 reference */.+.
8b80: 09 20 20 20 20 63 6f 64 65 20 3d 20 54 63 6c 53 . code = TclS
8b90: 75 62 73 74 54 6f 6b 65 6e 73 28 69 6e 74 65 72 ubstTokens(inter
8ba0: 70 2c 20 74 6f 6b 65 6e 50 74 72 2b 32 2c 0a 2b p, tokenPtr+2,.+
8bb0: 09 09 09 20 20 20 20 74 6f 6b 65 6e 50 74 72 2d ... tokenPtr-
8bc0: 3e 6e 75 6d 43 6f 6d 70 6f 6e 65 6e 74 73 20 2d >numComponents -
8bd0: 20 31 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 09 20 20 1, NULL);.+..
8be0: 20 20 61 72 72 61 79 49 6e 64 65 78 20 3d 20 54 arrayIndex = T
8bf0: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_GetObjResult(
8c00: 69 6e 74 65 72 70 29 3b 0a 2b 09 09 20 20 20 20 interp);.+..
8c10: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
8c20: 28 61 72 72 61 79 49 6e 64 65 78 29 3b 0a 2b 09 (arrayIndex);.+.
8c30: 09 7d 0a 2b 0a 2b 09 09 69 66 20 28 63 6f 64 65 .}.+.+..if (code
8c40: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 == TCL_OK) {.+.
8c50: 09 20 20 20 20 76 61 72 4e 61 6d 65 20 3d 20 54 . varName = T
8c60: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
8c70: 74 6f 6b 65 6e 50 74 72 5b 31 5d 2e 73 74 61 72 tokenPtr[1].star
8c80: 74 2c 0a 2b 09 09 09 20 20 20 20 74 6f 6b 65 6e t,.+... token
8c90: 50 74 72 5b 31 5d 2e 73 69 7a 65 29 3b 0a 2b 09 Ptr[1].size);.+.
8ca0: 09 20 20 20 20 61 70 70 65 6e 64 4f 62 6a 20 3d . appendObj =
8cb0: 20 54 63 6c 5f 4f 62 6a 47 65 74 56 61 72 32 28 Tcl_ObjGetVar2(
8cc0: 69 6e 74 65 72 70 2c 20 76 61 72 4e 61 6d 65 2c interp, varName,
8cd0: 20 61 72 72 61 79 49 6e 64 65 78 2c 0a 2b 09 09 arrayIndex,.+..
8ce0: 09 20 20 20 20 54 43 4c 5f 4c 45 41 56 45 5f 45 . TCL_LEAVE_E
8cf0: 52 52 5f 4d 53 47 29 3b 0a 2b 09 09 20 20 20 20 RR_MSG);.+..
8d00: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
8d10: 28 76 61 72 4e 61 6d 65 29 3b 0a 2b 09 09 20 20 (varName);.+..
8d20: 20 20 69 66 20 28 61 70 70 65 6e 64 4f 62 6a 20 if (appendObj
8d30: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 09 09 63 == NULL) {.+...c
8d40: 6f 64 65 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b ode = TCL_ERROR;
8d50: 0a 2b 09 09 20 20 20 20 7d 0a 2b 09 09 7d 0a 2b .+.. }.+..}.+
8d60: 0a 2b 09 09 73 77 69 74 63 68 20 28 63 6f 64 65 .+..switch (code
8d70: 29 20 7b 0a 2b 09 09 20 20 20 20 63 61 73 65 20 ) {.+.. case
8d80: 54 43 4c 5f 4f 4b 3a 09 2f 2a 20 47 6f 74 20 76 TCL_OK:./* Got v
8d90: 61 6c 75 65 20 2a 2f 0a 2b 09 09 20 20 20 20 63 alue */.+.. c
8da0: 61 73 65 20 54 43 4c 5f 45 52 52 4f 52 3a 09 2f ase TCL_ERROR:./
8db0: 2a 20 41 6c 72 65 61 64 79 20 68 61 76 65 20 65 * Already have e
8dc0: 72 72 6f 72 20 6d 65 73 73 61 67 65 20 2a 2f 0a rror message */.
8dd0: 2b 09 09 20 20 20 20 63 61 73 65 20 54 43 4c 5f +.. case TCL_
8de0: 42 52 45 41 4b 3a 09 2f 2a 20 57 69 6c 6c 20 6e BREAK:./* Will n
8df0: 6f 74 20 73 75 62 73 74 69 74 75 74 65 20 61 6e ot substitute an
8e00: 79 77 61 79 20 2a 2f 0a 2b 09 09 20 20 20 20 63 yway */.+.. c
8e10: 61 73 65 20 54 43 4c 5f 43 4f 4e 54 49 4e 55 45 ase TCL_CONTINUE
8e20: 3a 09 2f 2a 20 57 69 6c 6c 20 6e 6f 74 20 73 75 :./* Will not su
8e30: 62 73 74 69 74 75 74 65 20 61 6e 79 77 61 79 20 bstitute anyway
8e40: 2a 2f 0a 2b 09 09 09 62 72 65 61 6b 3b 0a 2b 09 */.+...break;.+.
8e50: 09 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 2b 09 . default:.+.
8e60: 09 09 2f 2a 20 41 6c 6c 20 6f 74 68 65 72 20 72 ../* All other r
8e70: 65 74 75 72 6e 20 63 6f 64 65 73 2c 20 77 65 20 eturn codes, we
8e80: 77 69 6c 6c 20 73 75 62 73 74 20 74 68 65 0a 2b will subst the.+
8e90: 09 09 09 20 2a 20 72 65 73 75 6c 74 20 66 72 6f ... * result fro
8ea0: 6d 20 74 68 65 20 63 6f 64 65 2d 74 68 72 6f 77 m the code-throw
8eb0: 69 6e 67 20 65 76 61 6c 75 61 74 69 6f 6e 20 2a ing evaluation *
8ec0: 2f 0a 2b 09 09 09 61 70 70 65 6e 64 4f 62 6a 20 /.+...appendObj
8ed0: 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 = Tcl_GetObjResu
8ee0: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 2b 09 09 7d lt(interp);.+..}
8ef0: 0a 2b 0a 2b 09 09 69 66 20 28 61 72 72 61 79 49 .+.+..if (arrayI
8f00: 6e 64 65 78 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a ndex != NULL) {.
8f10: 2b 09 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 +.. Tcl_DecrR
8f20: 65 66 43 6f 75 6e 74 28 61 72 72 61 79 49 6e 64 efCount(arrayInd
8f30: 65 78 29 3b 0a 2b 09 09 7d 0a 2b 09 09 63 6f 75 ex);.+..}.+..cou
8f40: 6e 74 20 2d 3d 20 74 6f 6b 65 6e 50 74 72 2d 3e nt -= tokenPtr->
8f50: 6e 75 6d 43 6f 6d 70 6f 6e 65 6e 74 73 3b 0a 2b numComponents;.+
8f60: 09 09 74 6f 6b 65 6e 50 74 72 20 2b 3d 20 74 6f ..tokenPtr += to
8f70: 6b 65 6e 50 74 72 2d 3e 6e 75 6d 43 6f 6d 70 6f kenPtr->numCompo
8f80: 6e 65 6e 74 73 3b 0a 2b 09 09 62 72 65 61 6b 3b nents;.+..break;
8f90: 0a 2b 09 20 20 20 20 7d 0a 2b 0a 2b 09 20 20 20 .+. }.+.+.
8fa0: 20 64 65 66 61 75 6c 74 3a 0a 2b 09 09 54 63 6c default:.+..Tcl
8fb0: 5f 50 61 6e 69 63 28 22 75 6e 65 78 70 65 63 74 _Panic("unexpect
8fc0: 65 64 20 74 6f 6b 65 6e 20 74 79 70 65 20 69 6e ed token type in
8fd0: 20 54 63 6c 53 75 62 73 74 54 6f 6b 65 6e 73 3a TclSubstTokens:
8fe0: 20 25 64 22 2c 0a 2b 09 09 09 74 6f 6b 65 6e 50 %d",.+...tokenP
8ff0: 74 72 2d 3e 74 79 70 65 29 3b 0a 2b 09 7d 0a 2b tr->type);.+.}.+
9000: 0a 2b 09 69 66 20 28 28 63 6f 64 65 20 3d 3d 20 .+.if ((code ==
9010: 54 43 4c 5f 42 52 45 41 4b 29 20 7c 7c 20 28 63 TCL_BREAK) || (c
9020: 6f 64 65 20 3d 3d 20 54 43 4c 5f 43 4f 4e 54 49 ode == TCL_CONTI
9030: 4e 55 45 29 29 20 7b 0a 2b 09 20 20 20 20 2f 2a NUE)) {.+. /*
9040: 20 49 6e 68 69 62 69 74 20 73 75 62 73 74 69 74 Inhibit substit
9050: 75 74 69 6f 6e 20 2a 2f 0a 2b 09 20 20 20 20 63 ution */.+. c
9060: 6f 6e 74 69 6e 75 65 3b 0a 2b 09 7d 0a 2b 0a 2b ontinue;.+.}.+.+
9070: 09 69 66 20 28 72 65 73 75 6c 74 20 3d 3d 20 4e .if (result == N
9080: 55 4c 4c 29 20 7b 0a 2b 09 20 20 20 20 2f 2a 20 ULL) {.+. /*
9090: 0a 2b 09 20 20 20 20 20 2a 20 46 69 72 73 74 20 .+. * First
90a0: 70 61 73 73 20 74 68 72 6f 75 67 68 2e 20 20 49 pass through. I
90b0: 66 20 77 65 20 68 61 76 65 20 61 20 54 63 6c 5f f we have a Tcl_
90c0: 4f 62 6a 2c 20 6a 75 73 74 20 75 73 65 20 69 74 Obj, just use it
90d0: 2e 0a 2b 09 20 20 20 20 20 2a 20 49 66 20 6e 6f ..+. * If no
90e0: 74 2c 20 63 72 65 61 74 65 20 6f 6e 65 20 66 72 t, create one fr
90f0: 6f 6d 20 6f 75 72 20 73 74 72 69 6e 67 2e 20 0a om our string. .
9100: 2b 09 20 20 20 20 20 2a 2f 0a 2b 0a 2b 09 20 20 +. */.+.+.
9110: 20 20 69 66 20 28 61 70 70 65 6e 64 4f 62 6a 20 if (appendObj
9120: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 09 72 65 != NULL) {.+..re
9130: 73 75 6c 74 20 3d 20 61 70 70 65 6e 64 4f 62 6a sult = appendObj
9140: 3b 0a 2b 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;.+. } else {
9150: 0a 2b 09 09 72 65 73 75 6c 74 20 3d 20 54 63 6c .+..result = Tcl
9160: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 61 70 _NewStringObj(ap
9170: 70 65 6e 64 2c 20 61 70 70 65 6e 64 42 79 74 65 pend, appendByte
9180: 4c 65 6e 67 74 68 29 3b 3b 0a 2b 09 20 20 20 20 Length);;.+.
9190: 7d 0a 2b 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 }.+. Tcl_Incr
91a0: 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 29 RefCount(result)
91b0: 3b 0a 2b 09 7d 20 65 6c 73 65 20 7b 0a 2b 09 20 ;.+.} else {.+.
91c0: 20 20 20 2f 2a 20 53 75 62 73 65 71 75 65 6e 74 /* Subsequent
91d0: 20 70 61 73 73 65 73 2e 20 20 41 70 70 65 6e 64 passes. Append
91e0: 20 74 6f 20 72 65 73 75 6c 74 2e 20 2a 2f 0a 2b to result. */.+
91f0: 09 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53 . if (Tcl_IsS
9200: 68 61 72 65 64 28 72 65 73 75 6c 74 29 29 20 7b hared(result)) {
9210: 0a 2b 09 09 54 63 6c 5f 44 65 63 72 52 65 66 43 .+..Tcl_DecrRefC
9220: 6f 75 6e 74 28 72 65 73 75 6c 74 29 3b 0a 2b 09 ount(result);.+.
9230: 09 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 44 75 .result = Tcl_Du
9240: 70 6c 69 63 61 74 65 4f 62 6a 28 72 65 73 75 6c plicateObj(resul
9250: 74 29 3b 0a 2b 09 09 54 63 6c 5f 49 6e 63 72 52 t);.+..Tcl_IncrR
9260: 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 29 3b efCount(result);
9270: 0a 2b 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 69 .+. }.+. i
9280: 66 20 28 61 70 70 65 6e 64 4f 62 6a 20 21 3d 20 f (appendObj !=
9290: 4e 55 4c 4c 29 20 7b 0a 2b 09 09 54 63 6c 5f 41 NULL) {.+..Tcl_A
92a0: 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 72 65 ppendObjToObj(re
92b0: 73 75 6c 74 2c 20 61 70 70 65 6e 64 4f 62 6a 29 sult, appendObj)
92c0: 3b 0a 2b 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;.+. } else {
92d0: 0a 2b 09 09 54 63 6c 5f 41 70 70 65 6e 64 54 6f .+..Tcl_AppendTo
92e0: 4f 62 6a 28 72 65 73 75 6c 74 2c 20 61 70 70 65 Obj(result, appe
92f0: 6e 64 2c 20 61 70 70 65 6e 64 42 79 74 65 4c 65 nd, appendByteLe
9300: 6e 67 74 68 29 3b 0a 2b 09 20 20 20 20 7d 0a 2b ngth);.+. }.+
9310: 09 7d 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 .}.+ }.+.+
9320: 20 69 66 20 28 63 6f 64 65 20 21 3d 20 54 43 4c if (code != TCL
9330: 5f 45 52 52 4f 52 29 20 7b 09 2f 2a 20 4b 65 65 _ERROR) {./* Kee
9340: 70 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 p error message
9350: 69 6e 20 72 65 73 75 6c 74 21 20 2a 2f 0a 2b 09 in result! */.+.
9360: 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 4e 55 if (result != NU
9370: 4c 4c 29 20 7b 0a 2b 09 20 20 20 20 54 63 6c 5f LL) {.+. Tcl_
9380: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
9390: 65 72 70 2c 20 72 65 73 75 6c 74 29 3b 0a 2b 09 erp, result);.+.
93a0: 7d 20 65 6c 73 65 20 7b 0a 2b 09 20 20 20 20 54 } else {.+. T
93b0: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 cl_ResetResult(i
93c0: 6e 74 65 72 70 29 3b 0a 2b 09 7d 0a 2b 20 20 20 nterp);.+.}.+
93d0: 20 7d 0a 2b 20 20 20 20 69 66 20 28 74 6f 6b 65 }.+ if (toke
93e0: 6e 73 4c 65 66 74 50 74 72 20 21 3d 20 4e 55 4c nsLeftPtr != NUL
93f0: 4c 29 20 7b 0a 2b 09 2a 74 6f 6b 65 6e 73 4c 65 L) {.+.*tokensLe
9400: 66 74 50 74 72 20 3d 20 63 6f 75 6e 74 3b 0a 2b ftPtr = count;.+
9410: 20 20 20 20 7d 0a 2b 20 20 20 20 69 66 20 28 72 }.+ if (r
9420: 65 73 75 6c 74 20 21 3d 20 4e 55 4c 4c 29 20 7b esult != NULL) {
9430: 0a 2b 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f .+.Tcl_DecrRefCo
9440: 75 6e 74 28 72 65 73 75 6c 74 29 3b 0a 2b 20 20 unt(result);.+
9450: 20 20 7d 0a 2b 20 20 20 20 72 65 74 75 72 6e 20 }.+ return
9460: 63 6f 64 65 3b 0a 2b 7d 0a 2b 0c 0a 20 2f 2a 0a code;.+}.+.. /*.
9470: 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *-------------
9480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 0a 49 6e ---------. *.In
94c0: 64 65 78 3a 20 74 65 73 74 73 2f 73 75 62 73 74 dex: tests/subst
94d0: 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .test.==========
94e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
94f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
9500: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
9510: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
9520: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
9530: 2f 74 63 6c 2f 74 65 73 74 73 2f 73 75 62 73 74 /tcl/tests/subst
9540: 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 .test,v.retrievi
9550: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 33 ng revision 1.13
9560: 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 33 20 .diff -u -r1.13
9570: 73 75 62 73 74 2e 74 65 73 74 0a 2d 2d 2d 20 74 subst.test.--- t
9580: 65 73 74 73 2f 73 75 62 73 74 2e 74 65 73 74 09 ests/subst.test.
9590: 31 36 20 46 65 62 20 32 30 30 33 20 30 31 3a 33 16 Feb 2003 01:3
95a0: 36 3a 33 32 20 2d 30 30 30 30 09 31 2e 31 33 0a 6:32 -0000.1.13.
95b0: 2b 2b 2b 20 74 65 73 74 73 2f 73 75 62 73 74 2e +++ tests/subst.
95c0: 74 65 73 74 09 38 20 4d 61 72 20 32 30 30 33 20 test.8 Mar 2003
95d0: 32 31 3a 32 35 3a 31 32 20 2d 30 30 30 30 0a 40 21:25:12 -0000.@
95e0: 40 20 2d 31 34 2c 37 20 2b 31 34 2c 37 20 40 40 @ -14,7 +14,7 @@
95f0: 0a 20 23 20 52 43 53 3a 20 40 28 23 29 20 24 49 . # RCS: @(#) $I
9600: 64 3a 20 73 75 62 73 74 2e 74 65 73 74 2c 76 20 d: subst.test,v
9610: 31 2e 31 33 20 32 30 30 33 2f 30 32 2f 31 36 20 1.13 2003/02/16
9620: 30 31 3a 33 36 3a 33 32 20 6d 73 6f 66 65 72 20 01:36:32 msofer
9630: 45 78 70 20 24 0a 20 0a 20 69 66 20 7b 5b 6c 73 Exp $. . if {[ls
9640: 65 61 72 63 68 20 5b 6e 61 6d 65 73 70 61 63 65 earch [namespace
9650: 20 63 68 69 6c 64 72 65 6e 5d 20 3a 3a 74 63 6c children] ::tcl
9660: 74 65 73 74 5d 20 3d 3d 20 2d 31 7d 20 7b 0a 2d test] == -1} {.-
9670: 20 20 20 20 70 61 63 6b 61 67 65 20 72 65 71 75 package requ
9680: 69 72 65 20 74 63 6c 74 65 73 74 0a 2b 20 20 20 ire tcltest.+
9690: 20 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 package require
96a0: 20 74 63 6c 74 65 73 74 20 32 2e 31 0a 20 20 20 tcltest 2.1.
96b0: 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f namespace impo
96c0: 72 74 20 2d 66 6f 72 63 65 20 3a 3a 74 63 6c 74 rt -force ::tclt
96d0: 65 73 74 3a 3a 2a 0a 20 7d 0a 20 0a 40 40 20 2d est::*. }. .@@ -
96e0: 39 33 2c 37 20 2b 39 33 2c 37 20 40 40 0a 20 74 93,7 +93,7 @@. t
96f0: 65 73 74 20 73 75 62 73 74 2d 35 2e 37 20 7b 63 est subst-5.7 {c
9700: 6f 6d 6d 61 6e 64 20 73 75 62 73 74 69 74 75 74 ommand substitut
9710: 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 20 73 65 74 ions} {. set
9720: 20 61 20 30 0a 20 20 20 20 20 6c 69 73 74 20 5b a 0. list [
9730: 63 61 74 63 68 20 7b 73 75 62 73 74 20 7b 30 5b catch {subst {0[
9740: 73 65 74 20 61 20 31 3b 20 73 65 74 20 61 20 32 set a 1; set a 2
9750: 7d 7d 20 6d 73 67 5d 20 24 61 20 24 6d 73 67 20 }} msg] $a $msg
9760: 0a 2d 7d 20 7b 31 20 31 20 7b 6d 69 73 73 69 6e .-} {1 1 {missin
9770: 67 20 63 6c 6f 73 65 2d 62 72 61 63 6b 65 74 7d g close-bracket}
9780: 7d 0a 2b 7d 20 7b 31 20 30 20 7b 6d 69 73 73 69 }.+} {1 0 {missi
9790: 6e 67 20 63 6c 6f 73 65 2d 62 72 61 63 6b 65 74 ng close-bracket
97a0: 7d 7d 0a 20 0a 20 23 20 72 65 70 65 61 74 20 74 }}. . # repeat t
97b0: 68 65 20 74 65 73 74 73 20 61 62 6f 76 65 20 73 he tests above s
97c0: 69 6d 75 6c 61 74 69 6e 67 20 63 6d 64 20 6c 69 imulating cmd li
97d0: 6e 65 20 69 6e 70 75 74 0a 20 74 65 73 74 20 73 ne input. test s
97e0: 75 62 73 74 2d 35 2e 38 20 7b 63 6f 6d 6d 61 6e ubst-5.8 {comman
97f0: 64 20 73 75 62 73 74 69 74 75 74 69 6f 6e 73 7d d substitutions}
9800: 20 7b 0a 40 40 20 2d 31 35 38 2c 31 32 20 2b 31 {.@@ -158,12 +1
9810: 35 38 2c 31 32 20 40 40 0a 20 74 65 73 74 20 73 58,12 @@. test s
9820: 75 62 73 74 2d 38 2e 36 20 7b 72 65 74 75 72 6e ubst-8.6 {return
9830: 20 69 6e 20 61 20 73 75 62 73 74 7d 20 7b 0a 20 in a subst} {.
9840: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
9850: 7b 73 75 62 73 74 20 7b 66 6f 6f 20 5b 72 65 74 {subst {foo [ret
9860: 75 72 6e 20 7b 78 7d 3b 20 62 6f 67 75 73 20 63 urn {x}; bogus c
9870: 6f 64 65 20 62 61 72 7d 7d 20 6d 73 67 5d 20 24 ode bar}} msg] $
9880: 6d 73 67 0a 20 7d 20 7b 31 20 7b 6d 69 73 73 69 msg. } {1 {missi
9890: 6e 67 20 63 6c 6f 73 65 2d 62 72 61 63 6b 65 74 ng close-bracket
98a0: 7d 7d 0a 2d 74 65 73 74 20 73 75 62 73 74 2d 38 }}.-test subst-8
98b0: 2e 37 20 7b 72 65 74 75 72 6e 20 69 6e 20 61 20 .7 {return in a
98c0: 73 75 62 73 74 2c 20 70 61 72 73 65 20 65 72 72 subst, parse err
98d0: 6f 72 7d 20 7b 0a 2b 74 65 73 74 20 73 75 62 73 or} {.+test subs
98e0: 74 2d 38 2e 37 20 7b 72 65 74 75 72 6e 20 69 6e t-8.7 {return in
98f0: 20 61 20 73 75 62 73 74 2c 20 70 61 72 73 65 20 a subst, parse
9900: 65 72 72 6f 72 7d 20 2d 62 6f 64 79 20 7b 0a 20 error} -body {.
9910: 20 20 20 20 73 75 62 73 74 20 7b 66 6f 6f 20 5b subst {foo [
9920: 72 65 74 75 72 6e 20 7b 78 7d 20 3b 20 73 65 74 return {x} ; set
9930: 20 61 20 7b 7d 22 20 3b 20 73 74 75 66 66 5d 20 a {}" ; stuff]
9940: 62 61 72 7d 0a 2d 7d 20 7b 66 6f 6f 20 78 73 65 bar}.-} {foo xse
9950: 74 20 61 20 7b 7d 22 20 3b 20 73 74 75 66 66 5d t a {}" ; stuff]
9960: 20 62 61 72 7d 0a 2d 74 65 73 74 20 73 75 62 73 bar}.-test subs
9970: 74 2d 38 2e 38 20 7b 72 65 74 75 72 6e 20 69 6e t-8.8 {return in
9980: 20 61 20 73 75 62 73 74 2c 20 70 61 72 73 65 20 a subst, parse
9990: 65 72 72 6f 72 7d 20 7b 0a 2b 7d 20 2d 72 65 74 error} {.+} -ret
99a0: 75 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d urnCodes error -
99b0: 72 65 73 75 6c 74 20 7b 65 78 74 72 61 20 63 68 result {extra ch
99c0: 61 72 61 63 74 65 72 73 20 61 66 74 65 72 20 63 aracters after c
99d0: 6c 6f 73 65 2d 62 72 61 63 65 7d 0a 2b 74 65 73 lose-brace}.+tes
99e0: 74 20 73 75 62 73 74 2d 38 2e 38 20 7b 72 65 74 t subst-8.8 {ret
99f0: 75 72 6e 20 69 6e 20 61 20 73 75 62 73 74 2c 20 urn in a subst,
9a00: 70 61 72 73 65 20 65 72 72 6f 72 7d 20 2d 62 6f parse error} -bo
9a10: 64 79 20 7b 0a 20 20 20 20 20 73 75 62 73 74 20 dy {. subst
9a20: 7b 66 6f 6f 20 5b 72 65 74 75 72 6e 20 7b 78 7d {foo [return {x}
9a30: 20 3b 20 73 65 74 20 62 61 72 20 62 61 7a 20 3b ; set bar baz ;
9a40: 20 73 65 74 20 61 20 7b 7d 22 20 3b 20 73 74 75 set a {}" ; stu
9a50: 66 66 5d 20 62 61 72 7d 0a 2d 7d 20 7b 66 6f 6f ff] bar}.-} {foo
9a60: 20 78 73 65 74 20 62 61 72 20 62 61 7a 20 3b 20 xset bar baz ;
9a70: 73 65 74 20 61 20 7b 7d 22 20 3b 20 73 74 75 66 set a {}" ; stuf
9a80: 66 5d 20 62 61 72 7d 0a 2b 7d 20 2d 72 65 74 75 f] bar}.+} -retu
9a90: 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 72 rnCodes error -r
9aa0: 65 73 75 6c 74 20 7b 65 78 74 72 61 20 63 68 61 esult {extra cha
9ab0: 72 61 63 74 65 72 73 20 61 66 74 65 72 20 63 6c racters after cl
9ac0: 6f 73 65 2d 62 72 61 63 65 7d 0a 20 74 65 73 74 ose-brace}. test
9ad0: 20 73 75 62 73 74 2d 38 2e 39 20 7b 72 65 74 75 subst-8.9 {retu
9ae0: 72 6e 20 69 6e 20 61 20 76 61 72 69 61 62 6c 65 rn in a variable
9af0: 20 73 75 62 73 74 7d 20 7b 0a 20 20 20 20 20 73 subst} {. s
9b00: 75 62 73 74 20 7b 66 6f 6f 20 24 76 61 72 28 5b ubst {foo $var([
9b10: 72 65 74 75 72 6e 20 7b 78 7d 5d 29 20 62 61 72 return {x}]) bar
9b20: 7d 0a 20 7d 20 7b 66 6f 6f 20 78 20 62 61 72 7d }. } {foo x bar}
9b30: 0a 40 40 20 2d 31 38 37 2c 31 32 20 2b 31 38 37 .@@ -187,12 +187
9b40: 2c 31 32 20 40 40 0a 20 74 65 73 74 20 73 75 62 ,12 @@. test sub
9b50: 73 74 2d 31 30 2e 33 20 7b 62 72 65 61 6b 20 69 st-10.3 {break i
9b60: 6e 20 61 20 73 75 62 73 74 7d 20 7b 0a 20 20 20 n a subst} {.
9b70: 20 20 73 75 62 73 74 20 7b 66 6f 6f 20 5b 69 66 subst {foo [if
9b80: 20 31 20 7b 20 62 72 65 61 6b 3b 20 62 6f 67 75 1 { break; bogu
9b90: 73 20 63 6f 64 65 7d 5d 20 62 61 72 7d 0a 20 7d s code}] bar}. }
9ba0: 20 7b 66 6f 6f 20 7d 0a 2d 74 65 73 74 20 73 75 {foo }.-test su
9bb0: 62 73 74 2d 31 30 2e 34 20 7b 62 72 65 61 6b 20 bst-10.4 {break
9bc0: 69 6e 20 61 20 73 75 62 73 74 2c 20 70 61 72 73 in a subst, pars
9bd0: 65 20 65 72 72 6f 72 7d 20 7b 0a 2b 74 65 73 74 e error} {.+test
9be0: 20 73 75 62 73 74 2d 31 30 2e 34 20 7b 62 72 65 subst-10.4 {bre
9bf0: 61 6b 20 69 6e 20 61 20 73 75 62 73 74 2c 20 70 ak in a subst, p
9c00: 61 72 73 65 20 65 72 72 6f 72 7d 20 2d 62 6f 64 arse error} -bod
9c10: 79 20 7b 0a 20 20 20 20 20 73 75 62 73 74 20 7b y {. subst {
9c20: 66 6f 6f 20 5b 62 72 65 61 6b 20 3b 20 73 65 74 foo [break ; set
9c30: 20 61 20 7b 7d 7b 7d 20 3b 20 73 74 75 66 66 5d a {}{} ; stuff]
9c40: 20 62 61 72 7d 0a 2d 7d 20 7b 66 6f 6f 20 7d 0a bar}.-} {foo }.
9c50: 2d 74 65 73 74 20 73 75 62 73 74 2d 31 30 2e 35 -test subst-10.5
9c60: 20 7b 62 72 65 61 6b 20 69 6e 20 61 20 73 75 62 {break in a sub
9c70: 73 74 2c 20 70 61 72 73 65 20 65 72 72 6f 72 7d st, parse error}
9c80: 20 7b 0a 2b 7d 20 2d 72 65 74 75 72 6e 43 6f 64 {.+} -returnCod
9c90: 65 73 20 65 72 72 6f 72 20 2d 72 65 73 75 6c 74 es error -result
9ca0: 20 7b 65 78 74 72 61 20 63 68 61 72 61 63 74 65 {extra characte
9cb0: 72 73 20 61 66 74 65 72 20 63 6c 6f 73 65 2d 62 rs after close-b
9cc0: 72 61 63 65 7d 0a 2b 74 65 73 74 20 73 75 62 73 race}.+test subs
9cd0: 74 2d 31 30 2e 35 20 7b 62 72 65 61 6b 20 69 6e t-10.5 {break in
9ce0: 20 61 20 73 75 62 73 74 2c 20 70 61 72 73 65 20 a subst, parse
9cf0: 65 72 72 6f 72 7d 20 2d 62 6f 64 79 20 7b 0a 20 error} -body {.
9d00: 20 20 20 20 73 75 62 73 74 20 7b 66 6f 6f 20 5b subst {foo [
9d10: 62 72 65 61 6b 20 3b 73 65 74 20 62 61 72 20 62 break ;set bar b
9d20: 61 7a 20 3b 73 65 74 20 61 20 7b 7d 7b 7d 20 3b az ;set a {}{} ;
9d30: 20 73 74 75 66 66 5d 20 62 61 72 7d 0a 2d 7d 20 stuff] bar}.-}
9d40: 7b 66 6f 6f 20 7d 0a 2b 7d 20 2d 72 65 74 75 72 {foo }.+} -retur
9d50: 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 72 65 nCodes error -re
9d60: 73 75 6c 74 20 7b 65 78 74 72 61 20 63 68 61 72 sult {extra char
9d70: 61 63 74 65 72 73 20 61 66 74 65 72 20 63 6c 6f acters after clo
9d80: 73 65 2d 62 72 61 63 65 7d 0a 20 74 65 73 74 20 se-brace}. test
9d90: 73 75 62 73 74 2d 31 30 2e 36 20 7b 62 72 65 61 subst-10.6 {brea
9da0: 6b 20 69 6e 20 61 20 76 61 72 69 61 62 6c 65 20 k in a variable
9db0: 73 75 62 73 74 7d 20 7b 0a 20 20 20 20 20 73 75 subst} {. su
9dc0: 62 73 74 20 7b 66 6f 6f 20 24 76 61 72 28 5b 62 bst {foo $var([b
9dd0: 72 65 61 6b 5d 29 20 62 61 72 7d 0a 20 7d 20 7b reak]) bar}. } {
9de0: 66 6f 6f 20 7d 0a 40 40 20 2d 32 30 36 2c 31 35 foo }.@@ -206,15
9df0: 20 2b 32 30 36 2c 31 39 20 40 40 0a 20 74 65 73 +206,19 @@. tes
9e00: 74 20 73 75 62 73 74 2d 31 31 2e 33 20 7b 63 6f t subst-11.3 {co
9e10: 6e 74 69 6e 75 65 20 69 6e 20 61 20 73 75 62 73 ntinue in a subs
9e20: 74 7d 20 7b 0a 20 20 20 20 20 73 75 62 73 74 20 t} {. subst
9e30: 7b 66 6f 6f 20 5b 69 66 20 31 20 7b 20 63 6f 6e {foo [if 1 { con
9e40: 74 69 6e 75 65 3b 20 62 6f 67 75 73 20 63 6f 64 tinue; bogus cod
9e50: 65 7d 5d 20 62 61 72 7d 0a 20 7d 20 7b 66 6f 6f e}] bar}. } {foo
9e60: 20 20 62 61 72 7d 0a 2d 74 65 73 74 20 73 75 62 bar}.-test sub
9e70: 73 74 2d 31 31 2e 34 20 7b 63 6f 6e 74 69 6e 75 st-11.4 {continu
9e80: 65 20 69 6e 20 61 20 73 75 62 73 74 2c 20 70 61 e in a subst, pa
9e90: 72 73 65 20 65 72 72 6f 72 7d 20 7b 0a 2b 74 65 rse error} {.+te
9ea0: 73 74 20 73 75 62 73 74 2d 31 31 2e 34 20 7b 63 st subst-11.4 {c
9eb0: 6f 6e 74 69 6e 75 65 20 69 6e 20 61 20 73 75 62 ontinue in a sub
9ec0: 73 74 2c 20 70 61 72 73 65 20 65 72 72 6f 72 7d st, parse error}
9ed0: 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 73 75 -body {. su
9ee0: 62 73 74 20 7b 66 6f 6f 20 5b 63 6f 6e 74 69 6e bst {foo [contin
9ef0: 75 65 20 3b 20 73 65 74 20 61 20 7b 7d 7b 7d 20 ue ; set a {}{}
9f00: 3b 20 73 74 75 66 66 5d 20 62 61 72 7d 0a 2d 7d ; stuff] bar}.-}
9f10: 20 7b 66 6f 6f 20 73 65 74 20 61 20 7b 7d 7b 7d {foo set a {}{}
9f20: 20 3b 20 73 74 75 66 66 5d 20 62 61 72 7d 0a 2d ; stuff] bar}.-
9f30: 74 65 73 74 20 73 75 62 73 74 2d 31 31 2e 35 20 test subst-11.5
9f40: 7b 63 6f 6e 74 69 6e 75 65 20 69 6e 20 61 20 73 {continue in a s
9f50: 75 62 73 74 2c 20 70 61 72 73 65 20 65 72 72 6f ubst, parse erro
9f60: 72 7d 20 7b 0a 2b 7d 20 2d 72 65 74 75 72 6e 43 r} {.+} -returnC
9f70: 6f 64 65 73 20 65 72 72 6f 72 20 2d 72 65 73 75 odes error -resu
9f80: 6c 74 20 7b 65 78 74 72 61 20 63 68 61 72 61 63 lt {extra charac
9f90: 74 65 72 73 20 61 66 74 65 72 20 63 6c 6f 73 65 ters after close
9fa0: 2d 62 72 61 63 65 7d 0a 2b 74 65 73 74 20 73 75 -brace}.+test su
9fb0: 62 73 74 2d 31 31 2e 35 20 7b 63 6f 6e 74 69 6e bst-11.5 {contin
9fc0: 75 65 20 69 6e 20 61 20 73 75 62 73 74 2c 20 70 ue in a subst, p
9fd0: 61 72 73 65 20 65 72 72 6f 72 7d 20 2d 62 6f 64 arse error} -bod
9fe0: 79 20 7b 0a 20 20 20 20 20 73 75 62 73 74 20 7b y {. subst {
9ff0: 66 6f 6f 20 5b 63 6f 6e 74 69 6e 75 65 20 3b 73 foo [continue ;s
a000: 65 74 20 62 61 72 20 62 61 7a 20 3b 73 65 74 20 et bar baz ;set
a010: 61 20 7b 7d 7b 7d 20 3b 20 73 74 75 66 66 5d 20 a {}{} ; stuff]
a020: 62 61 72 7d 0a 2d 7d 20 7b 66 6f 6f 20 73 65 74 bar}.-} {foo set
a030: 20 62 61 72 20 62 61 7a 20 3b 73 65 74 20 61 20 bar baz ;set a
a040: 7b 7d 7b 7d 20 3b 20 73 74 75 66 66 5d 20 62 61 {}{} ; stuff] ba
a050: 72 7d 0a 2b 7d 20 2d 72 65 74 75 72 6e 43 6f 64 r}.+} -returnCod
a060: 65 73 20 65 72 72 6f 72 20 2d 72 65 73 75 6c 74 es error -result
a070: 20 7b 65 78 74 72 61 20 63 68 61 72 61 63 74 65 {extra characte
a080: 72 73 20 61 66 74 65 72 20 63 6c 6f 73 65 2d 62 rs after close-b
a090: 72 61 63 65 7d 0a 20 74 65 73 74 20 73 75 62 73 race}. test subs
a0a0: 74 2d 31 31 2e 36 20 7b 63 6f 6e 74 69 6e 75 65 t-11.6 {continue
a0b0: 20 69 6e 20 61 20 76 61 72 69 61 62 6c 65 20 73 in a variable s
a0c0: 75 62 73 74 7d 20 7b 0a 20 20 20 20 20 73 75 62 ubst} {. sub
a0d0: 73 74 20 7b 66 6f 6f 20 24 76 61 72 28 5b 63 6f st {foo $var([co
a0e0: 6e 74 69 6e 75 65 5d 29 20 62 61 72 7d 0a 20 7d ntinue]) bar}. }
a0f0: 20 7b 66 6f 6f 20 20 62 61 72 7d 0a 2b 0a 2b 74 {foo bar}.+.+t
a100: 65 73 74 20 73 75 62 73 74 2d 62 75 67 2d 36 38 est subst-bug-68
a110: 35 31 30 36 20 7b 54 63 6c 5f 53 75 62 73 74 4f 5106 {Tcl_SubstO
a120: 62 6a 20 68 61 6c 74 73 20 6f 6e 20 4e 55 4c 4c bj halts on NULL
a130: 7d 20 7b 0a 2b 20 20 20 20 73 75 62 73 74 20 5b } {.+ subst [
a140: 62 79 74 65 73 74 72 69 6e 67 20 62 61 72 5c 78 bytestring bar\x
a150: 30 30 73 6f 6f 6d 5d 0a 2b 7d 20 5b 62 79 74 65 00soom].+} [byte
a160: 73 74 72 69 6e 67 20 62 61 72 5c 78 30 30 73 6f string bar\x00so
a170: 6f 6d 5d 0a 20 0a 20 23 20 63 6c 65 61 6e 75 70 om]. . # cleanup
a180: 0a 20 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 . ::tcltest::cle
a190: 61 6e 75 70 54 65 73 74 73 0a anupTests.
