Attachment "1165062.patch" to
ticket [1165062fff]
added by
dgp
2005-05-21 00:05:35.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 6d 61 74 68 66 Index: doc/mathf
0010: 75 6e 63 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d unc.n.==========
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 0a 52 43 53 20 66 69 =========.RCS fi
0060: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
0070: 2f 74 63 6c 2f 64 6f 63 2f 6d 61 74 68 66 75 6e /tcl/doc/mathfun
0080: 63 2e 6e 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 c.n,v.retrieving
0090: 20 72 65 76 69 73 69 6f 6e 20 31 2e 33 0a 64 69 revision 1.3.di
00a0: 66 66 20 2d 75 20 2d 72 31 2e 33 20 6d 61 74 68 ff -u -r1.3 math
00b0: 66 75 6e 63 2e 6e 0a 2d 2d 2d 20 64 6f 63 2f 6d func.n.--- doc/m
00c0: 61 74 68 66 75 6e 63 2e 6e 09 31 32 20 4d 61 79 athfunc.n.12 May
00d0: 20 32 30 30 35 20 32 31 3a 32 31 3a 31 34 20 2d 2005 21:21:14 -
00e0: 30 30 30 30 09 31 2e 33 0a 2b 2b 2b 20 64 6f 63 0000.1.3.+++ doc
00f0: 2f 6d 61 74 68 66 75 6e 63 2e 6e 09 32 30 20 4d /mathfunc.n.20 M
0100: 61 79 20 32 30 30 35 20 31 36 3a 34 38 3a 33 34 ay 2005 16:48:34
0110: 20 2d 30 30 30 30 0a 40 40 20 2d 32 37 2c 36 20 -0000.@@ -27,6
0120: 2b 32 37 2c 38 20 40 40 0a 20 2e 62 72 0a 20 5c +27,8 @@. .br. \
0130: 66 42 3a 3a 74 63 6c 3a 3a 6d 61 74 68 66 75 6e fB::tcl::mathfun
0140: 63 3a 3a 61 74 61 6e 32 5c 66 52 20 5c 66 49 79 c::atan2\fR \fIy
0150: 5c 66 52 20 5c 66 49 78 5c 66 52 0a 20 2e 62 72 \fR \fIx\fR. .br
0160: 0a 2b 5c 66 42 3a 3a 74 63 6c 3a 3a 6d 61 74 68 .+\fB::tcl::math
0170: 66 75 6e 63 3a 3a 62 6f 6f 6c 5c 66 52 20 5c 66 func::bool\fR \f
0180: 49 61 72 67 5c 66 52 0a 2b 2e 62 72 0a 20 5c 66 Iarg\fR.+.br. \f
0190: 42 3a 3a 74 63 6c 3a 3a 6d 61 74 68 66 75 6e 63 B::tcl::mathfunc
01a0: 3a 3a 63 65 69 6c 5c 66 52 20 5c 66 49 61 72 67 ::ceil\fR \fIarg
01b0: 5c 66 52 0a 20 2e 62 72 0a 20 5c 66 42 3a 3a 74 \fR. .br. \fB::t
01c0: 63 6c 3a 3a 6d 61 74 68 66 75 6e 63 3a 3a 63 6f cl::mathfunc::co
01d0: 73 5c 66 52 20 5c 66 49 61 72 67 5c 66 52 0a 40 s\fR \fIarg\fR.@
01e0: 40 20 2d 38 35 2c 31 33 20 2b 38 37 2c 31 33 20 @ -85,13 +87,13
01f0: 40 40 0a 20 6f 66 20 77 68 69 63 68 20 77 6f 72 @@. of which wor
0200: 6b 20 73 6f 6c 65 6c 79 20 77 69 74 68 20 66 6c k solely with fl
0210: 6f 61 74 69 6e 67 2d 70 6f 69 6e 74 20 6e 75 6d oating-point num
0220: 62 65 72 73 20 75 6e 6c 65 73 73 20 6f 74 68 65 bers unless othe
0230: 72 77 69 73 65 20 6e 6f 74 65 64 3a 0a 20 2e 44 rwise noted:. .D
0240: 53 0a 20 2e 74 61 20 33 63 20 36 63 20 39 63 0a S. .ta 3c 6c 9c.
0250: 2d 5c 66 42 61 62 73 5c 66 52 09 5c 66 42 63 6f -\fBabs\fR.\fBco
0260: 73 68 5c 66 52 09 5c 66 42 6c 6f 67 5c 66 52 09 sh\fR.\fBlog\fR.
0270: 5c 66 42 73 71 72 74 5c 66 52 0a 2d 5c 66 42 61 \fBsqrt\fR.-\fBa
0280: 63 6f 73 5c 66 52 09 5c 66 42 64 6f 75 62 6c 65 cos\fR.\fBdouble
0290: 5c 66 52 09 5c 66 42 6c 6f 67 31 30 5c 66 52 09 \fR.\fBlog10\fR.
02a0: 5c 66 42 73 72 61 6e 64 5c 66 52 0a 2d 5c 66 42 \fBsrand\fR.-\fB
02b0: 61 73 69 6e 5c 66 52 09 5c 66 42 65 78 70 5c 66 asin\fR.\fBexp\f
02c0: 52 09 5c 66 42 70 6f 77 5c 66 52 09 5c 66 42 74 R.\fBpow\fR.\fBt
02d0: 61 6e 5c 66 52 0a 2d 5c 66 42 61 74 61 6e 5c 66 an\fR.-\fBatan\f
02e0: 52 09 5c 66 42 66 6c 6f 6f 72 5c 66 52 09 5c 66 R.\fBfloor\fR.\f
02f0: 42 72 61 6e 64 5c 66 52 09 5c 66 42 74 61 6e 68 Brand\fR.\fBtanh
0300: 5c 66 52 0a 2d 5c 66 42 61 74 61 6e 32 5c 66 52 \fR.-\fBatan2\fR
0310: 09 5c 66 42 66 6d 6f 64 5c 66 52 09 5c 66 42 72 .\fBfmod\fR.\fBr
0320: 6f 75 6e 64 5c 66 52 09 5c 66 42 77 69 64 65 5c ound\fR.\fBwide\
0330: 66 52 0a 2b 5c 66 42 61 62 73 5c 66 52 20 20 20 fR.+\fBabs\fR
0340: 20 20 20 5c 66 42 63 6f 73 5c 66 52 20 20 20 20 \fBcos\fR
0350: 20 20 20 5c 66 42 69 6e 74 5c 66 52 20 20 20 20 \fBint\fR
0360: 20 20 20 5c 66 42 73 69 6e 68 5c 66 52 0a 2b 5c \fBsinh\fR.+\
0370: 66 42 61 63 6f 73 5c 66 52 20 20 20 20 20 5c 66 fBacos\fR \f
0380: 42 63 6f 73 68 5c 66 52 20 20 20 20 20 20 5c 66 Bcosh\fR \f
0390: 42 6c 6f 67 5c 66 52 20 20 20 20 20 20 20 5c 66 Blog\fR \f
03a0: 42 73 71 72 74 5c 66 52 0a 2b 5c 66 42 61 73 69 Bsqrt\fR.+\fBasi
03b0: 6e 5c 66 52 20 20 20 20 20 5c 66 42 64 6f 75 62 n\fR \fBdoub
03c0: 6c 65 5c 66 52 20 20 20 20 5c 66 42 6c 6f 67 31 le\fR \fBlog1
03d0: 30 5c 66 52 20 20 20 20 20 5c 66 42 73 72 61 6e 0\fR \fBsran
03e0: 64 5c 66 52 0a 2b 5c 66 42 61 74 61 6e 5c 66 52 d\fR.+\fBatan\fR
03f0: 20 20 20 20 20 5c 66 42 65 78 70 5c 66 52 20 20 \fBexp\fR
0400: 20 20 20 20 20 5c 66 42 70 6f 77 5c 66 52 20 20 \fBpow\fR
0410: 20 20 20 20 20 5c 66 42 74 61 6e 5c 66 52 0a 2b \fBtan\fR.+
0420: 5c 66 42 61 74 61 6e 32 5c 66 52 20 20 20 20 5c \fBatan2\fR \
0430: 66 42 66 6c 6f 6f 72 5c 66 52 20 20 20 20 20 5c fBfloor\fR \
0440: 66 42 72 61 6e 64 5c 66 52 20 20 20 20 20 20 5c fBrand\fR \
0450: 66 42 74 61 6e 68 5c 66 52 0a 2b 5c 66 42 62 6f fBtanh\fR.+\fBbo
0460: 6f 6c 5c 66 52 20 20 20 20 20 5c 66 42 66 6d 6f ol\fR \fBfmo
0470: 64 5c 66 52 20 20 20 20 20 20 5c 66 42 72 6f 75 d\fR \fBrou
0480: 6e 64 5c 66 52 20 20 20 20 20 5c 66 42 77 69 64 nd\fR \fBwid
0490: 65 5c 66 52 0a 20 5c 66 42 63 65 69 6c 5c 66 52 e\fR. \fBceil\fR
04a0: 09 5c 66 42 68 79 70 6f 74 5c 66 52 09 5c 66 42 .\fBhypot\fR.\fB
04b0: 73 69 6e 5c 66 52 0a 2d 5c 66 42 63 6f 73 5c 66 sin\fR.-\fBcos\f
04c0: 52 09 5c 66 42 69 6e 74 5c 66 52 09 5c 66 42 73 R.\fBint\fR.\fBs
04d0: 69 6e 68 5c 66 52 0a 20 2e 44 45 0a 20 2e 50 50 inh\fR. .DE. .PP
04e0: 0a 20 2e 54 50 0a 40 40 20 2d 31 31 36 2c 36 20 . .TP.@@ -116,6
04f0: 2b 31 31 38 2c 31 33 20 40 40 0a 20 72 61 64 69 +118,13 @@. radi
0500: 61 6e 73 2e 20 20 5c 66 49 78 5c 66 52 20 61 6e ans. \fIx\fR an
0510: 64 20 5c 66 49 79 5c 66 52 20 63 61 6e 6e 6f 74 d \fIy\fR cannot
0520: 20 62 6f 74 68 20 62 65 20 30 2e 20 20 49 66 20 both be 0. If
0530: 5c 66 49 78 5c 66 52 20 69 73 20 67 72 65 61 74 \fIx\fR is great
0540: 65 72 0a 20 74 68 61 6e 20 5c 66 49 30 5c 66 52 er. than \fI0\fR
0550: 2c 20 74 68 69 73 20 69 73 20 65 71 75 69 76 61 , this is equiva
0560: 6c 65 6e 74 20 74 6f 20 5c 66 42 61 74 61 6e 28 lent to \fBatan(
0570: 5c 66 49 79 2f 78 5c 66 42 29 5c 66 52 2e 0a 20 \fIy/x\fB)\fR..
0580: 2e 54 50 0a 2b 5c 66 42 62 6f 6f 6c 28 5c 66 49 .TP.+\fBbool(\fI
0590: 61 72 67 5c 66 42 29 5c 66 52 0a 2b 41 63 63 65 arg\fB)\fR.+Acce
05a0: 70 74 73 20 61 6e 79 20 6e 75 6d 65 72 69 63 61 pts any numerica
05b0: 6c 20 76 61 6c 75 65 2c 20 6f 72 20 61 6e 79 20 l value, or any
05c0: 73 74 72 69 6e 67 20 61 63 63 65 70 74 61 62 6c string acceptabl
05d0: 65 20 74 6f 0a 2b 5c 66 42 73 74 72 69 6e 67 20 e to.+\fBstring
05e0: 69 73 20 62 6f 6f 6c 65 61 6e 5c 66 52 2c 20 61 is boolean\fR, a
05f0: 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 63 nd returns the c
0600: 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 0a 2b 62 orresponding .+b
0610: 6f 6f 6c 65 61 6e 20 76 61 6c 75 65 20 5c 66 42 oolean value \fB
0620: 30 5c 66 52 20 6f 72 20 5c 66 42 31 5c 66 52 2e 0\fR or \fB1\fR.
0630: 20 20 4e 6f 6e 2d 7a 65 72 6f 20 6e 75 6d 62 65 Non-zero numbe
0640: 72 73 20 61 72 65 20 74 72 75 65 2e 0a 2b 4f 74 rs are true..+Ot
0650: 68 65 72 20 6e 75 6d 62 65 72 73 20 61 72 65 20 her numbers are
0660: 66 61 6c 73 65 2e 20 20 4e 6f 6e 2d 6e 75 6d 65 false. Non-nume
0670: 72 69 63 20 73 74 72 69 6e 67 73 20 70 72 6f 64 ric strings prod
0680: 75 63 65 20 62 6f 6f 6c 65 61 6e 20 76 61 6c 75 uce boolean valu
0690: 65 20 69 6e 0a 2b 61 67 72 65 65 6d 65 6e 74 20 e in.+agreement
06a0: 77 69 74 68 20 5c 66 42 73 74 72 69 6e 67 20 69 with \fBstring i
06b0: 73 20 74 72 75 65 5c 66 52 20 61 6e 64 20 5c 66 s true\fR and \f
06c0: 42 73 74 72 69 6e 67 20 69 73 20 66 61 6c 73 65 Bstring is false
06d0: 5c 66 52 2e 0a 2b 2e 54 50 0a 20 5c 66 42 63 65 \fR..+.TP. \fBce
06e0: 69 6c 28 5c 66 49 61 72 67 5c 66 42 29 5c 66 52 il(\fIarg\fB)\fR
06f0: 0a 20 52 65 74 75 72 6e 73 20 74 68 65 20 73 6d . Returns the sm
0700: 61 6c 6c 65 73 74 20 69 6e 74 65 67 72 61 6c 20 allest integral
0710: 66 6c 6f 61 74 69 6e 67 2d 70 6f 69 6e 74 20 76 floating-point v
0720: 61 6c 75 65 20 28 69 2e 65 2e 20 77 69 74 68 20 alue (i.e. with
0730: 61 20 7a 65 72 6f 0a 20 66 72 61 63 74 69 6f 6e a zero. fraction
0740: 61 6c 20 70 61 72 74 29 20 6e 6f 74 20 6c 65 73 al part) not les
0750: 73 20 74 68 61 6e 20 5c 66 49 61 72 67 5c 66 52 s than \fIarg\fR
0760: 2e 0a 40 40 20 2d 32 31 38 2c 34 20 2b 32 32 37 ..@@ -218,4 +227
0770: 2c 34 20 40 40 0a 20 2e 62 72 0a 20 43 6f 70 79 ,4 @@. .br. Copy
0780: 72 69 67 68 74 20 28 63 29 20 31 39 39 34 2d 32 right (c) 1994-2
0790: 30 30 30 20 53 75 6e 20 4d 69 63 72 6f 73 79 73 000 Sun Microsys
07a0: 74 65 6d 73 20 49 6e 63 6f 72 70 6f 72 61 74 65 tems Incorporate
07b0: 64 2e 0a 20 2e 62 72 0a 2d 43 6f 70 79 72 69 67 d.. .br.-Copyrig
07c0: 68 74 20 28 63 29 20 32 30 30 35 20 62 79 20 4b ht (c) 2005 by K
07d0: 65 76 69 6e 20 42 2e 20 4b 65 6e 6e 79 20 3c 6b evin B. Kenny <k
07e0: 65 6e 6e 79 6b 62 40 61 63 6d 2e 6f 72 67 3e 2e [email protected]>.
07f0: 20 41 6c 6c 20 72 69 67 68 74 73 20 72 65 73 65 All rights rese
0800: 72 76 65 64 2e 0a 5c 20 4e 6f 20 6e 65 77 6c 69 rved..\ No newli
0810: 6e 65 20 61 74 20 65 6e 64 20 6f 66 20 66 69 6c ne at end of fil
0820: 65 0a 2b 43 6f 70 79 72 69 67 68 74 20 28 63 29 e.+Copyright (c)
0830: 20 32 30 30 35 20 62 79 20 4b 65 76 69 6e 20 42 2005 by Kevin B
0840: 2e 20 4b 65 6e 6e 79 20 3c 6b 65 6e 6e 79 6b 62 . Kenny <kennykb
0850: 40 61 63 6d 2e 6f 72 67 3e 2e 20 41 6c 6c 20 72 @acm.org>. All r
0860: 69 67 68 74 73 20 72 65 73 65 72 76 65 64 2e 0a ights reserved..
0870: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0880: 63 6c 42 61 73 69 63 2e 63 0a 3d 3d 3d 3d 3d 3d clBasic.c.======
0890: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
08a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
08b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
08c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
08d0: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
08e0: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
08f0: 2f 74 63 6c 42 61 73 69 63 2e 63 2c 76 0a 72 65 /tclBasic.c,v.re
0900: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
0910: 6e 20 31 2e 31 35 35 0a 64 69 66 66 20 2d 75 20 n 1.155.diff -u
0920: 2d 72 31 2e 31 35 35 20 74 63 6c 42 61 73 69 63 -r1.155 tclBasic
0930: 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .c.--- generic/t
0940: 63 6c 42 61 73 69 63 2e 63 09 31 39 20 4d 61 79 clBasic.c.19 May
0950: 20 32 30 30 35 20 31 35 3a 31 38 3a 30 32 20 2d 2005 15:18:02 -
0960: 30 30 30 30 09 31 2e 31 35 35 0a 2b 2b 2b 20 67 0000.1.155.+++ g
0970: 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 2e eneric/tclBasic.
0980: 63 09 32 30 20 4d 61 79 20 32 30 30 35 20 31 36 c.20 May 2005 16
0990: 3a 34 38 3a 33 35 20 2d 30 30 30 30 0a 40 40 20 :48:35 -0000.@@
09a0: 2d 35 32 2c 36 20 2b 35 32 2c 38 20 40 40 0a 20 -52,6 +52,8 @@.
09b0: 09 09 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 .. Tcl_Interp
09c0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 61 72 *interp, int ar
09d0: 67 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e gc, Tcl_Obj *CON
09e0: 53 54 20 2a 6f 62 6a 76 29 29 3b 0a 20 73 74 61 ST *objv));. sta
09f0: 74 69 63 20 69 6e 74 09 45 78 70 72 42 69 6e 61 tic int.ExprBina
0a00: 72 79 46 75 6e 63 20 5f 41 4e 53 49 5f 41 52 47 ryFunc _ANSI_ARG
0a10: 53 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 S_((ClientData c
0a20: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 09 09 20 20 lientData,. ..
0a30: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
0a40: 74 65 72 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 terp, int argc,
0a50: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 2a Tcl_Obj *CONST *
0a60: 6f 62 6a 76 29 29 3b 0a 2b 73 74 61 74 69 63 20 objv));.+static
0a70: 69 6e 74 09 45 78 70 72 42 6f 6f 6c 46 75 6e 63 int.ExprBoolFunc
0a80: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c _ANSI_ARGS_((Cl
0a90: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
0aa0: 61 74 61 2c 0a 2b 09 09 20 20 20 20 54 63 6c 5f ata,.+.. Tcl_
0ab0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
0ac0: 69 6e 74 20 61 72 67 63 2c 20 54 63 6c 5f 4f 62 int argc, Tcl_Ob
0ad0: 6a 20 2a 43 4f 4e 53 54 20 2a 6f 62 6a 76 29 29 j *CONST *objv))
0ae0: 3b 0a 20 73 74 61 74 69 63 20 69 6e 74 09 45 78 ;. static int.Ex
0af0: 70 72 44 6f 75 62 6c 65 46 75 6e 63 20 5f 41 4e prDoubleFunc _AN
0b00: 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74 SI_ARGS_((Client
0b10: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
0b20: 0a 20 09 09 20 20 20 20 54 63 6c 5f 49 6e 74 65 . .. Tcl_Inte
0b30: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
0b40: 61 72 67 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 argc, Tcl_Obj *C
0b50: 4f 4e 53 54 20 2a 6f 62 6a 76 29 29 3b 0a 20 73 ONST *objv));. s
0b60: 74 61 74 69 63 20 69 6e 74 09 45 78 70 72 49 6e tatic int.ExprIn
0b70: 74 46 75 6e 63 20 5f 41 4e 53 49 5f 41 52 47 53 tFunc _ANSI_ARGS
0b80: 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c _((ClientData cl
0b90: 69 65 6e 74 44 61 74 61 2c 0a 40 40 20 2d 32 34 ientData,.@@ -24
0ba0: 39 2c 36 20 2b 32 35 31 2c 37 20 40 40 0a 20 20 9,6 +251,7 @@.
0bb0: 20 20 20 7b 20 22 3a 3a 74 63 6c 3a 3a 6d 61 74 { "::tcl::mat
0bc0: 68 66 75 6e 63 3a 3a 61 73 69 6e 22 2c 09 45 78 hfunc::asin",.Ex
0bd0: 70 72 55 6e 61 72 79 46 75 6e 63 2c 09 28 43 6c prUnaryFunc,.(Cl
0be0: 69 65 6e 74 44 61 74 61 29 20 61 73 69 6e 20 09 ientData) asin .
0bf0: 7d 2c 0a 20 20 20 20 20 7b 20 22 3a 3a 74 63 6c },. { "::tcl
0c00: 3a 3a 6d 61 74 68 66 75 6e 63 3a 3a 61 74 61 6e ::mathfunc::atan
0c10: 22 2c 09 45 78 70 72 55 6e 61 72 79 46 75 6e 63 ",.ExprUnaryFunc
0c20: 2c 09 28 43 6c 69 65 6e 74 44 61 74 61 29 20 61 ,.(ClientData) a
0c30: 74 61 6e 20 09 7d 2c 0a 20 20 20 20 20 7b 20 22 tan .},. { "
0c40: 3a 3a 74 63 6c 3a 3a 6d 61 74 68 66 75 6e 63 3a ::tcl::mathfunc:
0c50: 3a 61 74 61 6e 32 22 2c 09 45 78 70 72 42 69 6e :atan2",.ExprBin
0c60: 61 72 79 46 75 6e 63 2c 09 28 43 6c 69 65 6e 74 aryFunc,.(Client
0c70: 44 61 74 61 29 20 61 74 61 6e 32 20 09 7d 2c 0a Data) atan2 .},.
0c80: 2b 20 20 20 20 7b 20 22 3a 3a 74 63 6c 3a 3a 6d + { "::tcl::m
0c90: 61 74 68 66 75 6e 63 3a 3a 62 6f 6f 6c 22 2c 09 athfunc::bool",.
0ca0: 45 78 70 72 42 6f 6f 6c 46 75 6e 63 2c 09 4e 55 ExprBoolFunc,.NU
0cb0: 4c 4c 09 09 09 7d 2c 0a 20 20 20 20 20 7b 20 22 LL...},. { "
0cc0: 3a 3a 74 63 6c 3a 3a 6d 61 74 68 66 75 6e 63 3a ::tcl::mathfunc:
0cd0: 3a 63 65 69 6c 22 2c 09 45 78 70 72 55 6e 61 72 :ceil",.ExprUnar
0ce0: 79 46 75 6e 63 2c 09 28 43 6c 69 65 6e 74 44 61 yFunc,.(ClientDa
0cf0: 74 61 29 20 63 65 69 6c 20 09 7d 2c 0a 20 20 20 ta) ceil .},.
0d00: 20 20 7b 20 22 3a 3a 74 63 6c 3a 3a 6d 61 74 68 { "::tcl::math
0d10: 66 75 6e 63 3a 3a 63 6f 73 22 2c 09 45 78 70 72 func::cos",.Expr
0d20: 55 6e 61 72 79 46 75 6e 63 2c 09 28 43 6c 69 65 UnaryFunc,.(Clie
0d30: 6e 74 44 61 74 61 29 20 63 6f 73 20 09 7d 2c 0a ntData) cos .},.
0d40: 20 20 20 20 20 7b 20 22 3a 3a 74 63 6c 3a 3a 6d { "::tcl::m
0d50: 61 74 68 66 75 6e 63 3a 3a 63 6f 73 68 22 2c 09 athfunc::cosh",.
0d60: 45 78 70 72 55 6e 61 72 79 46 75 6e 63 2c 09 28 ExprUnaryFunc,.(
0d70: 43 6c 69 65 6e 74 44 61 74 61 29 20 63 6f 73 68 ClientData) cosh
0d80: 09 7d 2c 0a 40 40 20 2d 35 31 32 37 2c 36 20 2b .},.@@ -5127,6 +
0d90: 35 31 33 30 2c 32 37 20 40 40 0a 20 7d 0a 20 0a 5130,27 @@. }. .
0da0: 20 73 74 61 74 69 63 20 69 6e 74 0a 2b 45 78 70 static int.+Exp
0db0: 72 42 6f 6f 6c 46 75 6e 63 28 63 6c 69 65 6e 74 rBoolFunc(client
0dc0: 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 Data, interp, ob
0dd0: 6a 63 2c 20 6f 62 6a 76 29 0a 2b 20 20 20 20 43 jc, objv).+ C
0de0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
0df0: 44 61 74 61 3b 09 2f 2a 20 49 67 6e 6f 72 65 64 Data;./* Ignored
0e00: 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 49 6e . */.+ Tcl_In
0e10: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f terp *interp;../
0e20: 2a 20 54 68 65 20 69 6e 74 65 72 70 72 65 74 65 * The interprete
0e30: 72 20 69 6e 20 77 68 69 63 68 20 74 6f 20 65 78 r in which to ex
0e40: 65 63 75 74 65 20 74 68 65 0a 2b 09 09 09 09 20 ecute the.+....
0e50: 2a 20 66 75 6e 63 74 69 6f 6e 2e 20 2a 2f 0a 2b * function. */.+
0e60: 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 09 09 09 int objc;...
0e70: 2f 2a 20 41 63 74 75 61 6c 20 70 61 72 61 6d 65 /* Actual parame
0e80: 74 65 72 20 63 6f 75 6e 74 20 2a 2f 0a 2b 20 20 ter count */.+
0e90: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
0ea0: 20 2a 6f 62 6a 76 3b 09 2f 2a 20 41 63 74 75 61 *objv;./* Actua
0eb0: 6c 20 70 61 72 61 6d 65 74 65 72 20 76 65 63 74 l parameter vect
0ec0: 6f 72 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 69 6e or */.+{.+ in
0ed0: 74 20 76 61 6c 75 65 3b 0a 2b 0a 2b 20 20 20 20 t value;.+.+
0ee0: 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b if (objc != 2) {
0ef0: 0a 2b 09 4d 61 74 68 46 75 6e 63 57 72 6f 6e 67 .+.MathFuncWrong
0f00: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
0f10: 32 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 2, objc, objv);.
0f20: 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 +.return TCL_ERR
0f30: 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 OR;.+ }.+
0f40: 69 66 20 28 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 if (Tcl_GetBoole
0f50: 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 anFromObj(interp
0f60: 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 76 61 6c 75 , objv[1], &valu
0f70: 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a e) != TCL_OK) {.
0f80: 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 +.return TCL_ERR
0f90: 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 OR;.+ }.+
0fa0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
0fb0: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
0fc0: 42 6f 6f 6c 65 61 6e 4f 62 6a 28 76 61 6c 75 65 BooleanObj(value
0fd0: 29 29 3b 0a 2b 20 20 20 20 72 65 74 75 72 6e 20 ));.+ return
0fe0: 54 43 4c 5f 4f 4b 3b 0a 2b 7d 0a 2b 0a 2b 73 74 TCL_OK;.+}.+.+st
0ff0: 61 74 69 63 20 69 6e 74 0a 20 45 78 70 72 44 6f atic int. ExprDo
1000: 75 62 6c 65 46 75 6e 63 28 63 6c 69 65 6e 74 44 ubleFunc(clientD
1010: 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a ata, interp, obj
1020: 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 20 43 6c c, objv). Cl
1030: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
1040: 61 74 61 3b 09 2f 2a 20 49 67 6e 6f 72 65 64 2e ata;./* Ignored.
1050: 20 2a 2f 0a 20 20 20 20 20 54 63 6c 5f 49 6e 74 */. Tcl_Int
1060: 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a erp *interp;../*
1070: 20 54 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 The interpreter
1080: 20 69 6e 20 77 68 69 63 68 20 74 6f 20 65 78 65 in which to exe
1090: 63 75 74 65 20 74 68 65 0a 49 6e 64 65 78 3a 20 cute the.Index:
10a0: 74 65 73 74 73 2f 65 78 70 72 2e 74 65 73 74 0a tests/expr.test.
10b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
10c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
10d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
10e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
10f0: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
1100: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 vsroot/tcl/tcl/t
1110: 65 73 74 73 2f 65 78 70 72 2e 74 65 73 74 2c 76 ests/expr.test,v
1120: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 .retrieving revi
1130: 73 69 6f 6e 20 31 2e 33 32 0a 64 69 66 66 20 2d sion 1.32.diff -
1140: 75 20 2d 72 31 2e 33 32 20 65 78 70 72 2e 74 65 u -r1.32 expr.te
1150: 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 65 78 70 st.--- tests/exp
1160: 72 2e 74 65 73 74 09 31 30 20 4d 61 79 20 32 30 r.test.10 May 20
1170: 30 35 20 31 38 3a 33 35 3a 31 39 20 2d 30 30 30 05 18:35:19 -000
1180: 30 09 31 2e 33 32 0a 2b 2b 2b 20 74 65 73 74 73 0.1.32.+++ tests
1190: 2f 65 78 70 72 2e 74 65 73 74 09 32 30 20 4d 61 /expr.test.20 Ma
11a0: 79 20 32 30 30 35 20 31 36 3a 34 38 3a 33 39 20 y 2005 16:48:39
11b0: 2d 30 30 30 30 0a 40 40 20 2d 31 33 2c 37 20 2b -0000.@@ -13,7 +
11c0: 31 33 2c 37 20 40 40 0a 20 23 20 52 43 53 3a 20 13,7 @@. # RCS:
11d0: 40 28 23 29 20 24 49 64 3a 20 65 78 70 72 2e 74 @(#) $Id: expr.t
11e0: 65 73 74 2c 76 20 31 2e 33 32 20 32 30 30 35 2f est,v 1.32 2005/
11f0: 30 35 2f 31 30 20 31 38 3a 33 35 3a 31 39 20 6b 05/10 18:35:19 k
1200: 65 6e 6e 79 6b 62 20 45 78 70 20 24 0a 20 0a 20 ennykb Exp $. .
1210: 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 5b 6e 61 if {[lsearch [na
1220: 6d 65 73 70 61 63 65 20 63 68 69 6c 64 72 65 6e mespace children
1230: 5d 20 3a 3a 74 63 6c 74 65 73 74 5d 20 3d 3d 20 ] ::tcltest] ==
1240: 2d 31 7d 20 7b 0a 2d 20 20 20 20 70 61 63 6b 61 -1} {.- packa
1250: 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 ge require tclte
1260: 73 74 0a 2b 20 20 20 20 70 61 63 6b 61 67 65 20 st.+ package
1270: 72 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 20 require tcltest
1280: 32 2e 31 0a 20 20 20 20 20 6e 61 6d 65 73 70 61 2.1. namespa
1290: 63 65 20 69 6d 70 6f 72 74 20 2d 66 6f 72 63 65 ce import -force
12a0: 20 3a 3a 74 63 6c 74 65 73 74 3a 3a 2a 0a 20 7d ::tcltest::*. }
12b0: 0a 20 0a 40 40 20 2d 35 31 38 31 2c 36 20 2b 35 . .@@ -5181,6 +5
12c0: 31 38 31 2c 36 39 20 40 40 0a 20 20 20 20 20 6c 181,69 @@. l
12d0: 69 73 74 20 5b 73 63 61 6e 20 2d 31 2e 37 39 37 ist [scan -1.797
12e0: 36 39 33 31 33 34 38 36 32 33 31 35 39 65 2b 33 6931348623159e+3
12f0: 30 38 20 25 66 20 76 5d 20 24 76 0a 20 7d 20 7b 08 %f v] $v. } {
1300: 31 20 2d 49 6e 66 7d 0a 20 0a 2b 23 20 62 6f 6f 1 -Inf}. .+# boo
1310: 6c 28 29 20 74 65 73 74 73 20 28 54 49 50 20 23 l() tests (TIP #
1320: 31 38 32 29 0a 2b 73 65 74 20 69 20 30 0a 2b 66 182).+set i 0.+f
1330: 6f 72 65 61 63 68 20 73 20 7b 79 65 73 20 74 72 oreach s {yes tr
1340: 75 65 20 6f 6e 7d 20 7b 0a 2b 20 20 20 20 74 65 ue on} {.+ te
1350: 73 74 20 65 78 70 72 2d 33 31 2e 24 69 2e 30 20 st expr-31.$i.0
1360: 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 {boolean convers
1370: 69 6f 6e 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 ion} {expr bool(
1380: 24 73 29 7d 20 31 0a 2b 20 20 20 20 74 65 73 74 $s)} 1.+ test
1390: 20 65 78 70 72 2d 33 31 2e 24 69 2e 31 20 7b 62 expr-31.$i.1 {b
13a0: 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 69 6f oolean conversio
13b0: 6e 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 21 24 n} {expr bool(!$
13c0: 73 29 7d 20 30 0a 2b 20 20 20 20 74 65 73 74 20 s)} 0.+ test
13d0: 65 78 70 72 2d 33 31 2e 24 69 2e 32 20 7b 62 6f expr-31.$i.2 {bo
13e0: 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 69 6f 6e olean conversion
13f0: 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 22 24 73 } {expr bool("$s
1400: 22 29 7d 20 31 0a 2b 20 20 20 20 74 65 73 74 20 ")} 1.+ test
1410: 65 78 70 72 2d 33 31 2e 24 69 2e 33 20 7b 62 6f expr-31.$i.3 {bo
1420: 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 69 6f 6e olean conversion
1430: 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 21 22 24 } {expr bool(!"$
1440: 73 22 29 7d 20 30 0a 2b 20 20 20 20 73 65 74 20 s")} 0.+ set
1450: 6a 20 31 0a 2b 20 20 20 20 77 68 69 6c 65 20 7b j 1.+ while {
1460: 24 6a 20 3c 20 5b 73 74 72 69 6e 67 20 6c 65 6e $j < [string len
1470: 67 74 68 20 24 73 5d 2d 31 7d 20 7b 0a 2b 09 74 gth $s]-1} {.+.t
1480: 65 73 74 20 65 78 70 72 2d 33 31 2e 24 69 2e 34 est expr-31.$i.4
1490: 2e 24 6a 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e .$j {boolean con
14a0: 76 65 72 73 69 6f 6e 7d 20 7b 0a 2b 09 20 20 20 version} {.+.
14b0: 20 65 78 70 72 20 62 6f 6f 6c 28 5b 73 74 72 69 expr bool([stri
14c0: 6e 67 20 72 61 6e 67 65 20 24 73 20 30 20 24 6a ng range $s 0 $j
14d0: 5d 29 0a 2b 09 7d 20 31 0a 2b 09 74 65 73 74 20 ]).+.} 1.+.test
14e0: 65 78 70 72 2d 33 31 2e 24 69 2e 35 2e 24 6a 20 expr-31.$i.5.$j
14f0: 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 {boolean convers
1500: 69 6f 6e 7d 20 7b 0a 2b 09 20 20 20 20 65 78 70 ion} {.+. exp
1510: 72 20 62 6f 6f 6c 28 22 5b 73 74 72 69 6e 67 20 r bool("[string
1520: 72 61 6e 67 65 20 24 73 20 30 20 24 6a 5d 22 29 range $s 0 $j]")
1530: 0a 2b 09 7d 20 31 0a 2b 09 69 6e 63 72 20 6a 0a .+.} 1.+.incr j.
1540: 2b 20 20 20 20 7d 0a 2b 20 20 20 20 69 6e 63 72 + }.+ incr
1550: 20 69 0a 2b 7d 0a 2b 74 65 73 74 20 65 78 70 72 i.+}.+test expr
1560: 2d 33 31 2e 30 2e 34 2e 30 20 7b 62 6f 6f 6c 65 -31.0.4.0 {boole
1570: 61 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 7d 20 7b an conversion} {
1580: 65 78 70 72 20 62 6f 6f 6c 28 79 29 7d 20 31 0a expr bool(y)} 1.
1590: 2b 74 65 73 74 20 65 78 70 72 2d 33 31 2e 30 2e +test expr-31.0.
15a0: 35 2e 30 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e 5.0 {boolean con
15b0: 76 65 72 73 69 6f 6e 7d 20 7b 65 78 70 72 20 62 version} {expr b
15c0: 6f 6f 6c 28 22 79 22 29 7d 20 31 0a 2b 74 65 73 ool("y")} 1.+tes
15d0: 74 20 65 78 70 72 2d 33 31 2e 31 2e 34 2e 30 20 t expr-31.1.4.0
15e0: 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 {boolean convers
15f0: 69 6f 6e 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 ion} {expr bool(
1600: 74 29 7d 20 31 0a 2b 74 65 73 74 20 65 78 70 72 t)} 1.+test expr
1610: 2d 33 31 2e 31 2e 35 2e 30 20 7b 62 6f 6f 6c 65 -31.1.5.0 {boole
1620: 61 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 7d 20 7b an conversion} {
1630: 65 78 70 72 20 62 6f 6f 6c 28 22 74 22 29 7d 20 expr bool("t")}
1640: 31 0a 2b 74 65 73 74 20 65 78 70 72 2d 33 31 2e 1.+test expr-31.
1650: 32 2e 34 2e 30 20 7b 62 6f 6f 6c 65 61 6e 20 63 2.4.0 {boolean c
1660: 6f 6e 76 65 72 73 69 6f 6e 7d 20 2d 62 6f 64 79 onversion} -body
1670: 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 62 6f 6f {.+ expr boo
1680: 6c 28 6f 29 0a 2b 7d 20 2d 72 65 74 75 72 6e 43 l(o).+} -returnC
1690: 6f 64 65 73 20 65 72 72 6f 72 20 2d 6d 61 74 63 odes error -matc
16a0: 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 2a h glob -result *
16b0: 0a 2b 74 65 73 74 20 65 78 70 72 2d 33 31 2e 32 .+test expr-31.2
16c0: 2e 35 2e 30 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f .5.0 {boolean co
16d0: 6e 76 65 72 73 69 6f 6e 7d 20 2d 62 6f 64 79 20 nversion} -body
16e0: 7b 0a 2b 20 20 20 20 65 78 70 72 20 62 6f 6f 6c {.+ expr bool
16f0: 28 22 6f 22 29 0a 2b 7d 20 2d 72 65 74 75 72 6e ("o").+} -return
1700: 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 6d 61 74 Codes error -mat
1710: 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 ch glob -result
1720: 2a 0a 2b 66 6f 72 65 61 63 68 20 73 20 7b 6e 6f *.+foreach s {no
1730: 20 66 61 6c 73 65 20 6f 66 66 7d 20 7b 0a 2b 20 false off} {.+
1740: 20 20 20 74 65 73 74 20 65 78 70 72 2d 33 31 2e test expr-31.
1750: 24 69 2e 30 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f $i.0 {boolean co
1760: 6e 76 65 72 73 69 6f 6e 7d 20 7b 65 78 70 72 20 nversion} {expr
1770: 62 6f 6f 6c 28 24 73 29 7d 20 30 0a 2b 20 20 20 bool($s)} 0.+
1780: 20 74 65 73 74 20 65 78 70 72 2d 33 31 2e 24 69 test expr-31.$i
1790: 2e 31 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 .1 {boolean conv
17a0: 65 72 73 69 6f 6e 7d 20 7b 65 78 70 72 20 62 6f ersion} {expr bo
17b0: 6f 6c 28 21 24 73 29 7d 20 31 0a 2b 20 20 20 20 ol(!$s)} 1.+
17c0: 74 65 73 74 20 65 78 70 72 2d 33 31 2e 24 69 2e test expr-31.$i.
17d0: 32 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 2 {boolean conve
17e0: 72 73 69 6f 6e 7d 20 7b 65 78 70 72 20 62 6f 6f rsion} {expr boo
17f0: 6c 28 22 24 73 22 29 7d 20 30 0a 2b 20 20 20 20 l("$s")} 0.+
1800: 74 65 73 74 20 65 78 70 72 2d 33 31 2e 24 69 2e test expr-31.$i.
1810: 33 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 3 {boolean conve
1820: 72 73 69 6f 6e 7d 20 7b 65 78 70 72 20 62 6f 6f rsion} {expr boo
1830: 6c 28 21 22 24 73 22 29 7d 20 31 0a 2b 20 20 20 l(!"$s")} 1.+
1840: 20 73 65 74 20 6a 20 31 0a 2b 20 20 20 20 77 68 set j 1.+ wh
1850: 69 6c 65 20 7b 24 6a 20 3c 20 5b 73 74 72 69 6e ile {$j < [strin
1860: 67 20 6c 65 6e 67 74 68 20 24 73 5d 2d 31 7d 20 g length $s]-1}
1870: 7b 0a 2b 09 74 65 73 74 20 65 78 70 72 2d 33 31 {.+.test expr-31
1880: 2e 24 69 2e 34 2e 24 6a 20 7b 62 6f 6f 6c 65 61 .$i.4.$j {boolea
1890: 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 7d 20 7b 0a n conversion} {.
18a0: 2b 09 20 20 20 20 65 78 70 72 20 62 6f 6f 6c 28 +. expr bool(
18b0: 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 73 [string range $s
18c0: 20 30 20 24 6a 5d 29 0a 2b 09 7d 20 30 0a 2b 09 0 $j]).+.} 0.+.
18d0: 74 65 73 74 20 65 78 70 72 2d 33 31 2e 24 69 2e test expr-31.$i.
18e0: 35 2e 24 6a 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f 5.$j {boolean co
18f0: 6e 76 65 72 73 69 6f 6e 7d 20 7b 0a 2b 09 20 20 nversion} {.+.
1900: 20 20 65 78 70 72 20 62 6f 6f 6c 28 22 5b 73 74 expr bool("[st
1910: 72 69 6e 67 20 72 61 6e 67 65 20 24 73 20 30 20 ring range $s 0
1920: 24 6a 5d 22 29 0a 2b 09 7d 20 30 0a 2b 09 69 6e $j]").+.} 0.+.in
1930: 63 72 20 6a 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 cr j.+ }.+
1940: 20 69 6e 63 72 20 69 0a 2b 7d 0a 2b 74 65 73 74 incr i.+}.+test
1950: 20 65 78 70 72 2d 33 31 2e 33 2e 34 2e 30 20 7b expr-31.3.4.0 {
1960: 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 69 boolean conversi
1970: 6f 6e 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 6e on} {expr bool(n
1980: 29 7d 20 30 0a 2b 74 65 73 74 20 65 78 70 72 2d )} 0.+test expr-
1990: 33 31 2e 33 2e 35 2e 30 20 7b 62 6f 6f 6c 65 61 31.3.5.0 {boolea
19a0: 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 7d 20 7b 65 n conversion} {e
19b0: 78 70 72 20 62 6f 6f 6c 28 22 6e 22 29 7d 20 30 xpr bool("n")} 0
19c0: 0a 2b 74 65 73 74 20 65 78 70 72 2d 33 31 2e 34 .+test expr-31.4
19d0: 2e 34 2e 30 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f .4.0 {boolean co
19e0: 6e 76 65 72 73 69 6f 6e 7d 20 7b 65 78 70 72 20 nversion} {expr
19f0: 62 6f 6f 6c 28 66 29 7d 20 30 0a 2b 74 65 73 74 bool(f)} 0.+test
1a00: 20 65 78 70 72 2d 33 31 2e 34 2e 35 2e 30 20 7b expr-31.4.5.0 {
1a10: 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 69 boolean conversi
1a20: 6f 6e 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 22 on} {expr bool("
1a30: 66 22 29 7d 20 30 0a 2b 74 65 73 74 20 65 78 70 f")} 0.+test exp
1a40: 72 2d 33 31 2e 36 20 20 7b 62 6f 6f 6c 65 61 6e r-31.6 {boolean
1a50: 20 63 6f 6e 76 65 72 73 69 6f 6e 7d 20 7b 65 78 conversion} {ex
1a60: 70 72 20 62 6f 6f 6c 28 2d 31 20 2b 20 31 29 7d pr bool(-1 + 1)}
1a70: 20 30 0a 2b 74 65 73 74 20 65 78 70 72 2d 33 31 0.+test expr-31
1a80: 2e 37 20 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e .7 {boolean con
1a90: 76 65 72 73 69 6f 6e 7d 20 7b 65 78 70 72 20 62 version} {expr b
1aa0: 6f 6f 6c 28 30 20 2b 20 31 29 7d 20 31 0a 2b 74 ool(0 + 1)} 1.+t
1ab0: 65 73 74 20 65 78 70 72 2d 33 31 2e 38 20 20 7b est expr-31.8 {
1ac0: 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 69 boolean conversi
1ad0: 6f 6e 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 30 on} {expr bool(0
1ae0: 2e 30 29 7d 20 30 0a 2b 74 65 73 74 20 65 78 70 .0)} 0.+test exp
1af0: 72 2d 33 31 2e 39 20 20 7b 62 6f 6f 6c 65 61 6e r-31.9 {boolean
1b00: 20 63 6f 6e 76 65 72 73 69 6f 6e 7d 20 7b 65 78 conversion} {ex
1b10: 70 72 20 62 6f 6f 6c 28 30 78 30 29 7d 20 30 0a pr bool(0x0)} 0.
1b20: 2b 74 65 73 74 20 65 78 70 72 2d 33 31 2e 31 30 +test expr-31.10
1b30: 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 {boolean conver
1b40: 73 69 6f 6e 7d 20 7b 65 78 70 72 20 62 6f 6f 6c sion} {expr bool
1b50: 28 77 69 64 65 28 30 29 29 7d 20 30 0a 2b 74 65 (wide(0))} 0.+te
1b60: 73 74 20 65 78 70 72 2d 33 31 2e 31 31 20 7b 62 st expr-31.11 {b
1b70: 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 69 6f oolean conversio
1b80: 6e 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 35 2e n} {expr bool(5.
1b90: 30 29 7d 20 31 0a 2b 74 65 73 74 20 65 78 70 72 0)} 1.+test expr
1ba0: 2d 33 31 2e 31 32 20 7b 62 6f 6f 6c 65 61 6e 20 -31.12 {boolean
1bb0: 63 6f 6e 76 65 72 73 69 6f 6e 7d 20 7b 65 78 70 conversion} {exp
1bc0: 72 20 62 6f 6f 6c 28 35 29 7d 20 31 0a 2b 74 65 r bool(5)} 1.+te
1bd0: 73 74 20 65 78 70 72 2d 33 31 2e 31 33 20 7b 62 st expr-31.13 {b
1be0: 6f 6f 6c 65 61 6e 20 63 6f 6e 76 65 72 73 69 6f oolean conversio
1bf0: 6e 7d 20 7b 65 78 70 72 20 62 6f 6f 6c 28 30 78 n} {expr bool(0x
1c00: 35 29 7d 20 31 0a 2b 74 65 73 74 20 65 78 70 72 5)} 1.+test expr
1c10: 2d 33 31 2e 31 34 20 7b 62 6f 6f 6c 65 61 6e 20 -31.14 {boolean
1c20: 63 6f 6e 76 65 72 73 69 6f 6e 7d 20 7b 65 78 70 conversion} {exp
1c30: 72 20 62 6f 6f 6c 28 77 69 64 65 28 35 29 29 7d r bool(wide(5))}
1c40: 20 31 0a 2b 74 65 73 74 20 65 78 70 72 2d 33 31 1.+test expr-31
1c50: 2e 31 35 20 7b 62 6f 6f 6c 65 61 6e 20 63 6f 6e .15 {boolean con
1c60: 76 65 72 73 69 6f 6e 7d 20 2d 62 6f 64 79 20 7b version} -body {
1c70: 0a 2b 20 20 20 20 65 78 70 72 20 62 6f 6f 6c 28 .+ expr bool(
1c80: 22 66 72 65 64 22 29 0a 2b 7d 20 2d 72 65 74 75 "fred").+} -retu
1c90: 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 6d rnCodes error -m
1ca0: 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c atch glob -resul
1cb0: 74 20 2a 0a 2b 0a 20 23 20 63 6c 65 61 6e 75 70 t *.+. # cleanup
1cc0: 0a 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 . if {[info exis
1cd0: 74 73 20 61 5d 7d 20 7b 0a 20 20 20 20 20 75 6e ts a]} {. un
1ce0: 73 65 74 20 61 0a 49 6e 64 65 78 3a 20 74 65 73 set a.Index: tes
1cf0: 74 73 2f 69 6e 66 6f 2e 74 65 73 74 0a 3d 3d 3d ts/info.test.===
1d00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d40: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
1d50: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 oot/tcl/tcl/test
1d60: 73 2f 69 6e 66 6f 2e 74 65 73 74 2c 76 0a 72 65 s/info.test,v.re
1d70: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
1d80: 6e 20 31 2e 32 39 0a 64 69 66 66 20 2d 75 20 2d n 1.29.diff -u -
1d90: 72 31 2e 32 39 20 69 6e 66 6f 2e 74 65 73 74 0a r1.29 info.test.
1da0: 2d 2d 2d 20 74 65 73 74 73 2f 69 6e 66 6f 2e 74 --- tests/info.t
1db0: 65 73 74 09 32 34 20 4e 6f 76 20 32 30 30 34 20 est.24 Nov 2004
1dc0: 31 39 3a 32 38 3a 34 32 20 2d 30 30 30 30 09 31 19:28:42 -0000.1
1dd0: 2e 32 39 0a 2b 2b 2b 20 74 65 73 74 73 2f 69 6e .29.+++ tests/in
1de0: 66 6f 2e 74 65 73 74 09 32 30 20 4d 61 79 20 32 fo.test.20 May 2
1df0: 30 30 35 20 31 36 3a 34 38 3a 33 39 20 2d 30 30 005 16:48:39 -00
1e00: 30 30 0a 40 40 20 2d 36 31 33 2c 39 20 2b 36 31 00.@@ -613,9 +61
1e10: 33 2c 39 20 40 40 0a 20 0a 20 23 20 43 68 65 63 3,9 @@. . # Chec
1e20: 6b 20 77 68 65 74 68 65 72 20 74 68 65 20 65 78 k whether the ex
1e30: 74 72 61 20 74 65 73 74 69 6e 67 20 66 75 6e 63 tra testing func
1e40: 74 69 6f 6e 73 20 61 72 65 20 64 65 66 69 6e 65 tions are define
1e50: 64 2e 2e 2e 0a 20 69 66 20 7b 28 5b 63 61 74 63 d.... if {([catc
1e60: 68 20 7b 65 78 70 72 20 54 31 28 29 7d 20 6d 73 h {expr T1()} ms
1e70: 67 5d 20 3d 3d 20 31 29 20 26 26 20 28 24 6d 73 g] == 1) && ($ms
1e80: 67 20 3d 3d 20 7b 75 6e 6b 6e 6f 77 6e 20 6d 61 g == {unknown ma
1e90: 74 68 20 66 75 6e 63 74 69 6f 6e 20 22 54 31 22 th function "T1"
1ea0: 7d 29 7d 20 7b 0a 2d 20 20 20 20 73 65 74 20 66 })} {.- set f
1eb0: 75 6e 63 74 69 6f 6e 73 20 7b 61 62 73 20 61 63 unctions {abs ac
1ec0: 6f 73 20 61 73 69 6e 20 61 74 61 6e 20 61 74 61 os asin atan ata
1ed0: 6e 32 20 63 65 69 6c 20 63 6f 73 20 63 6f 73 68 n2 ceil cos cosh
1ee0: 20 64 6f 75 62 6c 65 20 65 78 70 20 66 6c 6f 6f double exp floo
1ef0: 72 20 66 6d 6f 64 20 68 79 70 6f 74 20 69 6e 74 r fmod hypot int
1f00: 20 6c 6f 67 20 6c 6f 67 31 30 20 70 6f 77 20 72 log log10 pow r
1f10: 61 6e 64 20 72 6f 75 6e 64 20 73 69 6e 20 73 69 and round sin si
1f20: 6e 68 20 73 71 72 74 20 73 72 61 6e 64 20 74 61 nh sqrt srand ta
1f30: 6e 20 74 61 6e 68 20 77 69 64 65 7d 0a 2b 20 20 n tanh wide}.+
1f40: 20 20 73 65 74 20 66 75 6e 63 74 69 6f 6e 73 20 set functions
1f50: 7b 61 62 73 20 61 63 6f 73 20 61 73 69 6e 20 61 {abs acos asin a
1f60: 74 61 6e 20 61 74 61 6e 32 20 62 6f 6f 6c 20 63 tan atan2 bool c
1f70: 65 69 6c 20 63 6f 73 20 63 6f 73 68 20 64 6f 75 eil cos cosh dou
1f80: 62 6c 65 20 65 78 70 20 66 6c 6f 6f 72 20 66 6d ble exp floor fm
1f90: 6f 64 20 68 79 70 6f 74 20 69 6e 74 20 6c 6f 67 od hypot int log
1fa0: 20 6c 6f 67 31 30 20 70 6f 77 20 72 61 6e 64 20 log10 pow rand
1fb0: 72 6f 75 6e 64 20 73 69 6e 20 73 69 6e 68 20 73 round sin sinh s
1fc0: 71 72 74 20 73 72 61 6e 64 20 74 61 6e 20 74 61 qrt srand tan ta
1fd0: 6e 68 20 77 69 64 65 7d 0a 20 7d 20 65 6c 73 65 nh wide}. } else
1fe0: 20 7b 0a 2d 20 20 20 20 73 65 74 20 66 75 6e 63 {.- set func
1ff0: 74 69 6f 6e 73 20 7b 54 31 20 54 32 20 54 33 20 tions {T1 T2 T3
2000: 61 62 73 20 61 63 6f 73 20 61 73 69 6e 20 61 74 abs acos asin at
2010: 61 6e 20 61 74 61 6e 32 20 63 65 69 6c 20 63 6f an atan2 ceil co
2020: 73 20 63 6f 73 68 20 64 6f 75 62 6c 65 20 65 78 s cosh double ex
2030: 70 20 66 6c 6f 6f 72 20 66 6d 6f 64 20 68 79 70 p floor fmod hyp
2040: 6f 74 20 69 6e 74 20 6c 6f 67 20 6c 6f 67 31 30 ot int log log10
2050: 20 70 6f 77 20 72 61 6e 64 20 72 6f 75 6e 64 20 pow rand round
2060: 73 69 6e 20 73 69 6e 68 20 73 71 72 74 20 73 72 sin sinh sqrt sr
2070: 61 6e 64 20 74 61 6e 20 74 61 6e 68 20 77 69 64 and tan tanh wid
2080: 65 7d 0a 2b 20 20 20 20 73 65 74 20 66 75 6e 63 e}.+ set func
2090: 74 69 6f 6e 73 20 7b 54 31 20 54 32 20 54 33 20 tions {T1 T2 T3
20a0: 61 62 73 20 61 63 6f 73 20 61 73 69 6e 20 61 74 abs acos asin at
20b0: 61 6e 20 61 74 61 6e 32 20 62 6f 6f 6c 20 63 65 an atan2 bool ce
20c0: 69 6c 20 63 6f 73 20 63 6f 73 68 20 64 6f 75 62 il cos cosh doub
20d0: 6c 65 20 65 78 70 20 66 6c 6f 6f 72 20 66 6d 6f le exp floor fmo
20e0: 64 20 68 79 70 6f 74 20 69 6e 74 20 6c 6f 67 20 d hypot int log
20f0: 6c 6f 67 31 30 20 70 6f 77 20 72 61 6e 64 20 72 log10 pow rand r
2100: 6f 75 6e 64 20 73 69 6e 20 73 69 6e 68 20 73 71 ound sin sinh sq
2110: 72 74 20 73 72 61 6e 64 20 74 61 6e 20 74 61 6e rt srand tan tan
2120: 68 20 77 69 64 65 7d 0a 20 7d 0a 20 74 65 73 74 h wide}. }. test
2130: 20 69 6e 66 6f 2d 32 30 2e 31 20 7b 69 6e 66 6f info-20.1 {info
2140: 20 66 75 6e 63 74 69 6f 6e 73 20 6f 70 74 69 6f functions optio
2150: 6e 7d 20 7b 69 6e 66 6f 20 66 75 6e 63 74 69 6f n} {info functio
2160: 6e 73 20 73 69 6e 7d 20 73 69 6e 0a 20 74 65 73 ns sin} sin. tes
2170: 74 20 69 6e 66 6f 2d 32 30 2e 32 20 7b 69 6e 66 t info-20.2 {inf
2180: 6f 20 66 75 6e 63 74 69 6f 6e 73 20 6f 70 74 69 o functions opti
2190: 6f 6e 7d 20 7b 6c 73 6f 72 74 20 5b 69 6e 66 6f on} {lsort [info
21a0: 20 66 75 6e 63 74 69 6f 6e 73 5d 7d 20 24 66 75 functions]} $fu
21b0: 6e 63 74 69 6f 6e 73 0a nctions.
