// Standard C
double floor( double x ) { /* TODO */ };
+
+/* Therx code
+{
+ return ( x > 0 ) ? (int) x : (int) ( x - 0.9999999999999999 );
+}
+*/
+
+/* PDPC code - unreviewed
+{
+ int y;
+
+ if (x < 0.0)
+ {
+ y = (int)fabs(x);
+ if ((double)y != x)
+ {
+ y--;
+ }
+ }
+ else
+ {
+ y = (int)x;
+ }
+ return ((double)x);
+}
+*/
+
float floorf( float x ) { /* TODO */ };
long double floorl( long double x ) { /* TODO */ };