cpython-lru_cache-weakref: Modules/mathmodule.c annotate

annotate Modules/mathmodule.c @ 3974:fc505f02ad8a legacy-trunk

Hack for Mac (where fabs is not usable as a function pointer).

author	Guido van Rossum <guido@python.org>
date	Thu, 08 Aug 1996 19:10:21 +0000
parents	2da12c9d714f
children	6f6ba7c00823

rev	line source
145 853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	1 /***********************************************************
2061 172ba04a5191 Added 1995 to copyright message. Guido van Rossum <guido@python.org> parents: 2055 diff changeset	2 Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
172ba04a5191 Added 1995 to copyright message. Guido van Rossum <guido@python.org> parents: 2055 diff changeset	3 The Netherlands.
145 853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	4
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	5 All Rights Reserved
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	6
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	7 Permission to use, copy, modify, and distribute this software and its
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	8 documentation for any purpose and without fee is hereby granted,
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	9 provided that the above copyright notice appear in all copies and that
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	10 both that copyright notice and this permission notice appear in
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	11 supporting documentation, and that the names of Stichting Mathematisch
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	12 Centrum or CWI not be used in advertising or publicity pertaining to
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	13 distribution of the software without specific, written prior permission.
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	14
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	15 STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	16 THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	17 FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	18 FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	20 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	21 OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	22
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	23 ******************************************************************/
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 92 diff changeset	24
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	25 /* Math module -- standard C math library functions, pi and e */
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	26
86 a6934380c6e7 "Compiling" version Guido van Rossum <guido@python.org> parents: 75 diff changeset	27 #include "allobjects.h"
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	28
92 002066a839c5 Add <errno.h>. Guido van Rossum <guido@python.org> parents: 86 diff changeset	29 #include <errno.h>
002066a839c5 Add <errno.h>. Guido van Rossum <guido@python.org> parents: 86 diff changeset	30
1313 6ee380349c84 * Added gmtime/localtime/mktime and SYSV timezone globals to timemodule.c. Guido van Rossum <guido@python.org> parents: 1271 diff changeset	31 #define getdoublearg(v, a) getargs(v, "d", a)
6ee380349c84 * Added gmtime/localtime/mktime and SYSV timezone globals to timemodule.c. Guido van Rossum <guido@python.org> parents: 1271 diff changeset	32 #define get2doublearg(v, a, b) getargs(v, "(dd)", a, b)
6ee380349c84 * Added gmtime/localtime/mktime and SYSV timezone globals to timemodule.c. Guido van Rossum <guido@python.org> parents: 1271 diff changeset	33
2455 b42ab77f2226 include mymath.h Guido van Rossum <guido@python.org> parents: 2213 diff changeset	34 #include "mymath.h"
86 a6934380c6e7 "Compiling" version Guido van Rossum <guido@python.org> parents: 75 diff changeset	35
3597 e07597389d64 Microsoft C changes Guido van Rossum <guido@python.org> parents: 3339 diff changeset	36 #ifndef _MSC_VER
2125 bd061dc30842 rearrange declarations somewhat Guido van Rossum <guido@python.org> parents: 2061 diff changeset	37 #ifndef __STDC__
bd061dc30842 rearrange declarations somewhat Guido van Rossum <guido@python.org> parents: 2061 diff changeset	38 extern double fmod PROTO((double, double));
bd061dc30842 rearrange declarations somewhat Guido van Rossum <guido@python.org> parents: 2061 diff changeset	39 extern double frexp PROTO((double, int *));
bd061dc30842 rearrange declarations somewhat Guido van Rossum <guido@python.org> parents: 2061 diff changeset	40 extern double ldexp PROTO((double, int));
bd061dc30842 rearrange declarations somewhat Guido van Rossum <guido@python.org> parents: 2061 diff changeset	41 extern double modf PROTO((double, double *));
3597 e07597389d64 Microsoft C changes Guido van Rossum <guido@python.org> parents: 3339 diff changeset	42 #endif /* __STDC__ */
e07597389d64 Microsoft C changes Guido van Rossum <guido@python.org> parents: 3339 diff changeset	43 #endif /* _MSC_VER */
e07597389d64 Microsoft C changes Guido van Rossum <guido@python.org> parents: 3339 diff changeset	44
2125 bd061dc30842 rearrange declarations somewhat Guido van Rossum <guido@python.org> parents: 2061 diff changeset	45
3881 2da12c9d714f Don't make an exception for NeXT (BBUM says it's no longer needed). Guido van Rossum <guido@python.org> parents: 3597 diff changeset	46 #if defined(HAVE_HYPOT)
2125 bd061dc30842 rearrange declarations somewhat Guido van Rossum <guido@python.org> parents: 2061 diff changeset	47 extern double hypot PROTO((double, double));
3339 16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	48 #else
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	49 double hypot(x,y)
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	50 double x;
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	51 double y;
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	52 {
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	53 double yx;
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	54
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	55 x = fabs(x);
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	56 y = fabs(y);
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	57 if (x < y) {
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	58 double temp = x;
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	59 x = y;
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	60 y = temp;
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	61 }
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	62 if (x == 0.)
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	63 return 0.;
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	64 else {
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	65 yx = y/x;
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	66 return xsqrt(1.+yxyx);
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	67 }
16cb0473224c added default hypot() implementation Guido van Rossum <guido@python.org> parents: 2734 diff changeset	68 }
2125 bd061dc30842 rearrange declarations somewhat Guido van Rossum <guido@python.org> parents: 2061 diff changeset	69 #endif
bd061dc30842 rearrange declarations somewhat Guido van Rossum <guido@python.org> parents: 2061 diff changeset	70
1271 2919b448e385 * Microscopic corrections to make things compile on the Cray APP. Guido van Rossum <guido@python.org> parents: 1252 diff changeset	71 #ifdef i860
2919b448e385 * Microscopic corrections to make things compile on the Cray APP. Guido van Rossum <guido@python.org> parents: 1252 diff changeset	72 /* Cray APP has bogus definition of HUGE_VAL in <math.h> */
2919b448e385 * Microscopic corrections to make things compile on the Cray APP. Guido van Rossum <guido@python.org> parents: 1252 diff changeset	73 #undef HUGE_VAL
2919b448e385 * Microscopic corrections to make things compile on the Cray APP. Guido van Rossum <guido@python.org> parents: 1252 diff changeset	74 #endif
2919b448e385 * Microscopic corrections to make things compile on the Cray APP. Guido van Rossum <guido@python.org> parents: 1252 diff changeset	75
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	76 #ifdef HUGE_VAL
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	77 #define CHECK(x) if (errno != 0) ; \
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	78 else if (-HUGE_VAL <= (x) && (x) <= HUGE_VAL) ; \
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	79 else errno = ERANGE
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	80 #else
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	81 #define CHECK(x) /* Don't know how to check */
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	82 #endif
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	83
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	84 static object *
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	85 math_error()
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	86 {
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	87 if (errno == EDOM)
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	88 err_setstr(ValueError, "math domain error");
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	89 else if (errno == ERANGE)
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	90 err_setstr(OverflowError, "math range error");
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	91 else
679 6a60342c3107 Get rid of RuntimeError. Guido van Rossum <guido@python.org> parents: 591 diff changeset	92 err_errno(ValueError); /* Unexpected math error */
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	93 return NULL;
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	94 }
56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	95
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	96 static object *
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	97 math_1(args, func)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	98 object *args;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	99 double (*func) FPROTO((double));
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	100 {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	101 double x;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	102 if (!getdoublearg(args, &x))
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	103 return NULL;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	104 errno = 0;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	105 x = (*func)(x);
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	106 CHECK(x);
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	107 if (errno != 0)
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	108 return math_error();
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	109 else
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	110 return newfloatobject(x);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	111 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	112
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	113 static object *
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	114 math_2(args, func)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	115 object *args;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	116 double (*func) FPROTO((double, double));
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	117 {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	118 double x, y;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	119 if (!get2doublearg(args, &x, &y))
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	120 return NULL;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	121 errno = 0;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	122 x = (*func)(x, y);
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	123 CHECK(x);
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	124 if (errno != 0)
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	125 return math_error();
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	126 else
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	127 return newfloatobject(x);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	128 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	129
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	130 #define FUNC1(stubname, func) \
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	131 static object * stubname(self, args) object self, args; { \
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	132 return math_1(args, func); \
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	133 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	134
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	135 #define FUNC2(stubname, func) \
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	136 static object * stubname(self, args) object self, args; { \
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	137 return math_2(args, func); \
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	138 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	139
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	140 FUNC1(math_acos, acos)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	141 FUNC1(math_asin, asin)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	142 FUNC1(math_atan, atan)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	143 FUNC2(math_atan2, atan2)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	144 FUNC1(math_ceil, ceil)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	145 FUNC1(math_cos, cos)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	146 FUNC1(math_cosh, cosh)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	147 FUNC1(math_exp, exp)
3974 fc505f02ad8a Hack for Mac (where fabs is not usable as a function pointer). Guido van Rossum <guido@python.org> parents: 3881 diff changeset	148 #ifdef __MWERKS__
fc505f02ad8a Hack for Mac (where fabs is not usable as a function pointer). Guido van Rossum <guido@python.org> parents: 3881 diff changeset	149 double myfabs(double x) { return fabs(x); }
fc505f02ad8a Hack for Mac (where fabs is not usable as a function pointer). Guido van Rossum <guido@python.org> parents: 3881 diff changeset	150 FUNC1(math_fabs, myfabs)
fc505f02ad8a Hack for Mac (where fabs is not usable as a function pointer). Guido van Rossum <guido@python.org> parents: 3881 diff changeset	151 #else
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	152 FUNC1(math_fabs, fabs)
3974 fc505f02ad8a Hack for Mac (where fabs is not usable as a function pointer). Guido van Rossum <guido@python.org> parents: 3881 diff changeset	153 #endif
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	154 FUNC1(math_floor, floor)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	155 FUNC2(math_fmod, fmod)
1986 58eef51e3084 add hypot() Guido van Rossum <guido@python.org> parents: 1746 diff changeset	156 FUNC2(math_hypot, hypot)
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	157 FUNC1(math_log, log)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	158 FUNC1(math_log10, log10)
320 26426c42a162 Add some err_errno calls that were missing Guido van Rossum <guido@python.org> parents: 289 diff changeset	159 #ifdef MPW_3_1 /* This hack is needed for MPW 3.1 but not for 3.2 ... */
289 c4c278c56e90 Apparently MPW has power() instead of pow(). Guido van Rossum <guido@python.org> parents: 168 diff changeset	160 FUNC2(math_pow, power)
c4c278c56e90 Apparently MPW has power() instead of pow(). Guido van Rossum <guido@python.org> parents: 168 diff changeset	161 #else
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	162 FUNC2(math_pow, pow)
289 c4c278c56e90 Apparently MPW has power() instead of pow(). Guido van Rossum <guido@python.org> parents: 168 diff changeset	163 #endif
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	164 FUNC1(math_sin, sin)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	165 FUNC1(math_sinh, sinh)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	166 FUNC1(math_sqrt, sqrt)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	167 FUNC1(math_tan, tan)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	168 FUNC1(math_tanh, tanh)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	169
1746 1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1319 diff changeset	170
407 9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	171 static object *
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	172 math_frexp(self, args)
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	173 object *self;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	174 object *args;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	175 {
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	176 double x;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	177 int i;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	178 if (!getdoublearg(args, &x))
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	179 return NULL;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	180 errno = 0;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	181 x = frexp(x, &i);
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	182 CHECK(x);
407 9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	183 if (errno != 0)
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	184 return math_error();
1252 c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject(). Guido van Rossum <guido@python.org> parents: 795 diff changeset	185 return mkvalue("(di)", x, i);
407 9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	186 }
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	187
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	188 static object *
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	189 math_ldexp(self, args)
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	190 object *self;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	191 object *args;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	192 {
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	193 double x, y;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	194 /* Cheat -- allow float as second argument */
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	195 if (!get2doublearg(args, &x, &y))
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	196 return NULL;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	197 errno = 0;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	198 x = ldexp(x, (int)y);
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	199 CHECK(x);
407 9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	200 if (errno != 0)
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	201 return math_error();
407 9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	202 else
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	203 return newfloatobject(x);
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	204 }
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	205
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	206 static object *
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	207 math_modf(self, args)
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	208 object *self;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	209 object *args;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	210 {
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	211 double x, y;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	212 if (!getdoublearg(args, &x))
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	213 return NULL;
9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	214 errno = 0;
1746 1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1319 diff changeset	215 #ifdef MPW /* MPW C modf expects pointer to extended as second argument */
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1319 diff changeset	216 {
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1319 diff changeset	217 extended e;
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1319 diff changeset	218 x = modf(x, &e);
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1319 diff changeset	219 y = e;
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1319 diff changeset	220 }
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1319 diff changeset	221 #else
407 9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	222 x = modf(x, &y);
1746 1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1319 diff changeset	223 #endif
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	224 CHECK(x);
407 9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	225 if (errno != 0)
498 56bb1067a880 Improve error handling. Guido van Rossum <guido@python.org> parents: 438 diff changeset	226 return math_error();
1252 c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject(). Guido van Rossum <guido@python.org> parents: 795 diff changeset	227 return mkvalue("(dd)", x, y);
407 9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	228 }
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	229
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	230 static struct methodlist math_methods[] = {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	231 {"acos", math_acos},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	232 {"asin", math_asin},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	233 {"atan", math_atan},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	234 {"atan2", math_atan2},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	235 {"ceil", math_ceil},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	236 {"cos", math_cos},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	237 {"cosh", math_cosh},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	238 {"exp", math_exp},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	239 {"fabs", math_fabs},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	240 {"floor", math_floor},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	241 {"fmod", math_fmod},
407 9b3d557665a9 Added frexp, ldexp, modf, fmod. Guido van Rossum <guido@python.org> parents: 320 diff changeset	242 {"frexp", math_frexp},
1986 58eef51e3084 add hypot() Guido van Rossum <guido@python.org> parents: 1746 diff changeset	243 {"hypot", math_hypot},
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	244 {"ldexp", math_ldexp},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	245 {"log", math_log},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	246 {"log10", math_log10},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	247 {"modf", math_modf},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	248 {"pow", math_pow},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	249 {"sin", math_sin},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	250 {"sinh", math_sinh},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	251 {"sqrt", math_sqrt},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	252 {"tan", math_tan},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	253 {"tanh", math_tanh},
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	254 {NULL, NULL} /* sentinel */
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	255 };
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	256
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	257 void
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	258 initmath()
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	259 {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	260 object m, d, *v;
42 4835c2d38b84 Take out duplication of code in initmodule(). Guido van Rossum <guido@python.org> parents: 6 diff changeset	261
4835c2d38b84 Take out duplication of code in initmodule(). Guido van Rossum <guido@python.org> parents: 6 diff changeset	262 m = initmodule("math", math_methods);
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	263 d = getmoduledict(m);
75 85eed060a46c DECREF pi and e after inserting in symbol table. Guido van Rossum <guido@python.org> parents: 42 diff changeset	264 dictinsert(d, "pi", v = newfloatobject(atan(1.0) * 4.0));
85eed060a46c DECREF pi and e after inserting in symbol table. Guido van Rossum <guido@python.org> parents: 42 diff changeset	265 DECREF(v);
85eed060a46c DECREF pi and e after inserting in symbol table. Guido van Rossum <guido@python.org> parents: 42 diff changeset	266 dictinsert(d, "e", v = newfloatobject(exp(1.0)));
85eed060a46c DECREF pi and e after inserting in symbol table. Guido van Rossum <guido@python.org> parents: 42 diff changeset	267 DECREF(v);
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	268 }

Mercurial > cpython-lru_cache-weakref

annotate Modules/mathmodule.c @ 3974:fc505f02ad8a legacy-trunk