Subversion Repositories scarts

/*

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;

}