45 lines
464 B
C
45 lines
464 B
C
/* $Id$ */
|
|
|
|
int _cint(double f)
|
|
{
|
|
int r;
|
|
if (f < -32768 || f > 32767)
|
|
error(4);
|
|
if (f < 0)
|
|
r = f - 0.5;
|
|
else
|
|
r = f + 0.5;
|
|
return (r);
|
|
}
|
|
|
|
double _trunc(double f)
|
|
{
|
|
long d;
|
|
d = f;
|
|
f = d;
|
|
return (f);
|
|
}
|
|
|
|
double _fcint(double f)
|
|
{
|
|
long r;
|
|
if (f < 0)
|
|
{
|
|
r = -f;
|
|
r = -r - 1;
|
|
}
|
|
else
|
|
r = f;
|
|
f = r;
|
|
return (f);
|
|
}
|
|
int _fix(double f)
|
|
{
|
|
int r;
|
|
|
|
if (f < -32768.0 || f > 32767.0)
|
|
error(4);
|
|
r = _sgn(f) * _fcint((f > 0.0 ? f : -f));
|
|
return (r);
|
|
}
|