Guido van Rossum | f70e43a | 1991-02-19 12:39:46 +0000 | [diff] [blame] | 1 | /*********************************************************** |
Guido van Rossum | fd71b9e | 2000-06-30 23:50:40 +0000 | [diff] [blame] | 2 | Copyright (c) 2000, BeOpen.com. |
| 3 | Copyright (c) 1995-2000, Corporation for National Research Initiatives. |
| 4 | Copyright (c) 1990-1995, Stichting Mathematisch Centrum. |
| 5 | All rights reserved. |
Guido van Rossum | f70e43a | 1991-02-19 12:39:46 +0000 | [diff] [blame] | 6 | |
Guido van Rossum | fd71b9e | 2000-06-30 23:50:40 +0000 | [diff] [blame] | 7 | See the file "Misc/COPYRIGHT" for information on usage and |
| 8 | redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
Guido van Rossum | f70e43a | 1991-02-19 12:39:46 +0000 | [diff] [blame] | 9 | ******************************************************************/ |
| 10 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 11 | /* Portable fmod(x, y) implementation for systems that don't have it */ |
| 12 | |
Guido van Rossum | 464a0a1 | 1995-02-27 10:15:10 +0000 | [diff] [blame] | 13 | #include "config.h" |
Guido van Rossum | 464a0a1 | 1995-02-27 10:15:10 +0000 | [diff] [blame] | 14 | |
Peter Schneider-Kamp | 7e01890 | 2000-07-31 15:28:04 +0000 | [diff] [blame] | 15 | #include "pyport.h" |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 16 | #include <errno.h> |
| 17 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 18 | double |
Guido van Rossum | 464a0a1 | 1995-02-27 10:15:10 +0000 | [diff] [blame] | 19 | fmod(double x, double y) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 20 | { |
| 21 | double i, f; |
| 22 | |
| 23 | if (y == 0.0) { |
| 24 | errno = EDOM; |
| 25 | return 0.0; |
| 26 | } |
| 27 | |
| 28 | /* return f such that x = i*y + f for some integer i |
| 29 | such that |f| < |y| and f has the same sign as x */ |
| 30 | |
| 31 | i = floor(x/y); |
| 32 | f = x - i*y; |
| 33 | if ((x < 0.0) != (y < 0.0)) |
| 34 | f = f-y; |
| 35 | return f; |
| 36 | } |