Attachment "tip201-3.patch" to
ticket [1031507fff]
added by
rmax
2004-09-21 14:52:56.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 43 6f 6d 70 45 78 70 72 2e 63 0a 3d 3d 3d clCompExpr.c.===
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0060: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
0070: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 oot/tcl/tcl/gene
0080: 72 69 63 2f 74 63 6c 43 6f 6d 70 45 78 70 72 2e ric/tclCompExpr.
0090: 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 c,v.retrieving r
00a0: 65 76 69 73 69 6f 6e 20 31 2e 32 32 0a 64 69 66 evision 1.22.dif
00b0: 66 20 2d 75 20 2d 72 31 2e 32 32 20 74 63 6c 43 f -u -r1.22 tclC
00c0: 6f 6d 70 45 78 70 72 2e 63 0a 2d 2d 2d 20 67 65 ompExpr.c.--- ge
00d0: 6e 65 72 69 63 2f 74 63 6c 43 6f 6d 70 45 78 70 neric/tclCompExp
00e0: 72 2e 63 09 36 20 41 70 72 20 32 30 30 34 20 32 r.c.6 Apr 2004 2
00f0: 32 3a 32 35 3a 35 30 20 2d 30 30 30 30 09 31 2e 2:25:50 -0000.1.
0100: 32 32 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 22.+++ generic/t
0110: 63 6c 43 6f 6d 70 45 78 70 72 2e 63 09 32 31 20 clCompExpr.c.21
0120: 53 65 70 20 32 30 30 34 20 30 37 3a 34 32 3a 35 Sep 2004 07:42:5
0130: 39 20 2d 30 30 30 30 0a 40 40 20 2d 39 31 2c 36 9 -0000.@@ -91,6
0140: 20 2b 39 31 2c 38 20 40 40 0a 20 23 64 65 66 69 +91,8 @@. #defi
0150: 6e 65 20 4f 50 5f 53 54 52 45 51 09 32 31 0a 20 ne OP_STREQ.21.
0160: 23 64 65 66 69 6e 65 20 4f 50 5f 53 54 52 4e 45 #define OP_STRNE
0170: 51 09 32 32 0a 20 23 64 65 66 69 6e 65 20 4f 50 Q.22. #define OP
0180: 5f 45 58 50 4f 4e 09 32 33 0a 2b 23 64 65 66 69 _EXPON.23.+#defi
0190: 6e 65 20 4f 50 5f 49 4e 09 09 32 34 0a 2b 23 64 ne OP_IN..24.+#d
01a0: 65 66 69 6e 65 20 4f 50 5f 4e 4f 54 5f 49 4e 09 efine OP_NOT_IN.
01b0: 32 35 0a 20 0a 20 2f 2a 0a 20 20 2a 20 54 61 62 25. . /*. * Tab
01c0: 6c 65 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 le describing th
01d0: 65 20 65 78 70 72 65 73 73 69 6f 6e 20 6f 70 65 e expression ope
01e0: 72 61 74 6f 72 73 2e 20 45 6e 74 72 69 65 73 20 rators. Entries
01f0: 69 6e 20 74 68 69 73 20 74 61 62 6c 65 20 6d 75 in this table mu
0200: 73 74 0a 40 40 20 2d 31 33 34 2c 36 20 2b 31 33 st.@@ -134,6 +13
0210: 36 2c 38 20 40 40 0a 20 20 20 20 20 7b 22 65 71 6,8 @@. {"eq
0220: 22 2c 20 20 32 2c 20 20 49 4e 53 54 5f 53 54 52 ", 2, INST_STR
0230: 5f 45 51 7d 2c 0a 20 20 20 20 20 7b 22 6e 65 22 _EQ},. {"ne"
0240: 2c 20 20 32 2c 20 20 49 4e 53 54 5f 53 54 52 5f , 2, INST_STR_
0250: 4e 45 51 7d 2c 0a 20 20 20 20 20 7b 22 2a 2a 22 NEQ},. {"**"
0260: 2c 20 20 32 2c 09 49 4e 53 54 5f 45 58 50 4f 4e , 2,.INST_EXPON
0270: 7d 2c 0a 2b 20 20 20 20 7b 22 69 6e 22 2c 20 20 },.+ {"in",
0280: 32 2c 20 20 49 4e 53 54 5f 4c 49 53 54 5f 49 4e 2, INST_LIST_IN
0290: 7d 2c 0a 2b 20 20 20 20 7b 22 6e 69 22 2c 20 32 },.+ {"ni", 2
02a0: 2c 20 20 49 4e 53 54 5f 4c 49 53 54 5f 4e 4f 54 , INST_LIST_NOT
02b0: 5f 49 4e 7d 2c 0a 20 20 20 20 20 7b 4e 55 4c 4c _IN},. {NULL
02c0: 7d 0a 20 7d 3b 0a 20 0a 49 6e 64 65 78 3a 20 67 }. };. .Index: g
02d0: 65 6e 65 72 69 63 2f 74 63 6c 43 6f 6d 70 69 6c eneric/tclCompil
02e0: 65 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d e.h.============
02f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0300: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0310: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0320: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
0330: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
0340: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 43 6f cl/generic/tclCo
0350: 6d 70 69 6c 65 2e 68 2c 76 0a 72 65 74 72 69 65 mpile.h,v.retrie
0360: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
0370: 34 37 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 34 47.diff -u -r1.4
0380: 37 20 74 63 6c 43 6f 6d 70 69 6c 65 2e 68 0a 2d 7 tclCompile.h.-
0390: 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6f -- generic/tclCo
03a0: 6d 70 69 6c 65 2e 68 09 33 20 4a 75 6c 20 32 30 mpile.h.3 Jul 20
03b0: 30 34 20 30 32 3a 30 33 3a 33 36 20 2d 30 30 30 04 02:03:36 -000
03c0: 30 09 31 2e 34 37 0a 2b 2b 2b 20 67 65 6e 65 72 0.1.47.+++ gener
03d0: 69 63 2f 74 63 6c 43 6f 6d 70 69 6c 65 2e 68 09 ic/tclCompile.h.
03e0: 32 31 20 53 65 70 20 32 30 30 34 20 30 37 3a 34 21 Sep 2004 07:4
03f0: 32 3a 35 39 20 2d 30 30 30 30 0a 40 40 20 2d 35 2:59 -0000.@@ -5
0400: 34 34 2c 38 20 2b 35 34 34 2c 31 32 20 40 40 0a 44,8 +544,12 @@.
0410: 20 0a 20 23 64 65 66 69 6e 65 20 49 4e 53 54 5f . #define INST_
0420: 53 54 41 52 54 5f 43 4d 44 20 20 20 20 20 20 20 START_CMD
0430: 20 20 20 20 20 20 20 20 20 20 20 31 30 35 0a 20 105.
0440: 0a 2b 2f 2a 20 54 49 50 20 23 32 30 31 20 2d 20 .+/* TIP #201 -
0450: 65 78 70 72 20 27 69 6e 27 2c 20 61 6e 64 20 27 expr 'in', and '
0460: 6e 69 27 20 6f 70 65 72 61 74 6f 72 73 20 2a 2f ni' operators */
0470: 0a 2b 23 64 65 66 69 6e 65 20 49 4e 53 54 5f 4c .+#define INST_L
0480: 49 53 54 5f 49 4e 20 20 20 20 20 20 20 20 20 20 IST_IN
0490: 20 20 20 20 20 20 20 20 20 20 31 30 36 0a 2b 23 106.+#
04a0: 64 65 66 69 6e 65 20 49 4e 53 54 5f 4c 49 53 54 define INST_LIST
04b0: 5f 4e 4f 54 5f 49 4e 20 20 20 20 20 20 20 20 20 _NOT_IN
04c0: 20 20 20 20 20 20 20 31 30 37 0a 2b 0a 20 2f 2a 107.+. /*
04d0: 20 54 68 65 20 6c 61 73 74 20 6f 70 63 6f 64 65 The last opcode
04e0: 20 2a 2f 0a 2d 23 64 65 66 69 6e 65 20 4c 41 53 */.-#define LAS
04f0: 54 5f 49 4e 53 54 5f 4f 50 43 4f 44 45 09 09 31 T_INST_OPCODE..1
0500: 30 35 0a 2b 23 64 65 66 69 6e 65 20 4c 41 53 54 05.+#define LAST
0510: 5f 49 4e 53 54 5f 4f 50 43 4f 44 45 09 09 31 30 _INST_OPCODE..10
0520: 37 0a 20 0a 20 2f 2a 0a 20 20 2a 20 54 61 62 6c 7. . /*. * Tabl
0530: 65 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 e describing the
0540: 20 54 63 6c 20 62 79 74 65 63 6f 64 65 20 69 6e Tcl bytecode in
0550: 73 74 72 75 63 74 69 6f 6e 73 3a 20 74 68 65 69 structions: thei
0560: 72 20 6e 61 6d 65 20 28 66 6f 72 0a 49 6e 64 65 r name (for.Inde
0570: 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 45 78 x: generic/tclEx
0580: 65 63 75 74 65 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d ecute.c.========
0590: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
05a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
05b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
05c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
05d0: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
05e0: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 cl/tcl/generic/t
05f0: 63 6c 45 78 65 63 75 74 65 2e 63 2c 76 0a 72 65 clExecute.c,v.re
0600: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
0610: 6e 20 31 2e 31 34 39 0a 64 69 66 66 20 2d 75 20 n 1.149.diff -u
0620: 2d 72 31 2e 31 34 39 20 74 63 6c 45 78 65 63 75 -r1.149 tclExecu
0630: 74 65 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 te.c.--- generic
0640: 2f 74 63 6c 45 78 65 63 75 74 65 2e 63 09 31 38 /tclExecute.c.18
0650: 20 53 65 70 20 32 30 30 34 20 31 39 3a 32 34 3a Sep 2004 19:24:
0660: 35 33 20 2d 30 30 30 30 09 31 2e 31 34 39 0a 2b 53 -0000.1.149.+
0670: 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 45 78 ++ generic/tclEx
0680: 65 63 75 74 65 2e 63 09 32 31 20 53 65 70 20 32 ecute.c.21 Sep 2
0690: 30 30 34 20 30 37 3a 34 33 3a 30 30 20 2d 30 30 004 07:43:00 -00
06a0: 30 30 0a 40 40 20 2d 32 39 37 30 2c 36 20 2b 32 00.@@ -2970,6 +2
06b0: 39 37 30 2c 37 36 20 40 40 0a 20 20 20 20 20 20 970,76 @@.
06c0: 2a 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d * --------------
06d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 -----------.
0700: 20 20 2a 2f 0a 20 0a 2b 20 20 20 20 63 61 73 65 */. .+ case
0710: 20 49 4e 53 54 5f 4c 49 53 54 5f 49 4e 3a 0a 2b INST_LIST_IN:.+
0720: 20 20 20 20 63 61 73 65 20 49 4e 53 54 5f 4c 49 case INST_LI
0730: 53 54 5f 4e 4f 54 5f 49 4e 3a 0a 2b 20 20 20 20 ST_NOT_IN:.+
0740: 7b 0a 2b 09 2f 2a 0a 2b 09 20 2a 0a 2b 09 20 2a {.+./*.+. *.+. *
0750: 2f 0a 2b 0a 2b 09 69 6e 74 20 69 52 65 73 75 6c /.+.+.int iResul
0760: 74 3b 0a 2b 09 54 63 6c 5f 4f 62 6a 20 2a 76 61 t;.+.Tcl_Obj *va
0770: 6c 75 65 50 74 72 2c 20 2a 76 61 6c 75 65 32 50 luePtr, *value2P
0780: 74 72 3b 0a 2b 09 63 68 61 72 20 2a 73 31 2c 20 tr;.+.char *s1,
0790: 2a 73 32 3b 0a 2b 09 69 6e 74 20 73 31 6c 65 6e *s2;.+.int s1len
07a0: 2c 20 73 32 6c 65 6e 2c 20 6c 6c 65 6e 2c 20 69 , s2len, llen, i
07b0: 3b 0a 2b 09 54 63 6c 5f 4f 62 6a 20 2a 6f 3b 0a ;.+.Tcl_Obj *o;.
07c0: 2b 09 0a 2b 09 76 61 6c 75 65 32 50 74 72 20 3d +..+.value2Ptr =
07d0: 20 2a 74 6f 73 50 74 72 3b 0a 2b 09 76 61 6c 75 *tosPtr;.+.valu
07e0: 65 50 74 72 20 3d 20 2a 28 74 6f 73 50 74 72 20 ePtr = *(tosPtr
07f0: 2d 20 31 29 3b 0a 2b 0a 2b 09 73 31 20 3d 20 54 - 1);.+.+.s1 = T
0800: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
0810: 4f 62 6a 28 76 61 6c 75 65 50 74 72 2c 20 26 73 Obj(valuePtr, &s
0820: 31 6c 65 6e 29 3b 0a 2b 09 72 65 73 75 6c 74 20 1len);.+.result
0830: 3d 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 4c 65 6e = Tcl_ListObjLen
0840: 67 74 68 28 69 6e 74 65 72 70 2c 20 76 61 6c 75 gth(interp, valu
0850: 65 32 50 74 72 2c 20 26 6c 6c 65 6e 29 3b 0a 2b e2Ptr, &llen);.+
0860: 09 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54 .if (result != T
0870: 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 20 20 20 20 67 CL_OK) {.+. g
0880: 6f 74 6f 20 63 68 65 63 6b 46 6f 72 43 61 74 63 oto checkForCatc
0890: 68 3b 0a 2b 09 7d 0a 2b 09 69 52 65 73 75 6c 74 h;.+.}.+.iResult
08a0: 20 3d 20 30 3b 0a 2b 09 69 66 20 28 6c 6c 65 6e = 0;.+.if (llen
08b0: 20 3e 20 30 29 20 7b 0a 2b 09 20 20 20 20 2f 2a > 0) {.+. /*
08c0: 20 41 6e 20 65 6d 70 74 79 20 6c 69 73 74 20 64 An empty list d
08d0: 6f 65 73 6e 27 74 20 6d 61 74 63 68 20 61 6e 79 oesn't match any
08e0: 74 68 69 6e 67 20 2a 2f 0a 2b 09 20 20 20 20 69 thing */.+. i
08f0: 20 3d 20 30 3b 0a 2b 09 20 20 20 20 64 6f 20 7b = 0;.+. do {
0900: 0a 2b 09 09 72 65 73 75 6c 74 20 3d 20 54 63 6c .+..result = Tcl
0910: 5f 4c 69 73 74 4f 62 6a 49 6e 64 65 78 28 69 6e _ListObjIndex(in
0920: 74 65 72 70 2c 20 76 61 6c 75 65 32 50 74 72 2c terp, value2Ptr,
0930: 20 69 2c 20 26 6f 29 3b 0a 2b 09 09 69 66 20 28 i, &o);.+..if (
0940: 72 65 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b result != TCL_OK
0950: 29 20 7b 0a 2b 09 09 20 20 20 20 67 6f 74 6f 20 ) {.+.. goto
0960: 63 68 65 63 6b 46 6f 72 43 61 74 63 68 3b 0a 2b checkForCatch;.+
0970: 09 09 7d 0a 2b 09 09 69 66 20 28 6f 20 21 3d 20 ..}.+..if (o !=
0980: 4e 55 4c 4c 29 20 7b 0a 2b 09 09 20 20 20 20 73 NULL) {.+.. s
0990: 32 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 2 = Tcl_GetStrin
09a0: 67 46 72 6f 6d 4f 62 6a 28 6f 2c 20 26 73 32 6c gFromObj(o, &s2l
09b0: 65 6e 29 3b 0a 2b 09 09 7d 20 65 6c 73 65 20 7b en);.+..} else {
09c0: 0a 2b 09 09 20 20 20 20 73 32 20 3d 20 22 22 3b .+.. s2 = "";
09d0: 0a 2b 09 09 7d 0a 2b 09 09 69 66 20 28 73 31 6c .+..}.+..if (s1l
09e0: 65 6e 20 3d 3d 20 73 32 6c 65 6e 29 20 7b 0a 2b en == s2len) {.+
09f0: 09 09 20 20 20 20 69 52 65 73 75 6c 74 20 3d 20 .. iResult =
0a00: 28 73 74 72 63 6d 70 28 73 31 2c 20 73 32 29 20 (strcmp(s1, s2)
0a10: 3d 3d 20 30 29 3b 0a 2b 09 09 7d 0a 2b 09 09 69 == 0);.+..}.+..i
0a20: 2b 2b 3b 0a 2b 09 20 20 20 20 7d 20 77 68 69 6c ++;.+. } whil
0a30: 65 20 28 69 20 3c 20 6c 6c 65 6e 20 26 26 20 69 e (i < llen && i
0a40: 52 65 73 75 6c 74 20 3d 3d 20 30 29 3b 0a 2b 09 Result == 0);.+.
0a50: 7d 0a 2b 0a 2b 09 69 66 20 28 2a 70 63 20 3d 3d }.+.+.if (*pc ==
0a60: 20 49 4e 53 54 5f 4c 49 53 54 5f 4e 4f 54 5f 49 INST_LIST_NOT_I
0a70: 4e 29 20 7b 0a 2b 09 20 20 20 20 69 52 65 73 75 N) {.+. iResu
0a80: 6c 74 20 3d 20 21 69 52 65 73 75 6c 74 3b 0a 2b lt = !iResult;.+
0a90: 09 7d 0a 2b 0a 2b 09 54 52 41 43 45 28 28 22 25 .}.+.+.TRACE(("%
0aa0: 2e 32 30 73 20 25 2e 32 30 73 20 3d 3e 20 25 64 .20s %.20s => %d
0ab0: 5c 6e 22 2c 20 4f 32 53 28 76 61 6c 75 65 50 74 \n", O2S(valuePt
0ac0: 72 29 2c 20 4f 32 53 28 76 61 6c 75 65 32 50 74 r), O2S(value2Pt
0ad0: 72 29 2c 20 69 52 65 73 75 6c 74 29 29 3b 0a 2b r), iResult));.+
0ae0: 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 50 65 65 70 2d .+./*.+. * Peep-
0af0: 68 6f 6c 65 20 6f 70 74 69 6d 69 73 61 74 69 6f hole optimisatio
0b00: 6e 3a 20 69 66 20 79 6f 75 27 72 65 20 61 62 6f n: if you're abo
0b10: 75 74 20 74 6f 20 6a 75 6d 70 2c 20 64 6f 20 6a ut to jump, do j
0b20: 75 6d 70 0a 2b 09 20 2a 20 66 72 6f 6d 20 68 65 ump.+. * from he
0b30: 72 65 2e 0a 2b 09 20 2a 2f 0a 2b 0a 2b 09 70 63 re..+. */.+.+.pc
0b40: 2b 2b 3b 0a 2b 23 69 66 6e 64 65 66 20 54 43 4c ++;.+#ifndef TCL
0b50: 5f 43 4f 4d 50 49 4c 45 5f 44 45 42 55 47 0a 2b _COMPILE_DEBUG.+
0b60: 09 73 77 69 74 63 68 20 28 2a 70 63 29 20 7b 0a .switch (*pc) {.
0b70: 2b 09 20 20 20 20 63 61 73 65 20 49 4e 53 54 5f +. case INST_
0b80: 4a 55 4d 50 5f 46 41 4c 53 45 31 3a 0a 2b 09 09 JUMP_FALSE1:.+..
0b90: 4e 45 58 54 5f 49 4e 53 54 5f 46 28 28 69 52 65 NEXT_INST_F((iRe
0ba0: 73 75 6c 74 3f 20 32 20 3a 20 54 63 6c 47 65 74 sult? 2 : TclGet
0bb0: 49 6e 74 31 41 74 50 74 72 28 70 63 2b 31 29 29 Int1AtPtr(pc+1))
0bc0: 2c 20 32 2c 20 30 29 3b 0a 2b 09 20 20 20 20 63 , 2, 0);.+. c
0bd0: 61 73 65 20 49 4e 53 54 5f 4a 55 4d 50 5f 54 52 ase INST_JUMP_TR
0be0: 55 45 31 3a 0a 2b 09 09 4e 45 58 54 5f 49 4e 53 UE1:.+..NEXT_INS
0bf0: 54 5f 46 28 28 69 52 65 73 75 6c 74 3f 20 54 63 T_F((iResult? Tc
0c00: 6c 47 65 74 49 6e 74 31 41 74 50 74 72 28 70 63 lGetInt1AtPtr(pc
0c10: 2b 31 29 20 3a 20 32 29 2c 20 32 2c 20 30 29 3b +1) : 2), 2, 0);
0c20: 0a 2b 09 20 20 20 20 63 61 73 65 20 49 4e 53 54 .+. case INST
0c30: 5f 4a 55 4d 50 5f 46 41 4c 53 45 34 3a 0a 2b 09 _JUMP_FALSE4:.+.
0c40: 09 4e 45 58 54 5f 49 4e 53 54 5f 46 28 28 69 52 .NEXT_INST_F((iR
0c50: 65 73 75 6c 74 3f 20 35 20 3a 20 54 63 6c 47 65 esult? 5 : TclGe
0c60: 74 49 6e 74 34 41 74 50 74 72 28 70 63 2b 31 29 tInt4AtPtr(pc+1)
0c70: 29 2c 20 32 2c 20 30 29 3b 0a 2b 09 20 20 20 20 ), 2, 0);.+.
0c80: 63 61 73 65 20 49 4e 53 54 5f 4a 55 4d 50 5f 54 case INST_JUMP_T
0c90: 52 55 45 34 3a 0a 2b 09 09 4e 45 58 54 5f 49 4e RUE4:.+..NEXT_IN
0ca0: 53 54 5f 46 28 28 69 52 65 73 75 6c 74 3f 20 54 ST_F((iResult? T
0cb0: 63 6c 47 65 74 49 6e 74 34 41 74 50 74 72 28 70 clGetInt4AtPtr(p
0cc0: 63 2b 31 29 20 3a 20 35 29 2c 20 32 2c 20 30 29 c+1) : 5), 2, 0)
0cd0: 3b 0a 2b 09 7d 0a 2b 23 65 6e 64 69 66 0a 2b 09 ;.+.}.+#endif.+.
0ce0: 6f 62 6a 52 65 73 75 6c 74 50 74 72 20 3d 20 54 objResultPtr = T
0cf0: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 52 65 cl_NewIntObj(iRe
0d00: 73 75 6c 74 29 3b 0a 2b 09 4e 45 58 54 5f 49 4e sult);.+.NEXT_IN
0d10: 53 54 5f 46 28 30 2c 20 32 2c 20 31 29 3b 0a 2b ST_F(0, 2, 1);.+
0d20: 20 20 20 20 7d 0a 2b 0a 20 20 20 20 20 63 61 73 }.+. cas
0d30: 65 20 49 4e 53 54 5f 53 54 52 5f 45 51 3a 0a 20 e INST_STR_EQ:.
0d40: 20 20 20 20 63 61 73 65 20 49 4e 53 54 5f 53 54 case INST_ST
0d50: 52 5f 4e 45 51 3a 0a 20 20 20 20 20 7b 0a 40 40 R_NEQ:. {.@@
0d60: 20 2d 32 39 38 38 2c 36 20 2b 33 30 35 38 2c 37 -2988,6 +3058,7
0d70: 20 40 40 0a 20 09 20 20 20 20 20 2a 20 77 65 20 @@. . * we
0d80: 64 6f 6e 27 74 20 72 65 61 6c 6c 79 20 68 61 76 don't really hav
0d90: 65 20 74 6f 20 74 68 69 6e 6b 20 68 61 72 64 20 e to think hard
0da0: 61 62 6f 75 74 20 65 71 75 61 6c 69 74 79 2e 0a about equality..
0db0: 20 09 20 20 20 20 20 2a 2f 0a 20 09 20 20 20 20 . */. .
0dc0: 69 52 65 73 75 6c 74 20 3d 20 28 2a 70 63 20 3d iResult = (*pc =
0dd0: 3d 20 49 4e 53 54 5f 53 54 52 5f 45 51 29 3b 0a = INST_STR_EQ);.
0de0: 2b 0a 20 09 7d 20 65 6c 73 65 20 7b 0a 20 09 20 +. .} else {. .
0df0: 20 20 20 63 68 61 72 20 2a 73 31 2c 20 2a 73 32 char *s1, *s2
0e00: 3b 0a 20 09 20 20 20 20 69 6e 74 20 73 31 6c 65 ;. . int s1le
0e10: 6e 2c 20 73 32 6c 65 6e 3b 0a 49 6e 64 65 78 3a n, s2len;.Index:
0e20: 20 67 65 6e 65 72 69 63 2f 74 63 6c 50 61 72 73 generic/tclPars
0e30: 65 45 78 70 72 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d eExpr.c.========
0e40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0e50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0e60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0e70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
0e80: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
0e90: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 cl/tcl/generic/t
0ea0: 63 6c 50 61 72 73 65 45 78 70 72 2e 63 2c 76 0a clParseExpr.c,v.
0eb0: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
0ec0: 69 6f 6e 20 31 2e 32 31 0a 64 69 66 66 20 2d 75 ion 1.21.diff -u
0ed0: 20 2d 72 31 2e 32 31 20 74 63 6c 50 61 72 73 65 -r1.21 tclParse
0ee0: 45 78 70 72 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 Expr.c.--- gener
0ef0: 69 63 2f 74 63 6c 50 61 72 73 65 45 78 70 72 2e ic/tclParseExpr.
0f00: 63 09 36 20 41 70 72 20 32 30 30 34 20 32 32 3a c.6 Apr 2004 22:
0f10: 32 35 3a 35 34 20 2d 30 30 30 30 09 31 2e 32 31 25:54 -0000.1.21
0f20: 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c .+++ generic/tcl
0f30: 50 61 72 73 65 45 78 70 72 2e 63 09 32 31 20 53 ParseExpr.c.21 S
0f40: 65 70 20 32 30 30 34 20 30 37 3a 34 33 3a 30 30 ep 2004 07:43:00
0f50: 20 2d 30 30 30 30 0a 40 40 20 2d 31 33 34 2c 36 -0000.@@ -134,6
0f60: 20 2b 31 33 34 2c 31 32 20 40 40 0a 20 23 64 65 +134,12 @@. #de
0f70: 66 69 6e 65 20 45 58 50 4f 4e 09 09 33 36 0a 20 fine EXPON..36.
0f80: 0a 20 2f 2a 0a 2b 20 2a 20 27 69 6e 27 20 6f 70 . /*.+ * 'in' op
0f90: 65 72 61 74 6f 72 0a 2b 20 2a 2f 0a 2b 23 64 65 erator.+ */.+#de
0fa0: 66 69 6e 65 20 4c 49 53 54 49 4e 09 09 33 37 0a fine LISTIN..37.
0fb0: 2b 23 64 65 66 69 6e 65 20 4c 49 53 54 4e 49 09 +#define LISTNI.
0fc0: 09 33 38 0a 2b 0a 2b 2f 2a 0a 20 20 2a 20 4d 61 .38.+.+/*. * Ma
0fd0: 70 70 69 6e 67 20 66 72 6f 6d 20 6c 65 78 65 6d pping from lexem
0fe0: 65 73 20 74 6f 20 73 74 72 69 6e 67 73 3b 20 75 es to strings; u
0ff0: 73 65 64 20 66 6f 72 20 64 65 62 75 67 67 69 6e sed for debuggin
1000: 67 20 6d 65 73 73 61 67 65 73 2e 20 54 68 65 73 g messages. Thes
1010: 65 0a 20 20 2a 20 65 6e 74 72 69 65 73 20 6d 75 e. * entries mu
1020: 73 74 20 6d 61 74 63 68 20 74 68 65 20 6f 72 64 st match the ord
1030: 65 72 20 61 6e 64 20 6e 75 6d 62 65 72 20 6f 66 er and number of
1040: 20 74 68 65 20 6c 65 78 65 6d 65 20 64 65 66 69 the lexeme defi
1050: 6e 69 74 69 6f 6e 73 20 61 62 6f 76 65 2e 0a 20 nitions above..
1060: 20 2a 2f 0a 40 40 20 2d 31 34 34 2c 37 20 2b 31 */.@@ -144,7 +1
1070: 35 30 2c 37 20 40 40 0a 20 20 20 20 20 22 2a 22 50,7 @@. "*"
1080: 2c 20 22 2f 22 2c 20 22 25 22 2c 20 22 2b 22 2c , "/", "%", "+",
1090: 20 22 2d 22 2c 0a 20 20 20 20 20 22 3c 3c 22 2c "-",. "<<",
10a0: 20 22 3e 3e 22 2c 20 22 3c 22 2c 20 22 3e 22 2c ">>", "<", ">",
10b0: 20 22 3c 3d 22 2c 20 22 3e 3d 22 2c 20 22 3d 3d "<=", ">=", "==
10c0: 22 2c 20 22 21 3d 22 2c 0a 20 20 20 20 20 22 26 ", "!=",. "&
10d0: 22 2c 20 22 5e 22 2c 20 22 7c 22 2c 20 22 26 26 ", "^", "|", "&&
10e0: 22 2c 20 22 7c 7c 22 2c 20 22 3f 22 2c 20 22 3a ", "||", "?", ":
10f0: 22 2c 0a 2d 20 20 20 20 22 21 22 2c 20 22 7e 22 ",.- "!", "~"
1100: 2c 20 22 65 71 22 2c 20 22 6e 65 22 2c 20 22 2a , "eq", "ne", "*
1110: 2a 22 0a 2b 20 20 20 20 22 21 22 2c 20 22 7e 22 *".+ "!", "~"
1120: 2c 20 22 65 71 22 2c 20 22 6e 65 22 2c 20 22 2a , "eq", "ne", "*
1130: 2a 22 2c 20 22 69 6e 22 2c 20 22 6e 69 22 0a 20 *", "in", "ni".
1140: 7d 3b 0a 20 0a 20 2f 2a 0a 40 40 20 2d 31 36 39 };. . /*.@@ -169
1150: 2c 36 20 2b 31 37 35 2c 37 20 40 40 0a 20 73 74 ,6 +175,7 @@. st
1160: 61 74 69 63 20 69 6e 74 09 09 50 61 72 73 65 52 atic int..ParseR
1170: 65 6c 61 74 69 6f 6e 61 6c 45 78 70 72 20 5f 41 elationalExpr _A
1180: 4e 53 49 5f 41 52 47 53 5f 28 28 50 61 72 73 65 NSI_ARGS_((Parse
1190: 49 6e 66 6f 20 2a 69 6e 66 6f 50 74 72 29 29 3b Info *infoPtr));
11a0: 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 50 61 . static int..Pa
11b0: 72 73 65 53 68 69 66 74 45 78 70 72 20 5f 41 4e rseShiftExpr _AN
11c0: 53 49 5f 41 52 47 53 5f 28 28 50 61 72 73 65 49 SI_ARGS_((ParseI
11d0: 6e 66 6f 20 2a 69 6e 66 6f 50 74 72 29 29 3b 0a nfo *infoPtr));.
11e0: 20 73 74 61 74 69 63 20 69 6e 74 09 09 50 61 72 static int..Par
11f0: 73 65 45 78 70 6f 6e 65 6e 74 69 61 6c 45 78 70 seExponentialExp
1200: 72 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 50 r _ANSI_ARGS_((P
1210: 61 72 73 65 49 6e 66 6f 20 2a 69 6e 66 6f 50 74 arseInfo *infoPt
1220: 72 29 29 3b 0a 2b 73 74 61 74 69 63 20 69 6e 74 r));.+static int
1230: 09 09 50 61 72 73 65 49 6e 45 78 70 72 20 5f 41 ..ParseInExpr _A
1240: 4e 53 49 5f 41 52 47 53 5f 28 28 50 61 72 73 65 NSI_ARGS_((Parse
1250: 49 6e 66 6f 20 2a 69 6e 66 6f 50 74 72 29 29 3b Info *infoPtr));
1260: 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 50 61 . static int..Pa
1270: 72 73 65 55 6e 61 72 79 45 78 70 72 20 5f 41 4e rseUnaryExpr _AN
1280: 53 49 5f 41 52 47 53 5f 28 28 50 61 72 73 65 49 SI_ARGS_((ParseI
1290: 6e 66 6f 20 2a 69 6e 66 6f 50 74 72 29 29 3b 0a nfo *infoPtr));.
12a0: 20 73 74 61 74 69 63 20 76 6f 69 64 09 09 50 72 static void..Pr
12b0: 65 70 65 6e 64 53 75 62 45 78 70 72 54 6f 6b 65 ependSubExprToke
12c0: 6e 73 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 ns _ANSI_ARGS_((
12d0: 43 4f 4e 53 54 20 63 68 61 72 20 2a 6f 70 2c 0a CONST char *op,.
12e0: 20 09 09 09 09 69 6e 74 20 6f 70 42 79 74 65 73 ....int opBytes
12f0: 2c 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 73 72 , CONST char *sr
1300: 63 2c 20 69 6e 74 20 73 72 63 42 79 74 65 73 2c c, int srcBytes,
1310: 0a 40 40 20 2d 31 30 33 31 2c 37 20 2b 31 30 33 .@@ -1031,7 +103
1320: 38 2c 37 20 40 40 0a 20 20 2a 20 50 61 72 73 65 8,7 @@. * Parse
1330: 45 78 70 6f 6e 65 6e 74 69 61 6c 45 78 70 72 20 ExponentialExpr
1340: 2d 2d 0a 20 20 2a 0a 20 20 2a 09 54 68 69 73 20 --. *. *.This
1350: 70 72 6f 63 65 64 75 72 65 20 70 61 72 73 65 73 procedure parses
1360: 20 61 20 54 63 6c 20 65 78 70 6f 6e 65 6e 74 69 a Tcl exponenti
1370: 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 3a 0a 2d al expression:.-
1380: 20 2a 09 65 78 70 6f 6e 65 6e 74 69 61 6c 45 78 *.exponentialEx
1390: 70 72 20 3a 3a 3d 20 75 6e 61 72 79 45 78 70 72 pr ::= unaryExpr
13a0: 20 7b 27 2a 2a 27 20 75 6e 61 72 79 45 78 70 72 {'**' unaryExpr
13b0: 7d 0a 2b 20 2a 09 65 78 70 6f 6e 65 6e 74 69 61 }.+ *.exponentia
13c0: 6c 45 78 70 72 20 3a 3a 3d 20 69 6e 45 78 70 72 lExpr ::= inExpr
13d0: 20 7b 27 2a 2a 27 20 69 6e 45 78 70 72 7d 0a 20 {'**' inExpr}.
13e0: 20 2a 0a 20 20 2a 20 52 65 73 75 6c 74 73 3a 0a *. * Results:.
13f0: 20 20 2a 09 54 68 65 20 72 65 74 75 72 6e 20 76 *.The return v
1400: 61 6c 75 65 20 69 73 20 54 43 4c 5f 4f 4b 20 6f alue is TCL_OK o
1410: 6e 20 61 20 73 75 63 63 65 73 73 66 75 6c 20 70 n a successful p
1420: 61 72 73 65 20 61 6e 64 20 54 43 4c 5f 45 52 52 arse and TCL_ERR
1430: 4f 52 0a 40 40 20 2d 31 30 35 39 2c 37 20 2b 31 OR.@@ -1059,7 +1
1440: 30 36 36 2c 37 20 40 40 0a 20 20 20 20 20 73 72 066,7 @@. sr
1450: 63 53 74 61 72 74 20 3d 20 69 6e 66 6f 50 74 72 cStart = infoPtr
1460: 2d 3e 73 74 61 72 74 3b 0a 20 20 20 20 20 66 69 ->start;. fi
1470: 72 73 74 49 6e 64 65 78 20 3d 20 70 61 72 73 65 rstIndex = parse
1480: 50 74 72 2d 3e 6e 75 6d 54 6f 6b 65 6e 73 3b 0a Ptr->numTokens;.
1490: 20 0a 2d 20 20 20 20 63 6f 64 65 20 3d 20 50 61 .- code = Pa
14a0: 72 73 65 55 6e 61 72 79 45 78 70 72 28 69 6e 66 rseUnaryExpr(inf
14b0: 6f 50 74 72 29 3b 0a 2b 20 20 20 20 63 6f 64 65 oPtr);.+ code
14c0: 20 3d 20 50 61 72 73 65 49 6e 45 78 70 72 28 69 = ParseInExpr(i
14d0: 6e 66 6f 50 74 72 29 3b 0a 20 20 20 20 20 69 66 nfoPtr);. if
14e0: 20 28 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b (code != TCL_OK
14f0: 29 20 7b 0a 20 09 72 65 74 75 72 6e 20 63 6f 64 ) {. .return cod
1500: 65 3b 0a 20 20 20 20 20 7d 0a 40 40 20 2d 31 30 e;. }.@@ -10
1510: 39 31 2c 36 20 2b 31 30 39 38 2c 36 38 20 40 40 91,6 +1098,68 @@
1520: 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d . /*. *--------
1530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1570: 20 2a 0a 2b 20 2a 20 50 61 72 73 65 49 6e 45 78 *.+ * ParseInEx
1580: 70 72 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a 09 54 68 pr --.+ *.+ *.Th
1590: 69 73 20 70 72 6f 63 65 64 75 72 65 20 70 61 72 is procedure par
15a0: 73 65 73 20 61 20 54 63 6c 20 69 6e 20 65 78 70 ses a Tcl in exp
15b0: 72 65 73 73 69 6f 6e 3a 0a 2b 20 2a 09 69 6e 45 ression:.+ *.inE
15c0: 78 70 72 20 3a 3a 3d 20 75 6e 61 72 79 45 78 70 xpr ::= unaryExp
15d0: 72 20 27 69 6e 27 20 75 6e 61 72 79 45 78 70 72 r 'in' unaryExpr
15e0: 20 7c 20 75 6e 61 72 79 45 78 70 72 0a 2b 20 2a | unaryExpr.+ *
15f0: 0a 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b 20 .+ * Results:.+
1600: 2a 09 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c *.The return val
1610: 75 65 20 69 73 20 54 43 4c 5f 4f 4b 20 6f 6e 20 ue is TCL_OK on
1620: 61 20 73 75 63 63 65 73 73 66 75 6c 20 70 61 72 a successful par
1630: 73 65 20 61 6e 64 20 54 43 4c 5f 45 52 52 4f 52 se and TCL_ERROR
1640: 0a 2b 20 2a 09 6f 6e 20 66 61 69 6c 75 72 65 2e .+ *.on failure.
1650: 20 49 66 20 54 43 4c 5f 45 52 52 4f 52 20 69 73 If TCL_ERROR is
1660: 20 72 65 74 75 72 6e 65 64 2c 20 74 68 65 6e 20 returned, then
1670: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 27 the interpreter'
1680: 73 20 72 65 73 75 6c 74 0a 2b 20 2a 09 63 6f 6e s result.+ *.con
1690: 74 61 69 6e 73 20 61 6e 20 65 72 72 6f 72 20 6d tains an error m
16a0: 65 73 73 61 67 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 essage..+ *.+ *
16b0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 2b 20 Side effects:.+
16c0: 2a 09 49 66 20 74 68 65 72 65 20 69 73 20 69 6e *.If there is in
16d0: 73 75 66 66 69 63 69 65 6e 74 20 73 70 61 63 65 sufficient space
16e0: 20 69 6e 20 70 61 72 73 65 50 74 72 20 74 6f 20 in parsePtr to
16f0: 68 6f 6c 64 20 61 6c 6c 20 74 68 65 0a 2b 20 2a hold all the.+ *
1700: 09 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f .information abo
1710: 75 74 20 74 68 65 20 73 75 62 65 78 70 72 65 73 ut the subexpres
1720: 73 69 6f 6e 2c 20 74 68 65 6e 20 61 64 64 69 74 sion, then addit
1730: 69 6f 6e 61 6c 20 73 70 61 63 65 20 69 73 0a 2b ional space is.+
1740: 20 2a 09 6d 61 6c 6c 6f 63 2d 65 64 2e 0a 2b 20 *.malloc-ed..+
1750: 2a 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *.+ *-----------
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f -----------.+ */
17a0: 0a 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 50 61 .+static int.+Pa
17b0: 72 73 65 49 6e 45 78 70 72 28 69 6e 66 6f 50 74 rseInExpr(infoPt
17c0: 72 29 0a 2b 20 20 20 20 50 61 72 73 65 49 6e 66 r).+ ParseInf
17d0: 6f 20 2a 69 6e 66 6f 50 74 72 3b 09 09 2f 2a 20 o *infoPtr;../*
17e0: 48 6f 6c 64 73 20 74 68 65 20 70 61 72 73 65 20 Holds the parse
17f0: 73 74 61 74 65 20 66 6f 72 20 74 68 65 0a 2b 09 state for the.+.
1800: 09 09 09 20 2a 20 65 78 70 72 65 73 73 69 6f 6e ... * expression
1810: 20 62 65 69 6e 67 20 70 61 72 73 65 64 2e 20 2a being parsed. *
1820: 2f 0a 2b 7b 0a 2b 20 20 20 20 54 63 6c 5f 50 61 /.+{.+ Tcl_Pa
1830: 72 73 65 20 2a 70 61 72 73 65 50 74 72 20 3d 20 rse *parsePtr =
1840: 69 6e 66 6f 50 74 72 2d 3e 70 61 72 73 65 50 74 infoPtr->parsePt
1850: 72 3b 0a 2b 20 20 20 20 69 6e 74 20 66 69 72 73 r;.+ int firs
1860: 74 49 6e 64 65 78 2c 20 6c 65 78 65 6d 65 2c 20 tIndex, lexeme,
1870: 63 6f 64 65 3b 0a 2b 20 20 20 20 43 4f 4e 53 54 code;.+ CONST
1880: 20 63 68 61 72 20 2a 73 72 63 53 74 61 72 74 2c char *srcStart,
1890: 20 2a 6f 70 65 72 61 74 6f 72 3b 0a 2b 0a 2b 20 *operator;.+.+
18a0: 20 20 20 48 45 52 45 28 22 69 6e 45 78 70 72 22 HERE("inExpr"
18b0: 2c 20 31 33 29 3b 0a 2b 20 20 20 20 73 72 63 53 , 13);.+ srcS
18c0: 74 61 72 74 20 3d 20 69 6e 66 6f 50 74 72 2d 3e tart = infoPtr->
18d0: 73 74 61 72 74 3b 0a 2b 20 20 20 20 66 69 72 73 start;.+ firs
18e0: 74 49 6e 64 65 78 20 3d 20 70 61 72 73 65 50 74 tIndex = parsePt
18f0: 72 2d 3e 6e 75 6d 54 6f 6b 65 6e 73 3b 0a 2b 0a r->numTokens;.+.
1900: 2b 20 20 20 20 63 6f 64 65 20 3d 20 50 61 72 73 + code = Pars
1910: 65 55 6e 61 72 79 45 78 70 72 28 69 6e 66 6f 50 eUnaryExpr(infoP
1920: 74 72 29 3b 0a 2b 20 20 20 20 69 66 20 28 63 6f tr);.+ if (co
1930: 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a de != TCL_OK) {.
1940: 2b 09 72 65 74 75 72 6e 20 63 6f 64 65 3b 0a 2b +.return code;.+
1950: 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 6c 65 78 }.+.+ lex
1960: 65 6d 65 20 3d 20 69 6e 66 6f 50 74 72 2d 3e 6c eme = infoPtr->l
1970: 65 78 65 6d 65 3b 0a 2b 20 20 20 20 77 68 69 6c exeme;.+ whil
1980: 65 20 28 6c 65 78 65 6d 65 20 3d 3d 20 4c 49 53 e (lexeme == LIS
1990: 54 49 4e 20 7c 7c 20 6c 65 78 65 6d 65 20 3d 3d TIN || lexeme ==
19a0: 20 4c 49 53 54 4e 49 29 20 7b 0a 2b 09 6f 70 65 LISTNI) {.+.ope
19b0: 72 61 74 6f 72 20 3d 20 69 6e 66 6f 50 74 72 2d rator = infoPtr-
19c0: 3e 73 74 61 72 74 3b 0a 2b 09 63 6f 64 65 20 3d >start;.+.code =
19d0: 20 47 65 74 4c 65 78 65 6d 65 28 69 6e 66 6f 50 GetLexeme(infoP
19e0: 74 72 29 3b 09 2f 2a 20 73 6b 69 70 20 6f 76 65 tr);./* skip ove
19f0: 72 20 74 68 65 20 6f 70 65 72 61 74 6f 72 20 2a r the operator *
1a00: 2f 0a 2b 09 69 66 20 28 63 6f 64 65 20 21 3d 20 /.+.if (code !=
1a10: 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 20 20 20 20 TCL_OK) {.+.
1a20: 72 65 74 75 72 6e 20 63 6f 64 65 3b 0a 2b 09 7d return code;.+.}
1a30: 0a 2b 09 63 6f 64 65 20 3d 20 50 61 72 73 65 55 .+.code = ParseU
1a40: 6e 61 72 79 45 78 70 72 28 69 6e 66 6f 50 74 72 naryExpr(infoPtr
1a50: 29 3b 0a 2b 09 69 66 20 28 63 6f 64 65 20 21 3d );.+.if (code !=
1a60: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 20 20 20 TCL_OK) {.+.
1a70: 20 72 65 74 75 72 6e 20 63 6f 64 65 3b 0a 2b 09 return code;.+.
1a80: 7d 0a 2b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 47 65 }.+.+./*.+. * Ge
1a90: 6e 65 72 61 74 65 20 74 6f 6b 65 6e 73 20 66 6f nerate tokens fo
1aa0: 72 20 74 68 65 20 73 75 62 65 78 70 72 65 73 73 r the subexpress
1ab0: 69 6f 6e 20 61 6e 64 20 27 69 6e 27 20 6f 70 65 ion and 'in' ope
1ac0: 72 61 74 6f 72 2e 0a 2b 09 20 2a 2f 0a 2b 0a 2b rator..+. */.+.+
1ad0: 09 50 72 65 70 65 6e 64 53 75 62 45 78 70 72 54 .PrependSubExprT
1ae0: 6f 6b 65 6e 73 28 6f 70 65 72 61 74 6f 72 2c 20 okens(operator,
1af0: 32 2c 20 73 72 63 53 74 61 72 74 2c 0a 2b 09 09 2, srcStart,.+..
1b00: 28 69 6e 66 6f 50 74 72 2d 3e 70 72 65 76 45 6e (infoPtr->prevEn
1b10: 64 20 2d 20 73 72 63 53 74 61 72 74 29 2c 20 66 d - srcStart), f
1b20: 69 72 73 74 49 6e 64 65 78 2c 20 69 6e 66 6f 50 irstIndex, infoP
1b30: 74 72 29 3b 0a 2b 09 6c 65 78 65 6d 65 20 3d 20 tr);.+.lexeme =
1b40: 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 65 6d 65 3b infoPtr->lexeme;
1b50: 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 72 65 74 .+ }.+ ret
1b60: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 2b 7d 0a 2b urn TCL_OK;.+}.+
1b70: 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d 2d 2d 2d .+..+/*.+ *-----
1b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bc0: 2d 0a 2b 20 2a 0a 20 20 2a 20 50 61 72 73 65 55 -.+ *. * ParseU
1bd0: 6e 61 72 79 45 78 70 72 20 2d 2d 0a 20 20 2a 0a naryExpr --. *.
1be0: 20 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 *.This procedu
1bf0: 72 65 20 70 61 72 73 65 73 20 61 20 54 63 6c 20 re parses a Tcl
1c00: 75 6e 61 72 79 20 65 78 70 72 65 73 73 69 6f 6e unary expression
1c10: 3a 0a 40 40 20 2d 31 31 31 38 2c 37 20 2b 31 31 :.@@ -1118,7 +11
1c20: 38 37 2c 37 20 40 40 0a 20 20 20 20 20 69 6e 74 87,7 @@. int
1c30: 20 66 69 72 73 74 49 6e 64 65 78 2c 20 6c 65 78 firstIndex, lex
1c40: 65 6d 65 2c 20 63 6f 64 65 3b 0a 20 20 20 20 20 eme, code;.
1c50: 43 4f 4e 53 54 20 63 68 61 72 20 2a 73 72 63 53 CONST char *srcS
1c60: 74 61 72 74 2c 20 2a 6f 70 65 72 61 74 6f 72 3b tart, *operator;
1c70: 0a 20 0a 2d 20 20 20 20 48 45 52 45 28 22 75 6e . .- HERE("un
1c80: 61 72 79 45 78 70 72 22 2c 20 31 33 29 3b 0a 2b aryExpr", 13);.+
1c90: 20 20 20 20 48 45 52 45 28 22 75 6e 61 72 79 45 HERE("unaryE
1ca0: 78 70 72 22 2c 20 31 34 29 3b 0a 20 20 20 20 20 xpr", 14);.
1cb0: 73 72 63 53 74 61 72 74 20 3d 20 69 6e 66 6f 50 srcStart = infoP
1cc0: 74 72 2d 3e 73 74 61 72 74 3b 0a 20 20 20 20 20 tr->start;.
1cd0: 66 69 72 73 74 49 6e 64 65 78 20 3d 20 70 61 72 firstIndex = par
1ce0: 73 65 50 74 72 2d 3e 6e 75 6d 54 6f 6b 65 6e 73 sePtr->numTokens
1cf0: 3b 0a 20 20 20 20 20 0a 40 40 20 2d 31 31 38 38 ;. .@@ -1188
1d00: 2c 37 20 2b 31 32 35 37 2c 37 20 40 40 0a 20 20 ,7 +1257,7 @@.
1d10: 20 20 20 20 2a 20 57 65 20 73 69 6d 70 6c 79 20 * We simply
1d20: 72 65 63 75 72 73 65 20 6f 6e 20 70 61 72 65 6e recurse on paren
1d30: 74 68 65 73 69 7a 65 64 20 73 75 62 65 78 70 72 thesized subexpr
1d40: 65 73 73 69 6f 6e 73 2e 0a 20 20 20 20 20 20 2a essions.. *
1d50: 2f 0a 20 0a 2d 20 20 20 20 48 45 52 45 28 22 70 /. .- HERE("p
1d60: 72 69 6d 61 72 79 45 78 70 72 22 2c 20 31 34 29 rimaryExpr", 14)
1d70: 3b 0a 2b 20 20 20 20 48 45 52 45 28 22 70 72 69 ;.+ HERE("pri
1d80: 6d 61 72 79 45 78 70 72 22 2c 20 31 35 29 3b 0a maryExpr", 15);.
1d90: 20 20 20 20 20 6c 65 78 65 6d 65 20 3d 20 69 6e lexeme = in
1da0: 66 6f 50 74 72 2d 3e 6c 65 78 65 6d 65 3b 0a 20 foPtr->lexeme;.
1db0: 20 20 20 20 69 66 20 28 6c 65 78 65 6d 65 20 3d if (lexeme =
1dc0: 3d 20 4f 50 45 4e 5f 50 41 52 45 4e 29 20 7b 0a = OPEN_PAREN) {.
1dd0: 20 09 63 6f 64 65 20 3d 20 47 65 74 4c 65 78 65 .code = GetLexe
1de0: 6d 65 28 69 6e 66 6f 50 74 72 29 3b 20 2f 2a 20 me(infoPtr); /*
1df0: 73 6b 69 70 20 6f 76 65 72 20 74 68 65 20 27 28 skip over the '(
1e00: 27 20 2a 2f 0a 40 40 20 2d 31 38 35 35 2c 33 30 ' */.@@ -1855,30
1e10: 20 2b 31 39 32 34 2c 37 20 40 40 0a 20 09 20 20 +1924,7 @@. .
1e20: 20 20 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 65 6d infoPtr->lexem
1e30: 65 20 3d 20 42 49 54 5f 4e 4f 54 3b 0a 20 09 20 e = BIT_NOT;. .
1e40: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
1e50: 3b 0a 20 0a 2d 09 63 61 73 65 20 27 65 27 3a 0a ;. .-.case 'e':.
1e60: 2d 09 20 20 20 20 69 66 20 28 28 73 72 63 5b 31 -. if ((src[1
1e70: 5d 20 3d 3d 20 27 71 27 29 20 26 26 20 28 28 69 ] == 'q') && ((i
1e80: 6e 66 6f 50 74 72 2d 3e 6c 61 73 74 43 68 61 72 nfoPtr->lastChar
1e90: 20 2d 20 73 72 63 29 20 3e 20 31 29 29 20 7b 0a - src) > 1)) {.
1ea0: 2d 09 09 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 65 -..infoPtr->lexe
1eb0: 6d 65 20 3d 20 53 54 52 45 51 3b 0a 2d 09 09 69 me = STREQ;.-..i
1ec0: 6e 66 6f 50 74 72 2d 3e 73 69 7a 65 20 3d 20 32 nfoPtr->size = 2
1ed0: 3b 0a 2d 09 09 69 6e 66 6f 50 74 72 2d 3e 6e 65 ;.-..infoPtr->ne
1ee0: 78 74 20 3d 20 73 72 63 2b 32 3b 0a 2d 09 09 70 xt = src+2;.-..p
1ef0: 61 72 73 65 50 74 72 2d 3e 74 65 72 6d 20 3d 20 arsePtr->term =
1f00: 69 6e 66 6f 50 74 72 2d 3e 6e 65 78 74 3b 0a 2d infoPtr->next;.-
1f10: 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b ..return TCL_OK;
1f20: 0a 2d 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a .-. } else {.
1f30: 2d 09 09 67 6f 74 6f 20 63 68 65 63 6b 46 75 6e -..goto checkFun
1f40: 63 4e 61 6d 65 3b 0a 2d 09 20 20 20 20 7d 0a 2d cName;.-. }.-
1f50: 0a 2d 09 63 61 73 65 20 27 6e 27 3a 0a 2d 09 20 .-.case 'n':.-.
1f60: 20 20 20 69 66 20 28 28 73 72 63 5b 31 5d 20 3d if ((src[1] =
1f70: 3d 20 27 65 27 29 20 26 26 20 28 28 69 6e 66 6f = 'e') && ((info
1f80: 50 74 72 2d 3e 6c 61 73 74 43 68 61 72 20 2d 20 Ptr->lastChar -
1f90: 73 72 63 29 20 3e 20 31 29 29 20 7b 0a 2d 09 09 src) > 1)) {.-..
1fa0: 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 65 6d 65 20 infoPtr->lexeme
1fb0: 3d 20 53 54 52 4e 45 51 3b 0a 2d 09 09 69 6e 66 = STRNEQ;.-..inf
1fc0: 6f 50 74 72 2d 3e 73 69 7a 65 20 3d 20 32 3b 0a oPtr->size = 2;.
1fd0: 2d 09 09 69 6e 66 6f 50 74 72 2d 3e 6e 65 78 74 -..infoPtr->next
1fe0: 20 3d 20 73 72 63 2b 32 3b 0a 2d 09 09 70 61 72 = src+2;.-..par
1ff0: 73 65 50 74 72 2d 3e 74 65 72 6d 20 3d 20 69 6e sePtr->term = in
2000: 66 6f 50 74 72 2d 3e 6e 65 78 74 3b 0a 2d 09 09 foPtr->next;.-..
2010: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 2d return TCL_OK;.-
2020: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 . } else {.-.
2030: 09 67 6f 74 6f 20 63 68 65 63 6b 46 75 6e 63 4e .goto checkFuncN
2040: 61 6d 65 3b 0a 2d 09 20 20 20 20 7d 0a 2d 0a 20 ame;.-. }.-.
2050: 09 64 65 66 61 75 6c 74 3a 0a 2d 09 63 68 65 63 .default:.-.chec
2060: 6b 46 75 6e 63 4e 61 6d 65 3a 0a 20 09 20 20 20 kFuncName:. .
2070: 20 6c 65 6e 67 74 68 20 3d 20 28 69 6e 66 6f 50 length = (infoP
2080: 74 72 2d 3e 6c 61 73 74 43 68 61 72 20 2d 20 73 tr->lastChar - s
2090: 72 63 29 3b 0a 20 09 20 20 20 20 69 66 20 28 54 rc);. . if (T
20a0: 63 6c 5f 55 74 66 43 68 61 72 43 6f 6d 70 6c 65 cl_UtfCharComple
20b0: 74 65 28 73 72 63 2c 20 6c 65 6e 67 74 68 29 29 te(src, length))
20c0: 20 7b 0a 20 09 09 6f 66 66 73 65 74 20 3d 20 54 {. ..offset = T
20d0: 63 6c 5f 55 74 66 54 6f 55 6e 69 43 68 61 72 28 cl_UtfToUniChar(
20e0: 73 72 63 2c 20 26 63 68 29 3b 0a 40 40 20 2d 31 src, &ch);.@@ -1
20f0: 38 39 31 2c 37 20 2b 31 39 33 37 2c 37 20 40 40 891,7 +1937,7 @@
2100: 0a 20 09 20 20 20 20 63 20 3d 20 55 43 48 41 52 . . c = UCHAR
2110: 28 63 68 29 3b 0a 20 09 20 20 20 20 69 66 20 28 (ch);. . if (
2120: 69 73 61 6c 70 68 61 28 55 43 48 41 52 28 63 29 isalpha(UCHAR(c)
2130: 29 29 20 7b 09 2f 2a 20 49 4e 54 4c 3a 20 49 53 )) {./* INTL: IS
2140: 4f 20 6f 6e 6c 79 2e 20 2a 2f 0a 20 09 09 69 6e O only. */. ..in
2150: 66 6f 50 74 72 2d 3e 6c 65 78 65 6d 65 20 3d 20 foPtr->lexeme =
2160: 46 55 4e 43 5f 4e 41 4d 45 3b 0a 2d 09 09 77 68 FUNC_NAME;.-..wh
2170: 69 6c 65 20 28 69 73 61 6c 6e 75 6d 28 55 43 48 ile (isalnum(UCH
2180: 41 52 28 63 29 29 20 7c 7c 20 28 63 20 3d 3d 20 AR(c)) || (c ==
2190: 27 5f 27 29 29 20 7b 20 2f 2a 20 49 4e 54 4c 3a '_')) { /* INTL:
21a0: 20 49 53 4f 20 6f 6e 6c 79 2e 20 2a 2f 0a 2b 09 ISO only. */.+.
21b0: 09 77 68 69 6c 65 20 28 69 73 61 6c 70 68 61 28 .while (isalpha(
21c0: 55 43 48 41 52 28 63 29 29 29 20 7b 20 2f 2a 20 UCHAR(c))) { /*
21d0: 49 4e 54 4c 3a 20 49 53 4f 20 6f 6e 6c 79 2e 20 INTL: ISO only.
21e0: 2a 2f 0a 20 09 09 20 20 20 20 73 72 63 20 2b 3d */. .. src +=
21f0: 20 6f 66 66 73 65 74 3b 20 6c 65 6e 67 74 68 20 offset; length
2200: 2d 3d 20 6f 66 66 73 65 74 3b 0a 20 09 09 20 20 -= offset;. ..
2210: 20 20 69 66 20 28 54 63 6c 5f 55 74 66 43 68 61 if (Tcl_UtfCha
2220: 72 43 6f 6d 70 6c 65 74 65 28 73 72 63 2c 20 6c rComplete(src, l
2230: 65 6e 67 74 68 29 29 20 7b 0a 20 09 09 09 6f 66 ength)) {. ...of
2240: 66 73 65 74 20 3d 20 54 63 6c 5f 55 74 66 54 6f fset = Tcl_UtfTo
2250: 55 6e 69 43 68 61 72 28 73 72 63 2c 20 26 63 68 UniChar(src, &ch
2260: 29 3b 0a 40 40 20 2d 31 39 30 37 2c 37 20 2b 31 );.@@ -1907,7 +1
2270: 39 35 33 2c 38 20 40 40 0a 20 09 09 69 6e 66 6f 953,8 @@. ..info
2280: 50 74 72 2d 3e 6e 65 78 74 20 3d 20 73 72 63 3b Ptr->next = src;
2290: 0a 20 09 09 70 61 72 73 65 50 74 72 2d 3e 74 65 . ..parsePtr->te
22a0: 72 6d 20 3d 20 69 6e 66 6f 50 74 72 2d 3e 6e 65 rm = infoPtr->ne
22b0: 78 74 3b 0a 20 09 09 2f 2a 0a 2d 09 09 20 2a 20 xt;. ../*.-.. *
22c0: 43 68 65 63 6b 20 66 6f 72 20 62 6f 6f 6c 65 61 Check for boolea
22d0: 6e 20 6c 69 74 65 72 61 6c 73 20 28 74 72 75 65 n literals (true
22e0: 2c 20 66 61 6c 73 65 2c 20 79 65 73 2c 20 6e 6f , false, yes, no
22f0: 2c 20 6f 6e 2c 20 6f 66 66 29 0a 2b 09 09 20 2a , on, off).+.. *
2300: 20 43 68 65 63 6b 20 66 6f 72 20 62 6f 6f 6c 65 Check for boole
2310: 61 6e 20 6c 69 74 65 72 61 6c 73 20 28 74 72 75 an literals (tru
2320: 65 2c 20 66 61 6c 73 65 2c 20 79 65 73 2c 20 6e e, false, yes, n
2330: 6f 2c 20 6f 6e 2c 20 6f 66 66 29 2c 0a 2b 09 09 o, on, off),.+..
2340: 20 2a 20 61 6e 64 20 61 6c 70 68 61 62 65 74 69 * and alphabeti
2350: 63 20 6f 70 65 72 61 74 6f 72 73 20 28 65 71 2c c operators (eq,
2360: 20 6e 65 2c 20 69 6e 2c 20 6e 69 29 2e 0a 20 09 ne, in, ni).. .
2370: 09 20 2a 2f 0a 20 09 09 73 77 69 74 63 68 20 28 . */. ..switch (
2380: 69 6e 66 6f 50 74 72 2d 3e 73 74 61 72 74 5b 30 infoPtr->start[0
2390: 5d 29 20 7b 0a 20 09 09 63 61 73 65 20 27 66 27 ]) {. ..case 'f'
23a0: 3a 0a 40 40 20 2d 31 39 31 37 2c 31 32 20 2b 31 :.@@ -1917,12 +1
23b0: 39 36 34 2c 33 32 20 40 40 0a 20 09 09 09 72 65 964,32 @@. ...re
23c0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 09 09 turn TCL_OK;. ..
23d0: 20 20 20 20 7d 0a 20 09 09 20 20 20 20 62 72 65 }. .. bre
23e0: 61 6b 3b 0a 2d 09 09 63 61 73 65 20 27 6e 27 3a ak;.-..case 'n':
23f0: 0a 2b 09 09 63 61 73 65 20 27 65 27 3a 0a 20 09 .+..case 'e':. .
2400: 09 20 20 20 20 69 66 20 28 69 6e 66 6f 50 74 72 . if (infoPtr
2410: 2d 3e 73 69 7a 65 20 3d 3d 20 32 20 26 26 0a 2d ->size == 2 &&.-
2420: 09 09 09 73 74 72 6e 63 6d 70 28 22 6e 6f 22 2c ...strncmp("no",
2430: 20 69 6e 66 6f 50 74 72 2d 3e 73 74 61 72 74 2c infoPtr->start,
2440: 20 32 29 20 3d 3d 20 30 29 20 7b 0a 2d 09 09 09 2) == 0) {.-...
2450: 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 65 6d 65 20 infoPtr->lexeme
2460: 3d 20 4c 49 54 45 52 41 4c 3b 0a 2b 09 09 09 73 = LITERAL;.+...s
2470: 74 72 6e 63 6d 70 28 22 65 71 22 2c 20 69 6e 66 trncmp("eq", inf
2480: 6f 50 74 72 2d 3e 73 74 61 72 74 2c 20 32 29 20 oPtr->start, 2)
2490: 3d 3d 20 30 29 20 7b 0a 2b 09 09 09 69 6e 66 6f == 0) {.+...info
24a0: 50 74 72 2d 3e 6c 65 78 65 6d 65 20 3d 20 53 54 Ptr->lexeme = ST
24b0: 52 45 51 3b 0a 2b 09 09 09 72 65 74 75 72 6e 20 REQ;.+...return
24c0: 54 43 4c 5f 4f 4b 3b 0a 2b 09 09 20 20 20 20 7d TCL_OK;.+.. }
24d0: 0a 2b 09 09 63 61 73 65 20 27 69 27 3a 0a 2b 09 .+..case 'i':.+.
24e0: 09 20 20 20 20 69 66 20 28 69 6e 66 6f 50 74 72 . if (infoPtr
24f0: 2d 3e 73 69 7a 65 20 3d 3d 20 32 20 26 26 0a 2b ->size == 2 &&.+
2500: 09 09 09 73 74 72 6e 63 6d 70 28 22 69 6e 22 2c ...strncmp("in",
2510: 20 69 6e 66 6f 50 74 72 2d 3e 73 74 61 72 74 2c infoPtr->start,
2520: 20 32 29 20 3d 3d 20 30 29 20 7b 0a 2b 09 09 09 2) == 0) {.+...
2530: 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 65 6d 65 20 infoPtr->lexeme
2540: 3d 20 4c 49 53 54 49 4e 3b 0a 20 09 09 09 72 65 = LISTIN;. ...re
2550: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 09 09 turn TCL_OK;. ..
2560: 20 20 20 20 7d 0a 2b 09 09 63 61 73 65 20 27 6e }.+..case 'n
2570: 27 3a 0a 2b 09 09 20 20 20 20 69 66 20 28 69 6e ':.+.. if (in
2580: 66 6f 50 74 72 2d 3e 73 69 7a 65 20 3d 3d 20 32 foPtr->size == 2
2590: 29 20 7b 0a 2b 09 09 09 73 77 69 74 63 68 20 28 ) {.+...switch (
25a0: 69 6e 66 6f 50 74 72 2d 3e 73 74 61 72 74 5b 31 infoPtr->start[1
25b0: 5d 29 20 7b 0a 2b 09 09 09 63 61 73 65 20 27 65 ]) {.+...case 'e
25c0: 27 3a 20 2f 2a 20 27 6e 65 27 20 2a 2f 0a 2b 09 ': /* 'ne' */.+.
25d0: 09 09 20 20 20 20 69 6e 66 6f 50 74 72 2d 3e 6c .. infoPtr->l
25e0: 65 78 65 6d 65 20 3d 20 53 54 52 4e 45 51 3b 0a exeme = STRNEQ;.
25f0: 2b 09 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 +... return T
2600: 43 4c 5f 4f 4b 3b 0a 2b 09 09 09 63 61 73 65 20 CL_OK;.+...case
2610: 27 69 27 3a 20 2f 2a 20 27 6e 69 27 20 2a 2f 0a 'i': /* 'ni' */.
2620: 2b 09 09 09 20 20 20 20 69 6e 66 6f 50 74 72 2d +... infoPtr-
2630: 3e 6c 65 78 65 6d 65 20 3d 20 4c 49 53 54 4e 49 >lexeme = LISTNI
2640: 3b 0a 2b 09 09 09 20 20 20 20 72 65 74 75 72 6e ;.+... return
2650: 20 54 43 4c 5f 4f 4b 3b 0a 2b 09 09 09 63 61 73 TCL_OK;.+...cas
2660: 65 20 27 6f 27 3a 20 2f 2a 20 27 6e 6f 27 20 2a e 'o': /* 'no' *
2670: 2f 0a 2b 09 09 09 20 20 20 20 69 6e 66 6f 50 74 /.+... infoPt
2680: 72 2d 3e 6c 65 78 65 6d 65 20 3d 20 4c 49 54 45 r->lexeme = LITE
2690: 52 41 4c 3b 0a 2b 09 09 09 20 20 20 20 72 65 74 RAL;.+... ret
26a0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 2b 09 09 09 urn TCL_OK;.+...
26b0: 7d 0a 2b 09 09 20 20 20 20 7d 0a 20 09 09 20 20 }.+.. }. ..
26c0: 20 20 62 72 65 61 6b 3b 0a 20 09 09 63 61 73 65 break;. ..case
26d0: 20 27 6f 27 3a 0a 20 09 09 20 20 20 20 69 66 20 'o':. .. if
26e0: 28 69 6e 66 6f 50 74 72 2d 3e 73 69 7a 65 20 3d (infoPtr->size =
26f0: 3d 20 33 20 26 26 0a 40 40 20 2d 31 39 35 30 2c = 3 &&.@@ -1950,
2700: 36 20 2b 32 30 31 37 2c 32 31 20 40 40 0a 20 09 6 +2017,21 @@. .
2710: 09 20 20 20 20 7d 0a 20 09 09 20 20 20 20 62 72 . }. .. br
2720: 65 61 6b 3b 0a 20 09 09 7d 0a 2b 09 09 77 68 69 eak;. ..}.+..whi
2730: 6c 65 20 28 69 73 61 6c 6e 75 6d 28 55 43 48 41 le (isalnum(UCHA
2740: 52 28 63 29 29 20 7c 7c 20 28 63 20 3d 3d 20 27 R(c)) || (c == '
2750: 5f 27 29 29 20 7b 20 2f 2a 20 49 4e 54 4c 3a 20 _')) { /* INTL:
2760: 49 53 4f 20 6f 6e 6c 79 2e 20 2a 2f 0a 2b 09 09 ISO only. */.+..
2770: 20 20 20 20 73 72 63 20 2b 3d 20 6f 66 66 73 65 src += offse
2780: 74 3b 20 6c 65 6e 67 74 68 20 2d 3d 20 6f 66 66 t; length -= off
2790: 73 65 74 3b 0a 2b 09 09 20 20 20 20 69 66 20 28 set;.+.. if (
27a0: 54 63 6c 5f 55 74 66 43 68 61 72 43 6f 6d 70 6c Tcl_UtfCharCompl
27b0: 65 74 65 28 73 72 63 2c 20 6c 65 6e 67 74 68 29 ete(src, length)
27c0: 29 20 7b 0a 2b 09 09 09 6f 66 66 73 65 74 20 3d ) {.+...offset =
27d0: 20 54 63 6c 5f 55 74 66 54 6f 55 6e 69 43 68 61 Tcl_UtfToUniCha
27e0: 72 28 73 72 63 2c 20 26 63 68 29 3b 0a 2b 09 09 r(src, &ch);.+..
27f0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 09 09 } else {.+..
2800: 09 63 68 61 72 20 75 74 66 42 79 74 65 73 5b 54 .char utfBytes[T
2810: 43 4c 5f 55 54 46 5f 4d 41 58 5d 3b 0a 2b 09 09 CL_UTF_MAX];.+..
2820: 09 6d 65 6d 63 70 79 28 75 74 66 42 79 74 65 73 .memcpy(utfBytes
2830: 2c 20 73 72 63 2c 20 28 73 69 7a 65 5f 74 29 20 , src, (size_t)
2840: 6c 65 6e 67 74 68 29 3b 0a 2b 09 09 09 75 74 66 length);.+...utf
2850: 42 79 74 65 73 5b 6c 65 6e 67 74 68 5d 20 3d 20 Bytes[length] =
2860: 27 5c 30 27 3b 0a 2b 09 09 09 6f 66 66 73 65 74 '\0';.+...offset
2870: 20 3d 20 54 63 6c 5f 55 74 66 54 6f 55 6e 69 43 = Tcl_UtfToUniC
2880: 68 61 72 28 75 74 66 42 79 74 65 73 2c 20 26 63 har(utfBytes, &c
2890: 68 29 3b 0a 2b 09 09 20 20 20 20 7d 0a 2b 09 09 h);.+.. }.+..
28a0: 20 20 20 20 63 20 3d 20 55 43 48 41 52 28 63 68 c = UCHAR(ch
28b0: 29 3b 0a 2b 09 09 7d 0a 2b 09 09 69 6e 66 6f 50 );.+..}.+..infoP
28c0: 74 72 2d 3e 73 69 7a 65 20 3d 20 28 73 72 63 20 tr->size = (src
28d0: 2d 20 69 6e 66 6f 50 74 72 2d 3e 73 74 61 72 74 - infoPtr->start
28e0: 29 3b 0a 2b 09 09 69 6e 66 6f 50 74 72 2d 3e 6e );.+..infoPtr->n
28f0: 65 78 74 20 3d 20 73 72 63 3b 0a 2b 09 09 70 61 ext = src;.+..pa
2900: 72 73 65 50 74 72 2d 3e 74 65 72 6d 20 3d 20 69 rsePtr->term = i
2910: 6e 66 6f 50 74 72 2d 3e 6e 65 78 74 3b 0a 20 09 nfoPtr->next;. .
2920: 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a .return TCL_OK;.
2930: 20 09 20 20 20 20 7d 0a 20 09 20 20 20 20 69 6e . }. . in
2940: 66 6f 50 74 72 2d 3e 6c 65 78 65 6d 65 20 3d 20 foPtr->lexeme =
2950: 55 4e 4b 4e 4f 57 4e 5f 43 48 41 52 3b 0a 49 6e UNKNOWN_CHAR;.In
2960: 64 65 78 3a 20 74 65 73 74 73 2f 65 78 70 72 2e dex: tests/expr.
2970: 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d test.===========
2980: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2990: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
29a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
29b0: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
29c0: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
29d0: 74 63 6c 2f 74 65 73 74 73 2f 65 78 70 72 2e 74 tcl/tests/expr.t
29e0: 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 est,v.retrieving
29f0: 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 35 0a 64 revision 1.25.d
2a00: 69 66 66 20 2d 75 20 2d 72 31 2e 32 35 20 65 78 iff -u -r1.25 ex
2a10: 70 72 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 pr.test.--- test
2a20: 73 2f 65 78 70 72 2e 74 65 73 74 09 31 39 20 53 s/expr.test.19 S
2a30: 65 70 20 32 30 30 34 20 31 35 3a 30 33 3a 34 38 ep 2004 15:03:48
2a40: 20 2d 30 30 30 30 09 31 2e 32 35 0a 2b 2b 2b 20 -0000.1.25.+++
2a50: 74 65 73 74 73 2f 65 78 70 72 2e 74 65 73 74 09 tests/expr.test.
2a60: 32 31 20 53 65 70 20 32 30 30 34 20 30 37 3a 34 21 Sep 2004 07:4
2a70: 33 3a 30 30 20 2d 30 30 30 30 0a 40 40 20 2d 38 3:00 -0000.@@ -8
2a80: 37 31 2c 36 20 2b 38 37 31 2c 31 36 31 20 40 40 71,6 +871,161 @@
2a90: 0a 20 74 65 73 74 20 65 78 70 72 2d 32 34 2e 38 . test expr-24.8
2aa0: 20 7b 65 78 70 72 20 65 64 67 65 20 63 61 73 65 {expr edge case
2ab0: 73 3b 20 73 68 69 66 74 69 6e 67 7d 20 7b 65 78 s; shifting} {ex
2ac0: 70 72 20 77 69 64 65 28 31 30 29 3c 3c 36 33 7d pr wide(10)<<63}
2ad0: 20 30 0a 20 74 65 73 74 20 65 78 70 72 2d 32 34 0. test expr-24
2ae0: 2e 39 20 7b 65 78 70 72 20 65 64 67 65 20 63 61 .9 {expr edge ca
2af0: 73 65 73 3b 20 73 68 69 66 74 69 6e 67 7d 20 7b ses; shifting} {
2b00: 65 78 70 72 20 35 3e 3e 33 32 7d 20 30 0a 20 0a expr 5>>32} 0. .
2b10: 2b 23 20 54 65 73 74 73 20 66 6f 72 20 74 68 65 +# Tests for the
2b20: 20 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 0a 2b 'in' operator.+
2b30: 74 65 73 74 20 65 78 70 72 2d 32 34 2e 31 20 7b test expr-24.1 {
2b40: 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 66 'in' operator: f
2b50: 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6d 61 74 irst element mat
2b60: 63 68 65 73 7d 20 7b 0a 2b 20 20 20 20 65 78 70 ches} {.+ exp
2b70: 72 20 7b 22 61 22 20 69 6e 20 22 61 20 62 20 63 r {"a" in "a b c
2b80: 22 7d 0a 2b 7d 20 5b 65 78 70 72 20 7b 5b 6c 73 "}.+} [expr {[ls
2b90: 65 61 72 63 68 20 2d 65 78 61 63 74 20 22 61 20 earch -exact "a
2ba0: 62 20 63 22 20 61 5d 20 3e 3d 30 7d 5d 0a 2b 0a b c" a] >=0}].+.
2bb0: 2b 74 65 73 74 20 65 78 70 72 2d 32 34 2e 32 20 +test expr-24.2
2bc0: 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 {'in' operator:
2bd0: 69 6e 6e 65 72 20 65 6c 65 6d 65 6e 74 20 6d 61 inner element ma
2be0: 74 63 68 65 73 7d 20 7b 0a 2b 20 20 20 20 65 78 tches} {.+ ex
2bf0: 70 72 20 7b 22 61 22 20 69 6e 20 22 62 20 61 20 pr {"a" in "b a
2c00: 63 22 7d 0a 2b 7d 20 5b 65 78 70 72 20 7b 5b 6c c"}.+} [expr {[l
2c10: 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 22 62 search -exact "b
2c20: 20 61 20 63 22 20 61 5d 20 3e 3d 20 30 7d 5d 0a a c" a] >= 0}].
2c30: 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 34 2e +.+test expr-24.
2c40: 33 20 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3 {'in' operator
2c50: 3a 20 6c 61 73 74 20 65 6c 65 6d 65 74 20 6d 61 : last elemet ma
2c60: 74 63 68 65 73 7d 20 7b 0a 2b 20 20 20 20 65 78 tches} {.+ ex
2c70: 70 72 20 7b 22 61 22 20 69 6e 20 22 63 20 62 20 pr {"a" in "c b
2c80: 61 22 7d 0a 2b 7d 20 5b 65 78 70 72 20 7b 5b 6c a"}.+} [expr {[l
2c90: 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 22 63 search -exact "c
2ca0: 20 62 20 61 22 20 61 5d 20 3e 3d 20 30 7d 5d 0a b a" a] >= 0}].
2cb0: 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 34 2e +.+test expr-24.
2cc0: 34 20 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 4 {'in' operator
2cd0: 3a 20 65 6d 70 74 79 20 6c 69 73 74 7d 20 7b 0a : empty list} {.
2ce0: 2b 20 20 20 20 65 78 70 72 20 7b 22 61 22 20 69 + expr {"a" i
2cf0: 6e 20 22 22 7d 0a 2b 7d 20 5b 65 78 70 72 20 7b n ""}.+} [expr {
2d00: 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 [lsearch -exact
2d10: 22 22 20 61 5d 20 3e 3d 20 30 7d 5d 0a 2b 0a 2b "" a] >= 0}].+.+
2d20: 74 65 73 74 20 65 78 70 72 2d 32 34 2e 35 20 7b test expr-24.5 {
2d30: 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 65 'in' operator: e
2d40: 6d 70 74 79 20 73 74 72 69 6e 67 20 2d 20 6d 61 mpty string - ma
2d50: 74 63 68 7d 20 7b 0a 2b 20 20 20 20 65 78 70 72 tch} {.+ expr
2d60: 20 7b 22 22 20 69 6e 20 7b 61 20 62 20 63 20 22 {"" in {a b c "
2d70: 22 7d 7d 0a 2b 7d 20 5b 65 78 70 72 20 7b 5b 6c "}}.+} [expr {[l
2d80: 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 7b 61 search -exact {a
2d90: 20 62 20 63 20 22 22 7d 20 22 22 5d 20 3e 3d 20 b c ""} ""] >=
2da0: 30 7d 5d 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 0}].+.+test expr
2db0: 2d 32 34 2e 36 20 7b 27 69 6e 27 20 6f 70 65 72 -24.6 {'in' oper
2dc0: 61 74 6f 72 3a 20 65 6d 70 74 79 20 73 79 74 69 ator: empty syti
2dd0: 6e 67 20 2d 20 6e 6f 20 6d 61 74 63 68 7d 20 7b ng - no match} {
2de0: 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 22 20 69 .+ expr {"" i
2df0: 6e 20 22 61 20 62 20 63 22 7d 0a 2b 7d 20 5b 65 n "a b c"}.+} [e
2e00: 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 xpr {[lsearch -e
2e10: 78 61 63 74 20 22 61 20 62 20 63 22 20 22 22 5d xact "a b c" ""]
2e20: 20 3e 3d 20 30 7d 5d 0a 2b 0a 2b 74 65 73 74 20 >= 0}].+.+test
2e30: 65 78 70 72 2d 32 34 2e 37 20 7b 27 69 6e 27 20 expr-24.7 {'in'
2e40: 6f 70 65 72 61 74 6f 72 3a 20 62 6f 74 68 20 65 operator: both e
2e50: 6d 70 74 79 7d 20 7b 0a 2b 20 20 20 20 65 78 70 mpty} {.+ exp
2e60: 72 20 7b 22 22 20 69 6e 20 22 22 7d 0a 2b 7d 20 r {"" in ""}.+}
2e70: 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 [expr {[lsearch
2e80: 2d 65 78 61 63 74 20 22 22 20 22 22 5d 20 3e 3d -exact "" ""] >=
2e90: 20 30 7d 5d 0a 2b 0a 2b 74 65 73 74 20 65 78 70 0}].+.+test exp
2ea0: 72 2d 32 34 2e 38 20 7b 27 69 6e 27 20 6f 70 65 r-24.8 {'in' ope
2eb0: 72 61 74 6f 72 3a 20 76 61 72 69 61 62 6c 65 73 rator: variables
2ec0: 20 2d 20 6d 61 74 63 68 7d 20 7b 0a 2b 20 20 20 - match} {.+
2ed0: 20 73 65 74 20 61 20 61 0a 2b 20 20 20 20 73 65 set a a.+ se
2ee0: 74 20 62 20 5b 6c 69 73 74 20 61 20 62 20 63 5d t b [list a b c]
2ef0: 0a 2b 20 20 20 20 65 78 70 72 20 7b 24 61 20 69 .+ expr {$a i
2f00: 6e 20 24 62 7d 0a 2b 7d 20 31 0a 2b 0a 2b 74 65 n $b}.+} 1.+.+te
2f10: 73 74 20 65 78 70 72 2d 32 34 2e 39 20 7b 27 69 st expr-24.9 {'i
2f20: 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 76 61 72 n' operator: var
2f30: 69 61 62 6c 65 73 20 2d 20 6e 6f 20 6d 61 74 63 iables - no matc
2f40: 68 7d 20 7b 0a 2b 20 20 20 20 73 65 74 20 61 20 h} {.+ set a
2f50: 61 0a 2b 20 20 20 20 73 65 74 20 62 20 5b 6c 69 a.+ set b [li
2f60: 73 74 20 62 20 63 20 64 5d 0a 2b 20 20 20 20 65 st b c d].+ e
2f70: 78 70 72 20 7b 24 61 20 69 6e 20 24 62 7d 0a 2b xpr {$a in $b}.+
2f80: 7d 20 30 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 } 0.+.+test expr
2f90: 2d 32 34 2e 31 30 20 7b 27 69 6e 27 20 6f 70 65 -24.10 {'in' ope
2fa0: 72 61 74 6f 72 3a 20 65 6d 70 74 79 20 6c 69 73 rator: empty lis
2fb0: 74 7d 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b t} {.+ expr {
2fc0: 22 22 20 69 6e 20 22 20 20 20 22 7d 0a 2b 7d 20 "" in " "}.+}
2fd0: 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 [expr {[lsearch
2fe0: 2d 65 78 61 63 74 20 22 20 20 20 22 20 22 22 5d -exact " " ""]
2ff0: 20 3e 3d 20 30 7d 5d 0a 2b 0a 2b 74 65 73 74 20 >= 0}].+.+test
3000: 65 78 70 72 2d 32 34 2e 31 31 20 7b 27 69 6e 27 expr-24.11 {'in'
3010: 20 6f 70 65 72 61 74 6f 72 3a 20 63 68 65 63 6b operator: check
3020: 69 6e 67 20 70 72 65 63 65 64 65 6e 63 65 20 31 ing precedence 1
3030: 7d 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 } {.+ expr {"
3040: 31 22 20 65 71 20 22 61 22 20 69 6e 20 22 61 20 1" eq "a" in "a
3050: 62 22 7d 0a 2b 7d 20 31 0a 2b 0a 2b 74 65 73 74 b"}.+} 1.+.+test
3060: 20 65 78 70 72 2d 32 34 2e 31 32 20 7b 27 69 6e expr-24.12 {'in
3070: 27 20 6f 70 65 72 61 74 6f 72 3a 20 63 68 65 63 ' operator: chec
3080: 6b 69 6e 67 20 70 72 65 63 65 64 65 6e 63 65 20 king precedence
3090: 32 7d 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 2} {.+ expr {
30a0: 22 61 22 20 69 6e 20 22 61 20 62 22 20 65 71 20 "a" in "a b" eq
30b0: 22 31 22 7d 0a 2b 7d 20 31 0a 2b 0a 2b 74 65 73 "1"}.+} 1.+.+tes
30c0: 74 20 65 78 70 72 2d 32 34 2e 31 33 20 7b 27 69 t expr-24.13 {'i
30d0: 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 63 68 65 n' operator: che
30e0: 63 6b 69 6e 67 20 70 72 65 63 65 64 65 6e 63 65 cking precedence
30f0: 20 33 7d 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 3} {.+ expr
3100: 7b 2d 20 31 20 69 6e 20 22 31 20 32 22 7d 0a 2b {- 1 in "1 2"}.+
3110: 7d 20 30 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 } 0.+.+test expr
3120: 2d 32 34 2e 31 34 20 7b 27 69 6e 27 20 6f 70 65 -24.14 {'in' ope
3130: 72 61 74 6f 72 3a 20 63 68 65 63 6b 69 6e 67 20 rator: checking
3140: 70 72 65 63 65 64 65 6e 63 65 20 34 7d 20 7b 0a precedence 4} {.
3150: 2b 20 20 20 20 65 78 70 72 20 7b 31 20 69 6e 20 + expr {1 in
3160: 31 20 2b 20 32 7d 0a 2b 7d 20 33 0a 2b 0a 2b 74 1 + 2}.+} 3.+.+t
3170: 65 73 74 20 65 78 70 72 2d 32 34 2e 31 35 20 7b est expr-24.15 {
3180: 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 69 'in' operator: i
3190: 6d 70 72 6f 70 65 72 20 6c 69 73 74 20 31 7d 20 mproper list 1}
31a0: 7b 0a 2b 20 20 20 20 2d 62 6f 64 79 20 7b 0a 2b {.+ -body {.+
31b0: 09 65 78 70 72 20 7b 22 61 22 20 69 6e 20 22 61 .expr {"a" in "a
31c0: 20 62 20 5c 22 22 7d 0a 2b 20 20 20 20 7d 0a 2b b \""}.+ }.+
31d0: 20 20 20 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 -returnCodes
31e0: 20 31 20 0a 2b 20 20 20 20 2d 72 65 73 75 6c 74 1 .+ -result
31f0: 20 7b 75 6e 6d 61 74 63 68 65 64 20 6f 70 65 6e {unmatched open
3200: 20 71 75 6f 74 65 20 69 6e 20 6c 69 73 74 7d 0a quote in list}.
3210: 2b 7d 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d +}.+.+test expr-
3220: 32 34 2e 31 36 20 7b 27 69 6e 27 20 6f 70 65 72 24.16 {'in' oper
3230: 61 74 6f 72 3a 20 69 6d 70 72 6f 70 65 72 20 6c ator: improper l
3240: 69 73 74 20 32 7d 20 7b 0a 2b 20 20 20 20 2d 62 ist 2} {.+ -b
3250: 6f 64 79 20 7b 0a 2b 09 65 78 70 72 20 7b 22 61 ody {.+.expr {"a
3260: 22 20 69 6e 20 22 5c 7b 20 61 22 7d 0a 2b 20 20 " in "\{ a"}.+
3270: 20 20 7d 20 0a 2b 20 20 20 20 2d 72 65 74 75 72 } .+ -retur
3280: 6e 43 6f 64 65 73 20 31 20 0a 2b 20 20 20 20 2d nCodes 1 .+ -
3290: 72 65 73 75 6c 74 20 7b 75 6e 6d 61 74 63 68 65 result {unmatche
32a0: 64 20 6f 70 65 6e 20 62 72 61 63 65 20 69 6e 20 d open brace in
32b0: 6c 69 73 74 7d 0a 2b 7d 0a 2b 0a 2b 74 65 73 74 list}.+}.+.+test
32c0: 20 65 78 70 72 2d 32 34 2e 31 37 20 7b 27 69 6e expr-24.17 {'in
32d0: 27 20 6f 70 65 72 61 74 6f 72 3a 20 6e 65 73 74 ' operator: nest
32e0: 65 64 20 6c 69 73 74 20 31 7d 20 7b 0a 2b 20 20 ed list 1} {.+
32f0: 20 20 65 78 70 72 20 7b 20 7b 61 20 62 7d 20 69 expr { {a b} i
3300: 6e 20 7b 7b 61 20 62 7d 20 7b 62 20 63 7d 7d 20 n {{a b} {b c}}
3310: 7d 0a 2b 7d 20 31 0a 2b 0a 2b 74 65 73 74 20 65 }.+} 1.+.+test e
3320: 78 70 72 2d 32 34 2e 31 38 20 7b 27 69 6e 27 20 xpr-24.18 {'in'
3330: 6f 70 65 72 61 74 6f 72 3a 20 6e 65 73 74 65 64 operator: nested
3340: 20 6c 69 73 74 20 32 7d 20 7b 0a 2b 20 20 20 20 list 2} {.+
3350: 65 78 70 72 20 7b 20 7b 61 20 62 7d 20 69 6e 20 expr { {a b} in
3360: 7b 7b 61 20 62 7d 20 61 20 62 20 7d 20 7d 0a 2b {{a b} a b } }.+
3370: 7d 20 31 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 } 1.+.+test expr
3380: 2d 32 34 2e 31 39 20 7b 27 69 6e 27 20 6f 70 65 -24.19 {'in' ope
3390: 72 61 74 6f 72 3a 20 6c 69 73 74 20 63 6f 6e 73 rator: list cons
33a0: 74 72 75 63 74 69 6f 6e 7d 20 7b 0a 2b 20 20 20 truction} {.+
33b0: 20 73 65 74 20 61 20 22 41 22 0a 2b 20 20 20 20 set a "A".+
33c0: 73 65 74 20 62 20 22 41 22 0a 2b 20 20 20 20 65 set b "A".+ e
33d0: 78 70 72 20 7b 20 24 61 20 69 6e 20 5b 6c 69 73 xpr { $a in [lis
33e0: 74 20 24 62 20 24 62 5d 7d 0a 2b 7d 20 31 0a 2b t $b $b]}.+} 1.+
33f0: 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 34 2e 32 .+test expr-24.2
3400: 30 20 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 0 {'in' operator
3410: 3a 20 6c 69 73 74 20 63 6f 6e 73 74 72 75 63 74 : list construct
3420: 69 6f 6e 20 65 72 72 6f 72 7d 20 5c 0a 2b 20 20 ion error} \.+
3430: 20 20 2d 62 6f 64 79 20 7b 0a 2b 09 73 65 74 20 -body {.+.set
3440: 61 20 22 41 22 0a 2b 09 73 65 74 20 62 20 22 41 a "A".+.set b "A
3450: 22 0a 2b 09 65 78 70 72 20 22 20 24 61 20 69 6e ".+.expr " $a in
3460: 20 5b 6c 69 73 74 20 24 62 20 24 62 5d 20 22 0a [list $b $b] ".
3470: 2b 20 20 20 20 7d 20 5c 0a 2b 20 20 20 20 2d 72 + } \.+ -r
3480: 65 74 75 72 6e 43 6f 64 65 73 20 31 20 5c 0a 2b eturnCodes 1 \.+
3490: 20 20 20 20 2d 72 65 73 75 6c 74 20 7b 73 79 6e -result {syn
34a0: 74 61 78 20 65 72 72 6f 72 20 69 6e 20 65 78 70 tax error in exp
34b0: 72 65 73 73 69 6f 6e 20 22 20 41 20 69 6e 20 41 ression " A in A
34c0: 20 41 20 22 3a 20 76 61 72 69 61 62 6c 65 20 72 A ": variable r
34d0: 65 66 65 72 65 6e 63 65 73 20 72 65 71 75 69 72 eferences requir
34e0: 65 20 70 72 65 63 65 64 69 6e 67 20 24 7d 0a 2b e preceding $}.+
34f0: 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 34 2e 32 .+test expr-24.2
3500: 31 20 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 1 {'in' operator
3510: 3a 20 65 73 63 61 70 65 20 63 68 61 72 61 63 74 : escape charact
3520: 65 72 73 20 31 7d 20 7b 0a 2b 20 20 20 20 73 65 ers 1} {.+ se
3530: 74 20 61 20 5b 6c 69 73 74 20 5c 22 20 5c 22 5c t a [list \" \"\
3540: 22 5d 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 5c "].+ expr {"\
3550: 22 22 20 69 6e 20 24 61 7d 0a 2b 7d 20 31 0a 2b "" in $a}.+} 1.+
3560: 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 34 2e 32 .+test expr-24.2
3570: 32 20 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 2 {'in' operator
3580: 3a 20 65 73 63 61 70 65 20 63 68 61 72 61 63 74 : escape charact
3590: 65 72 73 20 32 7d 20 7b 0a 2b 20 20 20 20 73 65 ers 2} {.+ se
35a0: 74 20 61 20 5b 6c 69 73 74 20 5c 7b 20 5c 7b 5d t a [list \{ \{]
35b0: 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 5c 7b 22 .+ expr {"\{"
35c0: 20 69 6e 20 24 61 7d 0a 2b 7d 20 31 0a 2b 0a 2b in $a}.+} 1.+.+
35d0: 74 65 73 74 20 65 78 70 72 2d 32 34 2e 32 33 20 test expr-24.23
35e0: 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 {'in' operator:
35f0: 65 73 63 61 70 65 20 63 68 61 72 61 63 74 65 72 escape character
3600: 73 20 33 7d 20 7b 0a 2b 20 20 20 20 73 65 74 20 s 3} {.+ set
3610: 61 20 7b 20 7b 7d 20 7b 7b 7d 7d 20 7d 0a 2b 20 a { {} {{}} }.+
3620: 20 20 20 65 78 70 72 20 7b 7b 7d 20 69 6e 20 24 expr {{} in $
3630: 61 7d 0a 2b 7d 20 31 0a 2b 0a 2b 74 65 73 74 20 a}.+} 1.+.+test
3640: 65 78 70 72 2d 32 34 2e 32 34 20 7b 27 6e 69 27 expr-24.24 {'ni'
3650: 20 6f 70 65 72 61 74 6f 72 3a 20 6e 6f 20 6d 61 operator: no ma
3660: 74 63 68 7d 20 7b 0a 2b 20 20 20 20 65 78 70 72 tch} {.+ expr
3670: 20 7b 22 61 22 20 6e 69 20 22 61 20 62 20 63 22 {"a" ni "a b c"
3680: 7d 0a 2b 7d 20 5b 65 78 70 72 20 7b 5b 6c 73 65 }.+} [expr {[lse
3690: 61 72 63 68 20 22 61 20 62 20 63 22 20 61 5d 20 arch "a b c" a]
36a0: 3d 3d 20 2d 31 7d 5d 0a 2b 0a 2b 74 65 73 74 20 == -1}].+.+test
36b0: 65 78 70 72 2d 32 34 2e 32 35 20 7b 27 6e 69 27 expr-24.25 {'ni'
36c0: 20 6f 70 65 72 61 74 6f 72 3a 20 6d 61 74 63 68 operator: match
36d0: 7d 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 } {.+ expr {"
36e0: 61 22 20 6e 69 20 22 62 20 63 20 64 22 7d 0a 2b a" ni "b c d"}.+
36f0: 7d 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 } [expr {[lsearc
3700: 68 20 22 62 20 63 20 64 22 20 61 5d 20 3d 3d 20 h "b c d" a] ==
3710: 2d 31 7d 5d 0a 2b 0a 2b 74 65 73 74 20 65 78 70 -1}].+.+test exp
3720: 72 2d 32 34 2e 32 36 20 7b 27 69 6e 27 20 6f 70 r-24.26 {'in' op
3730: 72 74 61 74 6f 72 3a 20 6e 6f 20 73 70 61 63 65 rtator: no space
3740: 20 61 72 6f 75 6e 64 7d 20 7b 0a 2b 20 20 20 20 around} {.+
3750: 65 78 70 72 20 7b 31 69 6e 31 7d 0a 2b 7d 20 31 expr {1in1}.+} 1
3760: 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 35 .+.+test expr-25
3770: 2e 31 20 7b 61 6c 70 68 61 20 63 68 61 72 61 63 .1 {alpha charac
3780: 74 65 72 20 61 66 74 65 72 20 61 6c 70 68 61 20 ter after alpha
3790: 6f 70 65 72 61 74 6f 72 3a 20 27 65 71 27 7d 20 operator: 'eq'}
37a0: 7b 0a 2b 20 20 20 20 2d 62 6f 64 79 20 7b 0a 2b {.+ -body {.+
37b0: 09 65 78 70 72 20 7b 31 65 71 63 6f 73 28 31 29 .expr {1eqcos(1)
37c0: 7d 0a 2b 20 20 20 20 7d 20 0a 2b 20 20 20 20 2d }.+ } .+ -
37d0: 72 65 74 75 72 6e 43 6f 64 65 73 20 31 0a 2b 20 returnCodes 1.+
37e0: 20 20 20 2d 72 65 73 75 6c 74 20 7b 73 79 6e 74 -result {synt
37f0: 61 78 20 65 72 72 6f 72 20 69 6e 20 65 78 70 72 ax error in expr
3800: 65 73 73 69 6f 6e 20 22 31 65 71 63 6f 73 28 31 ession "1eqcos(1
3810: 29 22 3a 20 65 78 74 72 61 20 74 6f 6b 65 6e 73 )": extra tokens
3820: 20 61 74 20 65 6e 64 20 6f 66 20 65 78 70 72 65 at end of expre
3830: 73 73 69 6f 6e 7d 0a 2b 7d 0a 2b 0a 2b 74 65 73 ssion}.+}.+.+tes
3840: 74 20 65 78 70 72 2d 32 35 2e 32 20 7b 61 6c 70 t expr-25.2 {alp
3850: 68 61 20 63 68 61 72 61 63 74 65 72 20 61 66 74 ha character aft
3860: 65 72 20 61 6c 70 68 61 20 6f 70 65 72 61 74 6f er alpha operato
3870: 72 3a 20 27 6e 65 27 7d 20 7b 0a 2b 20 20 20 20 r: 'ne'} {.+
3880: 2d 62 6f 64 79 20 7b 0a 2b 09 65 78 70 72 20 7b -body {.+.expr {
3890: 31 6e 65 63 6f 73 28 31 29 7d 0a 2b 20 20 20 20 1necos(1)}.+
38a0: 7d 0a 2b 20 20 20 20 2d 72 65 74 75 72 6e 43 6f }.+ -returnCo
38b0: 64 65 73 20 31 0a 2b 20 20 20 20 2d 72 65 73 75 des 1.+ -resu
38c0: 6c 74 20 7b 73 79 6e 74 61 78 20 65 72 72 6f 72 lt {syntax error
38d0: 20 69 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 22 in expression "
38e0: 31 6e 65 63 6f 73 28 31 29 22 3a 20 65 78 74 72 1necos(1)": extr
38f0: 61 20 74 6f 6b 65 6e 73 20 61 74 20 65 6e 64 20 a tokens at end
3900: 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 7d 0a 2b of expression}.+
3910: 7d 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 }.+.+test expr-2
3920: 35 2e 33 20 7b 61 6c 70 68 61 20 63 68 61 72 61 5.3 {alpha chara
3930: 63 74 65 72 20 61 66 74 65 72 20 61 6c 70 68 61 cter after alpha
3940: 20 6f 70 65 72 61 74 6f 72 3a 20 27 69 6e 27 7d operator: 'in'}
3950: 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 69 6e {.+ expr {in
3960: 74 28 31 2e 35 29 7d 0a 2b 7d 20 31 0a 2b 0a 2b t(1.5)}.+} 1.+.+
3970: 74 65 73 74 20 65 78 70 72 2d 32 35 2e 34 20 7b test expr-25.4 {
3980: 61 6c 70 68 61 20 63 68 61 72 61 63 74 65 72 20 alpha character
3990: 61 66 74 65 72 20 61 6c 70 68 61 20 6f 70 65 72 after alpha oper
39a0: 61 74 6f 72 3a 20 27 6e 69 27 7d 20 7b 0a 2b 20 ator: 'ni'} {.+
39b0: 20 20 20 2d 62 6f 64 79 20 7b 0a 2b 09 65 78 70 -body {.+.exp
39c0: 72 20 7b 31 6e 69 63 6f 73 28 31 29 7d 0a 2b 20 r {1nicos(1)}.+
39d0: 20 20 20 7d 0a 2b 20 20 20 20 2d 72 65 74 75 72 }.+ -retur
39e0: 6e 43 6f 64 65 73 20 31 0a 2b 20 20 20 20 2d 72 nCodes 1.+ -r
39f0: 65 73 75 6c 74 20 7b 73 79 6e 74 61 78 20 65 72 esult {syntax er
3a00: 72 6f 72 20 69 6e 20 65 78 70 72 65 73 73 69 6f ror in expressio
3a10: 6e 20 22 31 6e 69 63 6f 73 28 31 29 22 3a 20 65 n "1nicos(1)": e
3a20: 78 74 72 61 20 74 6f 6b 65 6e 73 20 61 74 20 65 xtra tokens at e
3a30: 6e 64 20 6f 66 20 65 78 70 72 65 73 73 69 6f 6e nd of expression
3a40: 7d 0a 2b 7d 0a 2b 0a 20 23 20 63 6c 65 61 6e 75 }.+}.+. # cleanu
3a50: 70 0a 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 p. if {[info exi
3a60: 73 74 73 20 61 5d 7d 20 7b 0a 20 20 20 20 20 75 sts a]} {. u
3a70: 6e 73 65 74 20 61 0a nset a.
