ack/lang/basic/lib/conversion.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);
}