Artifact
785168c02e63cf9fff95517bd8e3efb1ef06d977:
Attachment "minmax.patch" to
ticket [1309020fff]
added by
hobbs
2005-09-30 06:15:14.
0000: 3f 20 6d 69 6e 6d 61 78 2e 70 61 74 63 68 0a 3f ? minmax.patch.?
0010: 20 70 6b 67 73 0a 3f 20 63 6f 6d 70 61 74 2f 7a pkgs.? compat/z
0020: 6c 69 62 0a 3f 20 67 65 6e 65 72 69 63 2f 68 6f lib.? generic/ho
0030: 62 62 73 0a 3f 20 67 65 6e 65 72 69 63 2f 74 63 bbs.? generic/tc
0040: 6c 42 61 73 69 63 2e 63 2e 6d 69 6e 6d 61 78 0a lBasic.c.minmax.
0050: 3f 20 75 6e 69 78 2f 4d 61 6b 65 66 69 6c 65 2e ? unix/Makefile.
0060: 69 6e 2e 70 6b 67 73 0a 49 6e 64 65 78 3a 20 64 in.pkgs.Index: d
0070: 6f 63 2f 6d 61 74 68 66 75 6e 63 2e 6e 0a 3d 3d oc/mathfunc.n.==
0080: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0090: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
00a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
00b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
00c0: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
00d0: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 64 6f 63 root/tcl/tcl/doc
00e0: 2f 6d 61 74 68 66 75 6e 63 2e 6e 2c 76 0a 72 65 /mathfunc.n,v.re
00f0: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
0100: 6e 20 31 2e 36 0a 64 69 66 66 20 2d 75 20 2d 72 n 1.6.diff -u -r
0110: 31 2e 36 20 6d 61 74 68 66 75 6e 63 2e 6e 0a 2d 1.6 mathfunc.n.-
0120: 2d 2d 20 64 6f 63 2f 6d 61 74 68 66 75 6e 63 2e -- doc/mathfunc.
0130: 6e 09 39 20 4a 75 6e 20 32 30 30 35 20 31 34 3a n.9 Jun 2005 14:
0140: 32 34 3a 30 36 20 2d 30 30 30 30 09 31 2e 36 0a 24:06 -0000.1.6.
0150: 2b 2b 2b 20 64 6f 63 2f 6d 61 74 68 66 75 6e 63 +++ doc/mathfunc
0160: 2e 6e 09 32 39 20 53 65 70 20 32 30 30 35 20 32 .n.29 Sep 2005 2
0170: 33 3a 31 32 3a 34 38 20 2d 30 30 30 30 0a 40 40 3:12:48 -0000.@@
0180: 20 2d 35 31 2c 36 20 2b 35 31 2c 31 30 20 40 40 -51,6 +51,10 @@
0190: 0a 20 2e 62 72 0a 20 5c 66 42 3a 3a 74 63 6c 3a . .br. \fB::tcl:
01a0: 3a 6d 61 74 68 66 75 6e 63 3a 3a 6c 6f 67 31 30 :mathfunc::log10
01b0: 5c 66 52 20 5c 66 49 61 72 67 5c 66 52 0a 20 2e \fR \fIarg\fR. .
01c0: 62 72 0a 2b 5c 66 42 3a 3a 74 63 6c 3a 3a 6d 61 br.+\fB::tcl::ma
01d0: 74 68 66 75 6e 63 3a 3a 6d 61 78 5c 66 52 20 5c thfunc::max\fR \
01e0: 66 49 61 72 67 5c 66 52 20 3f 5c 66 49 61 72 67 fIarg\fR ?\fIarg
01f0: 5c 66 52 20 2e 2e 2e 3f 0a 2b 2e 62 72 0a 2b 5c \fR ...?.+.br.+\
0200: 66 42 3a 3a 74 63 6c 3a 3a 6d 61 74 68 66 75 6e fB::tcl::mathfun
0210: 63 3a 3a 6d 69 6e 5c 66 52 20 5c 66 49 61 72 67 c::min\fR \fIarg
0220: 5c 66 52 20 3f 5c 66 49 61 72 67 5c 66 52 20 2e \fR ?\fIarg\fR .
0230: 2e 2e 3f 0a 2b 2e 62 72 0a 20 5c 66 42 3a 3a 74 ..?.+.br. \fB::t
0240: 63 6c 3a 3a 6d 61 74 68 66 75 6e 63 3a 3a 70 6f cl::mathfunc::po
0250: 77 5c 66 52 20 5c 66 49 78 5c 66 52 20 5c 66 49 w\fR \fIx\fR \fI
0260: 79 5c 66 52 0a 20 2e 62 72 0a 20 5c 66 42 3a 3a y\fR. .br. \fB::
0270: 74 63 6c 3a 3a 6d 61 74 68 66 75 6e 63 3a 3a 72 tcl::mathfunc::r
0280: 61 6e 64 5c 66 52 0a 40 40 20 2d 38 37 2c 31 33 and\fR.@@ -87,13
0290: 20 2b 39 31 2c 31 34 20 40 40 0a 20 6f 66 20 77 +91,14 @@. of w
02a0: 68 69 63 68 20 77 6f 72 6b 20 73 6f 6c 65 6c 79 hich work solely
02b0: 20 77 69 74 68 20 66 6c 6f 61 74 69 6e 67 2d 70 with floating-p
02c0: 6f 69 6e 74 20 6e 75 6d 62 65 72 73 20 75 6e 6c oint numbers unl
02d0: 65 73 73 20 6f 74 68 65 72 77 69 73 65 20 6e 6f ess otherwise no
02e0: 74 65 64 3a 0a 20 2e 44 53 0a 20 2e 74 61 20 33 ted:. .DS. .ta 3
02f0: 63 20 36 63 20 39 63 0a 2d 5c 66 42 61 62 73 5c c 6c 9c.-\fBabs\
0300: 66 52 09 5c 66 42 63 6f 73 5c 66 52 09 5c 66 42 fR.\fBcos\fR.\fB
0310: 69 6e 74 5c 66 52 09 5c 66 42 73 69 6e 68 5c 66 int\fR.\fBsinh\f
0320: 52 0a 2d 5c 66 42 61 63 6f 73 5c 66 52 09 5c 66 R.-\fBacos\fR.\f
0330: 42 63 6f 73 68 5c 66 52 09 5c 66 42 6c 6f 67 5c Bcosh\fR.\fBlog\
0340: 66 52 09 5c 66 42 73 71 72 74 5c 66 52 0a 2d 5c fR.\fBsqrt\fR.-\
0350: 66 42 61 73 69 6e 5c 66 52 09 5c 66 42 64 6f 75 fBasin\fR.\fBdou
0360: 62 6c 65 5c 66 52 09 5c 66 42 6c 6f 67 31 30 5c ble\fR.\fBlog10\
0370: 66 52 09 5c 66 42 73 72 61 6e 64 5c 66 52 0a 2d fR.\fBsrand\fR.-
0380: 5c 66 42 61 74 61 6e 5c 66 52 09 5c 66 42 65 78 \fBatan\fR.\fBex
0390: 70 5c 66 52 09 5c 66 42 70 6f 77 5c 66 52 09 5c p\fR.\fBpow\fR.\
03a0: 66 42 74 61 6e 5c 66 52 0a 2d 5c 66 42 61 74 61 fBtan\fR.-\fBata
03b0: 6e 32 5c 66 52 09 5c 66 42 66 6c 6f 6f 72 5c 66 n2\fR.\fBfloor\f
03c0: 52 09 5c 66 42 72 61 6e 64 5c 66 52 09 5c 66 42 R.\fBrand\fR.\fB
03d0: 74 61 6e 68 5c 66 52 0a 2d 5c 66 42 62 6f 6f 6c tanh\fR.-\fBbool
03e0: 5c 66 52 09 5c 66 42 66 6d 6f 64 5c 66 52 09 5c \fR.\fBfmod\fR.\
03f0: 66 42 72 6f 75 6e 64 5c 66 52 09 5c 66 42 77 69 fBround\fR.\fBwi
0400: 64 65 5c 66 52 0a 2d 5c 66 42 63 65 69 6c 5c 66 de\fR.-\fBceil\f
0410: 52 09 5c 66 42 68 79 70 6f 74 5c 66 52 09 5c 66 R.\fBhypot\fR.\f
0420: 42 73 69 6e 5c 66 52 0a 2b 5c 66 42 61 62 73 5c Bsin\fR.+\fBabs\
0430: 66 52 09 5c 66 42 61 63 6f 73 5c 66 52 09 5c 66 fR.\fBacos\fR.\f
0440: 42 61 73 69 6e 5c 66 52 09 5c 66 42 61 74 61 6e Basin\fR.\fBatan
0450: 5c 66 52 0a 2b 5c 66 42 61 74 61 6e 32 5c 66 52 \fR.+\fBatan2\fR
0460: 09 5c 66 42 62 6f 6f 6c 5c 66 52 09 5c 66 42 63 .\fBbool\fR.\fBc
0470: 65 69 6c 5c 66 52 09 5c 66 42 63 6f 73 5c 66 52 eil\fR.\fBcos\fR
0480: 0a 2b 5c 66 42 63 6f 73 68 5c 66 52 09 5c 66 42 .+\fBcosh\fR.\fB
0490: 64 6f 75 62 6c 65 5c 66 52 09 5c 66 42 65 78 70 double\fR.\fBexp
04a0: 5c 66 52 09 5c 66 42 66 6c 6f 6f 72 5c 66 52 0a \fR.\fBfloor\fR.
04b0: 2b 5c 66 42 66 6d 6f 64 5c 66 52 09 5c 66 42 68 +\fBfmod\fR.\fBh
04c0: 79 70 6f 74 5c 66 52 09 5c 66 42 69 6e 74 5c 66 ypot\fR.\fBint\f
04d0: 52 09 5c 66 42 6c 6f 67 5c 66 52 0a 2b 5c 66 42 R.\fBlog\fR.+\fB
04e0: 6c 6f 67 31 30 5c 66 52 09 5c 66 42 6d 61 78 5c log10\fR.\fBmax\
04f0: 66 52 09 5c 66 42 6d 69 6e 5c 66 52 09 5c 66 42 fR.\fBmin\fR.\fB
0500: 70 6f 77 5c 66 52 0a 2b 5c 66 42 72 61 6e 64 5c pow\fR.+\fBrand\
0510: 66 52 09 5c 66 42 72 6f 75 6e 64 5c 66 52 09 5c fR.\fBround\fR.\
0520: 66 42 73 69 6e 5c 66 52 09 5c 66 42 73 69 6e 68 fBsin\fR.\fBsinh
0530: 5c 66 52 0a 2b 5c 66 42 73 71 72 74 5c 66 52 09 \fR.+\fBsqrt\fR.
0540: 5c 66 42 73 72 61 6e 64 5c 66 52 09 5c 66 42 74 \fBsrand\fR.\fBt
0550: 61 6e 5c 66 52 09 5c 66 42 74 61 6e 68 5c 66 52 an\fR.\fBtanh\fR
0560: 0a 2b 5c 66 42 77 69 64 65 5c 66 52 0a 20 2e 44 .+\fBwide\fR. .D
0570: 45 0a 20 2e 50 50 0a 20 2e 54 50 0a 40 40 20 2d E. .PP. .TP.@@ -
0580: 31 37 31 2c 36 20 2b 31 37 36 2c 31 32 20 40 40 171,6 +176,12 @@
0590: 0a 20 52 65 74 75 72 6e 73 20 74 68 65 20 62 61 . Returns the ba
05a0: 73 65 20 31 30 20 6c 6f 67 61 72 69 74 68 6d 20 se 10 logarithm
05b0: 6f 66 20 5c 66 49 61 72 67 5c 66 52 2e 20 20 5c of \fIarg\fR. \
05c0: 66 49 41 72 67 5c 66 52 20 6d 75 73 74 20 62 65 fIArg\fR must be
05d0: 20 61 0a 20 70 6f 73 69 74 69 76 65 20 76 61 6c a. positive val
05e0: 75 65 2e 0a 20 2e 54 50 0a 2b 5c 66 42 6d 61 78 ue.. .TP.+\fBmax
05f0: 28 5c 66 49 61 72 67 5c 66 42 2c 20 5c 66 49 2e (\fIarg\fB, \fI.
0600: 2e 2e 5c 66 42 29 5c 66 52 0a 2b 52 65 74 75 72 ..\fB)\fR.+Retur
0610: 6e 73 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 76 ns the maximum v
0620: 61 6c 75 65 20 6f 66 20 61 6c 6c 20 67 69 76 65 alue of all give
0630: 6e 20 6e 75 6d 65 72 69 63 20 61 72 67 75 6d 65 n numeric argume
0640: 6e 74 73 2e 0a 2b 2e 54 50 0a 2b 5c 66 42 6d 69 nts..+.TP.+\fBmi
0650: 6e 28 5c 66 49 61 72 67 5c 66 42 2c 20 5c 66 49 n(\fIarg\fB, \fI
0660: 2e 2e 2e 5c 66 42 29 5c 66 52 0a 2b 52 65 74 75 ...\fB)\fR.+Retu
0670: 72 6e 73 20 74 68 65 20 6d 69 6e 69 6d 75 6d 20 rns the minimum
0680: 76 61 6c 75 65 20 6f 66 20 61 6c 6c 20 67 69 76 value of all giv
0690: 65 6e 20 6e 75 6d 65 72 69 63 20 61 72 67 75 6d en numeric argum
06a0: 65 6e 74 73 2e 0a 2b 2e 54 50 0a 20 5c 66 42 70 ents..+.TP. \fBp
06b0: 6f 77 28 5c 66 49 78 2c 20 79 5c 66 42 29 5c 66 ow(\fIx, y\fB)\f
06c0: 52 0a 20 43 6f 6d 70 75 74 65 73 20 74 68 65 20 R. Computes the
06d0: 76 61 6c 75 65 20 6f 66 20 5c 66 49 78 5c 66 52 value of \fIx\fR
06e0: 20 72 61 69 73 65 64 20 74 6f 20 74 68 65 20 70 raised to the p
06f0: 6f 77 65 72 20 5c 66 49 79 5c 66 52 2e 20 20 49 ower \fIy\fR. I
0700: 66 20 5c 66 49 78 5c 66 52 0a 20 69 73 20 6e 65 f \fIx\fR. is ne
0710: 67 61 74 69 76 65 2c 20 5c 66 49 79 5c 66 52 20 gative, \fIy\fR
0720: 6d 75 73 74 20 62 65 20 61 6e 20 69 6e 74 65 67 must be an integ
0730: 65 72 20 76 61 6c 75 65 2e 0a 49 6e 64 65 78 3a er value..Index:
0740: 20 6c 69 62 72 61 72 79 2f 69 6e 69 74 2e 74 63 library/init.tc
0750: 6c 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d l.==============
0760: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0770: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0780: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0790: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
07a0: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
07b0: 2f 6c 69 62 72 61 72 79 2f 69 6e 69 74 2e 74 63 /library/init.tc
07c0: 6c 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 l,v.retrieving r
07d0: 65 76 69 73 69 6f 6e 20 31 2e 38 31 0a 64 69 66 evision 1.81.dif
07e0: 66 20 2d 75 20 2d 72 31 2e 38 31 20 69 6e 69 74 f -u -r1.81 init
07f0: 2e 74 63 6c 0a 2d 2d 2d 20 6c 69 62 72 61 72 79 .tcl.--- library
0800: 2f 69 6e 69 74 2e 74 63 6c 09 31 34 20 53 65 70 /init.tcl.14 Sep
0810: 20 32 30 30 35 20 31 37 3a 31 33 3a 31 38 20 2d 2005 17:13:18 -
0820: 30 30 30 30 09 31 2e 38 31 0a 2b 2b 2b 20 6c 69 0000.1.81.+++ li
0830: 62 72 61 72 79 2f 69 6e 69 74 2e 74 63 6c 09 32 brary/init.tcl.2
0840: 39 20 53 65 70 20 32 30 30 35 20 32 33 3a 31 32 9 Sep 2005 23:12
0850: 3a 34 38 20 2d 30 30 30 30 0a 40 40 20 2d 39 35 :48 -0000.@@ -95
0860: 2c 36 20 2b 39 35 2c 34 38 20 40 40 0a 20 20 20 ,6 +95,48 @@.
0870: 20 20 20 20 20 20 20 20 20 20 74 72 75 6e 63 61 trunca
0880: 74 65 20 20 20 20 3a 3a 74 63 6c 3a 3a 63 68 61 te ::tcl::cha
0890: 6e 3a 3a 54 72 75 6e 63 61 74 65 0a 20 20 20 20 n::Truncate.
08a0: 20 20 20 20 20 7d 0a 20 20 20 20 20 7d 0a 2b 0a }. }.+.
08b0: 2b 20 20 20 20 23 20 54 49 50 20 23 32 35 35 20 + # TIP #255
08c0: 6d 69 6e 20 61 6e 64 20 6d 61 78 20 66 75 6e 63 min and max func
08d0: 74 69 6f 6e 73 0a 2b 20 20 20 20 6e 61 6d 65 73 tions.+ names
08e0: 70 61 63 65 20 65 76 61 6c 20 6d 61 74 68 66 75 pace eval mathfu
08f0: 6e 63 20 7b 0a 2b 09 70 72 6f 63 20 6d 69 6e 20 nc {.+.proc min
0900: 7b 61 72 67 73 7d 20 7b 0a 2b 09 20 20 20 20 69 {args} {.+. i
0910: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 f {[llength $arg
0920: 73 5d 20 3d 3d 20 30 7d 20 7b 0a 2b 09 09 72 65 s] == 0} {.+..re
0930: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 turn -code error
0940: 20 5c 0a 2b 09 09 20 20 20 20 22 74 6f 6f 20 66 \.+.. "too f
0950: 65 77 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 ew arguments to
0960: 6d 61 74 68 20 66 75 6e 63 74 69 6f 6e 20 5c 22 math function \"
0970: 6d 69 6e 5c 22 22 0a 2b 09 20 20 20 20 7d 0a 2b min\"".+. }.+
0980: 09 20 20 20 20 73 65 74 20 76 61 6c 20 5b 6c 69 . set val [li
0990: 6e 64 65 78 20 24 61 72 67 73 20 30 5d 0a 2b 09 ndex $args 0].+.
09a0: 20 20 20 20 23 20 54 68 69 73 20 77 69 6c 6c 20 # This will
09b0: 68 61 6e 64 6c 65 20 66 6f 72 63 69 6e 67 20 74 handle forcing t
09c0: 68 65 20 6e 75 6d 65 72 69 63 20 76 61 6c 75 65 he numeric value
09d0: 20 77 69 74 68 6f 75 74 0a 2b 09 20 20 20 20 23 without.+. #
09e0: 20 72 75 69 6e 69 6e 67 20 74 68 65 20 69 6e 74 ruining the int
09f0: 65 72 76 61 6c 20 74 79 70 65 20 6f 66 20 61 20 erval type of a
0a00: 6e 75 6d 65 72 69 63 20 6f 62 6a 65 63 74 0a 2b numeric object.+
0a10: 09 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 . if {[catch
0a20: 7b 65 78 70 72 20 7b 64 6f 75 62 6c 65 28 24 76 {expr {double($v
0a30: 61 6c 29 7d 7d 20 65 72 72 5d 7d 20 7b 0a 2b 09 al)}} err]} {.+.
0a40: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 .return -code er
0a50: 72 6f 72 20 24 65 72 72 0a 2b 09 20 20 20 20 7d ror $err.+. }
0a60: 0a 2b 09 20 20 20 20 66 6f 72 65 61 63 68 20 61 .+. foreach a
0a70: 72 67 20 5b 6c 72 61 6e 67 65 20 24 61 72 67 73 rg [lrange $args
0a80: 20 31 20 65 6e 64 5d 20 7b 0a 2b 09 09 69 66 20 1 end] {.+..if
0a90: 7b 5b 63 61 74 63 68 20 7b 65 78 70 72 20 7b 64 {[catch {expr {d
0aa0: 6f 75 62 6c 65 28 24 61 72 67 29 7d 7d 20 65 72 ouble($arg)}} er
0ab0: 72 5d 7d 20 7b 0a 2b 09 09 20 20 20 20 72 65 74 r]} {.+.. ret
0ac0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 urn -code error
0ad0: 24 65 72 72 0a 2b 09 09 7d 0a 2b 09 09 69 66 20 $err.+..}.+..if
0ae0: 7b 24 61 72 67 20 3c 20 24 76 61 6c 7d 20 7b 20 {$arg < $val} {
0af0: 73 65 74 20 76 61 6c 20 24 61 72 67 20 7d 0a 2b set val $arg }.+
0b00: 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 72 65 74 . }.+. ret
0b10: 75 72 6e 20 24 76 61 6c 0a 2b 09 7d 0a 2b 09 70 urn $val.+.}.+.p
0b20: 72 6f 63 20 6d 61 78 20 7b 61 72 67 73 7d 20 7b roc max {args} {
0b30: 0a 2b 09 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e .+. if {[llen
0b40: 67 74 68 20 24 61 72 67 73 5d 20 3d 3d 20 30 7d gth $args] == 0}
0b50: 20 7b 0a 2b 09 09 72 65 74 75 72 6e 20 2d 63 6f {.+..return -co
0b60: 64 65 20 65 72 72 6f 72 20 5c 0a 2b 09 09 20 20 de error \.+..
0b70: 20 20 22 74 6f 6f 20 66 65 77 20 61 72 67 75 6d "too few argum
0b80: 65 6e 74 73 20 74 6f 20 6d 61 74 68 20 66 75 6e ents to math fun
0b90: 63 74 69 6f 6e 20 5c 22 6d 61 78 5c 22 22 0a 2b ction \"max\"".+
0ba0: 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 73 65 74 . }.+. set
0bb0: 20 76 61 6c 20 5b 6c 69 6e 64 65 78 20 24 61 72 val [lindex $ar
0bc0: 67 73 20 30 5d 0a 2b 09 20 20 20 20 23 20 54 68 gs 0].+. # Th
0bd0: 69 73 20 77 69 6c 6c 20 68 61 6e 64 6c 65 20 66 is will handle f
0be0: 6f 72 63 69 6e 67 20 74 68 65 20 6e 75 6d 65 72 orcing the numer
0bf0: 69 63 20 76 61 6c 75 65 20 77 69 74 68 6f 75 74 ic value without
0c00: 0a 2b 09 20 20 20 20 23 20 72 75 69 6e 69 6e 67 .+. # ruining
0c10: 20 74 68 65 20 69 6e 74 65 72 76 61 6c 20 74 79 the interval ty
0c20: 70 65 20 6f 66 20 61 20 6e 75 6d 65 72 69 63 20 pe of a numeric
0c30: 6f 62 6a 65 63 74 0a 2b 09 20 20 20 20 69 66 20 object.+. if
0c40: 7b 5b 63 61 74 63 68 20 7b 65 78 70 72 20 7b 64 {[catch {expr {d
0c50: 6f 75 62 6c 65 28 24 76 61 6c 29 7d 7d 20 65 72 ouble($val)}} er
0c60: 72 5d 7d 20 7b 0a 2b 09 09 72 65 74 75 72 6e 20 r]} {.+..return
0c70: 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 65 72 72 -code error $err
0c80: 0a 2b 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 66 .+. }.+. f
0c90: 6f 72 65 61 63 68 20 61 72 67 20 5b 6c 72 61 6e oreach arg [lran
0ca0: 67 65 20 24 61 72 67 73 20 31 20 65 6e 64 5d 20 ge $args 1 end]
0cb0: 7b 0a 2b 09 09 69 66 20 7b 5b 63 61 74 63 68 20 {.+..if {[catch
0cc0: 7b 65 78 70 72 20 7b 64 6f 75 62 6c 65 28 24 61 {expr {double($a
0cd0: 72 67 29 7d 7d 20 65 72 72 5d 7d 20 7b 0a 2b 09 rg)}} err]} {.+.
0ce0: 09 20 20 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 . return -cod
0cf0: 65 20 65 72 72 6f 72 20 24 65 72 72 0a 2b 09 09 e error $err.+..
0d00: 7d 0a 2b 09 09 69 66 20 7b 24 61 72 67 20 3e 20 }.+..if {$arg >
0d10: 24 76 61 6c 7d 20 7b 20 73 65 74 20 76 61 6c 20 $val} { set val
0d20: 24 61 72 67 20 7d 0a 2b 09 20 20 20 20 7d 0a 2b $arg }.+. }.+
0d30: 09 20 20 20 20 72 65 74 75 72 6e 20 24 76 61 6c . return $val
0d40: 0a 2b 09 7d 0a 2b 20 20 20 20 7d 0a 20 7d 0a 20 .+.}.+ }. }.
0d50: 0a 20 23 20 57 69 6e 64 6f 77 73 20 73 70 65 63 . # Windows spec
0d60: 69 66 69 63 20 65 6e 64 20 6f 66 20 69 6e 69 74 ific end of init
0d70: 69 61 6c 69 7a 61 74 69 6f 6e 0a 49 6e 64 65 78 ialization.Index
0d80: 3a 20 74 65 73 74 73 2f 65 78 70 72 2d 6f 6c 64 : tests/expr-old
0d90: 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .test.==========
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 3d ================
0dc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0dd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
0de0: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
0df0: 2f 74 63 6c 2f 74 65 73 74 73 2f 65 78 70 72 2d /tcl/tests/expr-
0e00: 6f 6c 64 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 old.test,v.retri
0e10: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
0e20: 2e 32 36 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e .26.diff -u -r1.
0e30: 32 36 20 65 78 70 72 2d 6f 6c 64 2e 74 65 73 74 26 expr-old.test
0e40: 0a 2d 2d 2d 20 74 65 73 74 73 2f 65 78 70 72 2d .--- tests/expr-
0e50: 6f 6c 64 2e 74 65 73 74 09 32 38 20 4a 75 6c 20 old.test.28 Jul
0e60: 32 30 30 35 20 31 38 3a 34 32 3a 32 38 20 2d 30 2005 18:42:28 -0
0e70: 30 30 30 09 31 2e 32 36 0a 2b 2b 2b 20 74 65 73 000.1.26.+++ tes
0e80: 74 73 2f 65 78 70 72 2d 6f 6c 64 2e 74 65 73 74 ts/expr-old.test
0e90: 09 32 39 20 53 65 70 20 32 30 30 35 20 32 33 3a .29 Sep 2005 23:
0ea0: 31 32 3a 34 38 20 2d 30 30 30 30 0a 40 40 20 2d 12:48 -0000.@@ -
0eb0: 31 30 35 35 2c 36 20 2b 31 30 35 35 2c 34 38 20 1055,6 +1055,48
0ec0: 40 40 0a 20 7d 20 7b 31 20 31 7d 0a 20 75 6e 73 @@. } {1 1}. uns
0ed0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 78 et -nocomplain x
0ee0: 20 79 0a 20 0a 2b 23 0a 2b 23 20 54 49 50 20 23 y. .+#.+# TIP #
0ef0: 32 35 35 20 6d 69 6e 20 61 6e 64 20 6d 61 78 20 255 min and max
0f00: 6d 61 74 68 20 66 75 6e 63 74 69 6f 6e 73 0a 2b math functions.+
0f10: 23 0a 2b 0a 2b 74 65 73 74 20 65 78 70 72 2d 6f #.+.+test expr-o
0f20: 6c 64 2d 34 30 2e 31 20 7b 6d 69 6e 20 6d 61 74 ld-40.1 {min mat
0f30: 68 20 66 75 6e 63 74 69 6f 6e 7d 20 2d 62 6f 64 h function} -bod
0f40: 79 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 6d y {.+ expr {m
0f50: 69 6e 28 30 29 7d 0a 2b 7d 20 2d 72 65 73 75 6c in(0)}.+} -resul
0f60: 74 20 30 0a 2b 74 65 73 74 20 65 78 70 72 2d 6f t 0.+test expr-o
0f70: 6c 64 2d 34 30 2e 32 20 7b 6d 69 6e 20 6d 61 74 ld-40.2 {min mat
0f80: 68 20 66 75 6e 63 74 69 6f 6e 7d 20 2d 62 6f 64 h function} -bod
0f90: 79 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 6d y {.+ expr {m
0fa0: 69 6e 28 30 2e 30 29 7d 0a 2b 7d 20 2d 72 65 73 in(0.0)}.+} -res
0fb0: 75 6c 74 20 30 2e 30 0a 2b 74 65 73 74 20 65 78 ult 0.0.+test ex
0fc0: 70 72 2d 6f 6c 64 2d 34 30 2e 33 20 7b 6d 69 6e pr-old-40.3 {min
0fd0: 20 6d 61 74 68 20 66 75 6e 63 74 69 6f 6e 7d 20 math function}
0fe0: 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 20 6c 69 73 -body {.+ lis
0ff0: 74 20 5b 63 61 74 63 68 20 7b 65 78 70 72 20 7b t [catch {expr {
1000: 6d 69 6e 28 29 7d 7d 20 6d 73 67 5d 20 24 6d 73 min()}} msg] $ms
1010: 67 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 31 20 g.+} -result {1
1020: 7b 74 6f 6f 20 66 65 77 20 61 72 67 75 6d 65 6e {too few argumen
1030: 74 73 20 74 6f 20 6d 61 74 68 20 66 75 6e 63 74 ts to math funct
1040: 69 6f 6e 20 22 6d 69 6e 22 7d 7d 0a 2b 74 65 73 ion "min"}}.+tes
1050: 74 20 65 78 70 72 2d 6f 6c 64 2d 34 30 2e 34 20 t expr-old-40.4
1060: 7b 6d 69 6e 20 6d 61 74 68 20 66 75 6e 63 74 69 {min math functi
1070: 6f 6e 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 on} -body {.+
1080: 20 65 78 70 72 20 7b 6d 69 6e 28 77 69 64 65 28 expr {min(wide(
1090: 2d 31 29 20 3c 3c 20 33 30 2c 20 34 2e 35 2c 20 -1) << 30, 4.5,
10a0: 2d 31 30 29 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 -10)}.+} -result
10b0: 20 5b 65 78 70 72 20 7b 77 69 64 65 28 2d 31 29 [expr {wide(-1)
10c0: 20 3c 3c 20 33 30 7d 5d 0a 2b 74 65 73 74 20 65 << 30}].+test e
10d0: 78 70 72 2d 6f 6c 64 2d 34 30 2e 35 20 7b 6d 69 xpr-old-40.5 {mi
10e0: 6e 20 6d 61 74 68 20 66 75 6e 63 74 69 6f 6e 7d n math function}
10f0: 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 20 6c 69 -body {.+ li
1100: 73 74 20 5b 63 61 74 63 68 20 7b 65 78 70 72 20 st [catch {expr
1110: 7b 6d 69 6e 28 22 61 22 2c 20 30 29 7d 7d 20 6d {min("a", 0)}} m
1120: 73 67 5d 20 24 6d 73 67 0a 2b 7d 20 2d 72 65 73 sg] $msg.+} -res
1130: 75 6c 74 20 7b 31 20 7b 61 72 67 75 6d 65 6e 74 ult {1 {argument
1140: 20 74 6f 20 6d 61 74 68 20 66 75 6e 63 74 69 6f to math functio
1150: 6e 20 64 69 64 6e 27 74 20 68 61 76 65 20 6e 75 n didn't have nu
1160: 6d 65 72 69 63 20 76 61 6c 75 65 7d 7d 0a 2b 74 meric value}}.+t
1170: 65 73 74 20 65 78 70 72 2d 6f 6c 64 2d 34 30 2e est expr-old-40.
1180: 36 20 7b 6d 69 6e 20 6d 61 74 68 20 66 75 6e 63 6 {min math func
1190: 74 69 6f 6e 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 tion} -body {.+
11a0: 20 20 20 65 78 70 72 20 7b 6d 69 6e 28 33 30 30 expr {min(300
11b0: 2c 20 22 30 78 46 46 22 29 7d 0a 2b 7d 20 2d 72 , "0xFF")}.+} -r
11c0: 65 73 75 6c 74 20 32 35 35 0a 2b 0a 2b 74 65 73 esult 255.+.+tes
11d0: 74 20 65 78 70 72 2d 6f 6c 64 2d 34 31 2e 31 20 t expr-old-41.1
11e0: 7b 6d 61 78 20 6d 61 74 68 20 66 75 6e 63 74 69 {max math functi
11f0: 6f 6e 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 on} -body {.+
1200: 20 65 78 70 72 20 7b 6d 61 78 28 30 29 7d 0a 2b expr {max(0)}.+
1210: 7d 20 2d 72 65 73 75 6c 74 20 30 0a 2b 74 65 73 } -result 0.+tes
1220: 74 20 65 78 70 72 2d 6f 6c 64 2d 34 31 2e 32 20 t expr-old-41.2
1230: 7b 6d 61 78 20 6d 61 74 68 20 66 75 6e 63 74 69 {max math functi
1240: 6f 6e 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 on} -body {.+
1250: 20 65 78 70 72 20 7b 6d 61 78 28 30 2e 30 29 7d expr {max(0.0)}
1260: 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 30 2e 30 0a .+} -result 0.0.
1270: 2b 74 65 73 74 20 65 78 70 72 2d 6f 6c 64 2d 34 +test expr-old-4
1280: 31 2e 33 20 7b 6d 61 78 20 6d 61 74 68 20 66 75 1.3 {max math fu
1290: 6e 63 74 69 6f 6e 7d 20 2d 62 6f 64 79 20 7b 0a nction} -body {.
12a0: 2b 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 + list [catch
12b0: 20 7b 65 78 70 72 20 7b 6d 61 78 28 29 7d 7d 20 {expr {max()}}
12c0: 6d 73 67 5d 20 24 6d 73 67 0a 2b 7d 20 2d 72 65 msg] $msg.+} -re
12d0: 73 75 6c 74 20 7b 31 20 7b 74 6f 6f 20 66 65 77 sult {1 {too few
12e0: 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 6d 61 arguments to ma
12f0: 74 68 20 66 75 6e 63 74 69 6f 6e 20 22 6d 61 78 th function "max
1300: 22 7d 7d 0a 2b 74 65 73 74 20 65 78 70 72 2d 6f "}}.+test expr-o
1310: 6c 64 2d 34 31 2e 34 20 7b 6d 61 78 20 6d 61 74 ld-41.4 {max mat
1320: 68 20 66 75 6e 63 74 69 6f 6e 7d 20 2d 62 6f 64 h function} -bod
1330: 79 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 6d y {.+ expr {m
1340: 61 78 28 77 69 64 65 28 31 29 20 3c 3c 20 33 30 ax(wide(1) << 30
1350: 2c 20 34 2e 35 2c 20 2d 31 30 29 7d 0a 2b 7d 20 , 4.5, -10)}.+}
1360: 2d 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 77 -result [expr {w
1370: 69 64 65 28 31 29 20 3c 3c 20 33 30 7d 5d 0a 2b ide(1) << 30}].+
1380: 74 65 73 74 20 65 78 70 72 2d 6f 6c 64 2d 34 31 test expr-old-41
1390: 2e 35 20 7b 6d 61 78 20 6d 61 74 68 20 66 75 6e .5 {max math fun
13a0: 63 74 69 6f 6e 7d 20 2d 62 6f 64 79 20 7b 0a 2b ction} -body {.+
13b0: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
13c0: 7b 65 78 70 72 20 7b 6d 61 78 28 22 61 22 2c 20 {expr {max("a",
13d0: 30 29 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2b 0)}} msg] $msg.+
13e0: 7d 20 2d 72 65 73 75 6c 74 20 7b 31 20 7b 61 72 } -result {1 {ar
13f0: 67 75 6d 65 6e 74 20 74 6f 20 6d 61 74 68 20 66 gument to math f
1400: 75 6e 63 74 69 6f 6e 20 64 69 64 6e 27 74 20 68 unction didn't h
1410: 61 76 65 20 6e 75 6d 65 72 69 63 20 76 61 6c 75 ave numeric valu
1420: 65 7d 7d 0a 2b 74 65 73 74 20 65 78 70 72 2d 6f e}}.+test expr-o
1430: 6c 64 2d 34 31 2e 36 20 7b 6d 61 78 20 6d 61 74 ld-41.6 {max mat
1440: 68 20 66 75 6e 63 74 69 6f 6e 7d 20 2d 62 6f 64 h function} -bod
1450: 79 20 7b 0a 2b 20 20 20 20 65 78 70 72 20 7b 6d y {.+ expr {m
1460: 61 78 28 32 30 30 2c 20 22 30 78 46 46 22 29 7d ax(200, "0xFF")}
1470: 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 32 35 35 0a .+} -result 255.
1480: 2b 0a 20 23 20 53 70 65 63 69 61 6c 20 74 65 73 +. # Special tes
1490: 74 20 66 6f 72 20 50 65 6e 74 69 75 6d 20 61 72 t for Pentium ar
14a0: 69 74 68 6d 65 74 69 63 20 62 75 67 20 6f 66 20 ithmetic bug of
14b0: 31 39 39 34 3a 0a 20 0a 20 69 66 20 7b 28 34 31 1994:. . if {(41
14c0: 39 35 38 33 35 2e 30 20 2d 20 28 34 31 39 35 38 95835.0 - (41958
14d0: 33 35 2e 30 2f 33 31 34 35 37 32 37 2e 30 29 2a 35.0/3145727.0)*
14e0: 33 31 34 35 37 32 37 2e 30 29 20 3d 3d 20 32 35 3145727.0) == 25
14f0: 36 2e 30 7d 20 7b 0a 49 6e 64 65 78 3a 20 74 65 6.0} {.Index: te
1500: 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 0a 3d 3d sts/info.test.==
1510: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1520: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1550: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
1560: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 root/tcl/tcl/tes
1570: 74 73 2f 69 6e 66 6f 2e 74 65 73 74 2c 76 0a 72 ts/info.test,v.r
1580: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
1590: 6f 6e 20 31 2e 33 32 0a 64 69 66 66 20 2d 75 20 on 1.32.diff -u
15a0: 2d 72 31 2e 33 32 20 69 6e 66 6f 2e 74 65 73 74 -r1.32 info.test
15b0: 0a 2d 2d 2d 20 74 65 73 74 73 2f 69 6e 66 6f 2e .--- tests/info.
15c0: 74 65 73 74 09 32 39 20 4a 75 6c 20 32 30 30 35 test.29 Jul 2005
15d0: 20 31 34 3a 34 37 3a 34 37 20 2d 30 30 30 30 09 14:47:47 -0000.
15e0: 31 2e 33 32 0a 2b 2b 2b 20 74 65 73 74 73 2f 69 1.32.+++ tests/i
15f0: 6e 66 6f 2e 74 65 73 74 09 32 39 20 53 65 70 20 nfo.test.29 Sep
1600: 32 30 30 35 20 32 33 3a 31 32 3a 34 38 20 2d 30 2005 23:12:48 -0
1610: 30 30 30 0a 40 40 20 2d 36 32 37 2c 39 20 2b 36 000.@@ -627,9 +6
1620: 32 37 2c 39 20 40 40 0a 20 0a 20 23 20 43 68 65 27,9 @@. . # Che
1630: 63 6b 20 77 68 65 74 68 65 72 20 74 68 65 20 65 ck whether the e
1640: 78 74 72 61 20 74 65 73 74 69 6e 67 20 66 75 6e xtra testing fun
1650: 63 74 69 6f 6e 73 20 61 72 65 20 64 65 66 69 6e ctions are defin
1660: 65 64 2e 2e 2e 0a 20 69 66 20 7b 28 5b 63 61 74 ed.... if {([cat
1670: 63 68 20 7b 65 78 70 72 20 54 31 28 29 7d 20 6d ch {expr T1()} m
1680: 73 67 5d 20 3d 3d 20 31 29 20 26 26 20 28 24 6d sg] == 1) && ($m
1690: 73 67 20 3d 3d 20 7b 75 6e 6b 6e 6f 77 6e 20 6d sg == {unknown m
16a0: 61 74 68 20 66 75 6e 63 74 69 6f 6e 20 22 54 31 ath function "T1
16b0: 22 7d 29 7d 20 7b 0a 2d 20 20 20 20 73 65 74 20 "})} {.- set
16c0: 66 75 6e 63 74 69 6f 6e 73 20 7b 61 62 73 20 61 functions {abs a
16d0: 63 6f 73 20 61 73 69 6e 20 61 74 61 6e 20 61 74 cos asin atan at
16e0: 61 6e 32 20 62 6f 6f 6c 20 63 65 69 6c 20 63 6f an2 bool ceil co
16f0: 73 20 63 6f 73 68 20 64 6f 75 62 6c 65 20 65 78 s cosh double ex
1700: 70 20 66 6c 6f 6f 72 20 66 6d 6f 64 20 68 79 70 p floor fmod hyp
1710: 6f 74 20 69 6e 74 20 6c 6f 67 20 6c 6f 67 31 30 ot int log log10
1720: 20 70 6f 77 20 72 61 6e 64 20 72 6f 75 6e 64 20 pow rand round
1730: 73 69 6e 20 73 69 6e 68 20 73 71 72 74 20 73 72 sin sinh sqrt sr
1740: 61 6e 64 20 74 61 6e 20 74 61 6e 68 20 77 69 64 and tan tanh wid
1750: 65 7d 0a 2b 20 20 20 20 73 65 74 20 66 75 6e 63 e}.+ set func
1760: 74 69 6f 6e 73 20 7b 61 62 73 20 61 63 6f 73 20 tions {abs acos
1770: 61 73 69 6e 20 61 74 61 6e 20 61 74 61 6e 32 20 asin atan atan2
1780: 62 6f 6f 6c 20 63 65 69 6c 20 63 6f 73 20 63 6f bool ceil cos co
1790: 73 68 20 64 6f 75 62 6c 65 20 65 78 70 20 66 6c sh double exp fl
17a0: 6f 6f 72 20 66 6d 6f 64 20 68 79 70 6f 74 20 69 oor fmod hypot i
17b0: 6e 74 20 6c 6f 67 20 6c 6f 67 31 30 20 6d 61 78 nt log log10 max
17c0: 20 6d 69 6e 20 70 6f 77 20 72 61 6e 64 20 72 6f min pow rand ro
17d0: 75 6e 64 20 73 69 6e 20 73 69 6e 68 20 73 71 72 und sin sinh sqr
17e0: 74 20 73 72 61 6e 64 20 74 61 6e 20 74 61 6e 68 t srand tan tanh
17f0: 20 77 69 64 65 7d 0a 20 7d 20 65 6c 73 65 20 7b wide}. } else {
1800: 0a 2d 20 20 20 20 73 65 74 20 66 75 6e 63 74 69 .- set functi
1810: 6f 6e 73 20 7b 54 31 20 54 32 20 54 33 20 61 62 ons {T1 T2 T3 ab
1820: 73 20 61 63 6f 73 20 61 73 69 6e 20 61 74 61 6e s acos asin atan
1830: 20 61 74 61 6e 32 20 62 6f 6f 6c 20 63 65 69 6c atan2 bool ceil
1840: 20 63 6f 73 20 63 6f 73 68 20 64 6f 75 62 6c 65 cos cosh double
1850: 20 65 78 70 20 66 6c 6f 6f 72 20 66 6d 6f 64 20 exp floor fmod
1860: 68 79 70 6f 74 20 69 6e 74 20 6c 6f 67 20 6c 6f hypot int log lo
1870: 67 31 30 20 70 6f 77 20 72 61 6e 64 20 72 6f 75 g10 pow rand rou
1880: 6e 64 20 73 69 6e 20 73 69 6e 68 20 73 71 72 74 nd sin sinh sqrt
1890: 20 73 72 61 6e 64 20 74 61 6e 20 74 61 6e 68 20 srand tan tanh
18a0: 77 69 64 65 7d 0a 2b 20 20 20 20 73 65 74 20 66 wide}.+ set f
18b0: 75 6e 63 74 69 6f 6e 73 20 7b 54 31 20 54 32 20 unctions {T1 T2
18c0: 54 33 20 61 62 73 20 61 63 6f 73 20 61 73 69 6e T3 abs acos asin
18d0: 20 61 74 61 6e 20 61 74 61 6e 32 20 62 6f 6f 6c atan atan2 bool
18e0: 20 63 65 69 6c 20 63 6f 73 20 63 6f 73 68 20 64 ceil cos cosh d
18f0: 6f 75 62 6c 65 20 65 78 70 20 66 6c 6f 6f 72 20 ouble exp floor
1900: 66 6d 6f 64 20 68 79 70 6f 74 20 69 6e 74 20 6c fmod hypot int l
1910: 6f 67 20 6c 6f 67 31 30 20 6d 61 78 20 6d 69 6e og log10 max min
1920: 20 70 6f 77 20 72 61 6e 64 20 72 6f 75 6e 64 20 pow rand round
1930: 73 69 6e 20 73 69 6e 68 20 73 71 72 74 20 73 72 sin sinh sqrt sr
1940: 61 6e 64 20 74 61 6e 20 74 61 6e 68 20 77 69 64 and tan tanh wid
1950: 65 7d 0a 20 7d 0a 20 74 65 73 74 20 69 6e 66 6f e}. }. test info
1960: 2d 32 30 2e 31 20 7b 69 6e 66 6f 20 66 75 6e 63 -20.1 {info func
1970: 74 69 6f 6e 73 20 6f 70 74 69 6f 6e 7d 20 7b 69 tions option} {i
1980: 6e 66 6f 20 66 75 6e 63 74 69 6f 6e 73 20 73 69 nfo functions si
1990: 6e 7d 20 73 69 6e 0a 20 74 65 73 74 20 69 6e 66 n} sin. test inf
19a0: 6f 2d 32 30 2e 32 20 7b 69 6e 66 6f 20 66 75 6e o-20.2 {info fun
19b0: 63 74 69 6f 6e 73 20 6f 70 74 69 6f 6e 7d 20 7b ctions option} {
19c0: 6c 73 6f 72 74 20 5b 69 6e 66 6f 20 66 75 6e 63 lsort [info func
19d0: 74 69 6f 6e 73 5d 7d 20 24 66 75 6e 63 74 69 6f tions]} $functio
19e0: 6e 73 0a ns.
