1 files changed, 49 insertions, 0 deletions
diff --git a/libc/stdlib/labs.c b/libc/stdlib/labs.c
new file mode 100644
index 0000000..634cf73
--- /dev/null
+++ b/libc/stdlib/labs.c
@@ -0,0 +1,49 @@
+/*
+FUNCTION
+<<labs>>---long integer absolute value
+
+INDEX
+	labs
+
+ANSI_SYNOPSIS
+	#include <stdlib.h>
+	long labs(long <[i]>);
+
+TRAD_SYNOPSIS
+	#include <stdlib.h>
+	long labs(<[i]>)
+	long <[i]>;
+
+DESCRIPTION
+<<labs>> returns
+@tex
+$|x|$,
+@end tex
+the absolute value of <[i]> (also called the magnitude
+of <[i]>).  That is, if <[i]> is negative, the result is the opposite
+of <[i]>, but if <[i]> is nonnegative the result is <[i]>.
+
+The similar function <<abs>> uses and returns <<int>> rather than
+<<long>> values.
+
+RETURNS
+The result is a nonnegative long integer.
+
+PORTABILITY
+<<labs>> is ANSI.
+
+No supporting OS subroutine calls are required.
+*/
+
+#include <stdlib.h>
+
+long
+_DEFUN (labs, (x),
+	long x)
+{
+  if (x < 0)
+    {
+      x = -x;
+    }
+  return x;
+}