]> pd.if.org Git - pdclib/blob - functions/math/floor.c
Reviewed.
[pdclib] / functions / math / floor.c
1 // ----------------------------------------------------------------------------
2 // $Id$
3 // ----------------------------------------------------------------------------
4 // Public Domain C Library - http://pdclib.sourceforge.net
5 // This code is Public Domain. Use, modify, and redistribute at will.
6 // ----------------------------------------------------------------------------
7
8 double floor( double x ) { /* TODO */ };
9
10 /* Therx code
11 {
12     return ( x > 0 ) ? (int) x : (int) ( x - 0.9999999999999999 );
13 }
14 */
15
16 /* PDPC code - unreviewed
17 {
18     int y;
19     
20     if (x < 0.0)
21     {
22         y = (int)fabs(x);
23         if ((double)y != x)
24         {
25             y--;
26         }
27     }
28     else
29     {
30         y = (int)x;
31     }
32     return ((double)x);
33 }
34 */
35
36 float floorf( float x ) { /* TODO */ };
37 long double floorl( long double x ) { /* TODO */ };