Re-import from Subversion.

[pdclib] / functions / math / abs.c

diff --git a/functions/math/abs.c b/functions/math/abs.c
index 1cd660dce46225a67b2195d38980a116c2d1435b..0dae242f025b8e99f597e9953e33041e1d172131 100644 (file)
--- a/functions/math/abs.c
+++ b/functions/math/abs.c
@@ -1,26 +1,28 @@
-// ----------------------------------------------------------------------------
-// $Id$
-// ----------------------------------------------------------------------------
-// Public Domain C Library - http://pdclib.sourceforge.net
-// This code is Public Domain. Use, modify, and redistribute at will.
-// ----------------------------------------------------------------------------
+/* ----------------------------------------------------------------------------
+ * $Id$
+ * ----------------------------------------------------------------------------
+ * Public Domain C Library - http://pdclib.sourceforge.net
+ * This code is Public Domain. Use, modify, and redistribute at will.
+ * --------------------------------------------------------------------------*/
 
-// ----------------------------------------------------------------------------
-// C++
-
-double abs( double x ) { /* TODO */ };
-float abs( float x ) { /* TODO */ };
-long double abs( long double x ) { /* TODO */ };
-float fabs( float x ) { /* TODO */ };
-long double fabs( long double x ) { /* TODO */ };
+double fabs( double x ) { /* TODO */ };
 
-long abs( long i ) { /* TODO */ };
-long long abs( long long i ) { /* TODO */ };
+/* Therx code
+{
+    return ( x < 0 ) ? -x : x;
+}
+*/
 
-// ----------------------------------------------------------------------------
-// Standard C
+/* PDPC code - unreviewed
+{
+    if (x < 0.0)
+    {
+        x = -x;
+    }
+    return (x);
+}
+*/
 
-double fabs( double x ) { /* TODO */ };
 float fabsf( float x ) { /* TODO */ };
 long double fabsl( long double x ) { /* TODO */ };