Initial revision

1988-07-22 16:53:29 +00:00
parent 15c6eb7d61
commit f75e68e3fe
23 changed files with 1759 additions and 0 deletions
--- a/lang/cem/libcc/math/ceil.c
+++ b/lang/cem/libcc/math/ceil.c
@@ -0,0 +1,21 @@
+/*
+ * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ *
+ * Author: Ceriel J.H. Jacobs
+ */
+
+/* $Header$ */
+
+double
+ceil(x)
+	double x;
+{
+	extern double modf();
+	double val;
+
+	return modf(x, &val) > 0 ? val + 1.0 : val ;
+	/*	this also works if modf always returns a positive
+		fractional part
+	*/
+}