2007-03-14 20:24:57 +00:00
|
|
|
#include <math.h>
|
|
|
|
|
2009-05-03 14:57:56 +00:00
|
|
|
typedef int fpclass_t;
|
|
|
|
fpclass_t _fpclass(double __d);
|
|
|
|
int *_errno(void);
|
2007-03-14 20:24:57 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* @unimplemented
|
|
|
|
*/
|
2009-05-03 14:57:56 +00:00
|
|
|
double _j0(double num)
|
2007-03-14 20:24:57 +00:00
|
|
|
{
|
2009-05-03 14:57:56 +00:00
|
|
|
/* FIXME: errno handling */
|
|
|
|
return j0(num);
|
2007-03-14 20:24:57 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
2009-05-03 14:57:56 +00:00
|
|
|
* @implemented
|
2007-03-14 20:24:57 +00:00
|
|
|
*/
|
2009-05-03 14:57:56 +00:00
|
|
|
double _y0(double num)
|
2007-03-14 20:24:57 +00:00
|
|
|
{
|
2009-05-03 14:57:56 +00:00
|
|
|
double retval;
|
|
|
|
if (!isfinite(num)) *_errno() = EDOM;
|
|
|
|
retval = y0(num);
|
|
|
|
if (_fpclass(retval) == _FPCLASS_NINF)
|
|
|
|
{
|
|
|
|
*_errno() = EDOM;
|
|
|
|
retval = sqrt(-1);
|
|
|
|
}
|
|
|
|
return retval;
|
2007-03-14 20:24:57 +00:00
|
|
|
}
|