Attachment "tip201.patch" to
ticket [1031507fff]
added by
rmax
2004-09-21 03:25:38.
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 30 20 clCompExpr.c.20
0120: 53 65 70 20 32 30 30 34 20 32 30 3a 30 39 3a 32 Sep 2004 20:09:2
0130: 30 20 2d 30 30 30 30 0a 40 40 20 2d 39 31 2c 36 0 -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 30 20 53 65 70 20 32 30 30 34 20 32 30 3a 30 20 Sep 2004 20:0
03f0: 39 3a 32 30 20 2d 30 30 30 30 0a 40 40 20 2d 35 9:20 -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 30 20 53 65 70 20 32 ecute.c.20 Sep 2
0690: 30 30 34 20 32 30 3a 30 39 3a 32 31 20 2d 30 30 004 20:09:21 -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 49 6e R_NEQ:. {.In
0d60: 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c dex: generic/tcl
0d70: 50 61 72 73 65 45 78 70 72 2e 63 0a 3d 3d 3d 3d ParseExpr.c.====
0d80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0da0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0db0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
0dc0: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
0dd0: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 ot/tcl/tcl/gener
0de0: 69 63 2f 74 63 6c 50 61 72 73 65 45 78 70 72 2e ic/tclParseExpr.
0df0: 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 c,v.retrieving r
0e00: 65 76 69 73 69 6f 6e 20 31 2e 32 31 0a 64 69 66 evision 1.21.dif
0e10: 66 20 2d 75 20 2d 72 31 2e 32 31 20 74 63 6c 50 f -u -r1.21 tclP
0e20: 61 72 73 65 45 78 70 72 2e 63 0a 2d 2d 2d 20 67 arseExpr.c.--- g
0e30: 65 6e 65 72 69 63 2f 74 63 6c 50 61 72 73 65 45 eneric/tclParseE
0e40: 78 70 72 2e 63 09 36 20 41 70 72 20 32 30 30 34 xpr.c.6 Apr 2004
0e50: 20 32 32 3a 32 35 3a 35 34 20 2d 30 30 30 30 09 22:25:54 -0000.
0e60: 31 2e 32 31 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 1.21.+++ generic
0e70: 2f 74 63 6c 50 61 72 73 65 45 78 70 72 2e 63 09 /tclParseExpr.c.
0e80: 32 30 20 53 65 70 20 32 30 30 34 20 32 30 3a 30 20 Sep 2004 20:0
0e90: 39 3a 32 31 20 2d 30 30 30 30 0a 40 40 20 2d 31 9:21 -0000.@@ -1
0ea0: 33 34 2c 36 20 2b 31 33 34 2c 31 32 20 40 40 0a 34,6 +134,12 @@.
0eb0: 20 23 64 65 66 69 6e 65 20 45 58 50 4f 4e 09 09 #define EXPON..
0ec0: 33 36 0a 20 0a 20 2f 2a 0a 2b 20 2a 20 27 69 6e 36. . /*.+ * 'in
0ed0: 27 20 6f 70 65 72 61 74 6f 72 0a 2b 20 2a 2f 0a ' operator.+ */.
0ee0: 2b 23 64 65 66 69 6e 65 20 49 4e 09 09 33 37 0a +#define IN..37.
0ef0: 2b 23 64 65 66 69 6e 65 20 4e 49 09 09 33 38 0a +#define NI..38.
0f00: 2b 0a 2b 2f 2a 0a 20 20 2a 20 4d 61 70 70 69 6e +.+/*. * Mappin
0f10: 67 20 66 72 6f 6d 20 6c 65 78 65 6d 65 73 20 74 g from lexemes t
0f20: 6f 20 73 74 72 69 6e 67 73 3b 20 75 73 65 64 20 o strings; used
0f30: 66 6f 72 20 64 65 62 75 67 67 69 6e 67 20 6d 65 for debugging me
0f40: 73 73 61 67 65 73 2e 20 54 68 65 73 65 0a 20 20 ssages. These.
0f50: 2a 20 65 6e 74 72 69 65 73 20 6d 75 73 74 20 6d * entries must m
0f60: 61 74 63 68 20 74 68 65 20 6f 72 64 65 72 20 61 atch the order a
0f70: 6e 64 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 nd number of the
0f80: 20 6c 65 78 65 6d 65 20 64 65 66 69 6e 69 74 69 lexeme definiti
0f90: 6f 6e 73 20 61 62 6f 76 65 2e 0a 20 20 2a 2f 0a ons above.. */.
0fa0: 40 40 20 2d 31 34 34 2c 37 20 2b 31 35 30 2c 37 @@ -144,7 +150,7
0fb0: 20 40 40 0a 20 20 20 20 20 22 2a 22 2c 20 22 2f @@. "*", "/
0fc0: 22 2c 20 22 25 22 2c 20 22 2b 22 2c 20 22 2d 22 ", "%", "+", "-"
0fd0: 2c 0a 20 20 20 20 20 22 3c 3c 22 2c 20 22 3e 3e ,. "<<", ">>
0fe0: 22 2c 20 22 3c 22 2c 20 22 3e 22 2c 20 22 3c 3d ", "<", ">", "<=
0ff0: 22 2c 20 22 3e 3d 22 2c 20 22 3d 3d 22 2c 20 22 ", ">=", "==", "
1000: 21 3d 22 2c 0a 20 20 20 20 20 22 26 22 2c 20 22 !=",. "&", "
1010: 5e 22 2c 20 22 7c 22 2c 20 22 26 26 22 2c 20 22 ^", "|", "&&", "
1020: 7c 7c 22 2c 20 22 3f 22 2c 20 22 3a 22 2c 0a 2d ||", "?", ":",.-
1030: 20 20 20 20 22 21 22 2c 20 22 7e 22 2c 20 22 65 "!", "~", "e
1040: 71 22 2c 20 22 6e 65 22 2c 20 22 2a 2a 22 0a 2b q", "ne", "**".+
1050: 20 20 20 20 22 21 22 2c 20 22 7e 22 2c 20 22 65 "!", "~", "e
1060: 71 22 2c 20 22 6e 65 22 2c 20 22 2a 2a 22 2c 20 q", "ne", "**",
1070: 22 69 6e 22 2c 20 22 6e 69 22 0a 20 7d 3b 0a 20 "in", "ni". };.
1080: 0a 20 2f 2a 0a 40 40 20 2d 31 36 39 2c 36 20 2b . /*.@@ -169,6 +
1090: 31 37 35 2c 37 20 40 40 0a 20 73 74 61 74 69 63 175,7 @@. static
10a0: 20 69 6e 74 09 09 50 61 72 73 65 52 65 6c 61 74 int..ParseRelat
10b0: 69 6f 6e 61 6c 45 78 70 72 20 5f 41 4e 53 49 5f ionalExpr _ANSI_
10c0: 41 52 47 53 5f 28 28 50 61 72 73 65 49 6e 66 6f ARGS_((ParseInfo
10d0: 20 2a 69 6e 66 6f 50 74 72 29 29 3b 0a 20 73 74 *infoPtr));. st
10e0: 61 74 69 63 20 69 6e 74 09 09 50 61 72 73 65 53 atic int..ParseS
10f0: 68 69 66 74 45 78 70 72 20 5f 41 4e 53 49 5f 41 hiftExpr _ANSI_A
1100: 52 47 53 5f 28 28 50 61 72 73 65 49 6e 66 6f 20 RGS_((ParseInfo
1110: 2a 69 6e 66 6f 50 74 72 29 29 3b 0a 20 73 74 61 *infoPtr));. sta
1120: 74 69 63 20 69 6e 74 09 09 50 61 72 73 65 45 78 tic int..ParseEx
1130: 70 6f 6e 65 6e 74 69 61 6c 45 78 70 72 20 5f 41 ponentialExpr _A
1140: 4e 53 49 5f 41 52 47 53 5f 28 28 50 61 72 73 65 NSI_ARGS_((Parse
1150: 49 6e 66 6f 20 2a 69 6e 66 6f 50 74 72 29 29 3b Info *infoPtr));
1160: 0a 2b 73 74 61 74 69 63 20 69 6e 74 09 09 50 61 .+static int..Pa
1170: 72 73 65 49 6e 45 78 70 72 20 5f 41 4e 53 49 5f rseInExpr _ANSI_
1180: 41 52 47 53 5f 28 28 50 61 72 73 65 49 6e 66 6f ARGS_((ParseInfo
1190: 20 2a 69 6e 66 6f 50 74 72 29 29 3b 0a 20 73 74 *infoPtr));. st
11a0: 61 74 69 63 20 69 6e 74 09 09 50 61 72 73 65 55 atic int..ParseU
11b0: 6e 61 72 79 45 78 70 72 20 5f 41 4e 53 49 5f 41 naryExpr _ANSI_A
11c0: 52 47 53 5f 28 28 50 61 72 73 65 49 6e 66 6f 20 RGS_((ParseInfo
11d0: 2a 69 6e 66 6f 50 74 72 29 29 3b 0a 20 73 74 61 *infoPtr));. sta
11e0: 74 69 63 20 76 6f 69 64 09 09 50 72 65 70 65 6e tic void..Prepen
11f0: 64 53 75 62 45 78 70 72 54 6f 6b 65 6e 73 20 5f dSubExprTokens _
1200: 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 4f 4e 53 ANSI_ARGS_((CONS
1210: 54 20 63 68 61 72 20 2a 6f 70 2c 0a 20 09 09 09 T char *op,. ...
1220: 09 69 6e 74 20 6f 70 42 79 74 65 73 2c 20 43 4f .int opBytes, CO
1230: 4e 53 54 20 63 68 61 72 20 2a 73 72 63 2c 20 69 NST char *src, i
1240: 6e 74 20 73 72 63 42 79 74 65 73 2c 0a 40 40 20 nt srcBytes,.@@
1250: 2d 31 30 33 31 2c 37 20 2b 31 30 33 38 2c 37 20 -1031,7 +1038,7
1260: 40 40 0a 20 20 2a 20 50 61 72 73 65 45 78 70 6f @@. * ParseExpo
1270: 6e 65 6e 74 69 61 6c 45 78 70 72 20 2d 2d 0a 20 nentialExpr --.
1280: 20 2a 0a 20 20 2a 09 54 68 69 73 20 70 72 6f 63 *. *.This proc
1290: 65 64 75 72 65 20 70 61 72 73 65 73 20 61 20 54 edure parses a T
12a0: 63 6c 20 65 78 70 6f 6e 65 6e 74 69 61 6c 20 65 cl exponential e
12b0: 78 70 72 65 73 73 69 6f 6e 3a 0a 2d 20 2a 09 65 xpression:.- *.e
12c0: 78 70 6f 6e 65 6e 74 69 61 6c 45 78 70 72 20 3a xponentialExpr :
12d0: 3a 3d 20 75 6e 61 72 79 45 78 70 72 20 7b 27 2a := unaryExpr {'*
12e0: 2a 27 20 75 6e 61 72 79 45 78 70 72 7d 0a 2b 20 *' unaryExpr}.+
12f0: 2a 09 65 78 70 6f 6e 65 6e 74 69 61 6c 45 78 70 *.exponentialExp
1300: 72 20 3a 3a 3d 20 69 6e 45 78 70 72 20 7b 27 2a r ::= inExpr {'*
1310: 2a 27 20 69 6e 45 78 70 72 7d 0a 20 20 2a 0a 20 *' inExpr}. *.
1320: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 20 2a 09 * Results:. *.
1330: 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 The return value
1340: 20 69 73 20 54 43 4c 5f 4f 4b 20 6f 6e 20 61 20 is TCL_OK on a
1350: 73 75 63 63 65 73 73 66 75 6c 20 70 61 72 73 65 successful parse
1360: 20 61 6e 64 20 54 43 4c 5f 45 52 52 4f 52 0a 40 and TCL_ERROR.@
1370: 40 20 2d 31 30 35 39 2c 37 20 2b 31 30 36 36 2c @ -1059,7 +1066,
1380: 37 20 40 40 0a 20 20 20 20 20 73 72 63 53 74 61 7 @@. srcSta
1390: 72 74 20 3d 20 69 6e 66 6f 50 74 72 2d 3e 73 74 rt = infoPtr->st
13a0: 61 72 74 3b 0a 20 20 20 20 20 66 69 72 73 74 49 art;. firstI
13b0: 6e 64 65 78 20 3d 20 70 61 72 73 65 50 74 72 2d ndex = parsePtr-
13c0: 3e 6e 75 6d 54 6f 6b 65 6e 73 3b 0a 20 0a 2d 20 >numTokens;. .-
13d0: 20 20 20 63 6f 64 65 20 3d 20 50 61 72 73 65 55 code = ParseU
13e0: 6e 61 72 79 45 78 70 72 28 69 6e 66 6f 50 74 72 naryExpr(infoPtr
13f0: 29 3b 0a 2b 20 20 20 20 63 6f 64 65 20 3d 20 50 );.+ code = P
1400: 61 72 73 65 49 6e 45 78 70 72 28 69 6e 66 6f 50 arseInExpr(infoP
1410: 74 72 29 3b 0a 20 20 20 20 20 69 66 20 28 63 6f tr);. if (co
1420: 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a de != TCL_OK) {.
1430: 20 09 72 65 74 75 72 6e 20 63 6f 64 65 3b 0a 20 .return code;.
1440: 20 20 20 20 7d 0a 40 40 20 2d 31 30 39 31 2c 36 }.@@ -1091,6
1450: 20 2b 31 30 39 38 2c 36 38 20 40 40 0a 20 2f 2a +1098,68 @@. /*
1460: 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *------------
1470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 0a 2b ----------. *.+
14b0: 20 2a 20 50 61 72 73 65 49 6e 45 78 70 72 20 2d * ParseInExpr -
14c0: 2d 0a 2b 20 2a 0a 2b 20 2a 09 54 68 69 73 20 70 -.+ *.+ *.This p
14d0: 72 6f 63 65 64 75 72 65 20 70 61 72 73 65 73 20 rocedure parses
14e0: 61 20 54 63 6c 20 69 6e 20 65 78 70 72 65 73 73 a Tcl in express
14f0: 69 6f 6e 3a 0a 2b 20 2a 09 69 6e 45 78 70 72 20 ion:.+ *.inExpr
1500: 3a 3a 3d 20 75 6e 61 72 79 45 78 70 72 20 27 69 ::= unaryExpr 'i
1510: 6e 27 20 75 6e 61 72 79 45 78 70 72 20 7c 20 75 n' unaryExpr | u
1520: 6e 61 72 79 45 78 70 72 0a 2b 20 2a 0a 2b 20 2a naryExpr.+ *.+ *
1530: 20 52 65 73 75 6c 74 73 3a 0a 2b 20 2a 09 54 68 Results:.+ *.Th
1540: 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 e return value i
1550: 73 20 54 43 4c 5f 4f 4b 20 6f 6e 20 61 20 73 75 s TCL_OK on a su
1560: 63 63 65 73 73 66 75 6c 20 70 61 72 73 65 20 61 ccessful parse a
1570: 6e 64 20 54 43 4c 5f 45 52 52 4f 52 0a 2b 20 2a nd TCL_ERROR.+ *
1580: 09 6f 6e 20 66 61 69 6c 75 72 65 2e 20 49 66 20 .on failure. If
1590: 54 43 4c 5f 45 52 52 4f 52 20 69 73 20 72 65 74 TCL_ERROR is ret
15a0: 75 72 6e 65 64 2c 20 74 68 65 6e 20 74 68 65 20 urned, then the
15b0: 69 6e 74 65 72 70 72 65 74 65 72 27 73 20 72 65 interpreter's re
15c0: 73 75 6c 74 0a 2b 20 2a 09 63 6f 6e 74 61 69 6e sult.+ *.contain
15d0: 73 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 s an error messa
15e0: 67 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 ge..+ *.+ * Side
15f0: 20 65 66 66 65 63 74 73 3a 0a 2b 20 2a 09 49 66 effects:.+ *.If
1600: 20 74 68 65 72 65 20 69 73 20 69 6e 73 75 66 66 there is insuff
1610: 69 63 69 65 6e 74 20 73 70 61 63 65 20 69 6e 20 icient space in
1620: 70 61 72 73 65 50 74 72 20 74 6f 20 68 6f 6c 64 parsePtr to hold
1630: 20 61 6c 6c 20 74 68 65 0a 2b 20 2a 09 69 6e 66 all the.+ *.inf
1640: 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 ormation about t
1650: 68 65 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e he subexpression
1660: 2c 20 74 68 65 6e 20 61 64 64 69 74 69 6f 6e 61 , then additiona
1670: 6c 20 73 70 61 63 65 20 69 73 0a 2b 20 2a 09 6d l space is.+ *.m
1680: 61 6c 6c 6f 63 2d 65 64 2e 0a 2b 20 2a 0a 2b 20 alloc-ed..+ *.+
1690: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
16a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16d0: 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 73 74 -------.+ */.+st
16e0: 61 74 69 63 20 69 6e 74 0a 2b 50 61 72 73 65 49 atic int.+ParseI
16f0: 6e 45 78 70 72 28 69 6e 66 6f 50 74 72 29 0a 2b nExpr(infoPtr).+
1700: 20 20 20 20 50 61 72 73 65 49 6e 66 6f 20 2a 69 ParseInfo *i
1710: 6e 66 6f 50 74 72 3b 09 09 2f 2a 20 48 6f 6c 64 nfoPtr;../* Hold
1720: 73 20 74 68 65 20 70 61 72 73 65 20 73 74 61 74 s the parse stat
1730: 65 20 66 6f 72 20 74 68 65 0a 2b 09 09 09 09 20 e for the.+....
1740: 2a 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 69 * expression bei
1750: 6e 67 20 70 61 72 73 65 64 2e 20 2a 2f 0a 2b 7b ng parsed. */.+{
1760: 0a 2b 20 20 20 20 54 63 6c 5f 50 61 72 73 65 20 .+ Tcl_Parse
1770: 2a 70 61 72 73 65 50 74 72 20 3d 20 69 6e 66 6f *parsePtr = info
1780: 50 74 72 2d 3e 70 61 72 73 65 50 74 72 3b 0a 2b Ptr->parsePtr;.+
1790: 20 20 20 20 69 6e 74 20 66 69 72 73 74 49 6e 64 int firstInd
17a0: 65 78 2c 20 6c 65 78 65 6d 65 2c 20 63 6f 64 65 ex, lexeme, code
17b0: 3b 0a 2b 20 20 20 20 43 4f 4e 53 54 20 63 68 61 ;.+ CONST cha
17c0: 72 20 2a 73 72 63 53 74 61 72 74 2c 20 2a 6f 70 r *srcStart, *op
17d0: 65 72 61 74 6f 72 3b 0a 2b 0a 2b 20 20 20 20 48 erator;.+.+ H
17e0: 45 52 45 28 22 69 6e 45 78 70 72 22 2c 20 31 33 ERE("inExpr", 13
17f0: 29 3b 0a 2b 20 20 20 20 73 72 63 53 74 61 72 74 );.+ srcStart
1800: 20 3d 20 69 6e 66 6f 50 74 72 2d 3e 73 74 61 72 = infoPtr->star
1810: 74 3b 0a 2b 20 20 20 20 66 69 72 73 74 49 6e 64 t;.+ firstInd
1820: 65 78 20 3d 20 70 61 72 73 65 50 74 72 2d 3e 6e ex = parsePtr->n
1830: 75 6d 54 6f 6b 65 6e 73 3b 0a 2b 0a 2b 20 20 20 umTokens;.+.+
1840: 20 63 6f 64 65 20 3d 20 50 61 72 73 65 55 6e 61 code = ParseUna
1850: 72 79 45 78 70 72 28 69 6e 66 6f 50 74 72 29 3b ryExpr(infoPtr);
1860: 0a 2b 20 20 20 20 69 66 20 28 63 6f 64 65 20 21 .+ if (code !
1870: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 72 65 = TCL_OK) {.+.re
1880: 74 75 72 6e 20 63 6f 64 65 3b 0a 2b 20 20 20 20 turn code;.+
1890: 7d 0a 2b 0a 2b 20 20 20 20 6c 65 78 65 6d 65 20 }.+.+ lexeme
18a0: 3d 20 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 65 6d = infoPtr->lexem
18b0: 65 3b 0a 2b 20 20 20 20 77 68 69 6c 65 20 28 6c e;.+ while (l
18c0: 65 78 65 6d 65 20 3d 3d 20 49 4e 20 7c 7c 20 6c exeme == IN || l
18d0: 65 78 65 6d 65 20 3d 3d 20 4e 49 29 20 7b 0a 2b exeme == NI) {.+
18e0: 09 6f 70 65 72 61 74 6f 72 20 3d 20 69 6e 66 6f .operator = info
18f0: 50 74 72 2d 3e 73 74 61 72 74 3b 0a 2b 09 63 6f Ptr->start;.+.co
1900: 64 65 20 3d 20 47 65 74 4c 65 78 65 6d 65 28 69 de = GetLexeme(i
1910: 6e 66 6f 50 74 72 29 3b 09 2f 2a 20 73 6b 69 70 nfoPtr);./* skip
1920: 20 6f 76 65 72 20 74 68 65 20 6f 70 65 72 61 74 over the operat
1930: 6f 72 20 2a 2f 0a 2b 09 69 66 20 28 63 6f 64 65 or */.+.if (code
1940: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 != TCL_OK) {.+.
1950: 20 20 20 20 72 65 74 75 72 6e 20 63 6f 64 65 3b return code;
1960: 0a 2b 09 7d 0a 2b 09 63 6f 64 65 20 3d 20 50 61 .+.}.+.code = Pa
1970: 72 73 65 55 6e 61 72 79 45 78 70 72 28 69 6e 66 rseUnaryExpr(inf
1980: 6f 50 74 72 29 3b 0a 2b 09 69 66 20 28 63 6f 64 oPtr);.+.if (cod
1990: 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b e != TCL_OK) {.+
19a0: 09 20 20 20 20 72 65 74 75 72 6e 20 63 6f 64 65 . return code
19b0: 3b 0a 2b 09 7d 0a 2b 0a 2b 09 2f 2a 0a 2b 09 20 ;.+.}.+.+./*.+.
19c0: 2a 20 47 65 6e 65 72 61 74 65 20 74 6f 6b 65 6e * Generate token
19d0: 73 20 66 6f 72 20 74 68 65 20 73 75 62 65 78 70 s for the subexp
19e0: 72 65 73 73 69 6f 6e 20 61 6e 64 20 27 69 6e 27 ression and 'in'
19f0: 20 6f 70 65 72 61 74 6f 72 2e 0a 2b 09 20 2a 2f operator..+. */
1a00: 0a 2b 0a 2b 09 50 72 65 70 65 6e 64 53 75 62 45 .+.+.PrependSubE
1a10: 78 70 72 54 6f 6b 65 6e 73 28 6f 70 65 72 61 74 xprTokens(operat
1a20: 6f 72 2c 20 32 2c 20 73 72 63 53 74 61 72 74 2c or, 2, srcStart,
1a30: 0a 2b 09 09 28 69 6e 66 6f 50 74 72 2d 3e 70 72 .+..(infoPtr->pr
1a40: 65 76 45 6e 64 20 2d 20 73 72 63 53 74 61 72 74 evEnd - srcStart
1a50: 29 2c 20 66 69 72 73 74 49 6e 64 65 78 2c 20 69 ), firstIndex, i
1a60: 6e 66 6f 50 74 72 29 3b 0a 2b 09 6c 65 78 65 6d nfoPtr);.+.lexem
1a70: 65 20 3d 20 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 e = infoPtr->lex
1a80: 65 6d 65 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 eme;.+ }.+
1a90: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
1aa0: 2b 7d 0a 2b 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d +}.+.+..+/*.+ *-
1ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1af0: 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 20 20 2a 20 50 61 -----.+ *. * Pa
1b00: 72 73 65 55 6e 61 72 79 45 78 70 72 20 2d 2d 0a rseUnaryExpr --.
1b10: 20 20 2a 0a 20 20 2a 09 54 68 69 73 20 70 72 6f *. *.This pro
1b20: 63 65 64 75 72 65 20 70 61 72 73 65 73 20 61 20 cedure parses a
1b30: 54 63 6c 20 75 6e 61 72 79 20 65 78 70 72 65 73 Tcl unary expres
1b40: 73 69 6f 6e 3a 0a 40 40 20 2d 31 31 31 38 2c 37 sion:.@@ -1118,7
1b50: 20 2b 31 31 38 37 2c 37 20 40 40 0a 20 20 20 20 +1187,7 @@.
1b60: 20 69 6e 74 20 66 69 72 73 74 49 6e 64 65 78 2c int firstIndex,
1b70: 20 6c 65 78 65 6d 65 2c 20 63 6f 64 65 3b 0a 20 lexeme, code;.
1b80: 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 20 2a CONST char *
1b90: 73 72 63 53 74 61 72 74 2c 20 2a 6f 70 65 72 61 srcStart, *opera
1ba0: 74 6f 72 3b 0a 20 0a 2d 20 20 20 20 48 45 52 45 tor;. .- HERE
1bb0: 28 22 75 6e 61 72 79 45 78 70 72 22 2c 20 31 33 ("unaryExpr", 13
1bc0: 29 3b 0a 2b 20 20 20 20 48 45 52 45 28 22 75 6e );.+ HERE("un
1bd0: 61 72 79 45 78 70 72 22 2c 20 31 34 29 3b 0a 20 aryExpr", 14);.
1be0: 20 20 20 20 73 72 63 53 74 61 72 74 20 3d 20 69 srcStart = i
1bf0: 6e 66 6f 50 74 72 2d 3e 73 74 61 72 74 3b 0a 20 nfoPtr->start;.
1c00: 20 20 20 20 66 69 72 73 74 49 6e 64 65 78 20 3d firstIndex =
1c10: 20 70 61 72 73 65 50 74 72 2d 3e 6e 75 6d 54 6f parsePtr->numTo
1c20: 6b 65 6e 73 3b 0a 20 20 20 20 20 0a 40 40 20 2d kens;. .@@ -
1c30: 31 31 38 38 2c 37 20 2b 31 32 35 37 2c 37 20 40 1188,7 +1257,7 @
1c40: 40 0a 20 20 20 20 20 20 2a 20 57 65 20 73 69 6d @. * We sim
1c50: 70 6c 79 20 72 65 63 75 72 73 65 20 6f 6e 20 70 ply recurse on p
1c60: 61 72 65 6e 74 68 65 73 69 7a 65 64 20 73 75 62 arenthesized sub
1c70: 65 78 70 72 65 73 73 69 6f 6e 73 2e 0a 20 20 20 expressions..
1c80: 20 20 20 2a 2f 0a 20 0a 2d 20 20 20 20 48 45 52 */. .- HER
1c90: 45 28 22 70 72 69 6d 61 72 79 45 78 70 72 22 2c E("primaryExpr",
1ca0: 20 31 34 29 3b 0a 2b 20 20 20 20 48 45 52 45 28 14);.+ HERE(
1cb0: 22 70 72 69 6d 61 72 79 45 78 70 72 22 2c 20 31 "primaryExpr", 1
1cc0: 35 29 3b 0a 20 20 20 20 20 6c 65 78 65 6d 65 20 5);. lexeme
1cd0: 3d 20 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 65 6d = infoPtr->lexem
1ce0: 65 3b 0a 20 20 20 20 20 69 66 20 28 6c 65 78 65 e;. if (lexe
1cf0: 6d 65 20 3d 3d 20 4f 50 45 4e 5f 50 41 52 45 4e me == OPEN_PAREN
1d00: 29 20 7b 0a 20 09 63 6f 64 65 20 3d 20 47 65 74 ) {. .code = Get
1d10: 4c 65 78 65 6d 65 28 69 6e 66 6f 50 74 72 29 3b Lexeme(infoPtr);
1d20: 20 2f 2a 20 73 6b 69 70 20 6f 76 65 72 20 74 68 /* skip over th
1d30: 65 20 27 28 27 20 2a 2f 0a 40 40 20 2d 31 38 35 e '(' */.@@ -185
1d40: 36 2c 37 20 2b 31 39 32 35 2c 37 20 40 40 0a 20 6,7 +1925,7 @@.
1d50: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1d60: 4f 4b 3b 0a 20 0a 20 09 63 61 73 65 20 27 65 27 OK;. . .case 'e'
1d70: 3a 0a 2d 09 20 20 20 20 69 66 20 28 28 73 72 63 :.-. if ((src
1d80: 5b 31 5d 20 3d 3d 20 27 71 27 29 20 26 26 20 28 [1] == 'q') && (
1d90: 28 69 6e 66 6f 50 74 72 2d 3e 6c 61 73 74 43 68 (infoPtr->lastCh
1da0: 61 72 20 2d 20 73 72 63 29 20 3e 20 31 29 29 20 ar - src) > 1))
1db0: 7b 0a 2b 09 20 20 20 20 69 66 20 28 28 73 72 63 {.+. if ((src
1dc0: 5b 31 5d 20 3d 3d 20 27 71 27 29 20 26 26 20 21 [1] == 'q') && !
1dd0: 69 73 61 6c 70 68 61 28 73 72 63 5b 32 5d 29 20 isalpha(src[2])
1de0: 26 26 20 28 28 69 6e 66 6f 50 74 72 2d 3e 6c 61 && ((infoPtr->la
1df0: 73 74 43 68 61 72 20 2d 20 73 72 63 29 20 3e 20 stChar - src) >
1e00: 31 29 29 20 7b 0a 20 09 09 69 6e 66 6f 50 74 72 1)) {. ..infoPtr
1e10: 2d 3e 6c 65 78 65 6d 65 20 3d 20 53 54 52 45 51 ->lexeme = STREQ
1e20: 3b 0a 20 09 09 69 6e 66 6f 50 74 72 2d 3e 73 69 ;. ..infoPtr->si
1e30: 7a 65 20 3d 20 32 3b 0a 20 09 09 69 6e 66 6f 50 ze = 2;. ..infoP
1e40: 74 72 2d 3e 6e 65 78 74 20 3d 20 73 72 63 2b 32 tr->next = src+2
1e50: 3b 0a 40 40 20 2d 31 38 36 36 2c 31 33 20 2b 31 ;.@@ -1866,13 +1
1e60: 39 33 35 2c 33 30 20 40 40 0a 20 09 09 67 6f 74 935,30 @@. ..got
1e70: 6f 20 63 68 65 63 6b 46 75 6e 63 4e 61 6d 65 3b o checkFuncName;
1e80: 0a 20 09 20 20 20 20 7d 0a 20 0a 2b 20 20 20 20 . . }. .+
1e90: 20 20 20 20 63 61 73 65 20 27 69 27 3a 0a 2b 09 case 'i':.+.
1ea0: 20 20 20 20 69 66 20 28 28 73 72 63 5b 31 5d 20 if ((src[1]
1eb0: 3d 3d 20 27 6e 27 29 20 26 26 20 21 69 73 61 6c == 'n') && !isal
1ec0: 70 68 61 28 73 72 63 5b 32 5d 29 20 26 26 20 28 pha(src[2]) && (
1ed0: 28 69 6e 66 6f 50 74 72 2d 3e 6c 61 73 74 43 68 (infoPtr->lastCh
1ee0: 61 72 20 2d 20 73 72 63 29 20 3e 20 31 29 29 20 ar - src) > 1))
1ef0: 7b 0a 2b 09 09 69 6e 66 6f 50 74 72 2d 3e 6c 65 {.+..infoPtr->le
1f00: 78 65 6d 65 20 3d 20 49 4e 3b 0a 2b 09 09 69 6e xeme = IN;.+..in
1f10: 66 6f 50 74 72 2d 3e 73 69 7a 65 20 3d 20 32 3b foPtr->size = 2;
1f20: 0a 2b 09 09 69 6e 66 6f 50 74 72 2d 3e 6e 65 78 .+..infoPtr->nex
1f30: 74 20 3d 20 73 72 63 2b 32 3b 0a 2b 09 09 70 61 t = src+2;.+..pa
1f40: 72 73 65 50 74 72 2d 3e 74 65 72 6d 20 3d 20 69 rsePtr->term = i
1f50: 6e 66 6f 50 74 72 2d 3e 6e 65 78 74 3b 0a 2b 09 nfoPtr->next;.+.
1f60: 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a .return TCL_OK;.
1f70: 2b 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b +. } else {.+
1f80: 09 09 67 6f 74 6f 20 63 68 65 63 6b 46 75 6e 63 ..goto checkFunc
1f90: 4e 61 6d 65 3b 0a 2b 09 20 20 20 20 7d 0a 2b 0a Name;.+. }.+.
1fa0: 20 09 63 61 73 65 20 27 6e 27 3a 0a 2d 09 20 20 .case 'n':.-.
1fb0: 20 20 69 66 20 28 28 73 72 63 5b 31 5d 20 3d 3d if ((src[1] ==
1fc0: 20 27 65 27 29 20 26 26 20 28 28 69 6e 66 6f 50 'e') && ((infoP
1fd0: 74 72 2d 3e 6c 61 73 74 43 68 61 72 20 2d 20 73 tr->lastChar - s
1fe0: 72 63 29 20 3e 20 31 29 29 20 7b 0a 2b 09 20 20 rc) > 1)) {.+.
1ff0: 20 20 69 66 20 28 28 73 72 63 5b 31 5d 20 3d 3d if ((src[1] ==
2000: 20 27 65 27 29 20 26 26 20 21 69 73 61 6c 70 68 'e') && !isalph
2010: 61 28 73 72 63 5b 32 5d 29 20 26 26 20 28 28 69 a(src[2]) && ((i
2020: 6e 66 6f 50 74 72 2d 3e 6c 61 73 74 43 68 61 72 nfoPtr->lastChar
2030: 20 2d 20 73 72 63 29 20 3e 20 31 29 29 20 7b 0a - src) > 1)) {.
2040: 20 09 09 69 6e 66 6f 50 74 72 2d 3e 6c 65 78 65 ..infoPtr->lexe
2050: 6d 65 20 3d 20 53 54 52 4e 45 51 3b 0a 20 09 09 me = STRNEQ;. ..
2060: 69 6e 66 6f 50 74 72 2d 3e 73 69 7a 65 20 3d 20 infoPtr->size =
2070: 32 3b 0a 20 09 09 69 6e 66 6f 50 74 72 2d 3e 6e 2;. ..infoPtr->n
2080: 65 78 74 20 3d 20 73 72 63 2b 32 3b 0a 20 09 09 ext = src+2;. ..
2090: 70 61 72 73 65 50 74 72 2d 3e 74 65 72 6d 20 3d parsePtr->term =
20a0: 20 69 6e 66 6f 50 74 72 2d 3e 6e 65 78 74 3b 0a infoPtr->next;.
20b0: 20 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b ..return TCL_OK
20c0: 3b 0a 2b 09 20 20 20 20 7d 20 65 6c 73 65 20 69 ;.+. } else i
20d0: 66 20 28 73 72 63 5b 31 5d 20 3d 3d 20 27 69 27 f (src[1] == 'i'
20e0: 20 26 26 20 21 69 73 61 6c 70 68 61 28 73 72 63 && !isalpha(src
20f0: 5b 32 5d 29 20 26 26 20 28 28 69 6e 66 6f 50 74 [2]) && ((infoPt
2100: 72 2d 3e 6c 61 73 74 43 68 61 72 20 2d 20 73 72 r->lastChar - sr
2110: 63 29 20 3e 20 31 29 29 20 7b 0a 2b 09 09 69 6e c) > 1)) {.+..in
2120: 66 6f 50 74 72 2d 3e 6c 65 78 65 6d 65 20 3d 20 foPtr->lexeme =
2130: 4e 49 3b 0a 2b 09 09 69 6e 66 6f 50 74 72 2d 3e NI;.+..infoPtr->
2140: 73 69 7a 65 20 3d 20 32 3b 0a 2b 09 09 69 6e 66 size = 2;.+..inf
2150: 6f 50 74 72 2d 3e 6e 65 78 74 20 3d 20 73 72 63 oPtr->next = src
2160: 2b 32 3b 0a 2b 09 09 70 61 72 73 65 50 74 72 2d +2;.+..parsePtr-
2170: 3e 74 65 72 6d 20 3d 20 69 6e 66 6f 50 74 72 2d >term = infoPtr-
2180: 3e 6e 65 78 74 3b 0a 2b 09 09 72 65 74 75 72 6e >next;.+..return
2190: 20 54 43 4c 5f 4f 4b 3b 0a 20 09 20 20 20 20 7d TCL_OK;. . }
21a0: 20 65 6c 73 65 20 7b 0a 20 09 09 67 6f 74 6f 20 else {. ..goto
21b0: 63 68 65 63 6b 46 75 6e 63 4e 61 6d 65 3b 0a 20 checkFuncName;.
21c0: 09 20 20 20 20 7d 0a 49 6e 64 65 78 3a 20 74 65 . }.Index: te
21d0: 73 74 73 2f 65 78 70 72 2e 74 65 73 74 0a 3d 3d sts/expr.test.==
21e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
21f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2200: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2210: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2220: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
2230: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 root/tcl/tcl/tes
2240: 74 73 2f 65 78 70 72 2e 74 65 73 74 2c 76 0a 72 ts/expr.test,v.r
2250: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
2260: 6f 6e 20 31 2e 32 35 0a 64 69 66 66 20 2d 75 20 on 1.25.diff -u
2270: 2d 72 31 2e 32 35 20 65 78 70 72 2e 74 65 73 74 -r1.25 expr.test
2280: 0a 2d 2d 2d 20 74 65 73 74 73 2f 65 78 70 72 2e .--- tests/expr.
2290: 74 65 73 74 09 31 39 20 53 65 70 20 32 30 30 34 test.19 Sep 2004
22a0: 20 31 35 3a 30 33 3a 34 38 20 2d 30 30 30 30 09 15:03:48 -0000.
22b0: 31 2e 32 35 0a 2b 2b 2b 20 74 65 73 74 73 2f 65 1.25.+++ tests/e
22c0: 78 70 72 2e 74 65 73 74 09 32 30 20 53 65 70 20 xpr.test.20 Sep
22d0: 32 30 30 34 20 32 30 3a 30 39 3a 32 31 20 2d 30 2004 20:09:21 -0
22e0: 30 30 30 0a 40 40 20 2d 38 37 31 2c 36 20 2b 38 000.@@ -871,6 +8
22f0: 37 31 2c 31 35 38 20 40 40 0a 20 74 65 73 74 20 71,158 @@. test
2300: 65 78 70 72 2d 32 34 2e 38 20 7b 65 78 70 72 20 expr-24.8 {expr
2310: 65 64 67 65 20 63 61 73 65 73 3b 20 73 68 69 66 edge cases; shif
2320: 74 69 6e 67 7d 20 7b 65 78 70 72 20 77 69 64 65 ting} {expr wide
2330: 28 31 30 29 3c 3c 36 33 7d 20 30 0a 20 74 65 73 (10)<<63} 0. tes
2340: 74 20 65 78 70 72 2d 32 34 2e 39 20 7b 65 78 70 t expr-24.9 {exp
2350: 72 20 65 64 67 65 20 63 61 73 65 73 3b 20 73 68 r edge cases; sh
2360: 69 66 74 69 6e 67 7d 20 7b 65 78 70 72 20 35 3e ifting} {expr 5>
2370: 3e 33 32 7d 20 30 0a 20 0a 2b 23 20 54 65 73 74 >32} 0. .+# Test
2380: 73 20 66 6f 72 20 74 68 65 20 27 69 6e 27 20 6f s for the 'in' o
2390: 70 65 72 61 74 6f 72 0a 2b 74 65 73 74 20 65 78 perator.+test ex
23a0: 70 72 2d 32 34 2e 31 20 7b 27 69 6e 27 20 6f 70 pr-24.1 {'in' op
23b0: 65 72 61 74 6f 72 3a 20 66 69 72 73 74 20 65 6c erator: first el
23c0: 65 6d 65 6e 74 20 6d 61 74 63 68 65 73 7d 20 7b ement matches} {
23d0: 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 61 22 20 .+ expr {"a"
23e0: 69 6e 20 22 61 20 62 20 63 22 7d 0a 2b 7d 20 5b in "a b c"}.+} [
23f0: 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d expr {[lsearch -
2400: 65 78 61 63 74 20 22 61 20 62 20 63 22 20 61 5d exact "a b c" a]
2410: 20 3e 3d 30 7d 5d 0a 2b 0a 2b 74 65 73 74 20 65 >=0}].+.+test e
2420: 78 70 72 2d 32 34 2e 32 20 7b 27 69 6e 27 20 6f xpr-24.2 {'in' o
2430: 70 65 72 61 74 6f 72 3a 20 69 6e 6e 65 72 20 65 perator: inner e
2440: 6c 65 6d 65 6e 74 20 6d 61 74 63 68 65 73 7d 20 lement matches}
2450: 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 61 22 {.+ expr {"a"
2460: 20 69 6e 20 22 62 20 61 20 63 22 7d 0a 2b 7d 20 in "b a c"}.+}
2470: 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 [expr {[lsearch
2480: 2d 65 78 61 63 74 20 22 62 20 61 20 63 22 20 61 -exact "b a c" a
2490: 5d 20 3e 3d 20 30 7d 5d 0a 2b 0a 2b 74 65 73 74 ] >= 0}].+.+test
24a0: 20 65 78 70 72 2d 32 34 2e 33 20 7b 27 69 6e 27 expr-24.3 {'in'
24b0: 20 6f 70 65 72 61 74 6f 72 3a 20 6c 61 73 74 20 operator: last
24c0: 65 6c 65 6d 65 74 20 6d 61 74 63 68 65 73 7d 20 elemet matches}
24d0: 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 61 22 {.+ expr {"a"
24e0: 20 69 6e 20 22 63 20 62 20 61 22 7d 0a 2b 7d 20 in "c b a"}.+}
24f0: 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 [expr {[lsearch
2500: 2d 65 78 61 63 74 20 22 63 20 62 20 61 22 20 61 -exact "c b a" a
2510: 5d 20 3e 3d 20 30 7d 5d 0a 2b 0a 2b 74 65 73 74 ] >= 0}].+.+test
2520: 20 65 78 70 72 2d 32 34 2e 34 20 7b 27 69 6e 27 expr-24.4 {'in'
2530: 20 6f 70 65 72 61 74 6f 72 3a 20 65 6d 70 74 79 operator: empty
2540: 20 6c 69 73 74 7d 20 7b 0a 2b 20 20 20 20 65 78 list} {.+ ex
2550: 70 72 20 7b 22 61 22 20 69 6e 20 22 22 7d 0a 2b pr {"a" in ""}.+
2560: 7d 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 } [expr {[lsearc
2570: 68 20 2d 65 78 61 63 74 20 22 22 20 61 5d 20 3e h -exact "" a] >
2580: 3d 20 30 7d 5d 0a 2b 0a 2b 74 65 73 74 20 65 78 = 0}].+.+test ex
2590: 70 72 2d 32 34 2e 35 20 7b 27 69 6e 27 20 6f 70 pr-24.5 {'in' op
25a0: 65 72 61 74 6f 72 3a 20 65 6d 70 74 79 20 73 74 erator: empty st
25b0: 72 69 6e 67 20 2d 20 6d 61 74 63 68 7d 20 7b 0a ring - match} {.
25c0: 2b 20 20 20 20 65 78 70 72 20 7b 22 22 20 69 6e + expr {"" in
25d0: 20 7b 61 20 62 20 63 20 22 22 7d 7d 0a 2b 7d 20 {a b c ""}}.+}
25e0: 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 [expr {[lsearch
25f0: 2d 65 78 61 63 74 20 7b 61 20 62 20 63 20 22 22 -exact {a b c ""
2600: 7d 20 22 22 5d 20 3e 3d 20 30 7d 5d 0a 2b 0a 2b } ""] >= 0}].+.+
2610: 74 65 73 74 20 65 78 70 72 2d 32 34 2e 36 20 7b test expr-24.6 {
2620: 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 65 'in' operator: e
2630: 6d 70 74 79 20 73 79 74 69 6e 67 20 2d 20 6e 6f mpty syting - no
2640: 20 6d 61 74 63 68 7d 20 7b 0a 2b 20 20 20 20 65 match} {.+ e
2650: 78 70 72 20 7b 22 22 20 69 6e 20 22 61 20 62 20 xpr {"" in "a b
2660: 63 22 7d 0a 2b 7d 20 5b 65 78 70 72 20 7b 5b 6c c"}.+} [expr {[l
2670: 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 22 61 search -exact "a
2680: 20 62 20 63 22 20 22 22 5d 20 3e 3d 20 30 7d 5d b c" ""] >= 0}]
2690: 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 34 .+.+test expr-24
26a0: 2e 37 20 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f .7 {'in' operato
26b0: 72 3a 20 62 6f 74 68 20 65 6d 70 74 79 7d 20 7b r: both empty} {
26c0: 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 22 20 69 .+ expr {"" i
26d0: 6e 20 22 22 7d 0a 2b 7d 20 5b 65 78 70 72 20 7b n ""}.+} [expr {
26e0: 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 [lsearch -exact
26f0: 22 22 20 22 22 5d 20 3e 3d 20 30 7d 5d 0a 2b 0a "" ""] >= 0}].+.
2700: 2b 74 65 73 74 20 65 78 70 72 2d 32 34 2e 38 20 +test expr-24.8
2710: 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 {'in' operator:
2720: 76 61 72 69 61 62 6c 65 73 20 2d 20 6d 61 74 63 variables - matc
2730: 68 7d 20 7b 0a 2b 20 20 20 20 73 65 74 20 61 20 h} {.+ set a
2740: 61 0a 2b 20 20 20 20 73 65 74 20 62 20 5b 6c 69 a.+ set b [li
2750: 73 74 20 61 20 62 20 63 5d 0a 2b 20 20 20 20 65 st a b c].+ e
2760: 78 70 72 20 7b 24 61 20 69 6e 20 24 62 7d 0a 2b xpr {$a in $b}.+
2770: 7d 20 31 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 } 1.+.+test expr
2780: 2d 32 34 2e 39 20 7b 27 69 6e 27 20 6f 70 65 72 -24.9 {'in' oper
2790: 61 74 6f 72 3a 20 76 61 72 69 61 62 6c 65 73 20 ator: variables
27a0: 2d 20 6e 6f 20 6d 61 74 63 68 7d 20 7b 0a 2b 20 - no match} {.+
27b0: 20 20 20 73 65 74 20 61 20 61 0a 2b 20 20 20 20 set a a.+
27c0: 73 65 74 20 62 20 5b 6c 69 73 74 20 62 20 63 20 set b [list b c
27d0: 64 5d 0a 2b 20 20 20 20 65 78 70 72 20 7b 24 61 d].+ expr {$a
27e0: 20 69 6e 20 24 62 7d 0a 2b 7d 20 30 0a 2b 0a 2b in $b}.+} 0.+.+
27f0: 74 65 73 74 20 65 78 70 72 2d 32 34 2e 31 30 20 test expr-24.10
2800: 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 {'in' operator:
2810: 65 6d 70 74 79 20 6c 69 73 74 7d 20 7b 0a 2b 20 empty list} {.+
2820: 20 20 20 65 78 70 72 20 7b 22 22 20 69 6e 20 22 expr {"" in "
2830: 20 20 20 22 7d 0a 2b 7d 20 5b 65 78 70 72 20 7b "}.+} [expr {
2840: 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 [lsearch -exact
2850: 22 20 20 20 22 20 22 22 5d 20 3e 3d 20 30 7d 5d " " ""] >= 0}]
2860: 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 34 .+.+test expr-24
2870: 2e 31 31 20 7b 27 69 6e 27 20 6f 70 65 72 61 74 .11 {'in' operat
2880: 6f 72 3a 20 63 68 65 63 6b 69 6e 67 20 70 72 65 or: checking pre
2890: 63 65 64 65 6e 63 65 20 31 7d 20 7b 0a 2b 20 20 cedence 1} {.+
28a0: 20 20 65 78 70 72 20 7b 22 31 22 20 65 71 20 22 expr {"1" eq "
28b0: 61 22 20 69 6e 20 22 61 20 62 22 7d 0a 2b 7d 20 a" in "a b"}.+}
28c0: 31 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 1.+.+test expr-2
28d0: 34 2e 31 32 20 7b 27 69 6e 27 20 6f 70 65 72 61 4.12 {'in' opera
28e0: 74 6f 72 3a 20 63 68 65 63 6b 69 6e 67 20 70 72 tor: checking pr
28f0: 65 63 65 64 65 6e 63 65 20 32 7d 20 7b 0a 2b 20 ecedence 2} {.+
2900: 20 20 20 65 78 70 72 20 7b 22 61 22 20 69 6e 20 expr {"a" in
2910: 22 61 20 62 22 20 65 71 20 22 31 22 7d 0a 2b 7d "a b" eq "1"}.+}
2920: 20 31 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 1.+.+test expr-
2930: 32 34 2e 31 33 20 7b 27 69 6e 27 20 6f 70 65 72 24.13 {'in' oper
2940: 61 74 6f 72 3a 20 63 68 65 63 6b 69 6e 67 20 70 ator: checking p
2950: 72 65 63 65 64 65 6e 63 65 20 33 7d 20 7b 0a 2b recedence 3} {.+
2960: 20 20 20 20 65 78 70 72 20 7b 2d 20 31 20 69 6e expr {- 1 in
2970: 20 22 31 20 32 22 7d 0a 2b 7d 20 30 0a 2b 0a 2b "1 2"}.+} 0.+.+
2980: 74 65 73 74 20 65 78 70 72 2d 32 34 2e 31 34 20 test expr-24.14
2990: 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 {'in' operator:
29a0: 63 68 65 63 6b 69 6e 67 20 70 72 65 63 65 64 65 checking precede
29b0: 6e 63 65 20 34 7d 20 7b 0a 2b 20 20 20 20 65 78 nce 4} {.+ ex
29c0: 70 72 20 7b 31 20 69 6e 20 31 20 2b 20 32 7d 0a pr {1 in 1 + 2}.
29d0: 2b 7d 20 33 0a 2b 0a 2b 23 0a 2b 23 20 53 68 6f +} 3.+.+#.+# Sho
29e0: 75 6c 64 20 74 68 69 73 20 66 61 69 6c 3f 0a 2b uld this fail?.+
29f0: 74 65 73 74 20 65 78 70 72 2d 32 34 2e 31 35 20 test expr-24.15
2a00: 7b 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 {'in' operator:
2a10: 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 20 31 7d improper list 1}
2a20: 20 5c 0a 2b 20 20 20 20 2d 62 6f 64 79 20 7b 0a \.+ -body {.
2a30: 2b 09 65 78 70 72 20 7b 22 61 22 20 69 6e 20 22 +.expr {"a" in "
2a40: 61 20 62 7d 0a 2b 7d 20 5c 0a 2b 2d 72 65 74 75 a b}.+} \.+-retu
2a50: 72 6e 43 6f 64 65 73 20 31 20 5c 0a 2b 2d 72 65 rnCodes 1 \.+-re
2a60: 73 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 22 7d sult {missing "}
2a70: 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 34 .+.+test expr-24
2a80: 2e 31 36 20 7b 27 69 6e 27 20 6f 70 65 72 61 74 .16 {'in' operat
2a90: 6f 72 3a 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 or: improper lis
2aa0: 74 20 32 7d 20 5c 0a 2b 20 20 20 20 2d 62 6f 64 t 2} \.+ -bod
2ab0: 79 20 7b 0a 2b 09 65 78 70 72 20 7b 22 61 22 20 y {.+.expr {"a"
2ac0: 69 6e 20 5c 7b 61 20 62 7d 0a 2b 20 20 20 20 7d in \{a b}.+ }
2ad0: 20 5c 0a 2b 20 20 20 20 2d 72 65 74 75 72 6e 43 \.+ -returnC
2ae0: 6f 64 65 73 20 31 20 5c 0a 2b 20 20 20 20 2d 72 odes 1 \.+ -r
2af0: 65 73 75 6c 74 20 7b 73 79 6e 74 61 78 20 65 72 esult {syntax er
2b00: 72 6f 72 20 69 6e 20 65 78 70 72 65 73 73 69 6f ror in expressio
2b10: 6e 20 22 22 61 22 20 69 6e 20 5c 7b 61 20 62 22 n ""a" in \{a b"
2b20: 3a 20 63 68 61 72 61 63 74 65 72 20 6e 6f 74 20 : character not
2b30: 6c 65 67 61 6c 20 69 6e 20 65 78 70 72 65 73 73 legal in express
2b40: 69 6f 6e 73 7d 0a 2b 0a 2b 74 65 73 74 20 65 78 ions}.+.+test ex
2b50: 70 72 2d 32 34 2e 31 37 20 7b 27 69 6e 27 20 6f pr-24.17 {'in' o
2b60: 70 65 72 61 74 6f 72 3a 20 6e 65 73 74 65 64 20 perator: nested
2b70: 6c 69 73 74 20 31 7d 20 7b 0a 2b 20 20 20 20 65 list 1} {.+ e
2b80: 78 70 72 20 7b 20 7b 61 20 62 7d 20 69 6e 20 7b xpr { {a b} in {
2b90: 7b 61 20 62 7d 20 7b 62 20 63 7d 7d 20 7d 0a 2b {a b} {b c}} }.+
2ba0: 7d 20 31 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 } 1.+.+test expr
2bb0: 2d 32 34 2e 31 38 20 7b 27 69 6e 27 20 6f 70 65 -24.18 {'in' ope
2bc0: 72 61 74 6f 72 3a 20 6e 65 73 74 65 64 20 6c 69 rator: nested li
2bd0: 73 74 20 32 7d 20 7b 0a 2b 20 20 20 20 65 78 70 st 2} {.+ exp
2be0: 72 20 7b 20 7b 61 20 62 7d 20 69 6e 20 7b 7b 61 r { {a b} in {{a
2bf0: 20 62 7d 20 61 20 62 20 7d 20 7d 0a 2b 7d 20 31 b} a b } }.+} 1
2c00: 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 34 .+.+test expr-24
2c10: 2e 31 39 20 7b 27 69 6e 27 20 6f 70 65 72 61 74 .19 {'in' operat
2c20: 6f 72 3a 20 6c 69 73 74 20 63 6f 6e 73 74 72 75 or: list constru
2c30: 63 74 69 6f 6e 7d 20 7b 0a 2b 20 20 20 20 73 65 ction} {.+ se
2c40: 74 20 61 20 22 41 22 0a 2b 20 20 20 20 73 65 74 t a "A".+ set
2c50: 20 62 20 22 41 22 0a 2b 20 20 20 20 65 78 70 72 b "A".+ expr
2c60: 20 7b 20 24 61 20 69 6e 20 5b 6c 69 73 74 20 24 { $a in [list $
2c70: 62 20 24 62 5d 7d 0a 2b 7d 20 31 0a 2b 0a 2b 74 b $b]}.+} 1.+.+t
2c80: 65 73 74 20 65 78 70 72 2d 32 34 2e 32 30 20 7b est expr-24.20 {
2c90: 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 6c 'in' operator: l
2ca0: 69 73 74 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e ist construction
2cb0: 20 65 72 72 6f 72 7d 20 5c 0a 2b 20 20 20 20 2d error} \.+ -
2cc0: 62 6f 64 79 20 7b 0a 2b 09 73 65 74 20 61 20 22 body {.+.set a "
2cd0: 41 22 0a 2b 09 73 65 74 20 62 20 22 41 22 0a 2b A".+.set b "A".+
2ce0: 09 65 78 70 72 20 22 20 24 61 20 69 6e 20 5b 6c .expr " $a in [l
2cf0: 69 73 74 20 24 62 20 24 62 5d 20 22 0a 2b 20 20 ist $b $b] ".+
2d00: 20 20 7d 20 5c 0a 2b 20 20 20 20 2d 72 65 74 75 } \.+ -retu
2d10: 72 6e 43 6f 64 65 73 20 31 20 5c 0a 2b 20 20 20 rnCodes 1 \.+
2d20: 20 2d 72 65 73 75 6c 74 20 7b 73 79 6e 74 61 78 -result {syntax
2d30: 20 65 72 72 6f 72 20 69 6e 20 65 78 70 72 65 73 error in expres
2d40: 73 69 6f 6e 20 22 20 41 20 69 6e 20 41 20 41 20 sion " A in A A
2d50: 22 3a 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 ": variable refe
2d60: 72 65 6e 63 65 73 20 72 65 71 75 69 72 65 20 70 rences require p
2d70: 72 65 63 65 64 69 6e 67 20 24 7d 0a 2b 0a 2b 74 receding $}.+.+t
2d80: 65 73 74 20 65 78 70 72 2d 32 34 2e 32 31 20 7b est expr-24.21 {
2d90: 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 65 'in' operator: e
2da0: 73 63 61 70 65 20 63 68 61 72 61 63 74 65 72 73 scape characters
2db0: 20 31 7d 20 7b 0a 2b 20 20 20 20 73 65 74 20 61 1} {.+ set a
2dc0: 20 5b 6c 69 73 74 20 5c 22 20 5c 22 5c 22 5d 0a [list \" \"\"].
2dd0: 2b 20 20 20 20 65 78 70 72 20 7b 22 5c 22 22 20 + expr {"\""
2de0: 69 6e 20 24 61 7d 0a 2b 7d 20 31 0a 2b 0a 2b 74 in $a}.+} 1.+.+t
2df0: 65 73 74 20 65 78 70 72 2d 32 34 2e 32 32 20 7b est expr-24.22 {
2e00: 27 69 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 65 'in' operator: e
2e10: 73 63 61 70 65 20 63 68 61 72 61 63 74 65 72 73 scape characters
2e20: 20 32 7d 20 7b 0a 2b 20 20 20 20 73 65 74 20 61 2} {.+ set a
2e30: 20 5b 6c 69 73 74 20 5c 7b 20 5c 7b 5d 0a 2b 20 [list \{ \{].+
2e40: 20 20 20 65 78 70 72 20 7b 22 5c 7b 22 20 69 6e expr {"\{" in
2e50: 20 24 61 7d 0a 2b 7d 20 31 0a 2b 0a 2b 74 65 73 $a}.+} 1.+.+tes
2e60: 74 20 65 78 70 72 2d 32 34 2e 32 33 20 7b 27 69 t expr-24.23 {'i
2e70: 6e 27 20 6f 70 65 72 61 74 6f 72 3a 20 65 73 63 n' operator: esc
2e80: 61 70 65 20 63 68 61 72 61 63 74 65 72 73 20 33 ape characters 3
2e90: 7d 20 7b 0a 2b 20 20 20 20 73 65 74 20 61 20 7b } {.+ set a {
2ea0: 20 7b 7d 20 7b 7b 7d 7d 20 7d 0a 2b 20 20 20 20 {} {{}} }.+
2eb0: 65 78 70 72 20 7b 7b 7d 20 69 6e 20 24 61 7d 0a expr {{} in $a}.
2ec0: 2b 7d 20 31 0a 2b 0a 2b 74 65 73 74 20 65 78 70 +} 1.+.+test exp
2ed0: 72 2d 32 34 2e 32 34 20 7b 27 6e 69 27 20 6f 70 r-24.24 {'ni' op
2ee0: 65 72 61 74 6f 72 3a 20 6e 6f 20 6d 61 74 63 68 erator: no match
2ef0: 7d 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 } {.+ expr {"
2f00: 61 22 20 6e 69 20 22 61 20 62 20 63 22 7d 0a 2b a" ni "a b c"}.+
2f10: 7d 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 } [expr {[lsearc
2f20: 68 20 22 61 20 62 20 63 22 20 61 5d 20 3d 3d 20 h "a b c" a] ==
2f30: 2d 31 7d 5d 0a 2b 0a 2b 74 65 73 74 20 65 78 70 -1}].+.+test exp
2f40: 72 2d 32 34 2e 32 35 20 7b 27 6e 69 27 20 6f 70 r-24.25 {'ni' op
2f50: 65 72 61 74 6f 72 3a 20 6d 61 74 63 68 7d 20 7b erator: match} {
2f60: 0a 2b 20 20 20 20 65 78 70 72 20 7b 22 61 22 20 .+ expr {"a"
2f70: 6e 69 20 22 62 20 63 20 64 22 7d 0a 2b 7d 20 5b ni "b c d"}.+} [
2f80: 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 22 expr {[lsearch "
2f90: 62 20 63 20 64 22 20 61 5d 20 3d 3d 20 2d 31 7d b c d" a] == -1}
2fa0: 5d 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 32 ].+.+test expr-2
2fb0: 34 2e 32 35 20 7b 27 69 6e 27 7d 20 7b 0a 2b 20 4.25 {'in'} {.+
2fc0: 20 20 20 65 78 70 72 20 7b 66 61 6c 73 65 20 69 expr {false i
2fd0: 6e 20 66 61 6c 73 65 7d 0a 2b 7d 20 31 0a 2b 0a n false}.+} 1.+.
2fe0: 2b 74 65 73 74 20 65 78 70 72 2d 32 35 2e 31 20 +test expr-25.1
2ff0: 7b 61 6c 70 68 61 6e 75 6d 65 72 69 63 20 6f 70 {alphanumeric op
3000: 65 72 61 74 6f 72 73 20 6d 75 73 74 20 62 65 20 erators must be
3010: 73 75 72 72 6f 75 6e 64 65 64 20 62 79 20 6e 6f surrounded by no
3020: 6e 2d 61 6c 70 68 61 20 63 68 61 72 61 63 74 65 n-alpha characte
3030: 72 73 20 27 65 71 27 7d 20 5c 0a 2b 20 20 20 20 rs 'eq'} \.+
3040: 2d 62 6f 64 79 20 7b 0a 2b 09 65 78 70 72 20 7b -body {.+.expr {
3050: 63 6f 73 28 31 29 65 71 63 6f 73 28 31 29 7d 0a cos(1)eqcos(1)}.
3060: 2b 20 20 20 20 7d 20 5c 0a 2b 20 20 20 20 2d 72 + } \.+ -r
3070: 65 74 75 72 6e 43 6f 64 65 73 20 31 20 5c 0a 2b eturnCodes 1 \.+
3080: 20 20 20 20 2d 72 65 73 75 6c 74 20 7b 73 79 6e -result {syn
3090: 74 61 78 20 65 72 72 6f 72 20 69 6e 20 65 78 70 tax error in exp
30a0: 72 65 73 73 69 6f 6e 20 22 63 6f 73 28 31 29 65 ression "cos(1)e
30b0: 71 63 6f 73 28 31 29 22 3a 20 65 78 74 72 61 20 qcos(1)": extra
30c0: 74 6f 6b 65 6e 73 20 61 74 20 65 6e 64 20 6f 66 tokens at end of
30d0: 20 65 78 70 72 65 73 73 69 6f 6e 7d 0a 2b 0a 2b expression}.+.+
30e0: 74 65 73 74 20 65 78 70 72 2d 32 35 2e 32 20 7b test expr-25.2 {
30f0: 61 6c 70 68 61 6e 75 6d 65 72 69 63 20 6f 70 65 alphanumeric ope
3100: 72 61 74 6f 72 73 20 6d 75 73 74 20 62 65 20 73 rators must be s
3110: 75 72 72 6f 75 6e 64 65 64 20 62 79 20 6e 6f 6e urrounded by non
3120: 2d 61 6c 70 68 61 20 63 68 61 72 61 63 74 65 72 -alpha character
3130: 73 20 27 6e 65 27 7d 20 5c 0a 2b 20 20 20 20 2d s 'ne'} \.+ -
3140: 62 6f 64 79 20 7b 0a 2b 09 65 78 70 72 20 7b 63 body {.+.expr {c
3150: 6f 73 28 31 29 6e 65 63 6f 73 28 31 29 7d 0a 2b os(1)necos(1)}.+
3160: 20 20 20 20 7d 20 5c 0a 2b 20 20 20 20 2d 72 65 } \.+ -re
3170: 74 75 72 6e 43 6f 64 65 73 20 31 20 5c 0a 2b 20 turnCodes 1 \.+
3180: 20 20 20 2d 72 65 73 75 6c 74 20 7b 73 79 6e 74 -result {synt
3190: 61 78 20 65 72 72 6f 72 20 69 6e 20 65 78 70 72 ax error in expr
31a0: 65 73 73 69 6f 6e 20 22 63 6f 73 28 31 29 6e 65 ession "cos(1)ne
31b0: 63 6f 73 28 31 29 22 3a 20 65 78 74 72 61 20 74 cos(1)": extra t
31c0: 6f 6b 65 6e 73 20 61 74 20 65 6e 64 20 6f 66 20 okens at end of
31d0: 65 78 70 72 65 73 73 69 6f 6e 7d 0a 2b 0a 2b 74 expression}.+.+t
31e0: 65 73 74 20 65 78 70 72 2d 32 35 2e 33 20 7b 61 est expr-25.3 {a
31f0: 6c 70 68 61 6e 75 6d 65 72 69 63 20 6f 70 65 72 lphanumeric oper
3200: 61 74 6f 72 73 20 6d 75 73 74 20 62 65 20 73 75 ators must be su
3210: 72 72 6f 75 6e 64 65 64 20 62 79 20 6e 6f 6e 2d rrounded by non-
3220: 61 6c 70 68 61 20 63 68 61 72 61 63 74 65 72 73 alpha characters
3230: 20 27 69 6e 27 7d 20 7b 0a 2b 20 20 20 20 65 78 'in'} {.+ ex
3240: 70 72 20 7b 69 6e 74 28 31 2e 35 29 7d 0a 2b 7d pr {int(1.5)}.+}
3250: 20 31 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 1.+.+test expr-
3260: 32 35 2e 34 20 7b 61 6c 70 68 61 6e 75 6d 65 72 25.4 {alphanumer
3270: 69 63 20 6f 70 65 72 61 74 6f 72 73 20 6d 75 73 ic operators mus
3280: 74 20 62 65 20 73 75 72 72 6f 75 6e 64 65 64 20 t be surrounded
3290: 62 79 20 6e 6f 6e 2d 61 6c 70 68 61 20 63 68 61 by non-alpha cha
32a0: 72 61 63 74 65 72 73 20 27 6e 69 27 7d 20 5c 0a racters 'ni'} \.
32b0: 2b 20 20 20 20 2d 62 6f 64 79 20 7b 0a 2b 09 65 + -body {.+.e
32c0: 78 70 72 20 7b 66 61 6c 73 65 6e 69 74 72 75 65 xpr {falsenitrue
32d0: 7d 0a 2b 20 20 20 20 7d 20 5c 0a 2b 20 20 20 20 }.+ } \.+
32e0: 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 31 20 5c -returnCodes 1 \
32f0: 0a 2b 20 20 20 20 2d 72 65 73 75 6c 74 20 7b 73 .+ -result {s
3300: 79 6e 74 61 78 20 65 72 72 6f 72 20 69 6e 20 65 yntax error in e
3310: 78 70 72 65 73 73 69 6f 6e 20 22 63 6f 73 28 31 xpression "cos(1
3320: 29 6e 65 63 6f 73 28 31 29 22 3a 20 65 78 74 72 )necos(1)": extr
3330: 61 20 74 6f 6b 65 6e 73 20 61 74 20 65 6e 64 20 a tokens at end
3340: 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 7d 0a 2b of expression}.+
3350: 0a 20 23 20 63 6c 65 61 6e 75 70 0a 20 69 66 20 . # cleanup. if
3360: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 61 5d {[info exists a]
3370: 7d 20 7b 0a 20 20 20 20 20 75 6e 73 65 74 20 61 } {. unset a
3380: 0a .
