Attachment "tip282.patch" to
ticket [1969722fff]
added by
dgp
2008-05-22 23:22:34.
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 39 37 0a 64 69 66 evision 1.97.dif
00b0: 66 20 2d 75 20 2d 72 31 2e 39 37 20 74 63 6c 43 f -u -r1.97 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 32 38 20 46 65 62 20 32 30 30 38 20 r.c.28 Feb 2008
00f0: 32 30 3a 34 30 3a 32 34 20 2d 30 30 30 30 09 31 20:40:24 -0000.1
0100: 2e 39 37 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f .97.+++ generic/
0110: 74 63 6c 43 6f 6d 70 45 78 70 72 2e 63 09 32 32 tclCompExpr.c.22
0120: 20 4d 61 79 20 32 30 30 38 20 31 36 3a 30 38 3a May 2008 16:08:
0130: 34 30 20 2d 30 30 30 30 0a 40 40 20 2d 32 39 32 40 -0000.@@ -292
0140: 2c 36 20 2b 32 39 32 2c 38 20 40 40 0a 20 09 09 ,6 +292,8 @@. ..
0150: 09 09 09 20 2a 20 61 6e 64 20 45 4e 44 20 70 61 ... * and END pa
0160: 69 72 73 20 77 69 74 68 20 53 54 41 52 54 2c 20 irs with START,
0170: 69 6e 20 74 68 65 0a 20 09 09 09 09 09 20 2a 20 in the. ..... *
0180: 73 61 6d 65 20 77 61 79 20 74 68 61 74 20 43 4c same way that CL
0190: 4f 53 45 5f 50 41 52 45 4e 20 70 61 69 72 73 20 OSE_PAREN pairs
01a0: 77 69 74 68 0a 20 09 09 09 09 09 20 2a 20 4f 50 with. ..... * OP
01b0: 45 4e 5f 50 41 52 45 4e 2e 20 2a 2f 0a 2b 23 64 EN_PAREN. */.+#d
01c0: 65 66 69 6e 65 20 53 45 50 41 52 41 54 4f 52 09 efine SEPARATOR.
01d0: 28 20 42 49 4e 41 52 59 20 7c 20 32 39 29 0a 2b ( BINARY | 29).+
01e0: 0a 20 2f 2a 0a 20 20 2a 20 57 68 65 6e 20 50 61 . /*. * When Pa
01f0: 72 73 65 45 78 70 72 28 29 20 62 75 69 6c 64 73 rseExpr() builds
0200: 20 74 68 65 20 70 61 72 73 65 20 74 72 65 65 20 the parse tree
0210: 69 74 20 6d 75 73 74 20 63 68 6f 6f 73 65 20 77 it must choose w
0220: 68 69 63 68 20 6f 70 65 72 61 6e 64 73 20 74 6f hich operands to
0230: 0a 20 20 2a 20 63 6f 6e 6e 65 63 74 20 74 6f 20 . * connect to
0240: 77 68 69 63 68 20 6f 70 65 72 61 74 6f 72 73 2e which operators.
0250: 20 20 54 68 69 73 20 69 73 20 64 6f 6e 65 20 61 This is done a
0260: 63 63 6f 72 64 69 6e 67 20 74 6f 20 6f 70 65 72 ccording to oper
0270: 61 74 6f 72 20 70 72 65 63 65 64 65 6e 63 65 2e ator precedence.
0280: 0a 40 40 20 2d 33 30 38 2c 36 20 2b 33 31 30 2c .@@ -308,6 +310,
0290: 37 20 40 40 0a 20 20 20 20 20 50 52 45 43 5f 43 7 @@. PREC_C
02a0: 4c 4f 53 45 5f 50 41 52 45 4e 2c 09 2f 2a 20 22 LOSE_PAREN,./* "
02b0: 29 22 20 2a 2f 0a 20 20 20 20 20 50 52 45 43 5f )" */. PREC_
02c0: 4f 50 45 4e 5f 50 41 52 45 4e 2c 09 2f 2a 20 22 OPEN_PAREN,./* "
02d0: 28 22 20 2a 2f 0a 20 20 20 20 20 50 52 45 43 5f (" */. PREC_
02e0: 43 4f 4d 4d 41 2c 09 09 2f 2a 20 22 2c 22 20 2a COMMA,../* "," *
02f0: 2f 0a 2b 20 20 20 20 50 52 45 43 5f 53 45 50 41 /.+ PREC_SEPA
0300: 52 41 54 4f 52 2c 09 2f 2a 20 22 3b 22 20 2a 2f RATOR,./* ";" */
0310: 0a 20 20 20 20 20 50 52 45 43 5f 43 4f 4e 44 49 . PREC_CONDI
0320: 54 49 4f 4e 41 4c 2c 09 2f 2a 20 22 3f 22 2c 20 TIONAL,./* "?",
0330: 22 3a 22 20 2a 2f 0a 20 20 20 20 20 50 52 45 43 ":" */. PREC
0340: 5f 4f 52 2c 09 09 2f 2a 20 22 7c 7c 22 20 2a 2f _OR,../* "||" */
0350: 0a 20 20 20 20 20 50 52 45 43 5f 41 4e 44 2c 09 . PREC_AND,.
0360: 09 2f 2a 20 22 26 26 22 20 2a 2f 0a 40 40 20 2d ./* "&&" */.@@ -
0370: 33 36 35 2c 38 20 2b 33 36 38 2c 39 20 40 40 0a 365,8 +368,9 @@.
0380: 20 20 20 20 20 50 52 45 43 5f 45 51 55 41 4c 2c PREC_EQUAL,
0390: 09 09 2f 2a 20 4e 4f 54 5f 49 4e 5f 4c 49 53 54 ../* NOT_IN_LIST
03a0: 20 2a 2f 0a 20 20 20 20 20 50 52 45 43 5f 43 4c */. PREC_CL
03b0: 4f 53 45 5f 50 41 52 45 4e 2c 09 2f 2a 20 43 4c OSE_PAREN,./* CL
03c0: 4f 53 45 5f 50 41 52 45 4e 20 2a 2f 0a 20 20 20 OSE_PAREN */.
03d0: 20 20 50 52 45 43 5f 45 4e 44 2c 09 09 2f 2a 20 PREC_END,../*
03e0: 45 4e 44 20 2a 2f 0a 2b 20 20 20 20 50 52 45 43 END */.+ PREC
03f0: 5f 53 45 50 41 52 41 54 4f 52 2c 09 2f 2a 20 53 _SEPARATOR,./* S
0400: 45 50 41 52 41 54 4f 52 20 2a 2f 0a 20 20 20 20 EPARATOR */.
0410: 20 2f 2a 20 45 78 70 61 6e 73 69 6f 6e 20 72 6f /* Expansion ro
0420: 6f 6d 20 66 6f 72 20 6d 6f 72 65 20 62 69 6e 61 om for more bina
0430: 72 79 20 6f 70 65 72 61 74 6f 72 73 20 2a 2f 0a ry operators */.
0440: 2d 20 20 20 20 30 2c 20 20 30 2c 20 20 30 2c 0a - 0, 0, 0,.
0450: 2b 20 20 20 20 30 2c 20 20 30 2c 0a 20 20 20 20 + 0, 0,.
0460: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
0470: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
0480: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
0490: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 0a 0, 0, 0, 0,.
04a0: 20 20 20 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0,
04b0: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
04c0: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
04d0: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
04e0: 20 30 2c 0a 20 20 20 20 20 30 2c 20 20 0a 40 40 0,. 0, .@@
04f0: 20 2d 34 32 30 2c 38 20 2b 34 32 34 2c 39 20 40 -420,8 +424,9 @
0500: 40 0a 20 20 20 20 20 49 4e 53 54 5f 4c 49 53 54 @. INST_LIST
0510: 5f 4e 4f 54 5f 49 4e 2c 09 2f 2a 20 4e 4f 54 5f _NOT_IN,./* NOT_
0520: 49 4e 5f 4c 49 53 54 20 2a 2f 0a 20 20 20 20 20 IN_LIST */.
0530: 30 2c 09 09 09 2f 2a 20 43 4c 4f 53 45 5f 50 41 0,.../* CLOSE_PA
0540: 52 45 4e 20 2a 2f 0a 20 20 20 20 20 30 2c 09 09 REN */. 0,..
0550: 09 2f 2a 20 45 4e 44 20 2a 2f 0a 2b 20 20 20 20 ./* END */.+
0560: 30 2c 09 09 09 2f 2a 20 53 45 50 41 52 41 54 4f 0,.../* SEPARATO
0570: 52 20 2a 2f 0a 20 20 20 20 20 2f 2a 20 45 78 70 R */. /* Exp
0580: 61 6e 73 69 6f 6e 20 72 6f 6f 6d 20 66 6f 72 20 ansion room for
0590: 6d 6f 72 65 20 62 69 6e 61 72 79 20 6f 70 65 72 more binary oper
05a0: 61 74 6f 72 73 20 2a 2f 0a 2d 20 20 20 20 30 2c ators */.- 0,
05b0: 20 20 30 2c 20 20 30 2c 0a 2b 20 20 20 20 30 2c 0, 0,.+ 0,
05c0: 20 20 30 2c 0a 20 20 20 20 20 30 2c 20 20 30 2c 0,. 0, 0,
05d0: 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 0, 0, 0, 0,
05e0: 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 0, 0, 0, 0,
05f0: 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 0, 0, 0, 0,
0600: 20 20 30 2c 20 20 30 2c 0a 20 20 20 20 20 30 2c 0, 0,. 0,
0610: 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 0, 0, 0, 0,
0620: 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 0, 0, 0, 0,
0630: 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 0, 0, 0, 0,
0640: 20 20 30 2c 20 20 30 2c 20 20 30 2c 0a 20 20 20 0, 0, 0,.
0650: 20 20 30 2c 20 20 0a 40 40 20 2d 34 36 36 2c 37 0, .@@ -466,7
0660: 20 2b 34 37 31 2c 37 20 40 40 0a 20 09 43 4f 4d +471,7 @@. .COM
0670: 4d 41 09 09 2f 2a 20 2c 20 2a 2f 2c 09 4d 49 4e MA../* , */,.MIN
0680: 55 53 09 09 2f 2a 20 2d 20 2a 2f 2c 0a 20 09 30 US../* - */,. .0
0690: 09 09 2f 2a 20 2e 20 2a 2f 2c 09 44 49 56 49 44 ../* . */,.DIVID
06a0: 45 09 09 2f 2a 20 2f 20 2a 2f 2c 0a 20 09 30 2c E../* / */,. .0,
06b0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 0, 0, 0, 0, 0,
06c0: 30 2c 20 30 2c 20 30 2c 20 30 2c 09 09 09 2f 2a 0, 0, 0, 0,.../*
06d0: 20 30 2d 39 20 2a 2f 0a 2d 09 43 4f 4c 4f 4e 09 0-9 */.-.COLON.
06e0: 09 2f 2a 20 3a 20 2a 2f 2c 09 49 4e 56 41 4c 49 ./* : */,.INVALI
06f0: 44 09 09 2f 2a 20 3b 20 2a 2f 2c 0a 2b 09 43 4f D../* ; */,.+.CO
0700: 4c 4f 4e 09 09 2f 2a 20 3a 20 2a 2f 2c 09 53 45 LON../* : */,.SE
0710: 50 41 52 41 54 4f 52 09 2f 2a 20 3b 20 2a 2f 2c PARATOR./* ; */,
0720: 0a 20 09 30 09 09 2f 2a 20 3c 20 6f 72 20 3c 3c . .0../* < or <<
0730: 20 6f 72 20 3c 3d 20 2a 2f 2c 0a 20 09 30 09 09 or <= */,. .0..
0740: 2f 2a 20 3d 3d 20 6f 72 20 49 4e 56 41 4c 49 44 /* == or INVALID
0750: 20 2a 2f 2c 0a 20 09 30 09 09 2f 2a 20 3e 20 6f */,. .0../* > o
0760: 72 20 3e 3e 20 6f 72 20 3e 3d 20 2a 2f 2c 0a 40 r >> or >= */,.@
0770: 40 20 2d 32 32 31 33 2c 36 20 2b 32 32 31 38 2c @ -2213,6 +2218,
0780: 39 20 40 40 0a 20 09 20 20 20 20 63 61 73 65 20 9 @@. . case
0790: 4f 52 3a 0a 20 09 09 54 63 6c 45 6d 69 74 46 6f OR:. ..TclEmitFo
07a0: 72 77 61 72 64 4a 75 6d 70 28 65 6e 76 50 74 72 rwardJump(envPtr
07b0: 2c 20 54 43 4c 5f 54 52 55 45 5f 4a 55 4d 50 2c , TCL_TRUE_JUMP,
07c0: 20 26 28 6a 75 6d 70 50 74 72 2d 3e 6a 75 6d 70 &(jumpPtr->jump
07d0: 29 29 3b 0a 20 09 09 62 72 65 61 6b 3b 0a 2b 09 ));. ..break;.+.
07e0: 20 20 20 20 63 61 73 65 20 53 45 50 41 52 41 54 case SEPARAT
07f0: 4f 52 3a 0a 2b 09 09 54 63 6c 45 6d 69 74 4f 70 OR:.+..TclEmitOp
0800: 63 6f 64 65 28 49 4e 53 54 5f 50 4f 50 2c 20 65 code(INST_POP, e
0810: 6e 76 50 74 72 29 3b 0a 2b 09 09 62 72 65 61 6b nvPtr);.+..break
0820: 3b 0a 20 09 20 20 20 20 7d 0a 20 09 7d 20 65 6c ;. . }. .} el
0830: 73 65 20 7b 0a 20 09 20 20 20 20 73 77 69 74 63 se {. . switc
0840: 68 20 28 6e 6f 64 65 50 74 72 2d 3e 6c 65 78 65 h (nodePtr->lexe
0850: 6d 65 29 20 7b 0a 40 40 20 2d 32 32 32 33 2c 36 me) {.@@ -2223,6
0860: 20 2b 32 32 33 31 2c 37 20 40 40 0a 20 09 09 7d +2231,7 @@. ..}
0870: 0a 20 09 09 62 72 65 61 6b 3b 0a 20 09 20 20 20 . ..break;. .
0880: 20 63 61 73 65 20 4f 50 45 4e 5f 50 41 52 45 4e case OPEN_PAREN
0890: 3a 0a 2b 09 20 20 20 20 63 61 73 65 20 53 45 50 :.+. case SEP
08a0: 41 52 41 54 4f 52 3a 0a 20 0a 20 09 09 2f 2a 20 ARATOR:. . ../*
08b0: 64 6f 20 6e 6f 74 68 69 6e 67 20 2a 2f 0a 20 09 do nothing */. .
08c0: 09 62 72 65 61 6b 3b 0a .break;.
