lang/cem/libcc.ansi/math/floor.c

   1 /*
   2  * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  *
   5  * Author: Ceriel J.H. Jacobs
   6  */
   7 /* $Id: floor.c,v 1.2 1994/06/24 11:43:35 ceriel Exp $ */
   8
   9 #include        <math.h>
  10
  11 double
  12 floor(double x)
  13 {
  14         double val;
  15
  16         return modf(x, &val) < 0 ? val - 1.0 : val ;
  17         /*      this also works if modf always returns a positive
  18                 fractional part
  19         */
  20 }