Changeset 84929b0 in mainline for uspace/lib/math/generic/__fcompare.c

Timestamp:

2018-08-29T20:06:00Z (6 years ago)

Author:

Jiří Zárevúcky <jiri.zarevucky@…>

Children:

ed9043f7

Parents:

184ff675

git-author:

Jiří Zárevúcky <jiri.zarevucky@…> (2018-08-29 19:44:33)

git-committer:

Jiří Zárevúcky <jiri.zarevucky@…> (2018-08-29 20:06:00)

Message:

Strip libmath to the bare necessities

File:

• uspace/lib/math/generic/__fcompare.c (moved) (moved from uspace/lib/posix/include/posix/math.h ) (2 diffs)

uspace/lib/math/generic/__fcompare.c

@@ -1 +1 @@
 /*
- * Copyright (c) 2011 Petr Koupy
+ * Copyright (c) 2018 CZ.NIC, z.s.p.o.
  * All rights reserved.
  *
@@ -27 +27 @@
  */
 
-/** @addtogroup libposix
- * @{
+#include <math.h>
+#include <stdarg.h>
+
+/**
+ * Fallback symbol used when code including <math.h> is compiled with something
+ * other than GCC or Clang. The function itself must be built with GCC or Clang.
  */
-/** @file Mathematical operations.
- *
- * The purpose of this file is only to provide prototypes of mathematical
- * functions defined by C standard and by POSIX.
- *
- * It is up to the application to correctly link with either libmath
- * (provided by HelenOS) or by some other math library (such as fdlibm).
- */
+int __fcompare(size_t sz1, size_t sz2, ...)
+{
+        va_list ap;
+        va_start(ap, sz2);
 
-#ifndef POSIX_MATH_H_
-#define POSIX_MATH_H_
+        long double val1;
+        long double val2;
 
-#ifdef __GNUC__
-#define HUGE_VAL (__builtin_huge_val())
-#endif
+        switch (sz1) {
+        case 4:
+                val1 = (long double) va_arg(ap, double);
+                break;
+        case 8:
+                val1 = (long double) va_arg(ap, double);
+                break;
+        default:
+                val1 = va_arg(ap, long double);
+                break;
+        }
 
-extern double ldexp(double, int);
-extern double frexp(double, int *);
+        switch (sz2) {
+        case 4:
+                val2 = (long double) va_arg(ap, double);
+                break;
+        case 8:
+                val2 = (long double) va_arg(ap, double);
+                break;
+        default:
+                val2 = va_arg(ap, long double);
+                break;
+        }
 
-extern double fabs(double);
-extern double floor(double);
-extern double ceil(double);
-extern double modf(double, double *);
-extern double fmod(double, double);
-extern double pow(double, double);
-extern double exp(double);
-extern double frexp(double, int *);
-extern double expm1(double);
-extern double sqrt(double);
-extern double log(double);
-extern double log10(double);
-extern double sin(double);
-extern double sinh(double);
-extern double asin(double);
-extern double asinh(double);
-extern double cos(double);
-extern double cosh(double);
-extern double acos(double);
-extern double acosh(double);
-extern double tan(double);
-extern double tanh(double);
-extern double atan(double);
-extern double atanh(double);
-extern double atan2(double, double);
-extern double copysign(double, double);
+        va_end(ap);
 
-#endif /* POSIX_MATH_H_ */
+        if (isgreaterequal(val1, val2)) {
+                if (isgreater(val1, val2))
+                        return __FCOMPARE_GREATER;
+                else
+                        return __FCOMPARE_EQUAL;
+        } else {
+                if (isless(val1, val2))
+                        return __FCOMPARE_LESS;
+                else
+                        return 0;
+        }
+}
 
-/** @}
- */