Subversion Repositories Kolibri OS

/*

 * ====================================================

 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.

 *

 * Developed at SunPro, a Sun Microsystems, Inc. business.

 * Permission to use, copy, modify, and distribute this

 * software is freely granted, provided that this notice

 * is preserved.

 * ====================================================

 */

FUNCTION

        <>, <>---arc cosine

	acos

INDEX

	acosf

        #include 

        double acos(double <[x]>);

        float acosf(float <[x]>);

        #include 

        double acos(<[x]>)

        double <[x]>;

        float <[x]>;

	Arguments to <> must be in the range @minus{}1 to 1.

	its calculations on <>.

	@ifnottex

	<> and <> return values in radians, in the range of 0 to pi.

	@end ifnottex

	@tex

	<> and <> return values in radians, in the range of <<0>> to $\pi$.

	@end tex

	(not a number) the global variable <> is set to <>, and a

	<> message is sent as standard error output.

 acos	 y,y,y,m

 acosf   n,n,n,m

 acos, [-1,1], acos(arg),,,

 acos, NAN,    arg,DOMAIN,EDOM

 acosf, [-1,1], acosf(arg),,,

 acosf, NAN,    argf,DOMAIN,EDOM

 * wrap_acos(x)

 */

#include 

	double acos(double x)		/* wrapper acos */

#else

	double acos(x)			/* wrapper acos */

	double x;

#endif

{

#ifdef _IEEE_LIBM

	return __ieee754_acos(x);

#else

	double z;

       	struct exception exc;

       	z = __ieee754_acos(x);

	if(_LIB_VERSION == _IEEE_ || isnan(x)) return z;

	if(fabs(x)>1.0) {

	    /* acos(|x|>1) */

	    exc.type = DOMAIN;

	    exc.name = "acos";

	    exc.err = 0;

	    exc.arg1 = exc.arg2 = x;

	    exc.retval = nan("");

	    if (_LIB_VERSION == _POSIX_)

	       errno = EDOM;

	    else if (!matherr(&exc)) {

	       errno = EDOM;

            }

            if (exc.err != 0)

	       errno = exc.err;

	    return exc.retval;

	} else

	    return z;

#endif

}